{S2[-1, n] -> Half[S2[1, n], n] - S2[1, n], 
 S2[-2, n] -> -Diff[Half[S2[1, n], n], n, 1] + Diff[S2[1, n], n, 1] - 
   S2[2, Infinity]/2, S2[2, n] -> -Diff[S2[1, n], n, 1] + S2[2, Infinity], 
 S2[-1, -1, n] -> -Diff[S2[1, n], n, 1]/2 + Half[S2[1, n], n]^2/2 - 
   Half[S2[1, n], n]*S2[1, n] + S2[1, n]^2/2 + S2[2, Infinity]/2, 
 S2[1, -1, n] -> -Diff[Half[S2[1, n], n], n, 1] + Diff[S2[1, n], n, 1] + 
   Half[S2[1, n], n]*S2[1, n] - S2[1, n]^2 - S2[2, Infinity]/2 - 
   S2[-1, 1, n], S2[1, 1, n] -> -Diff[S2[1, n], n, 1]/2 + S2[1, n]^2/2 + 
   S2[2, Infinity]/2, S2[-3, n] -> Diff[Half[S2[1, n], n], n, 2]/2 - 
   Diff[S2[1, n], n, 2]/2 - (3*S2[3, Infinity])/4, 
 S2[3, n] -> Diff[S2[1, n], n, 2]/2 + S2[3, Infinity], 
 S2[-2, -1, n] -> -Diff[Half[S2[1, n], n], n, 2]/2 + Diff[S2[1, n], n, 2]/2 - 
   Diff[S2[-1, 1, n], n, 1] + Diff[S2[1, n], n, 1]*Half[S2[1, n], n] + 
   Half[S2[2, 1, n], n]/2 - Diff[S2[1, n], n, 1]*S2[1, n] - 
   (3*S2[-1, Infinity]*S2[2, Infinity])/2 - (7*S2[3, Infinity])/8 - 
   2*S2[-2, 1, n] - S2[2, 1, n], S2[2, -1, n] -> 
  Diff[Half[S2[1, n], n], n, 2]/2 - Diff[S2[1, n], n, 2]/2 + 
   Diff[S2[-1, 1, n], n, 1] - Diff[S2[1, n], n, 1]*Half[S2[1, n], n] + 
   Diff[S2[1, n], n, 1]*S2[1, n] + (3*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (7*S2[3, Infinity])/8 + S2[-2, 1, n], 
 S2[-1, -2, n] -> Diff[Half[S2[1, n], n], n, 2]/2 + 
   Diff[S2[-1, 1, n], n, 1] - Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n] - Half[S2[2, 1, n], n]/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n] - 
   (Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity])/2 + (S2[1, n]*S2[2, Infinity])/2 + 
   (15*S2[3, Infinity])/8 + 2*S2[-2, 1, n] + S2[2, 1, n], 
 S2[-1, 2, n] -> -Diff[S2[-1, 1, n], n, 1] + Half[S2[1, n], n]*
    S2[2, Infinity] - (3*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   S2[1, n]*S2[2, Infinity] - (13*S2[3, Infinity])/8 - S2[-2, 1, n], 
 S2[1, -2, n] -> Diff[Half[S2[1, n], n], n, 2]/2 - Diff[S2[1, n], n, 2]/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n] + Diff[S2[1, n], n, 1]*S2[1, n] - 
   (S2[1, n]*S2[2, Infinity])/2 - (3*S2[3, Infinity])/4 - S2[-2, 1, n], 
 S2[1, 2, n] -> Diff[S2[1, n], n, 2]/2 - Diff[S2[1, n], n, 1]*S2[1, n] + 
   S2[1, n]*S2[2, Infinity] + S2[3, Infinity] - S2[2, 1, n], 
 S2[-1, -1, -1, n] -> Diff[Half[S2[1, n], n], n, 2]/6 - 
   Diff[S2[1, n], n, 2]/6 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 + 
   Half[S2[1, n], n]^3/6 + (Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n])/2 + (Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   S2[1, n]^3/6 + (Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (S2[1, n]*S2[2, Infinity])/2 - S2[3, Infinity]/4, 
 S2[-1, -1, 1, n] -> Diff[Half[S2[1, n], n], n, 2]/4 + 
   Diff[S2[-1, 1, n], n, 1]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[1, n], n])/2 - Half[S2[2, 1, n], n]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]*S2[2, Infinity])/4 + (S2[1, n]*S2[2, Infinity])/4 + 
   (15*S2[3, Infinity])/16 + S2[-2, 1, n] + (Half[S2[1, n], n]*S2[-1, 1, n])/
    2 - (S2[1, n]*S2[-1, 1, n])/2 + S2[2, 1, n] - S2[-1, 1, -1, n]/2, 
 S2[1, -1, -1, n] -> -Diff[Half[S2[1, n], n], n, 2]/4 + 
   Diff[S2[1, n], n, 2]/2 - Diff[S2[-1, 1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n])/2 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n] + Half[S2[2, 1, n], n]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n])/2 + (Half[S2[1, n], n]^2*S2[1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]^2 + S2[1, n]^3/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (3*S2[-1, Infinity]*S2[2, Infinity])/4 + (3*S2[1, n]*S2[2, Infinity])/4 + 
   S2[3, Infinity]/16 - S2[-2, 1, n] - (Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n])/2 - S2[2, 1, n] - S2[-1, 1, -1, n]/2, 
 S2[1, -1, 1, n] -> -Diff[S2[-1, 1, n], n, 1] + 
   Half[S2[1, n], n]*S2[2, Infinity] - (3*S2[-1, Infinity]*S2[2, Infinity])/
    2 - S2[1, n]*S2[2, Infinity] - (13*S2[3, Infinity])/8 + 
   S2[1, n]*S2[-1, 1, n] - 2*S2[-1, 1, 1, n], 
 S2[1, 1, -1, n] -> Diff[Half[S2[1, n], n], n, 2]/2 - 
   Diff[S2[1, n], n, 2]/2 + Diff[S2[-1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n] + (3*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2)/2 - S2[1, n]^3/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity])/2 + (7*S2[3, Infinity])/8 - 
   S2[1, n]*S2[-1, 1, n] + S2[-1, 1, 1, n], 
 S2[1, 1, 1, n] -> Diff[S2[1, n], n, 2]/6 - (Diff[S2[1, n], n, 1]*S2[1, n])/
    2 + S2[1, n]^3/6 + (S2[1, n]*S2[2, Infinity])/2 + S2[3, Infinity]/3, 
 S2[-4, n] -> -Diff[Half[S2[1, n], n], n, 3]/6 + Diff[S2[1, n], n, 3]/6 - 
   (7*S2[2, Infinity]^2)/20, S2[4, n] -> -Diff[S2[1, n], n, 3]/6 + 
   (2*S2[2, Infinity]^2)/5, S2[-3, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^2/4 + Diff[Half[S2[1, n], n], n, 3]/4 - 
   Diff[Half[S2[2, 1, n], n], n, 1]/4 + Diff[S2[1, n], n, 1]^2/4 - 
   (5*Diff[S2[1, n], n, 3])/24 + Diff[S2[-2, 1, n], n, 1] + 
   Diff[S2[-1, 1, n], n, 2]/2 + Diff[S2[2, 1, n], n, 1]/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - S2[-1, Infinity]^4/12 + 
   (Diff[S2[1, n], n, 2]*S2[1, n])/2 + (S2[-1, Infinity]^2*S2[2, Infinity])/
    2 + (3*S2[2, Infinity]^2)/5 + 2*S2[-1, 1, 1, 1, Infinity], 
 S2[3, -1, n] -> -Diff[Half[S2[1, n], n], n, 3]/6 + Diff[S2[1, n], n, 3]/6 - 
   Diff[S2[-2, 1, n], n, 1] - Diff[S2[-1, 1, n], n, 2]/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + S2[-1, Infinity]^4/12 - 
   (Diff[S2[1, n], n, 2]*S2[1, n])/2 - (S2[-1, Infinity]^2*S2[2, Infinity])/
    2 - (39*S2[2, Infinity]^2)/40 - S2[-3, 1, n] - 
   2*S2[-1, 1, 1, 1, Infinity], S2[3, 1, n] -> -Diff[S2[1, n], n, 1]^2/4 + 
   Diff[S2[1, n], n, 3]/24 - Diff[S2[2, 1, n], n, 1]/2 + S2[2, Infinity]^2/2, 
 S2[-2, -2, n] -> Diff[Half[S2[1, n], n], n, 1]^2/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1] + 
   Diff[S2[1, n], n, 1]^2/2 - Diff[S2[1, n], n, 3]/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + (13*S2[2, Infinity]^2)/40, 
 S2[-2, 2, n] -> -Diff[S2[-2, 1, n], n, 1] - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, Infinity] + Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   (37*S2[2, Infinity]^2)/40 - 2*S2[-3, 1, n], 
 S2[2, -2, n] -> -Diff[Half[S2[1, n], n], n, 3]/6 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1] - 
   Diff[S2[1, n], n, 1]^2 + Diff[S2[1, n], n, 3]/6 + 
   Diff[S2[-2, 1, n], n, 1] + (Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*S2[2, Infinity]^2)/40 + 2*S2[-3, 1, n], 
 S2[2, 2, n] -> Diff[S2[1, n], n, 1]^2/2 - Diff[S2[1, n], n, 3]/12 - 
   Diff[S2[1, n], n, 1]*S2[2, Infinity] + (7*S2[2, Infinity]^2)/10, 
 S2[-1, -3, n] -> Diff[Half[S2[1, n], n], n, 1]^2/4 - 
   Diff[Half[S2[1, n], n], n, 3]/4 + Diff[Half[S2[2, 1, n], n], n, 1]/4 - 
   Diff[S2[1, n], n, 1]^2/4 + Diff[S2[1, n], n, 3]/24 - 
   Diff[S2[-2, 1, n], n, 1] - Diff[S2[-1, 1, n], n, 2]/2 - 
   Diff[S2[2, 1, n], n, 1]/2 + (Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 + S2[-1, Infinity]^4/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (S2[-1, Infinity]^2*S2[2, Infinity])/2 - S2[2, Infinity]^2/5 - 
   (3*Half[S2[1, n], n]*S2[3, Infinity])/4 + (3*S2[1, n]*S2[3, Infinity])/4 - 
   2*S2[-1, 1, 1, 1, Infinity], S2[-1, 3, n] -> 
  Diff[S2[-2, 1, n], n, 1] + Diff[S2[-1, 1, n], n, 2]/2 - 
   S2[-1, Infinity]^4/12 + (S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (5*S2[2, Infinity]^2)/8 + Half[S2[1, n], n]*S2[3, Infinity] - 
   S2[1, n]*S2[3, Infinity] + S2[-3, 1, n] + 2*S2[-1, 1, 1, 1, Infinity], 
 S2[1, -3, n] -> -Diff[Half[S2[1, n], n], n, 3]/6 + Diff[S2[1, n], n, 3]/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[1, n])/2 - (7*S2[2, Infinity]^2)/20 - 
   (3*S2[1, n]*S2[3, Infinity])/4 - S2[-3, 1, n], 
 S2[1, 3, n] -> Diff[S2[1, n], n, 1]^2/4 - (5*Diff[S2[1, n], n, 3])/24 + 
   Diff[S2[2, 1, n], n, 1]/2 + (Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   S2[2, Infinity]^2/10 + S2[1, n]*S2[3, Infinity], 
 S2[-2, -1, -1, n] -> -Diff[Half[S2[1, n], n], n, 3]/12 + 
   Diff[S2[1, n], n, 3]/12 - Diff[S2[-2, 1, n], n, 1] - 
   Diff[S2[-1, 1, n], n, 2]/4 - (Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 + S2[-1, Infinity]^4/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n])/2 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n])/
    2 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Half[S2[2, 1, n], n]*S2[1, n])/4 + (Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (19*S2[2, Infinity]^2)/20 - (7*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (7*S2[1, n]*S2[3, Infinity])/16 - (3*S2[-3, 1, n])/2 - 
   Half[S2[1, n], n]*S2[-2, 1, n] + S2[1, n]*S2[-2, 1, n] - 
   (Half[S2[1, n], n]*S2[2, 1, n])/2 + (S2[1, n]*S2[2, 1, n])/2 - 
   S2[-1, -2, -1, n]/2 - S2[-1, 1, 1, 1, Infinity], 
 S2[-2, -1, 1, n] -> Diff[Half[S2[1, n], n], n, 1]^2/4 + 
   (3*Diff[Half[S2[1, n], n], n, 3])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 + 
   2*Diff[S2[1, n], n, 1]^2 - (2*Diff[S2[1, n], n, 3])/3 + 
   2*Diff[S2[-2, 1, n], n, 1] + (7*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, -1, n], n, 1]/2 + Diff[S2[-1, 1, 1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n])/4 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 + Half[S2[2, 1, 1, n], n]/2 - 
   (5*S2[-1, Infinity]^4)/24 - (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 + 
   2*Diff[S2[1, n], n, 2]*S2[1, n] - 2*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (Half[S2[2, 1, n], n]*S2[1, n])/4 - 2*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (23*S2[2, Infinity]^2)/8 + (7*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (35*S2[1, n]*S2[3, Infinity])/16 + (3*S2[-3, 1, n])/2 + 
   Half[S2[1, n], n]*S2[-2, 1, n] - 3*S2[1, n]*S2[-2, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + (Half[S2[1, n], n]*S2[2, 1, n])/
    2 - (S2[1, n]*S2[2, 1, n])/2 - 2*S2[-2, 1, -1, n] + S2[-1, -2, -1, n]/2 + 
   2*S2[1, 2, -1, n] + S2[2, 1, -1, n] - S2[2, 1, 1, n] + 
   5*S2[-1, 1, 1, 1, Infinity], S2[-2, 1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 3]/3 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1] - Diff[S2[1, n], n, 1]^2 + Diff[S2[1, n], n, 3]/3 - 
   Diff[S2[-2, 1, n], n, 1] - Diff[S2[-1, 1, n], n, 2] - 
   Diff[S2[-1, 1, 1, n], n, 1] + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   S2[-1, Infinity]^4/24 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   Diff[S2[1, n], n, 2]*S2[1, n] + Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   Diff[S2[1, n], n, 1]*S2[1, n]^2 + (Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    2 - S2[-1, Infinity]^2*S2[2, Infinity] + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (39*S2[2, Infinity]^2)/40 + (7*S2[1, n]*S2[3, Infinity])/8 - 
   S2[-3, 1, n] + S2[1, n]*S2[-2, 1, n] + Diff[S2[1, n], n, 1]*S2[-1, 1, n] - 
   S2[1, 2, -1, n] - S2[2, 1, -1, n] - S2[-1, 1, 1, 1, Infinity], 
 S2[2, -1, -1, n] -> -Diff[Half[S2[1, n], n], n, 1]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 - 
   Diff[S2[1, n], n, 3]/12 + Diff[S2[-1, 1, -1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/2 + S2[-1, Infinity]^4/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n])/2 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n])/
    2 + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[2, Infinity])/2 - S2[2, Infinity]^2/20 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + S2[-2, 1, -1, n] - 
   S2[-1, 1, 1, 1, Infinity], S2[2, -1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 3]/3 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1] - Diff[S2[1, n], n, 1]^2 + Diff[S2[1, n], n, 3]/3 - 
   Diff[S2[-1, 1, n], n, 2]/2 + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   S2[-1, Infinity]^4/12 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   Diff[S2[1, n], n, 2]*S2[1, n] + Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   Diff[S2[1, n], n, 1]*S2[1, n]^2 + (Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    2 - (S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (9*S2[2, Infinity]^2)/10 + (7*S2[1, n]*S2[3, Infinity])/8 + S2[-3, 1, n] + 
   S2[1, n]*S2[-2, 1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n] - 
   2*S2[-1, 1, 1, 1, Infinity], S2[-1, -2, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^2/4 - (3*Diff[Half[S2[1, n], n], n, 3])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 - 
   (7*Diff[S2[1, n], n, 1]^2)/4 + (5*Diff[S2[1, n], n, 3])/8 - 
   2*Diff[S2[-2, 1, n], n, 1] - (7*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[2, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, n], n, 1] + (Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 + Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 - Half[S2[2, 1, 1, n], n]/2 + 
   (5*S2[-1, Infinity]^4)/24 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 - 
   2*Diff[S2[1, n], n, 2]*S2[1, n] + 2*Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Half[S2[2, 1, n], n]*S2[1, n])/4 + 2*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (5*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (41*S2[2, Infinity]^2)/20 - (7*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (35*S2[1, n]*S2[3, Infinity])/16 - (3*S2[-3, 1, n])/2 + 
   2*S2[1, n]*S2[-2, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 - (Half[S2[1, n], n]*S2[2, 1, n])/
    2 + (S2[1, n]*S2[2, 1, n])/2 + S2[-2, 1, -1, n] - S2[-1, -2, -1, n]/2 - 
   2*S2[1, 2, -1, n] - S2[2, 1, -1, n] + S2[2, 1, 1, n] - 
   5*S2[-1, 1, 1, 1, Infinity], S2[-1, 2, -1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^2/4 + Diff[Half[S2[1, n], n], n, 3]/4 - 
   Diff[Half[S2[2, 1, n], n], n, 1]/4 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1] + (3*Diff[S2[1, n], n, 1]^2)/4 - 
   Diff[S2[1, n], n, 3]/8 + Diff[S2[-2, 1, n], n, 1] + 
   Diff[S2[-1, 1, n], n, 2]/2 + Diff[S2[2, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 - S2[-1, Infinity]^4/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (7*S2[2, Infinity]^2)/5 + (7*Half[S2[1, n], n]*S2[3, Infinity])/8 - 
   (7*S2[1, n]*S2[3, Infinity])/8 + Half[S2[1, n], n]*S2[-2, 1, n] - 
   S2[1, n]*S2[-2, 1, n] + Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, n] - 2*S2[-2, 1, -1, n] + 
   4*S2[-1, 1, 1, 1, Infinity], S2[-1, 2, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 3]/6 - Diff[S2[1, n], n, 3]/6 + 
   Diff[S2[-2, 1, n], n, 1] + Diff[S2[-1, 1, n], n, 2]/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - S2[-1, Infinity]^4/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 + 
   Diff[S2[1, n], n, 2]*S2[1, n] - Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, n]^2 + (S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (39*S2[2, Infinity]^2)/40 - (7*S2[1, n]*S2[3, Infinity])/8 + 
   2*S2[-3, 1, n] - S2[1, n]*S2[-2, 1, n] + Half[S2[1, n], n]*S2[2, 1, n] - 
   S2[1, n]*S2[2, 1, n] + S2[1, 2, -1, n] + 2*S2[-1, 1, 1, 1, Infinity], 
 S2[-1, -1, -2, n] -> -Diff[Half[S2[1, n], n], n, 3]/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 - 
   Diff[S2[1, n], n, 1]^2/2 + Diff[S2[1, n], n, 3]/12 + 
   Diff[S2[-2, 1, n], n, 1] + Diff[S2[-1, 1, n], n, 2]/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 - S2[-1, Infinity]^4/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[1, n] + (Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (S2[1, n]^2*S2[2, Infinity])/4 + (7*S2[2, Infinity]^2)/20 + 
   (23*Half[S2[1, n], n]*S2[3, Infinity])/16 - (23*S2[1, n]*S2[3, Infinity])/
    16 + (3*S2[-3, 1, n])/2 + Half[S2[1, n], n]*S2[-2, 1, n] - 
   S2[1, n]*S2[-2, 1, n] + (Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (S2[1, n]*S2[2, 1, n])/2 - S2[-1, -2, -1, n]/2 + 
   S2[-1, 1, 1, 1, Infinity], S2[-1, -1, 2, n] -> 
  -Diff[Half[S2[1, n], n], n, 3]/4 + Diff[Half[S2[2, 1, n], n], n, 1]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 - 
   Diff[S2[1, n], n, 1]^2/4 + Diff[S2[1, n], n, 3]/24 - 
   Diff[S2[-2, 1, n], n, 1] - Diff[S2[-1, 1, n], n, 2]/2 - 
   Diff[S2[2, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 + S2[-1, Infinity]^4/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (S2[1, n]^2*S2[2, Infinity])/2 - (9*S2[2, Infinity]^2)/20 - 
   (13*Half[S2[1, n], n]*S2[3, Infinity])/8 + (13*S2[1, n]*S2[3, Infinity])/
    8 - Half[S2[1, n], n]*S2[-2, 1, n] + S2[1, n]*S2[-2, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + S2[-2, 1, -1, n] - 
   3*S2[-1, 1, 1, 1, Infinity], S2[-1, 1, -2, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^2/4 - Diff[Half[S2[1, n], n], n, 3]/4 + 
   Diff[Half[S2[2, 1, n], n], n, 1]/4 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1] - (3*Diff[S2[1, n], n, 1]^2)/4 + 
   Diff[S2[1, n], n, 3]/8 - Diff[S2[-2, 1, n], n, 1] - 
   Diff[S2[-1, 1, n], n, 2]/2 - Diff[S2[2, 1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n])/2 + 
   S2[-1, Infinity]^4/12 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[2, Infinity])/2 - (21*S2[2, Infinity]^2)/40 - 
   (3*Half[S2[1, n], n]*S2[3, Infinity])/4 + (3*S2[1, n]*S2[3, Infinity])/4 - 
   Half[S2[1, n], n]*S2[-2, 1, n] + S2[1, n]*S2[-2, 1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, n] - (S2[2, Infinity]*S2[-1, 1, n])/2 + 
   S2[-2, 1, -1, n] - 2*S2[-1, 1, 1, 1, Infinity], 
 S2[-1, 1, 2, n] -> Diff[Half[S2[1, n], n], n, 3]/6 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1] + 
   Diff[S2[1, n], n, 1]^2 - Diff[S2[1, n], n, 3]/6 + 
   Diff[S2[-1, 1, n], n, 2]/2 - S2[-1, Infinity]^4/12 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (S2[-1, Infinity]^2*S2[2, Infinity])/2 + (11*S2[2, Infinity]^2)/20 + 
   Half[S2[1, n], n]*S2[3, Infinity] - S2[1, n]*S2[3, Infinity] - 
   S2[-3, 1, n] - Diff[S2[1, n], n, 1]*S2[-1, 1, n] + 
   S2[2, Infinity]*S2[-1, 1, n] - Half[S2[1, n], n]*S2[2, 1, n] + 
   S2[1, n]*S2[2, 1, n] + S2[2, 1, -1, n] + 2*S2[-1, 1, 1, 1, Infinity], 
 S2[1, -2, -1, n] -> -Diff[Half[S2[1, n], n], n, 3]/2 - 
   Diff[Half[S2[2, 1, n], n], n, 1]/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 - 
   (5*Diff[S2[1, n], n, 1]^2)/4 + (3*Diff[S2[1, n], n, 3])/8 - 
   Diff[S2[-2, 1, n], n, 1] - (5*Diff[S2[-1, 1, n], n, 2])/4 + 
   Diff[S2[2, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, n], n, 1] + (Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 - Half[S2[2, 1, 1, n], n]/2 + 
   S2[-1, Infinity]^4/8 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 - 
   Diff[S2[1, n], n, 2]*S2[1, n] + Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (Half[S2[2, 1, n], n]*S2[1, n])/4 + Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (39*S2[2, Infinity]^2)/20 - (7*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (21*S2[1, n]*S2[3, Infinity])/16 - (3*S2[-3, 1, n])/2 - 
   Half[S2[1, n], n]*S2[-2, 1, n] + S2[1, n]*S2[-2, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 - (Half[S2[1, n], n]*S2[2, 1, n])/
    2 - (S2[1, n]*S2[2, 1, n])/2 + S2[-2, 1, -1, n] - S2[-1, -2, -1, n]/2 - 
   2*S2[1, 2, -1, n] - S2[2, 1, -1, n] + S2[2, 1, 1, n] - 
   3*S2[-1, 1, 1, 1, Infinity], S2[1, -2, 1, n] -> 
  (2*Diff[Half[S2[1, n], n], n, 3])/3 - 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1] + 2*Diff[S2[1, n], n, 1]^2 - 
   (2*Diff[S2[1, n], n, 3])/3 + Diff[S2[-2, 1, n], n, 1] + 
   2*Diff[S2[-1, 1, n], n, 2] + 2*Diff[S2[-1, 1, 1, n], n, 1] - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - S2[-1, Infinity]^4/12 - 
   Diff[Half[S2[1, n], n], n, 2]*S2[1, n] + 2*Diff[S2[1, n], n, 2]*S2[1, n] - 
   2*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 2*Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[1, n] - 2*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity] + 
   2*S2[-1, Infinity]^2*S2[2, Infinity] - 3*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] + (41*S2[2, Infinity]^2)/40 - 
   (7*S2[1, n]*S2[3, Infinity])/4 + S2[-3, 1, n] - S2[1, n]*S2[-2, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, n] + 2*S2[1, 2, -1, n] + 
   2*S2[2, 1, -1, n] + 2*S2[-1, 1, 1, 1, Infinity], 
 S2[1, 2, 1, n] -> Diff[S2[1, n], n, 1]^2/4 - Diff[S2[1, n], n, 3]/24 - 
   Diff[S2[2, 1, n], n, 1]/2 - Diff[S2[1, n], n, 1]*S2[2, Infinity] + 
   (6*S2[2, Infinity]^2)/5 + S2[1, n]*S2[2, 1, n] - 2*S2[2, 1, 1, n], 
 S2[1, -1, -2, n] -> (3*Diff[Half[S2[1, n], n], n, 1]^2)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 3])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 + 
   (11*Diff[S2[1, n], n, 1]^2)/4 - (19*Diff[S2[1, n], n, 3])/24 + 
   2*Diff[S2[-2, 1, n], n, 1] + (7*Diff[S2[-1, 1, n], n, 2])/4 + 
   Diff[S2[2, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, 1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 - Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 + Half[S2[2, 1, 1, n], n]/2 - 
   (5*S2[-1, Infinity]^4)/24 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 + 
   2*Diff[S2[1, n], n, 2]*S2[1, n] - Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Half[S2[2, 1, n], n]*S2[1, n])/4 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]^2 - 2*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (S2[1, n]^2*S2[2, Infinity])/2 + (27*S2[2, Infinity]^2)/10 + 
   (7*Half[S2[1, n], n]*S2[3, Infinity])/16 - (5*S2[1, n]*S2[3, Infinity])/
    16 + (3*S2[-3, 1, n])/2 + Half[S2[1, n], n]*S2[-2, 1, n] - 
   S2[1, n]*S2[-2, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[2, 1, n])/2 + (S2[1, n]*S2[2, 1, n])/2 - 
   2*S2[-2, 1, -1, n] + S2[-1, -2, -1, n]/2 + 2*S2[1, 2, -1, n] + 
   S2[2, 1, -1, n] - S2[2, 1, 1, n] + 5*S2[-1, 1, 1, 1, Infinity], 
 S2[1, -1, 2, n] -> -Diff[Half[S2[1, n], n], n, 3]/3 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1] - 
   Diff[S2[1, n], n, 1]^2 + Diff[S2[1, n], n, 3]/3 - 
   Diff[S2[-2, 1, n], n, 1] - Diff[S2[-1, 1, n], n, 2]/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + S2[-1, Infinity]^4/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   Diff[S2[1, n], n, 2]*S2[1, n] - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] + Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity] + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[2, Infinity])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - S2[1, n]^2*S2[2, Infinity] - 
   (73*S2[2, Infinity]^2)/40 - (3*S2[1, n]*S2[3, Infinity])/4 - 
   2*S2[-3, 1, n] + Diff[S2[1, n], n, 1]*S2[-1, 1, n] - 
   S2[2, Infinity]*S2[-1, 1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n] - 
   2*S2[-1, 1, 1, 1, Infinity], S2[1, 1, -2, n] -> 
  -Diff[Half[S2[1, n], n], n, 3]/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1])/2 - (3*Diff[S2[1, n], n, 1]^2)/2 + 
   Diff[S2[1, n], n, 3]/2 - Diff[S2[-1, 1, n], n, 2] - 
   Diff[S2[-1, 1, 1, n], n, 1] + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   S2[-1, Infinity]^4/24 + Diff[Half[S2[1, n], n], n, 2]*S2[1, n] - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n])/2 + Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2)/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - S2[-1, Infinity]^2*
    S2[2, Infinity] + (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (S2[1, n]^2*S2[2, Infinity])/4 - (13*S2[2, Infinity]^2)/20 + 
   (S2[1, n]*S2[3, Infinity])/8 + Diff[S2[1, n], n, 1]*S2[-1, 1, n] - 
   S2[1, 2, -1, n] - S2[2, 1, -1, n] - S2[-1, 1, 1, 1, Infinity], 
 S2[1, 1, 2, n] -> Diff[S2[1, n], n, 1]^2/4 - Diff[S2[1, n], n, 3]/8 + 
   Diff[S2[2, 1, n], n, 1]/2 + (Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + (S2[1, n]^2*S2[2, Infinity])/2 - 
   (3*S2[2, Infinity]^2)/10 + S2[1, n]*S2[3, Infinity] - 
   S2[1, n]*S2[2, 1, n] + S2[2, 1, 1, n], S2[-1, -1, -1, -1, n] -> 
  Diff[S2[1, n], n, 1]^2/8 - Diff[S2[1, n], n, 3]/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n])/6 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/4 + Half[S2[1, n], n]^4/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/6 + 
   (Diff[S2[1, n], n, 2]*S2[1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[1, n])/6 - (Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2)/4 - (Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   S2[1, n]^4/24 - (Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (S2[1, n]^2*S2[2, Infinity])/4 + (9*S2[2, Infinity]^2)/40 - 
   (Half[S2[1, n], n]*S2[3, Infinity])/4 + (S2[1, n]*S2[3, Infinity])/4, 
 S2[-1, -1, -1, 1, n] -> -Diff[Half[S2[1, n], n], n, 3]/9 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1])/3 - 
   (2*Diff[S2[1, n], n, 1]^2)/3 + Diff[S2[1, n], n, 3]/9 + 
   (2*Diff[S2[-2, 1, n], n, 1])/3 + (Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/6 + (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2)/3 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (Half[S2[2, 1, n], n]*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2)/3 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/3 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity])/6 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/3 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (S2[1, n]^2*S2[2, Infinity])/6 + S2[2, Infinity]^2/20 + 
   (5*Half[S2[1, n], n]*S2[3, Infinity])/8 - (5*S2[1, n]*S2[3, Infinity])/8 + 
   (5*S2[-3, 1, n])/3 + (2*Half[S2[1, n], n]*S2[-2, 1, n])/3 - 
   (2*S2[1, n]*S2[-2, 1, n])/3 + (Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 + (S2[1, n]^2*S2[-1, 1, n])/
    6 - (S2[2, Infinity]*S2[-1, 1, n])/6 + Half[S2[1, n], n]*S2[2, 1, n] - 
   S2[1, n]*S2[2, 1, n] - S2[-1, -2, -1, n]/3 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, n])/3 + (S2[1, n]*S2[-1, 1, -1, n])/3 - 
   (2*S2[2, 1, -1, n])/3 + S2[-1, 1, -1, -1, n]/3, 
 S2[-1, -1, 1, -1, n] -> Diff[Half[S2[1, n], n], n, 3]/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 + 
   Diff[S2[1, n], n, 1]^2/2 - Diff[S2[1, n], n, 3]/12 + 
   Diff[S2[-1, 1, n], n, 2]/4 - S2[-1, Infinity]^4/24 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[2, Infinity])/4 + (11*S2[2, Infinity]^2)/40 + 
   (Half[S2[1, n], n]*S2[3, Infinity])/2 - (S2[1, n]*S2[3, Infinity])/2 - 
   S2[-3, 1, n]/2 - (Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, n])/2 - (Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (S2[1, n]*S2[2, 1, n])/2 + S2[-1, -2, -1, n]/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, n])/2 - (S2[1, n]*S2[-1, 1, -1, n])/2 + 
   S2[2, 1, -1, n] - S2[-1, 1, -1, -1, n] + S2[-1, 1, 1, 1, Infinity], 
 S2[-1, -1, 1, 1, n] -> Diff[Half[S2[1, n], n], n, 1]^2/8 - 
   Diff[Half[S2[1, n], n], n, 3]/2 + Diff[Half[S2[2, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1] - 
   (9*Diff[S2[1, n], n, 1]^2)/8 + (17*Diff[S2[1, n], n, 3])/48 - 
   (3*Diff[S2[-2, 1, n], n, 1])/2 - (9*Diff[S2[-1, 1, n], n, 2])/8 - 
   Diff[S2[2, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]/2 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - Half[S2[2, 1, 1, n], n]/4 + 
   S2[-1, Infinity]^4/6 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 - 
   Diff[S2[1, n], n, 2]*S2[1, n] + (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Half[S2[2, 1, n], n]*S2[1, n])/8 + Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (5*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (21*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (S2[1, n]^2*S2[2, Infinity])/4 - (57*S2[2, Infinity]^2)/40 - 
   (33*Half[S2[1, n], n]*S2[3, Infinity])/32 + (61*S2[1, n]*S2[3, Infinity])/
    32 - (3*S2[-3, 1, n])/4 - (Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (3*S2[1, n]*S2[-2, 1, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n])/
    2 + Diff[S2[1, n], n, 1]*S2[-1, 1, n] + S2[-1, 1, n]^2/4 - 
   (Half[S2[1, n], n]*S2[2, 1, n])/4 + (S2[1, n]*S2[2, 1, n])/4 + 
   S2[-2, 1, -1, n] - S2[-1, -2, -1, n]/4 - S2[1, 2, -1, n] - 
   S2[2, 1, -1, n]/2 + S2[2, 1, 1, n] - S2[-1, 1, -1, 1, n]/2 - 
   4*S2[-1, 1, 1, 1, Infinity], S2[-1, 1, 1, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 - 
   Diff[S2[1, n], n, 1]^2/4 + Diff[S2[1, n], n, 3]/24 - 
   Diff[S2[-1, 1, -1, n], n, 1]/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 - S2[-1, Infinity]^4/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[2, Infinity])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (S2[1, n]^2*S2[2, Infinity])/2 + (11*S2[2, Infinity]^2)/40 + 
   (7*Half[S2[1, n], n]*S2[3, Infinity])/8 - (7*S2[1, n]*S2[3, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, n])/2 - 
   S2[-1, 1, n]^2/2 + Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, 1, n] + S2[-1, 1, 1, 1, Infinity], 
 S2[1, -1, -1, -1, n] -> (-5*Diff[Half[S2[1, n], n], n, 3])/36 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1])/3 - 
   Diff[S2[1, n], n, 1]^2/3 + (5*Diff[S2[1, n], n, 3])/36 - 
   (2*Diff[S2[-2, 1, n], n, 1])/3 - Diff[S2[-1, 1, n], n, 2]/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n])/6 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2)/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 + S2[-1, Infinity]^4/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/3 - 
   (2*Diff[S2[1, n], n, 2]*S2[1, n])/3 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n])/
    3 + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[1, n])/6 - (Half[S2[2, 1, n], n]*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2)/6 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^2 - (Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (Half[S2[1, n], n]*S2[1, n]^3)/2 - S2[1, n]^4/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/2 + 
   (2*Diff[S2[1, n], n, 1]*S2[2, Infinity])/3 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity])/12 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/3 + 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (7*S2[1, n]^2*S2[2, Infinity])/12 - (37*S2[2, Infinity]^2)/40 - 
   (Half[S2[1, n], n]*S2[3, Infinity])/8 - (S2[1, n]*S2[3, Infinity])/8 - 
   (7*S2[-3, 1, n])/6 - (2*Half[S2[1, n], n]*S2[-2, 1, n])/3 + 
   (2*S2[1, n]*S2[-2, 1, n])/3 + (Diff[S2[1, n], n, 1]*S2[-1, 1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 - (S2[1, n]^2*S2[-1, 1, n])/
    6 - (S2[2, Infinity]*S2[-1, 1, n])/3 - (Half[S2[1, n], n]*S2[2, 1, n])/
    2 + (S2[1, n]*S2[2, 1, n])/2 - S2[-1, -2, -1, n]/6 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 + (S2[1, n]*S2[-1, 1, -1, n])/6 - 
   S2[2, 1, -1, n]/3 - S2[-1, 1, -1, -1, n]/3 - S2[-1, 1, 1, 1, Infinity], 
 S2[1, -1, -1, 1, n] -> Diff[Half[S2[1, n], n], n, 1]^2/4 + 
   (3*Diff[Half[S2[1, n], n], n, 3])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 + 
   (9*Diff[S2[1, n], n, 1]^2)/4 - (17*Diff[S2[1, n], n, 3])/24 + 
   2*Diff[S2[-2, 1, n], n, 1] + (7*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, -1, n], n, 1]/2 + Diff[S2[-1, 1, 1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n])/4 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 + Half[S2[2, 1, 1, n], n]/2 - 
   (5*S2[-1, Infinity]^4)/24 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 + 
   2*Diff[S2[1, n], n, 2]*S2[1, n] - (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/
    2 - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2)/2 - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity] + (S2[1, n]^2*S2[2, Infinity])/
    4 + (129*S2[2, Infinity]^2)/40 + (7*Half[S2[1, n], n]*S2[3, Infinity])/
    16 - (5*S2[1, n]*S2[3, Infinity])/4 + (3*S2[-3, 1, n])/2 + 
   Half[S2[1, n], n]*S2[-2, 1, n] - 2*S2[1, n]*S2[-2, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - (S2[1, n]^2*S2[-1, 1, n])/
    2 - S2[-1, 1, n]^2/2 + (Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (S2[1, n]*S2[2, 1, n])/2 - 2*S2[-2, 1, -1, n] + S2[-1, -2, -1, n]/2 - 
   (S2[1, n]*S2[-1, 1, -1, n])/2 + 2*S2[1, 2, -1, n] + S2[2, 1, -1, n] - 
   2*S2[2, 1, 1, n] + 5*S2[-1, 1, 1, 1, Infinity], 
 S2[1, -1, 1, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^2/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1] + 
   Diff[S2[1, n], n, 1]^2/2 - Diff[S2[1, n], n, 3]/12 - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n] + Diff[S2[-1, 1, n], n, 1]*
    S2[1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + Half[S2[1, n], n]^2*
    S2[2, Infinity] - (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/
    2 - 2*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   S2[1, n]^2*S2[2, Infinity] + (13*S2[2, Infinity]^2)/40 - 
   (13*Half[S2[1, n], n]*S2[3, Infinity])/8 + (13*S2[1, n]*S2[3, Infinity])/
    8 + Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, n] + (S2[2, Infinity]*S2[-1, 1, n])/2 + 
   S2[-1, 1, n]^2 + S2[1, n]*S2[-1, 1, -1, n] - 
   2*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 2*S2[1, n]*S2[-1, 1, 1, n] - 
   S2[-1, 1, -1, 1, n], S2[1, -1, 1, 1, n] -> -Diff[S2[-1, 1, 1, n], n, 1] - 
   S2[-1, Infinity]^4/8 + (11*S2[2, Infinity]^2)/20 + 
   Half[S2[1, n], n]*S2[3, Infinity] - S2[1, n]*S2[3, Infinity] + 
   S2[2, Infinity]*S2[-1, 1, n] + S2[1, n]*S2[-1, 1, 1, n] - 
   3*S2[-1, 1, 1, 1, n] + 3*S2[-1, 1, 1, 1, Infinity], 
 S2[1, 1, -1, -1, n] -> -Diff[Half[S2[1, n], n], n, 1]^2/8 - 
   Diff[Half[S2[1, n], n], n, 3]/4 - Diff[Half[S2[2, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1] - 
   (5*Diff[S2[1, n], n, 1]^2)/8 + (7*Diff[S2[1, n], n, 3])/48 - 
   Diff[S2[-2, 1, n], n, 1]/2 - (5*Diff[S2[-1, 1, n], n, 2])/8 + 
   Diff[S2[2, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]/2 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - Half[S2[2, 1, 1, n], n]/4 + 
   S2[-1, Infinity]^4/12 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + (Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3)/2 + S2[1, n]^4/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (57*S2[2, Infinity]^2)/40 + (19*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (11*S2[1, n]*S2[3, Infinity])/32 - (3*S2[-3, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-2, 1, n])/2 + (S2[1, n]*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + (S2[1, n]^2*S2[-1, 1, n])/
    2 - S2[-1, 1, n]^2/4 - (Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (3*S2[1, n]*S2[2, 1, n])/4 + S2[-2, 1, -1, n] - S2[-1, -2, -1, n]/4 - 
   (S2[1, n]*S2[-1, 1, -1, n])/2 + Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, 1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n]/2 + 
   S2[2, 1, 1, n] + S2[-1, 1, -1, 1, n]/2 - 2*S2[-1, 1, 1, 1, Infinity], 
 S2[1, 1, -1, 1, n] -> Diff[S2[-1, 1, n], n, 2]/2 + 
   2*Diff[S2[-1, 1, 1, n], n, 1] + S2[-1, Infinity]^4/6 - 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n] - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, Infinity] + Diff[S2[1, n], n, 1]*S2[2, Infinity] + 
   (S2[-1, Infinity]^2*S2[2, Infinity])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   S2[1, n]^2*S2[2, Infinity] - (7*S2[2, Infinity]^2)/5 - 
   Half[S2[1, n], n]*S2[3, Infinity] - (5*S2[1, n]*S2[3, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + (S2[1, n]^2*S2[-1, 1, n])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, n])/2 - 2*S2[1, n]*S2[-1, 1, 1, n] + 
   3*S2[-1, 1, 1, 1, n] - 4*S2[-1, 1, 1, 1, Infinity], 
 S2[1, 1, 1, -1, n] -> -Diff[Half[S2[1, n], n], n, 3]/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 - 
   Diff[S2[1, n], n, 1]^2/2 + Diff[S2[1, n], n, 3]/6 - 
   Diff[S2[-1, 1, n], n, 2]/2 - Diff[S2[-1, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/6 - S2[-1, Infinity]^4/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (2*Diff[S2[1, n], n, 2]*S2[1, n])/3 + Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2)/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^2 + (Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   S2[1, n]^4/6 + (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (S2[1, n]^2*S2[2, Infinity])/4 + S2[2, Infinity]^2/4 + 
   (Half[S2[1, n], n]*S2[3, Infinity])/3 + (13*S2[1, n]*S2[3, Infinity])/24 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 - (S2[1, n]^2*S2[-1, 1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, n])/2 + S2[1, n]*S2[-1, 1, 1, n] - 
   S2[-1, 1, 1, 1, n] + S2[-1, 1, 1, 1, Infinity], 
 S2[1, 1, 1, 1, n] -> Diff[S2[1, n], n, 1]^2/8 - Diff[S2[1, n], n, 3]/24 + 
   (Diff[S2[1, n], n, 2]*S2[1, n])/6 - (Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   S2[1, n]^4/24 - (Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (S2[1, n]^2*S2[2, Infinity])/4 + (9*S2[2, Infinity]^2)/40 + 
   (S2[1, n]*S2[3, Infinity])/3, 
 S2[-5, n] -> Diff[Half[S2[1, n], n], n, 4]/24 - Diff[S2[1, n], n, 4]/24 - 
   (15*S2[5, Infinity])/16, S2[5, n] -> Diff[S2[1, n], n, 4]/24 + 
   S2[5, Infinity], S2[-4, -1, n] -> -Diff[Half[S2[1, n], n], n, 4]/24 + 
   Diff[S2[1, n], n, 4]/24 - Diff[S2[-3, 1, n], n, 1] - 
   Diff[S2[-2, 1, n], n, 2]/2 - Diff[S2[-1, 1, n], n, 3]/6 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/6 + Half[S2[4, 1, n], n]/8 - 
   (Diff[S2[1, n], n, 3]*S2[1, n])/6 - (3*S2[-1, Infinity]*S2[2, Infinity]^2)/
    4 + (7*S2[2, Infinity]*S2[3, Infinity])/8 - (93*S2[5, Infinity])/32 - 
   2*S2[-4, 1, n] - S2[4, 1, n], S2[4, -1, n] -> 
  Diff[Half[S2[1, n], n], n, 4]/24 - Diff[S2[1, n], n, 4]/24 + 
   Diff[S2[-3, 1, n], n, 1] + Diff[S2[-2, 1, n], n, 2]/2 + 
   Diff[S2[-1, 1, n], n, 3]/6 - (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/6 + 
   (Diff[S2[1, n], n, 3]*S2[1, n])/6 + (3*S2[-1, Infinity]*S2[2, Infinity]^2)/
    4 - (7*S2[2, Infinity]*S2[3, Infinity])/8 + (93*S2[5, Infinity])/32 + 
   S2[-4, 1, n], S2[-3, -2, n] -> 
  (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/2 - 
   Diff[Half[S2[1, n], n], n, 4]/8 + Diff[Half[S2[2, 1, n], n], n, 2]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] + Diff[S2[1, n], n, 4]/12 + 
   3*Diff[S2[-3, 1, n], n, 1] + Diff[S2[-2, 1, n], n, 2]/2 - 
   Diff[S2[2, 1, n], n, 2]/2 - (3*Half[S2[4, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 - 
   (21*S2[2, Infinity]*S2[3, Infinity])/8 + (67*S2[5, Infinity])/8 + 
   6*S2[-4, 1, n] + 3*S2[4, 1, n], S2[-3, 2, n] -> 
  -Diff[S2[-3, 1, n], n, 1] + (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/
    2 - (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 
   (7*S2[2, Infinity]*S2[3, Infinity])/8 - (83*S2[5, Infinity])/16 - 
   3*S2[-4, 1, n], S2[3, -2, n] -> Diff[Half[S2[1, n], n], n, 4]/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 - Diff[S2[1, n], n, 4]/24 - 
   2*Diff[S2[-3, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 2]/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 + 
   (7*S2[2, Infinity]*S2[3, Infinity])/4 - (57*S2[5, Infinity])/8 - 
   3*S2[-4, 1, n], S2[3, 2, n] -> (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/
    2 - Diff[S2[1, n], n, 4]/24 + Diff[S2[2, 1, n], n, 2]/2 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + (9*S2[5, Infinity])/2 - 
   3*S2[4, 1, n], S2[-2, -3, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]) + 
   Diff[Half[S2[1, n], n], n, 4]/8 - Diff[Half[S2[2, 1, n], n], n, 2]/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 - Diff[S2[1, n], n, 4]/24 - 
   3*Diff[S2[-3, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 2]/2 + 
   Diff[S2[2, 1, n], n, 2]/2 + (3*Half[S2[4, 1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[3, Infinity])/4 + 
   3*S2[2, Infinity]*S2[3, Infinity] - (59*S2[5, Infinity])/8 - 
   6*S2[-4, 1, n] - 3*S2[4, 1, n], S2[-2, 3, n] -> 
  2*Diff[S2[-3, 1, n], n, 1] + Diff[S2[-2, 1, n], n, 2]/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity] + 
   Diff[S2[1, n], n, 1]*S2[3, Infinity] - (9*S2[2, Infinity]*S2[3, Infinity])/
    4 + (99*S2[5, Infinity])/16 + 3*S2[-4, 1, n], 
 S2[2, -3, n] -> Diff[Half[S2[1, n], n], n, 4]/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 - Diff[S2[1, n], n, 4]/24 + 
   Diff[S2[-3, 1, n], n, 1] + (3*Diff[S2[1, n], n, 1]*S2[3, Infinity])/4 - 
   (13*S2[2, Infinity]*S2[3, Infinity])/8 + (17*S2[5, Infinity])/4 + 
   3*S2[-4, 1, n], S2[2, 3, n] -> 
  -(Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]) + Diff[S2[1, n], n, 4]/12 - 
   Diff[S2[2, 1, n], n, 2]/2 - Diff[S2[1, n], n, 1]*S2[3, Infinity] + 
   S2[2, Infinity]*S2[3, Infinity] - (7*S2[5, Infinity])/2 + 3*S2[4, 1, n], 
 S2[-1, -4, n] -> Diff[Half[S2[1, n], n], n, 4]/24 + 
   Diff[S2[-3, 1, n], n, 1] + Diff[S2[-2, 1, n], n, 2]/2 + 
   Diff[S2[-1, 1, n], n, 3]/6 - (Diff[Half[S2[1, n], n], n, 3]*
     Half[S2[1, n], n])/6 - Half[S2[4, 1, n], n]/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/6 - 
   (7*Half[S2[1, n], n]*S2[2, Infinity]^2)/20 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]^2)/4 + (7*S2[1, n]*S2[2, Infinity]^2)/
    20 - (7*S2[2, Infinity]*S2[3, Infinity])/8 + (125*S2[5, Infinity])/32 + 
   2*S2[-4, 1, n] + S2[4, 1, n], S2[-1, 4, n] -> 
  -Diff[S2[-3, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 2]/2 - 
   Diff[S2[-1, 1, n], n, 3]/6 + (2*Half[S2[1, n], n]*S2[2, Infinity]^2)/5 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]^2)/4 - (2*S2[1, n]*S2[2, Infinity]^2)/
    5 + (7*S2[2, Infinity]*S2[3, Infinity])/8 - (123*S2[5, Infinity])/32 - 
   S2[-4, 1, n], S2[1, -4, n] -> Diff[Half[S2[1, n], n], n, 4]/24 - 
   Diff[S2[1, n], n, 4]/24 - (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/6 + 
   (Diff[S2[1, n], n, 3]*S2[1, n])/6 - (7*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (15*S2[5, Infinity])/16 - S2[-4, 1, n], 
 S2[1, 4, n] -> Diff[S2[1, n], n, 4]/24 - (Diff[S2[1, n], n, 3]*S2[1, n])/6 + 
   (2*S2[1, n]*S2[2, Infinity]^2)/5 + S2[5, Infinity] - S2[4, 1, n], 
 S2[-3, -1, -1, n] -> (-3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/16 + (9*Diff[Half[S2[1, n], n], n, 4])/
    32 - (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   (9*Diff[S2[1, n], n, 4])/32 - (9*Diff[S2[-3, 1, n], n, 1])/8 + 
   Diff[S2[-2, 1, n], n, 2]/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (35*Diff[S2[-1, 1, n], n, 3])/48 + Diff[S2[-1, -2, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, n], n, 2]/2 + Diff[S2[1, 2, -1, n], n, 1] + 
   (3*Diff[S2[2, 1, -1, n], n, 1])/4 - Diff[S2[-1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/16 + 
   (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (49*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4)/96 - 
   (11*S2[-1, Infinity]^5)/480 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    16 - (11*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 + 
   (97*Diff[S2[1, n], n, 3]*S2[1, n])/96 - Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] - (23*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + (5*S2[-1, Infinity]^4*S2[1, n])/
    96 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   Diff[S2[1, n], n, 2]*S2[1, n]^2 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/
    8 - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/8 + (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 + (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    8 - (3*Half[S2[1, n], n]*S2[1, n]^4)/8 + S2[1, n]^5/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (5*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (9*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (S2[1, n]^3*S2[2, Infinity])/4 + (79*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    160 + (7*S2[-1, Infinity]*S2[2, Infinity]^2)/10 - 
   (5*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 - 
   (29*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 + 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/64 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 + 
   (53*S2[1, n]^2*S2[3, Infinity])/64 + (37*S2[2, Infinity]*S2[3, Infinity])/
    16 - (161*S2[5, Infinity])/32 - (5*S2[-4, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/8 + (5*S2[1, n]*S2[-3, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 + (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    4 - (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (9*S2[3, Infinity]*S2[-1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 + (S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 + (Half[S2[1, n], n]^2*S2[2, 1, n])/
    8 + (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 - 
   (7*S2[1, n]^2*S2[2, 1, n])/8 - (S2[2, Infinity]*S2[2, 1, n])/2 - 
   (S2[-1, 1, n]*S2[2, 1, n])/2 - (3*S2[-3, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 + (S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 - (S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[2, Infinity]*S2[-1, 1, -1, n])/8 + (S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 - S2[1, n]*S2[1, 2, -1, n] - 
   S2[2, 1, -2, n]/2 + (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[2, 1, -1, n])/4 - (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]*S2[2, 1, 1, n])/2 - S2[-2, 1, 1, 1, n]/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - S2[1, 1, -1, 2, n]/2 - 
   S2[-1, 1, -1, -1, 1, n]/4 + (11*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   S2[1, -1, -1, 1, -1, n]/2 + (3*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, 1, -1, -1, -1, n])/2, S2[-3, -1, 1, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 - 
   (59*Diff[Half[S2[1, n], n], n, 4])/96 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/4 - 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 + 
   (59*Diff[S2[1, n], n, 4])/96 + (13*Diff[S2[-3, 1, n], n, 1])/8 - 
   (3*Diff[S2[-2, 1, n], n, 2])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (71*Diff[S2[-1, 1, n], n, 3])/48 - Diff[S2[2, 1, n], n, 2]/4 + 
   Diff[S2[-2, 1, -1, n], n, 1] - Diff[S2[-1, -2, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, -1, n], n, 2]/4 - (3*Diff[S2[-1, 1, 1, n], n, 2])/4 - 
   2*Diff[S2[1, 2, -1, n], n, 1] - (5*Diff[S2[2, 1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/16 - 
   (23*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (77*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + Half[S2[4, 1, n], n]/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/8 + 
   Half[S2[3, 1, 1, n], n]/4 + (5*Half[S2[1, n], n]*S2[-1, Infinity]^4)/96 - 
   (11*S2[-1, Infinity]^5)/480 - (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    16 + (53*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (67*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 - 
   (63*Diff[S2[1, n], n, 3]*S2[1, n])/32 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (39*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - (3*S2[-1, Infinity]^4*S2[1, n])/
    32 - (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/8 - (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 - (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    8 + (3*Half[S2[1, n], n]*S2[1, n]^4)/8 - S2[1, n]^5/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[2, Infinity])/8 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (27*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (2*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (9*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (15*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (39*Half[S2[1, n], n]*S2[2, Infinity]^2)/160 + 
   (11*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (131*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 + 
   (59*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 - 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/64 + 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 - 
   (55*S2[1, n]^2*S2[3, Infinity])/64 - (65*S2[2, Infinity]*S2[3, Infinity])/
    16 + (1815*S2[5, Infinity])/128 + 4*S2[-4, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/8 + (3*S2[1, n]*S2[-3, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    4 - (S2[1, n]^2*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*S2[3, Infinity]*S2[-1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 - (Half[S2[1, n], n]^2*S2[2, 1, n])/
    8 - (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + 
   (7*S2[1, n]^2*S2[2, 1, n])/8 + (3*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, n])/2 + S2[4, 1, n] + S2[-3, 1, 1, n] + 
   S2[-2, 1, -2, n]/2 + (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]*S2[-2, 1, -1, n])/2 - (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]*S2[-1, -2, -1, n])/8 + (S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   S2[2, Infinity]*S2[-1, 1, 1, n] - (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 2, -1, n])/2 + S2[2, 1, -2, n] - 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 + (5*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 - (S2[1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n] - (S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + S2[1, 1, -1, 2, n] + 
   S2[-1, 1, -1, -1, 1, n]/4 + (11*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   S2[1, -1, -1, 1, -1, n]/2 - (3*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, 1, -1, -1, -1, n])/2, S2[-3, 1, -1, n] -> 
  (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 4])/192 + Diff[Half[S2[2, 1, n], n], n, 2]/
    32 - Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (7*Diff[S2[1, n], n, 4])/64 - (15*Diff[S2[-3, 1, n], n, 1])/16 - 
   Diff[S2[-2, 1, n], n, 2]/8 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (9*Diff[S2[-1, 1, n], n, 3])/32 + Diff[S2[2, 1, n], n, 2]/8 - 
   Diff[S2[-2, 1, -1, n], n, 1]/2 - Diff[S2[-1, -2, -1, n], n, 1]/16 - 
   Diff[S2[-1, 1, -1, n], n, 2]/16 + Diff[S2[-1, 1, 1, n], n, 2]/8 + 
   Diff[S2[1, 2, -1, n], n, 1]/2 + (3*Diff[S2[2, 1, -1, n], n, 1])/8 + 
   Diff[S2[2, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/192 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 - Half[S2[4, 1, n], n]/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[3, 1, 1, n], n]/8 + (Half[S2[1, n], n]*S2[-1, Infinity]^4)/192 + 
   (23*S2[-1, Infinity]^5)/960 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    32 - (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (17*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 + 
   (15*Diff[S2[1, n], n, 3]*S2[1, n])/64 - 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + (S2[-1, Infinity]^4*S2[1, n])/64 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^2)/16 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 + (9*Half[S2[1, n], n]^2*S2[1, n]^3)/
    16 - (7*Half[S2[1, n], n]*S2[1, n]^4)/16 + S2[1, n]^5/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 + 
   (5*Diff[S2[1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (11*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (13*S2[1, n]^3*S2[2, Infinity])/32 - 
   (193*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 - 
   (31*S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (209*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (93*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (31*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 - 
   (3*Half[S2[1, n], n]^2*S2[3, Infinity])/64 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 + 
   (45*S2[1, n]^2*S2[3, Infinity])/64 + (305*S2[2, Infinity]*S2[3, Infinity])/
    128 - (2061*S2[5, Infinity])/256 - (3*S2[-4, 1, n])/2 - 
   (11*Half[S2[1, n], n]*S2[-3, 1, n])/16 + (11*S2[1, n]*S2[-3, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 - (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    4 + (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 - 
   (S2[1, n]^2*S2[-2, 1, n])/4 - (3*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (3*S2[1, n]^3*S2[-1, 1, n])/16 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (21*S2[3, Infinity]*S2[-1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 + (S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - 
   (11*S2[1, n]^2*S2[2, 1, n])/16 - S2[2, Infinity]*S2[2, 1, n] - 
   (S2[-1, 1, n]*S2[2, 1, n])/4 - S2[4, 1, n] - S2[-3, 1, 1, n]/2 - 
   S2[-2, 1, -2, n]/2 - (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 + 
   (S2[1, n]*S2[-2, 1, -1, n])/4 - (Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 + 
   (S2[1, n]*S2[-1, -2, -1, n])/16 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/
    16 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, 1, -1, n])/16 - (S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[1, 2, -1, n])/
    4 - (3*S2[1, n]*S2[1, 2, -1, n])/4 - S2[2, 1, -2, n]/2 - 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/8 - (3*S2[1, n]*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + (S2[1, n]*S2[2, 1, 1, n])/4 + 
   S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n]/2 + (S2[1, n]*S2[-1, 1, -1, -1, n])/
    8 - (Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - S2[1, 1, -1, 2, n]/2 - 
   S2[-1, -1, 1, -1, -1, n]/4 - (3*S2[-1, 1, -1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, 1, n]/8 - (23*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, 1, -1, n]/4 + 
   (3*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, 1, -1, -1, -1, n])/4, 
 S2[3, -1, -1, n] -> (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/32 - (5*Diff[Half[S2[1, n], n], n, 4])/
    64 - Diff[Half[S2[2, 1, n], n], n, 2]/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (17*Diff[S2[1, n], n, 4])/192 + (23*Diff[S2[-3, 1, n], n, 1])/16 + 
   (3*Diff[S2[-2, 1, n], n, 2])/8 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (19*Diff[S2[-1, 1, n], n, 3])/96 + Diff[S2[2, 1, n], n, 2]/8 - 
   Diff[S2[-2, 1, -1, n], n, 1]/2 + Diff[S2[-1, -2, -1, n], n, 1]/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2])/16 - Diff[S2[-1, 1, 1, n], n, 2]/8 - 
   Diff[S2[1, 2, -1, n], n, 1]/2 - (3*Diff[S2[2, 1, -1, n], n, 1])/8 - 
   Diff[S2[2, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (25*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[3, 1, 1, n], n]/8 - (Half[S2[1, n], n]*S2[-1, Infinity]^4)/192 + 
   (5*S2[-1, Infinity]^5)/192 - (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    32 + (43*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 - 
   (77*Diff[S2[1, n], n, 3]*S2[1, n])/192 + 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - (S2[-1, Infinity]^4*S2[1, n])/64 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^2)/16 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 - (9*Half[S2[1, n], n]^2*S2[1, n]^3)/
    16 + (7*Half[S2[1, n], n]*S2[1, n]^4)/16 - S2[1, n]^5/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (13*S2[1, n]^3*S2[2, Infinity])/32 + 
   (193*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 - 
   (5*S2[-1, Infinity]*S2[2, Infinity]^2)/8 - 
   (209*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 + 
   (7*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 + 
   (3*Half[S2[1, n], n]^2*S2[3, Infinity])/64 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 - 
   (45*S2[1, n]^2*S2[3, Infinity])/64 - (377*S2[2, Infinity]*S2[3, Infinity])/
    128 + (1561*S2[5, Infinity])/256 + (5*S2[-4, 1, n])/2 + 
   (11*Half[S2[1, n], n]*S2[-3, 1, n])/16 - (11*S2[1, n]*S2[-3, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/8 - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] + (Half[S2[1, n], n]^2*S2[-2, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, n])/4 + (S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (3*S2[1, n]^3*S2[-1, 1, n])/16 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (21*S2[3, Infinity]*S2[-1, 1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 - (S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 + 
   (11*S2[1, n]^2*S2[2, 1, n])/16 + S2[2, Infinity]*S2[2, 1, n] + 
   (S2[-1, 1, n]*S2[2, 1, n])/4 + S2[-3, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 - (S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 - (S2[1, n]*S2[-1, -2, -1, n])/
    16 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/16 + (S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[1, 2, -1, n])/
    4 + (3*S2[1, n]*S2[1, 2, -1, n])/4 + S2[2, 1, -2, n]/2 + 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/8 + (3*S2[1, n]*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 - (S2[1, n]*S2[2, 1, 1, n])/4 - 
   S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n]/2 - (S2[1, n]*S2[-1, 1, -1, -1, n])/
    8 + (Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + S2[1, 1, -1, 2, n]/2 + 
   S2[-1, -1, 1, -1, -1, n]/4 + (3*S2[-1, 1, -1, -1, -1, n])/4 + 
   S2[-1, 1, -1, -1, 1, n]/8 - (25*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, 1, -1, n]/4 - 
   (3*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, 1, -1, -1, -1, n])/4, 
 S2[3, -1, 1, n] -> Diff[Half[S2[1, n], n], n, 4]/3 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] - Diff[S2[1, n], n, 4]/3 + 
   Diff[S2[-2, 1, n], n, 2]/2 - (3*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/2 + (2*Diff[S2[-1, 1, n], n, 3])/3 + 
   Diff[S2[1, 2, -1, n], n, 1] + Diff[S2[2, 1, -1, n], n, 1] - 
   Diff[S2[-1, 1, 1, 1, n], n, 1] + Diff[S2[1, n], n, 1]^2*
    Half[S2[1, n], n] - (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 + 
   S2[-1, Infinity]^5/120 - (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/6 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   3*Diff[S2[1, n], n, 1]^2*S2[1, n] + (4*Diff[S2[1, n], n, 3]*S2[1, n])/3 - 
   2*Diff[S2[-2, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/2 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (S2[-1, Infinity]^4*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/2 - 
   2*Diff[S2[1, n], n, 2]*S2[1, n]^2 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/
    2 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^3 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 2]*S2[2, Infinity] + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/3 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, Infinity] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[2, Infinity] - (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[1, n]^3*S2[2, Infinity])/2 - (Half[S2[1, n], n]*S2[2, Infinity]^2)/2 + 
   (7*S2[-1, Infinity]*S2[2, Infinity]^2)/10 - 
   (53*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 + (S2[1, n]^2*S2[3, Infinity])/
    16 + (9*S2[2, Infinity]*S2[3, Infinity])/8 - (67*S2[5, Infinity])/16 - 
   S2[-4, 1, n] - 2*S2[1, n]*S2[-3, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 + (S2[1, n]^2*S2[-2, 1, n])/2 + 
   (S2[2, Infinity]*S2[-2, 1, n])/2 - (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n] - S2[1, n]*S2[2, Infinity]*
    S2[-1, 1, n] + S2[2, Infinity]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[1, 2, -1, n] - S2[1, n]*S2[2, 1, -1, n] - S2[-2, 1, 1, 1, n] - 
   2*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, 1, -1, 2, n] - 
   S2[-1, 1, 1, 1, 1, Infinity], S2[3, 1, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 4]/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + Diff[S2[1, n], n, 4]/48 - 
   Diff[S2[-3, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 2]/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, n], n, 2]/4 - Diff[S2[2, 1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 - 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/24 - S2[-1, Infinity]^5/80 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[1, n])/4 - (5*Diff[S2[1, n], n, 3]*S2[1, n])/
    24 + (Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^4*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[1, n]^3*S2[2, Infinity])/4 + (Half[S2[1, n], n]*S2[2, Infinity]^2)/4 + 
   (51*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (53*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - (S2[1, n]^2*S2[3, Infinity])/
    32 + (19*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (385*S2[5, Infinity])/128 - (3*S2[-4, 1, n])/2 + S2[1, n]*S2[-3, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - (S2[1, n]^2*S2[-2, 1, n])/4 - 
   (S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - (S2[2, Infinity]*S2[2, 1, n])/
    4 - S2[-3, 1, 1, n]/2 - (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]*S2[1, 2, -1, n])/2 - S2[2, 1, -2, n]/2 + 
   (S2[1, n]*S2[2, 1, -1, n])/2 + S2[-2, 1, 1, 1, n]/2 + 
   S2[1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, 1, -1, 2, n]/2 + 
   (3*S2[-1, 1, 1, 1, 1, Infinity])/2, S2[-2, -2, -1, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 4])/48 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 - 
   (25*Diff[S2[1, n], n, 4])/48 - (3*Diff[S2[-3, 1, n], n, 1])/4 + 
   Diff[S2[-2, 1, n], n, 2]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/4 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (11*Diff[S2[-1, 1, n], n, 3])/8 - Diff[S2[-1, -2, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, 1, n], n, 2] + 2*Diff[S2[1, 2, -1, n], n, 1] + 
   (3*Diff[S2[2, 1, -1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 1]^2*
     Half[S2[1, n], n])/8 + (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/
    8 + (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/8 - 
   (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4)/48 + S2[-1, Infinity]^5/48 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 + 
   (27*Diff[S2[1, n], n, 3]*S2[1, n])/16 - Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] - (19*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + (5*S2[-1, Infinity]^4*S2[1, n])/
    48 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 - Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^2)/2 - (Half[S2[1, n], n]^3*S2[1, n]^2)/4 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 + (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    4 - (3*Half[S2[1, n], n]*S2[1, n]^4)/4 + S2[1, n]^5/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (5*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (5*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (9*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[1, n]^3*S2[2, Infinity])/2 + (79*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    80 - (S2[-1, Infinity]*S2[2, Infinity]^2)/2 - 
   (5*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 - 
   (43*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 + 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/32 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 + 
   (53*S2[1, n]^2*S2[3, Infinity])/32 + (29*S2[2, Infinity]*S2[3, Infinity])/
    8 - (181*S2[5, Infinity])/16 - S2[-4, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/4 + (5*S2[1, n]*S2[-3, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, n] - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n] + (S2[1, n]^3*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (9*S2[3, Infinity]*S2[-1, 1, n])/16 - S2[-2, 1, n]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/4 + (S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 + (Half[S2[1, n], n]^2*S2[2, 1, n])/
    4 + (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/2 - 
   (7*S2[1, n]^2*S2[2, 1, n])/4 - S2[2, Infinity]*S2[2, 1, n] - 
   S2[-1, 1, n]*S2[2, 1, n] - 3*S2[-3, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-2, 1, -1, n] + S2[1, n]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/4 - (S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, n])/4 + S2[2, Infinity]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[1, 2, -1, n] - 2*S2[1, n]*S2[1, 2, -1, n] - 
   S2[2, 1, -2, n] + (Half[S2[1, n], n]*S2[2, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[2, 1, -1, n])/2 - Half[S2[1, n], n]*S2[2, 1, 1, n] + 
   S2[1, n]*S2[2, 1, 1, n] - S2[-2, 1, 1, 1, n] + 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - S2[1, 1, -1, 2, n] - 
   S2[-1, 1, -1, -1, 1, n]/2 - (5*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, -1, 1, -1, n] + (3*S2[1, -1, 1, -1, -1, n])/2 + 
   3*S2[1, 1, -1, -1, -1, n], S2[-2, -2, 1, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/2 + 
   Diff[Half[S2[1, n], n], n, 4]/16 - Diff[Half[S2[2, 1, n], n], n, 2]/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 - Diff[S2[1, n], n, 4]/48 - 
   (3*Diff[S2[-3, 1, n], n, 1])/2 - Diff[S2[-2, 1, n], n, 2]/4 + 
   Diff[S2[2, 1, n], n, 2]/4 + (3*Half[S2[4, 1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[3, Infinity])/8 + 
   (3*S2[2, Infinity]*S2[3, Infinity])/2 - (59*S2[5, Infinity])/16 - 
   3*S2[-4, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 - (S2[2, Infinity]*S2[-2, 1, n])/4 - 
   S2[4, 1, n] - S2[-2, 1, -2, n]/2, S2[-2, 2, -1, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 4])/96 - Diff[Half[S2[2, 1, n], n], n, 2]/
    16 + Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 + 
   Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1] + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 + 
   (7*Diff[S2[1, n], n, 4])/32 + (15*Diff[S2[-3, 1, n], n, 1])/8 + 
   Diff[S2[-2, 1, n], n, 2]/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (9*Diff[S2[-1, 1, n], n, 3])/16 - Diff[S2[2, 1, n], n, 2]/4 + 
   Diff[S2[-1, -2, -1, n], n, 1]/8 + Diff[S2[-1, 1, -1, n], n, 2]/8 - 
   Diff[S2[-1, 1, 1, n], n, 2]/4 - Diff[S2[1, 2, -1, n], n, 1] - 
   (3*Diff[S2[2, 1, -1, n], n, 1])/4 - Diff[S2[2, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 + 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 + Half[S2[4, 1, n], n]/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/8 + 
   Half[S2[3, 1, 1, n], n]/4 - (Half[S2[1, n], n]*S2[-1, Infinity]^4)/96 - 
   (7*S2[-1, Infinity]^5)/480 - (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    16 + (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 - 
   (15*Diff[S2[1, n], n, 3]*S2[1, n])/32 + 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[1, n])/8 + (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*
     S2[1, n])/2 + (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (S2[-1, Infinity]^4*S2[1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^2)/8 - (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    8 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/8 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^3 - (9*Half[S2[1, n], n]^2*S2[1, n]^3)/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^4)/8 - S2[1, n]^5/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (7*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (13*S2[1, n]^3*S2[2, Infinity])/16 + 
   (193*Half[S2[1, n], n]*S2[2, Infinity]^2)/160 + 
   (13*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (209*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (101*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 + 
   (35*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 + 
   (3*Half[S2[1, n], n]^2*S2[3, Infinity])/32 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 - 
   (45*S2[1, n]^2*S2[3, Infinity])/32 - (329*S2[2, Infinity]*S2[3, Infinity])/
    64 + (1649*S2[5, Infinity])/128 + 3*S2[-4, 1, n] + 
   (11*Half[S2[1, n], n]*S2[-3, 1, n])/8 - (11*S2[1, n]*S2[-3, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] + (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, n])/2 + S2[2, Infinity]*S2[-2, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/8 - (Half[S2[2, 1, n], n]*S2[-1, 1, n])/
    8 - (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (3*S2[1, n]^3*S2[-1, 1, n])/8 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (21*S2[3, Infinity]*S2[-1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + 
   (11*S2[1, n]^2*S2[2, 1, n])/8 + 2*S2[2, Infinity]*S2[2, 1, n] + 
   (S2[-1, 1, n]*S2[2, 1, n])/2 + 2*S2[4, 1, n] + S2[-3, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - (S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 - (S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/8 + (S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   S2[2, Infinity]*S2[-1, 1, 1, n] - (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 2, -1, n])/2 + S2[2, 1, -2, n] + 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 + (3*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 - (S2[1, n]*S2[2, 1, 1, n])/2 - 
   2*S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n] - (S2[1, n]*S2[-1, 1, -1, -1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + S2[1, 1, -1, 2, n] + 
   S2[-1, -1, 1, -1, -1, n]/2 + (3*S2[-1, 1, -1, -1, -1, n])/2 + 
   S2[-1, 1, -1, -1, 1, n]/4 + (7*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, -1, -1, -1, -1, n] - S2[1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, 1, -1, -1, -1, n])/2, 
 S2[-2, 2, 1, n] -> (3*Diff[Half[S2[1, n], n], n, 4])/8 - 
   2*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 - 
   (3*Diff[S2[1, n], n, 4])/8 + Diff[S2[-2, 1, n], n, 2]/2 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1] + 
   Diff[S2[-1, 1, n], n, 3] + Diff[S2[-1, 1, 1, n], n, 2] + 
   Diff[S2[1, 2, -1, n], n, 1] + Diff[S2[2, 1, -1, n], n, 1] + 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1]*S2[1, n] - 2*Diff[S2[1, n], n, 1]^2*S2[1, n] + 
   Diff[S2[1, n], n, 3]*S2[1, n] - Diff[S2[-2, 1, n], n, 1]*S2[1, n] - 
   Diff[S2[-1, 1, n], n, 2]*S2[1, n] + Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
    S2[1, n] - Diff[S2[1, n], n, 2]*S2[1, n]^2 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[3, Infinity])/8 + 
   (5*S2[2, Infinity]*S2[3, Infinity])/16 - (103*S2[5, Infinity])/32 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, n] - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, n] + Diff[S2[1, n], n, 1]*S2[2, 1, n] - 
   (S2[2, Infinity]*S2[2, 1, n])/2 - 2*S2[-3, 1, 1, n] - S2[2, 1, -2, n], 
 S2[-2, -1, -2, n] -> (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/4 - Diff[Half[S2[1, n], n], n, 4] + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 - 
   9*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] + Diff[S2[1, n], n, 4] + 
   (9*Diff[S2[-3, 1, n], n, 1])/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/2 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 - 
   (31*Diff[S2[-1, 1, n], n, 3])/12 + Diff[S2[-1, -2, -1, n], n, 1]/2 - 
   2*Diff[S2[-1, 1, 1, n], n, 2] - 4*Diff[S2[1, 2, -1, n], n, 1] - 
   3*Diff[S2[2, 1, -1, n], n, 1] + Diff[S2[-1, 1, -1, -1, n], n, 1] + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n] - 
   (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/4 + 
   (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n] - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/2 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4)/24 - S2[-1, Infinity]^5/24 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/2 - 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   (27*Diff[S2[1, n], n, 1]^2*S2[1, n])/4 - 
   (77*Diff[S2[1, n], n, 3]*S2[1, n])/24 + 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] + (19*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/2 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[1, n] + Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 - 
   2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n] + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/2 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/2 - (5*S2[-1, Infinity]^4*S2[1, n])/
    24 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 + 
   3*Diff[S2[1, n], n, 2]*S2[1, n]^2 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/
    2 + 2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 - 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/2 - (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    4 - Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^3 - (3*Half[S2[1, n], n]^2*S2[1, n]^3)/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^4)/2 - S2[1, n]^5/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 - Diff[S2[-1, 1, n], n, 1]*
    S2[2, Infinity] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[2, Infinity])/2 - (Half[S2[2, 1, n], n]*S2[2, Infinity])/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^3*S2[2, Infinity])/3 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, Infinity] + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[2, Infinity] - (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (5*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (9*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   S2[1, n]^3*S2[2, Infinity] - (79*Half[S2[1, n], n]*S2[2, Infinity]^2)/40 + 
   (5*S2[-1, Infinity]*S2[2, Infinity]^2)/2 + (5*S2[1, n]*S2[2, Infinity]^2)/
    8 - (27*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/16 + 
   (45*Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 - 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/16 + 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/8 - 
   (53*S2[1, n]^2*S2[3, Infinity])/16 - (159*S2[2, Infinity]*S2[3, Infinity])/
    16 + (1015*S2[5, Infinity])/32 + 6*S2[-4, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/2 - (5*S2[1, n]*S2[-3, 1, n])/2 + 
   3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-2, 1, n] - Half[S2[1, n], n]^2*S2[-2, 1, n] + 
   S2[2, Infinity]*S2[-2, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, n])/2 + 2*Diff[S2[1, n], n, 2]*S2[-1, 1, n] + 
   Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n] - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, n] - Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n] + 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n] - S2[1, n]^3*S2[-1, 1, n] + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (9*S2[3, Infinity]*S2[-1, 1, n])/8 + 2*S2[-2, 1, n]*S2[-1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/2 - (S2[1, n]*S2[-1, 1, n]^2)/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, n])/2 - (Half[S2[1, n], n]^2*S2[2, 1, n])/
    2 - 3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n] + 
   (7*S2[1, n]^2*S2[2, 1, n])/2 + (5*S2[2, Infinity]*S2[2, 1, n])/2 + 
   2*S2[-1, 1, n]*S2[2, 1, n] + 6*S2[-3, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[-2, 1, -1, n] - 2*S2[1, n]*S2[-2, 1, -1, n] - 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/2 + (S2[1, n]*S2[-1, -2, -1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, n])/2 - 2*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, 2, -1, n] + 4*S2[1, n]*S2[1, 2, -1, n] + 
   2*S2[2, 1, -2, n] - Half[S2[1, n], n]*S2[2, 1, -1, n] + 
   3*S2[1, n]*S2[2, 1, -1, n] + 2*Half[S2[1, n], n]*S2[2, 1, 1, n] - 
   2*S2[1, n]*S2[2, 1, 1, n] + 2*S2[-2, 1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, -1, -1, n] - 5*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, Infinity] + 5*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   2*S2[1, 1, -1, 2, n] + S2[-1, 1, -1, -1, 1, n] + 
   5*S2[-1, 1, 1, 1, 1, Infinity] - 2*S2[1, -1, -1, 1, -1, n] - 
   3*S2[1, -1, 1, -1, -1, n] - 6*S2[1, 1, -1, -1, -1, n], 
 S2[-2, -1, 2, n] -> (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/8 + (5*Diff[Half[S2[1, n], n], n, 4])/
    12 + Diff[Half[S2[2, 1, n], n], n, 2]/8 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/2 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] + 
   5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] - (13*Diff[S2[1, n], n, 4])/
    24 - (13*Diff[S2[-3, 1, n], n, 1])/4 - Diff[S2[-2, 1, n], n, 2]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (29*Diff[S2[-1, 1, n], n, 3])/24 + Diff[S2[2, 1, n], n, 2]/4 - 
   Diff[S2[-1, -2, -1, n], n, 1]/4 + Diff[S2[-1, 1, 1, n], n, 2]/2 + 
   2*Diff[S2[1, 2, -1, n], n, 1] + (3*Diff[S2[2, 1, -1, n], n, 1])/2 + 
   Diff[S2[2, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, -1, n], n, 1]/2 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/8 - 
   (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 - 
   (5*Half[S2[4, 1, n], n])/16 + (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    4 - Half[S2[3, 1, 1, n], n]/2 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    48 + S2[-1, Infinity]^5/80 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    8 - (35*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (35*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 + 
   (31*Diff[S2[1, n], n, 3]*S2[1, n])/16 - 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] - (23*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + (3*S2[-1, Infinity]^4*S2[1, n])/
    16 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 - Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^2)/2 - (Half[S2[1, n], n]^3*S2[1, n]^2)/4 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 + (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    4 - (3*Half[S2[1, n], n]*S2[1, n]^4)/4 + S2[1, n]^5/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (5*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   S2[-1, Infinity]^3*S2[2, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (9*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (15*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (39*Half[S2[1, n], n]*S2[2, Infinity]^2)/80 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (131*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 - 
   (29*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 + 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/32 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 + 
   (55*S2[1, n]^2*S2[3, Infinity])/32 + (115*S2[2, Infinity]*S2[3, Infinity])/
    16 - (165*S2[5, Infinity])/8 - 5*S2[-4, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/4 - (3*S2[1, n]*S2[-3, 1, n])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n] + 2*Diff[S2[1, n], n, 1]*
    S2[-2, 1, n] + (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, n])/2 - (7*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, n] - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n] + (S2[1, n]^3*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (9*S2[3, Infinity]*S2[-1, 1, n])/16 - S2[-2, 1, n]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/4 + (S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 + (Half[S2[1, n], n]^2*S2[2, 1, n])/
    4 + (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/2 - 
   (7*S2[1, n]^2*S2[2, 1, n])/4 - (5*S2[2, Infinity]*S2[2, 1, n])/2 - 
   S2[-1, 1, n]*S2[2, 1, n] - S2[4, 1, n] - 2*S2[-3, 1, 1, n] - 
   S2[-2, 1, -2, n]/2 - Half[S2[1, n], n]*S2[-2, 1, -1, n] + 
   S2[1, n]*S2[-2, 1, -1, n] + (Half[S2[1, n], n]*S2[-1, -2, -1, n])/4 - 
   (S2[1, n]*S2[-1, -2, -1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   2*S2[2, Infinity]*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[1, 2, -1, n] - 
   3*S2[1, n]*S2[1, 2, -1, n] - 2*S2[2, 1, -2, n] + 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/2 - (5*S2[1, n]*S2[2, 1, -1, n])/2 - 
   Half[S2[1, n], n]*S2[2, 1, 1, n] + S2[1, n]*S2[2, 1, 1, n] + 
   2*S2[3, 1, 1, n] - 2*S2[-2, 1, 1, 1, n] + (S2[1, n]*S2[-1, 1, -1, -1, n])/
    2 + (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 2*S2[1, 1, -1, 2, n] - 
   S2[-1, 1, -1, -1, 1, n]/2 - (3*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, -1, 1, -1, n] + (3*S2[1, -1, 1, -1, -1, n])/2 + 
   3*S2[1, 1, -1, -1, -1, n], S2[-2, 1, 2, n] -> 
  -Diff[Half[S2[1, n], n], n, 4]/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 + Diff[S2[1, n], n, 4]/24 + 
   Diff[S2[-3, 1, n], n, 1] + Diff[S2[-2, 1, n], n, 2]/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity] + 
   (Diff[S2[1, n], n, 1]*S2[3, Infinity])/4 - 
   (5*S2[2, Infinity]*S2[3, Infinity])/8 + (31*S2[5, Infinity])/16 - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] + S2[2, Infinity]*S2[-2, 1, n] + 
   Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n] - Diff[S2[1, n], n, 1]*
    S2[2, 1, n] + (S2[2, Infinity]*S2[2, 1, n])/2 + S2[2, 1, -2, n], 
 S2[2, -2, -1, n] -> (-21*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/16 - (13*Diff[Half[S2[1, n], n], n, 4])/
    96 - (5*Diff[Half[S2[2, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 + 
   (31*Diff[S2[1, n], n, 4])/96 - (21*Diff[S2[-3, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 2] + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1] - (13*Diff[S2[-1, 1, n], n, 3])/16 + 
   Diff[S2[2, 1, n], n, 2]/2 + Diff[S2[-1, -2, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, n], n, 2]/8 - Diff[S2[-1, 1, 1, n], n, 2]/4 - 
   Diff[S2[1, 2, -1, n], n, 1] - (3*Diff[S2[2, 1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 - (35*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (27*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/32 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/4 + 
   (11*Half[S2[4, 1, n], n])/16 - (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    8 + Half[S2[3, 1, 1, n], n]/4 + (11*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    96 + S2[-1, Infinity]^5/480 - (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    16 + (17*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (69*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 - 
   (157*Diff[S2[1, n], n, 3]*S2[1, n])/96 + 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] + (31*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[1, n])/8 - (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*
     S2[1, n])/4 + (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (5*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 + (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    8 - (Half[S2[1, n], n]*S2[1, n]^4)/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 + 
   (21*Diff[S2[1, n], n, 2]*S2[2, Infinity])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/16 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (5*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (15*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (13*S2[1, n]^3*S2[2, Infinity])/16 - 
   (271*Half[S2[1, n], n]*S2[2, Infinity]^2)/160 - 
   (49*S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (471*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 - 
   (Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 - 
   (5*Half[S2[1, n], n]^2*S2[3, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/8 - 
   (5*S2[1, n]^2*S2[3, Infinity])/16 + (61*S2[2, Infinity]*S2[3, Infinity])/
    64 - (325*S2[5, Infinity])/128 - 6*S2[-4, 1, n] - 
   (17*Half[S2[1, n], n]*S2[-3, 1, n])/8 + (17*S2[1, n]*S2[-3, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] - Half[S2[1, n], n]^2*S2[-2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/2 - S2[1, n]^2*S2[-2, 1, n] - 
   (5*S2[2, Infinity]*S2[-2, 1, n])/4 + (5*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/
    8 + (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/8 - (Half[S2[2, 1, n], n]*S2[-1, 1, n])/
    8 - (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[3, Infinity]*S2[-1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 - (5*Half[S2[1, n], n]^2*S2[2, 1, n])/
    8 + (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + 
   (3*S2[1, n]^2*S2[2, 1, n])/8 - (S2[2, Infinity]*S2[2, 1, n])/2 + 
   (S2[-1, 1, n]*S2[2, 1, n])/2 - 5*S2[4, 1, n] + S2[-3, 1, 1, n] + 
   S2[-2, 1, -2, n]/2 + (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]*S2[-2, 1, -1, n])/2 - (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/
    8 + (3*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, n])/8 - S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + (3*S2[1, n]*S2[1, 2, -1, n])/2 + 
   S2[2, 1, -2, n] - (3*Half[S2[1, n], n]*S2[2, 1, -1, n])/4 + 
   (7*S2[1, n]*S2[2, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]*S2[2, 1, 1, n])/2 + S2[-2, 1, 1, 1, n] - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (15*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + S2[1, 1, -1, 2, n] - 
   S2[-1, -1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, -1, -1, n])/2 + 
   S2[-1, 1, -1, -1, 1, n]/4 - S2[-1, 1, 1, 1, 1, Infinity]/4 - 
   3*S2[1, -1, -1, -1, -1, n] - S2[1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, 1, -1, -1, -1, n])/2, 
 S2[2, -2, 1, n] -> -Diff[Half[S2[1, n], n], n, 4]/3 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 - 
   3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] + Diff[S2[1, n], n, 4]/3 + 
   Diff[S2[-3, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 2]/2 + 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1] - 
   Diff[S2[-1, 1, n], n, 3] - Diff[S2[-1, 1, 1, n], n, 2] - 
   Diff[S2[1, 2, -1, n], n, 1] - Diff[S2[2, 1, -1, n], n, 1] - 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1]*S2[1, n] + 2*Diff[S2[1, n], n, 1]^2*S2[1, n] - 
   Diff[S2[1, n], n, 3]*S2[1, n] + Diff[S2[-2, 1, n], n, 1]*S2[1, n] + 
   Diff[S2[-1, 1, n], n, 2]*S2[1, n] - Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
    S2[1, n] + Diff[S2[1, n], n, 2]*S2[1, n]^2 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (7*Diff[S2[1, n], n, 1]*S2[3, Infinity])/8 - 
   (31*S2[2, Infinity]*S2[3, Infinity])/16 + (239*S2[5, Infinity])/32 + 
   4*S2[-4, 1, n] + Diff[S2[1, n], n, 2]*S2[-1, 1, n] + 2*S2[-3, 1, 1, n], 
 S2[2, 2, -1, n] -> Diff[Half[S2[1, n], n], n, 4]/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 - Diff[S2[1, n], n, 4]/24 + 
   2*Diff[S2[-3, 1, n], n, 1] + Diff[S2[-2, 1, n], n, 2]/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 2]/2 - Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/12 - S2[-1, Infinity]^5/120 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/3 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1]*S2[1, n] - (3*Diff[S2[1, n], n, 1]^2*S2[1, n])/2 + 
   (5*Diff[S2[1, n], n, 3]*S2[1, n])/12 - Diff[S2[-2, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (S2[-1, Infinity]^4*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/2 - 
   Diff[S2[1, n], n, 2]*S2[1, n]^2 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/
    2 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^3 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/6 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, Infinity] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[2, Infinity] - (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[1, n]^3*S2[2, Infinity])/2 - (Half[S2[1, n], n]*S2[2, Infinity]^2)/2 + 
   (23*S2[-1, Infinity]*S2[2, Infinity]^2)/10 - 
   (53*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 + (S2[1, n]^2*S2[3, Infinity])/
    16 - (13*S2[2, Infinity]*S2[3, Infinity])/16 + (229*S2[5, Infinity])/32 + 
   3*S2[-4, 1, n] - 2*S2[1, n]*S2[-3, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 + (S2[1, n]^2*S2[-2, 1, n])/2 + 
   (S2[2, Infinity]*S2[-2, 1, n])/2 + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, n] - S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] + S2[-3, 1, 1, n] + 
   S2[2, Infinity]*S2[-1, 1, 1, n] - S2[1, n]*S2[1, 2, -1, n] - 
   S2[1, n]*S2[2, 1, -1, n] - S2[-2, 1, 1, 1, n] - 
   2*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, 1, -1, 2, n] + 
   S2[-1, 1, 1, 1, 1, Infinity], S2[2, 2, 1, n] -> 
  -(Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]) + Diff[S2[1, n], n, 4]/12 - 
   Diff[S2[2, 1, n], n, 2]/2 + Diff[S2[2, 1, 1, n], n, 1] + 
   2*S2[2, Infinity]*S2[3, Infinity] - 9*S2[5, Infinity] - 
   Diff[S2[1, n], n, 1]*S2[2, 1, n] + 4*S2[4, 1, n] + 2*S2[3, 1, 1, n], 
 S2[2, -1, -2, n] -> (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/8 + (7*Diff[Half[S2[1, n], n], n, 4])/
    24 + (3*Diff[Half[S2[2, 1, n], n], n, 2])/8 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/2 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 - 
   (5*Diff[S2[1, n], n, 4])/12 - Diff[S2[-3, 1, n], n, 1]/4 + 
   Diff[S2[-2, 1, n], n, 2]/4 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/4 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (29*Diff[S2[-1, 1, n], n, 3])/24 - (3*Diff[S2[2, 1, n], n, 2])/4 - 
   Diff[S2[-1, -2, -1, n], n, 1]/4 + Diff[S2[-1, 1, 1, n], n, 2]/2 + 
   2*Diff[S2[1, 2, -1, n], n, 1] + (3*Diff[S2[2, 1, -1, n], n, 1])/2 + 
   Diff[S2[2, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, -1, n], n, 1]/2 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n] + 
   (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/8 - 
   (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 - 
   (11*Half[S2[4, 1, n], n])/16 + (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    4 - Half[S2[3, 1, 1, n], n]/2 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    48 + S2[-1, Infinity]^5/80 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    8 - (35*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (35*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 + 
   (31*Diff[S2[1, n], n, 3]*S2[1, n])/16 - 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] - (23*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + (3*S2[-1, Infinity]^4*S2[1, n])/
    16 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 - Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^2)/2 - (Half[S2[1, n], n]^3*S2[1, n]^2)/4 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 + (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    4 - (3*Half[S2[1, n], n]*S2[1, n]^4)/4 + S2[1, n]^5/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   S2[-1, Infinity]^3*S2[2, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (9*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (15*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (39*Half[S2[1, n], n]*S2[2, Infinity]^2)/80 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]^2)/10 - 
   (131*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 - 
   (37*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 + 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/32 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 + 
   (55*S2[1, n]^2*S2[3, Infinity])/32 + (45*S2[2, Infinity]*S2[3, Infinity])/
    8 - (67*S2[5, Infinity])/4 + S2[-4, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/4 - (3*S2[1, n]*S2[-3, 1, n])/4 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] + (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, n])/2 - (S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, n] - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n] + (S2[1, n]^3*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (9*S2[3, Infinity]*S2[-1, 1, n])/16 - S2[-2, 1, n]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/4 + (S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 + (Half[S2[1, n], n]^2*S2[2, 1, n])/
    4 + (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/2 - 
   (7*S2[1, n]^2*S2[2, 1, n])/4 - (3*S2[2, Infinity]*S2[2, 1, n])/2 - 
   S2[-1, 1, n]*S2[2, 1, n] + 5*S2[4, 1, n] - 2*S2[-3, 1, 1, n] - 
   S2[-2, 1, -2, n]/2 - Half[S2[1, n], n]*S2[-2, 1, -1, n] + 
   S2[1, n]*S2[-2, 1, -1, n] + (Half[S2[1, n], n]*S2[-1, -2, -1, n])/4 - 
   (S2[1, n]*S2[-1, -2, -1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   2*S2[2, Infinity]*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[1, 2, -1, n] - 
   3*S2[1, n]*S2[1, 2, -1, n] - 2*S2[2, 1, -2, n] + 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/2 - (5*S2[1, n]*S2[2, 1, -1, n])/2 - 
   Half[S2[1, n], n]*S2[2, 1, 1, n] + S2[1, n]*S2[2, 1, 1, n] + 
   2*S2[3, 1, 1, n] - 2*S2[-2, 1, 1, 1, n] + (S2[1, n]*S2[-1, 1, -1, -1, n])/
    2 + (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 2*S2[1, 1, -1, 2, n] - 
   S2[-1, 1, -1, -1, 1, n]/2 - (3*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, -1, 1, -1, n] + (3*S2[1, -1, 1, -1, -1, n])/2 + 
   3*S2[1, 1, -1, -1, -1, n], S2[2, -1, 2, n] -> 
  -2*Diff[S2[-3, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 2]/2 + 
   Diff[S2[-1, 1, n], n, 3]/6 + Diff[S2[-1, 1, 1, n], n, 2] + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1] + S2[-1, Infinity]^5/60 + 
   (2*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/3 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   2*Diff[S2[1, n], n, 1]^2*S2[1, n] - (2*Diff[S2[1, n], n, 3]*S2[1, n])/3 + 
   2*Diff[S2[-2, 1, n], n, 1]*S2[1, n] + Diff[S2[-1, 1, n], n, 2]*S2[1, n] - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   (S2[-1, Infinity]^4*S2[1, n])/6 - Diff[Half[S2[1, n], n], n, 2]*
    S2[1, n]^2 + 2*Diff[S2[1, n], n, 2]*S2[1, n]^2 - 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2 + 2*Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 - 2*Diff[S2[1, n], n, 1]*S2[1, n]^3 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[2, Infinity] + (S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity] - Half[S2[1, n], n]*S2[1, n]^2*
    S2[2, Infinity] - (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 + 
   S2[1, n]^3*S2[2, Infinity] + Half[S2[1, n], n]*S2[2, Infinity]^2 - 
   (47*S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (53*S2[1, n]*S2[2, Infinity]^2)/20 - (S2[1, n]^2*S2[3, Infinity])/8 - 
   (229*S2[5, Infinity])/32 - 2*S2[-4, 1, n] + 4*S2[1, n]*S2[-3, 1, n] - 
   S2[1, n]^2*S2[-2, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n] + 
   2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] - 2*S2[-3, 1, 1, n] - 
   2*S2[2, Infinity]*S2[-1, 1, 1, n] + 2*S2[1, n]*S2[1, 2, -1, n] + 
   2*S2[1, n]*S2[2, 1, -1, n] + 2*S2[-2, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 2*S2[1, 1, -1, 2, n] - 
   2*S2[-1, 1, 1, 1, 1, Infinity], S2[2, 1, 2, n] -> 
  Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] - Diff[S2[1, n], n, 4]/12 + 
   Diff[S2[2, 1, n], n, 2]/2 - 2*Diff[S2[2, 1, 1, n], n, 1] - 
   Diff[S2[1, n], n, 1]*S2[3, Infinity] - 3*S2[2, Infinity]*S2[3, Infinity] + 
   (29*S2[5, Infinity])/2 + Diff[S2[1, n], n, 1]*S2[2, 1, n] + 
   S2[2, Infinity]*S2[2, 1, n] - 4*S2[4, 1, n] - 4*S2[3, 1, 1, n], 
 S2[-1, -3, -1, n] -> (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/8 - (25*Diff[Half[S2[1, n], n], n, 4])/
    48 + (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   (25*Diff[S2[1, n], n, 4])/48 + (9*Diff[S2[-3, 1, n], n, 1])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (31*Diff[S2[-1, 1, n], n, 3])/24 - Diff[S2[-1, -2, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, 1, n], n, 2] - 2*Diff[S2[1, 2, -1, n], n, 1] - 
   (3*Diff[S2[2, 1, -1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 1]^2*
     Half[S2[1, n], n])/8 - (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/
    8 - (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/4 - 
   (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/8 + 
   (31*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/48 + (11*S2[-1, Infinity]^5)/240 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (29*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 - 
   (79*Diff[S2[1, n], n, 3]*S2[1, n])/48 + Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] + (19*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - (S2[-1, Infinity]^4*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 + Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^2)/2 + (Half[S2[1, n], n]^3*S2[1, n]^2)/4 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 - (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    4 + (3*Half[S2[1, n], n]*S2[1, n]^4)/4 - S2[1, n]^5/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (9*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[1, n]^3*S2[2, Infinity])/2 - (31*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    80 - (13*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (23*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 + 
   (29*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/32 + 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 - 
   (53*S2[1, n]^2*S2[3, Infinity])/32 - (37*S2[2, Infinity]*S2[3, Infinity])/
    8 + (249*S2[5, Infinity])/32 + 3*S2[-4, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/4 - (5*S2[1, n]*S2[-3, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] - (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 + 
   Diff[S2[1, n], n, 2]*S2[-1, 1, n] + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n] - (S2[1, n]^3*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (9*S2[3, Infinity]*S2[-1, 1, n])/16 + S2[-2, 1, n]*S2[-1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/4 - (S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 - (Half[S2[1, n], n]^2*S2[2, 1, n])/
    4 - (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/2 + 
   (7*S2[1, n]^2*S2[2, 1, n])/4 + S2[2, Infinity]*S2[2, 1, n] + 
   S2[-1, 1, n]*S2[2, 1, n] + 3*S2[-3, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-2, 1, -1, n] - S2[1, n]*S2[-2, 1, -1, n] - 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/4 + (S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, n])/4 - S2[2, Infinity]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[1, 2, -1, n] + 2*S2[1, n]*S2[1, 2, -1, n] + 
   S2[2, 1, -2, n] - (Half[S2[1, n], n]*S2[2, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[2, 1, -1, n])/2 + Half[S2[1, n], n]*S2[2, 1, 1, n] - 
   S2[1, n]*S2[2, 1, 1, n] + S2[-2, 1, 1, 1, n] - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + S2[1, 1, -1, 2, n] + 
   S2[-1, 1, -1, -1, 1, n]/2 - (11*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   S2[1, -1, -1, 1, -1, n] - (3*S2[1, -1, 1, -1, -1, n])/2 - 
   3*S2[1, 1, -1, -1, -1, n], S2[-1, -3, 1, n] -> 
  (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 4])/64 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (57*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (27*Diff[S2[1, n], n, 4])/64 + (37*Diff[S2[-3, 1, n], n, 1])/16 + 
   (11*Diff[S2[-2, 1, n], n, 2])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (115*Diff[S2[-1, 1, n], n, 3])/96 - (3*Diff[S2[2, 1, n], n, 2])/8 - 
   Diff[S2[-2, 1, -1, n], n, 1]/2 + (3*Diff[S2[-1, -2, -1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2])/16 + (5*Diff[S2[-1, 1, 1, n], n, 2])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1])/2 + (7*Diff[S2[2, 1, -1, n], n, 1])/8 - 
   Diff[S2[2, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 + (51*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (161*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/192 + 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 - 
   (3*Half[S2[4, 1, n], n])/8 + (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    16 - Half[S2[3, 1, 1, n], n]/8 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^4)/192 - S2[-1, Infinity]^5/960 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (117*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 + 
   (111*Diff[S2[1, n], n, 3]*S2[1, n])/64 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (63*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + (5*S2[-1, Infinity]^4*S2[1, n])/
    64 + (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (3*Half[S2[1, n], n]^3*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 - (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    16 + (Half[S2[1, n], n]*S2[1, n]^4)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 - 
   (33*Diff[S2[1, n], n, 2]*S2[2, Infinity])/32 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (5*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (15*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (13*S2[1, n]^3*S2[2, Infinity])/32 + 
   (271*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 + 
   (113*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (471*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (7*Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 + 
   (5*Half[S2[1, n], n]^2*S2[3, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 + 
   (5*S2[1, n]^2*S2[3, Infinity])/32 - (121*S2[2, Infinity]*S2[3, Infinity])/
    128 + (575*S2[5, Infinity])/256 + (7*S2[-4, 1, n])/2 + 
   (33*Half[S2[1, n], n]*S2[-3, 1, n])/16 - (33*S2[1, n]*S2[-3, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, n])/2 + (3*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 - 
   (17*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (S2[1, n]^3*S2[-1, 1, n])/16 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[3, Infinity]*S2[-1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 + (S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - (3*S2[1, n]^2*S2[2, 1, n])/
    16 + (S2[2, Infinity]*S2[2, 1, n])/4 - (S2[-1, 1, n]*S2[2, 1, n])/4 + 
   4*S2[4, 1, n] - S2[-3, 1, 1, n]/2 - (Half[S2[1, n], n]*S2[-2, 1, -1, n])/
    4 + (S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 - 
   (3*S2[1, n]*S2[-1, -2, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/16 + (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/4 - (3*S2[1, n]*S2[1, 2, -1, n])/4 - 
   S2[2, 1, -2, n]/2 + (3*Half[S2[1, n], n]*S2[2, 1, -1, n])/8 - 
   (7*S2[1, n]*S2[2, 1, -1, n])/8 - (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + 
   (S2[1, n]*S2[2, 1, 1, n])/4 - S2[-2, 1, 1, 1, n]/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (15*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - S2[1, 1, -1, 2, n]/2 + 
   S2[-1, -1, 1, -1, -1, n]/4 + (3*S2[-1, 1, -1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, 1, n]/8 + S2[-1, 1, 1, 1, 1, Infinity]/8 + 
   (3*S2[1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, 1, -1, n]/4 + 
   (3*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, 1, -1, -1, -1, n])/4, 
 S2[-1, 3, -1, n] -> (-7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/16 + (11*Diff[Half[S2[1, n], n], n, 4])/
    96 + Diff[Half[S2[2, 1, n], n], n, 2]/16 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/8 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   (17*Diff[S2[1, n], n, 4])/96 - (31*Diff[S2[-3, 1, n], n, 1])/8 - 
   (5*Diff[S2[-2, 1, n], n, 2])/4 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (11*Diff[S2[-1, 1, n], n, 3])/48 + Diff[S2[2, 1, n], n, 2]/4 + 
   Diff[S2[-2, 1, -1, n], n, 1] - Diff[S2[-1, -2, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2])/8 + Diff[S2[-1, 1, 1, n], n, 2]/4 + 
   Diff[S2[1, 2, -1, n], n, 1] + (3*Diff[S2[2, 1, -1, n], n, 1])/4 + 
   Diff[S2[2, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 1]^2*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[1, n], n], n, 3]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[2, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 - 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 + Half[S2[4, 1, n], n]/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/8 - 
   Half[S2[3, 1, 1, n], n]/4 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^4)/32 - 
   (5*S2[-1, Infinity]^5)/96 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    16 - (35*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 + 
   (15*Diff[S2[1, n], n, 3]*S2[1, n])/32 + Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] - (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[1, n])/8 - (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*
     S2[1, n])/2 - (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (5*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^2)/8 + (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    8 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/8 - 
   Diff[S2[1, n], n, 1]*S2[1, n]^3 + (9*Half[S2[1, n], n]^2*S2[1, n]^3)/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]^4)/8 + S2[1, n]^5/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[2, Infinity])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (13*S2[1, n]^3*S2[2, Infinity])/16 - 
   (349*Half[S2[1, n], n]*S2[2, Infinity]^2)/160 + 
   (S2[-1, Infinity]*S2[2, Infinity]^2)/2 + (73*S2[1, n]*S2[2, Infinity]^2)/
    32 + (45*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 - 
   (7*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - 
   (3*Half[S2[1, n], n]^2*S2[3, Infinity])/32 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 + 
   (45*S2[1, n]^2*S2[3, Infinity])/32 + (433*S2[2, Infinity]*S2[3, Infinity])/
    64 - (1357*S2[5, Infinity])/128 - 7*S2[-4, 1, n] - 
   (19*Half[S2[1, n], n]*S2[-3, 1, n])/8 + (19*S2[1, n]*S2[-3, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 + 
   2*Diff[S2[1, n], n, 1]*S2[-2, 1, n] - (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    2 + (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, n])/2 - S2[2, Infinity]*S2[-2, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/8 + (Half[S2[2, 1, n], n]*S2[-1, 1, n])/
    8 + (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (3*S2[1, n]^3*S2[-1, 1, n])/8 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (21*S2[3, Infinity]*S2[-1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 + (S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 - 
   (11*S2[1, n]^2*S2[2, 1, n])/8 - 2*S2[2, Infinity]*S2[2, 1, n] - 
   (S2[-1, 1, n]*S2[2, 1, n])/2 - 4*S2[4, 1, n] - S2[-3, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 + (S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 + (S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, n])/8 - (S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   S2[2, Infinity]*S2[-1, 1, 1, n] + (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 2, -1, n])/2 - S2[2, 1, -2, n] - 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 - (3*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 + (S2[1, n]*S2[2, 1, 1, n])/2 + 
   2*S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n] + (S2[1, n]*S2[-1, 1, -1, -1, n])/
    4 - (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (5*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - S2[1, 1, -1, 2, n] - 
   S2[-1, -1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, -1, -1, n])/2 - 
   S2[-1, 1, -1, -1, 1, n]/4 + (25*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   3*S2[1, -1, -1, -1, -1, n] + S2[1, -1, -1, 1, -1, n]/2 + 
   (3*S2[1, -1, 1, -1, -1, n])/4 + (3*S2[1, 1, -1, -1, -1, n])/2, 
 S2[-1, 3, 1, n] -> (-13*Diff[Half[S2[1, n], n], n, 4])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   (13*Diff[S2[1, n], n, 4])/48 - Diff[S2[-3, 1, n], n, 1] - 
   (3*Diff[S2[-2, 1, n], n, 2])/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (2*Diff[S2[-1, 1, n], n, 3])/3 - Diff[S2[-1, 1, 1, n], n, 2]/4 - 
   Diff[S2[1, 2, -1, n], n, 1] - Diff[S2[2, 1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 - Diff[S2[1, n], n, 1]^2*
    Half[S2[1, n], n] + (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/2 + S2[-1, Infinity]^5/240 + 
   (2*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/3 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n])/2 - (7*Diff[S2[1, n], n, 3]*S2[1, n])/
    6 + (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^4*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[1, n]^3*S2[2, Infinity])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    4 - (107*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (13*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (3*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - (S2[1, n]^2*S2[3, Infinity])/
    32 - (9*S2[2, Infinity]*S2[3, Infinity])/16 + (9*S2[5, Infinity])/128 + 
   S2[-4, 1, n]/2 + S2[1, n]*S2[-3, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - (S2[1, n]^2*S2[-2, 1, n])/4 - 
   (S2[2, Infinity]*S2[-2, 1, n])/4 + (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + (S2[2, Infinity]*S2[2, 1, n])/
    4 + S2[-3, 1, 1, n]/2 - (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]*S2[1, 2, -1, n])/2 + S2[2, 1, -2, n]/2 + 
   (S2[1, n]*S2[2, 1, -1, n])/2 + S2[-2, 1, 1, 1, n]/2 + 
   S2[1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, 1, -1, 2, n]/2 - 
   S2[-1, 1, 1, 1, 1, Infinity]/2, S2[-1, -2, -2, n] -> 
  (-5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 4])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 - 
   (25*Diff[S2[1, n], n, 4])/48 - (15*Diff[S2[-3, 1, n], n, 1])/4 - 
   Diff[S2[-2, 1, n], n, 2]/2 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/4 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (29*Diff[S2[-1, 1, n], n, 3])/24 - Diff[S2[-1, -2, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, 1, n], n, 2] + 2*Diff[S2[1, 2, -1, n], n, 1] + 
   (3*Diff[S2[2, 1, -1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1] + (3*Diff[Half[S2[1, n], n], n, 1]^2*
     Half[S2[1, n], n])/8 + (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/
    8 + (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/8 - 
   (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4)/48 + S2[-1, Infinity]^5/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (27*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 + 
   (77*Diff[S2[1, n], n, 3]*S2[1, n])/48 - Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] - (19*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + (5*S2[-1, Infinity]^4*S2[1, n])/
    48 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 - Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^2)/2 - (Half[S2[1, n], n]^3*S2[1, n]^2)/4 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 + (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    4 - (3*Half[S2[1, n], n]*S2[1, n]^4)/4 + S2[1, n]^5/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (3*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (5*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (5*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (9*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[1, n]^3*S2[2, Infinity])/2 + (21*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    16 - 2*S2[-1, Infinity]*S2[2, Infinity]^2 - 
   (51*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 - 
   (15*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 + 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/32 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 + 
   (53*S2[1, n]^2*S2[3, Infinity])/32 + (93*S2[2, Infinity]*S2[3, Infinity])/
    16 - (683*S2[5, Infinity])/32 - 5*S2[-4, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/4 + (5*S2[1, n]*S2[-3, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*S2[-2, 1, n] + (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    2 - S2[2, Infinity]*S2[-2, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, n] - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n] + (S2[1, n]^3*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (9*S2[3, Infinity]*S2[-1, 1, n])/16 - S2[-2, 1, n]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/4 + (S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 + (Half[S2[1, n], n]^2*S2[2, 1, n])/
    4 + (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/2 - 
   (7*S2[1, n]^2*S2[2, 1, n])/4 - (3*S2[2, Infinity]*S2[2, 1, n])/2 - 
   S2[-1, 1, n]*S2[2, 1, n] - 3*S2[-3, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-2, 1, -1, n] + S2[1, n]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/4 - (S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, n])/4 + S2[2, Infinity]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[1, 2, -1, n] - 2*S2[1, n]*S2[1, 2, -1, n] - 
   S2[2, 1, -2, n] + (Half[S2[1, n], n]*S2[2, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[2, 1, -1, n])/2 - Half[S2[1, n], n]*S2[2, 1, 1, n] + 
   S2[1, n]*S2[2, 1, 1, n] - S2[-2, 1, 1, 1, n] + 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - S2[1, 1, -1, 2, n] - 
   S2[-1, 1, -1, -1, 1, n]/2 - (5*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, -1, 1, -1, n] + (3*S2[1, -1, 1, -1, -1, n])/2 + 
   3*S2[1, 1, -1, -1, -1, n], S2[-1, -2, 2, n] -> 
  (-21*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 4])/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 + 
   (23*Diff[S2[1, n], n, 4])/96 - (13*Diff[S2[-3, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 2]/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1] - (31*Diff[S2[-1, 1, n], n, 3])/48 + 
   Diff[S2[2, 1, n], n, 2] + Diff[S2[-1, -2, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, n], n, 2]/8 - Diff[S2[-1, 1, 1, n], n, 2]/4 - 
   Diff[S2[1, 2, -1, n], n, 1] - (3*Diff[S2[2, 1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 - (19*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (65*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 - 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/4 + 
   (9*Half[S2[4, 1, n], n])/16 - (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    8 + Half[S2[3, 1, 1, n], n]/4 + (11*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    96 + S2[-1, Infinity]^5/480 - (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    16 + (17*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (53*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 - 
   (47*Diff[S2[1, n], n, 3]*S2[1, n])/32 + 3*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] + (31*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[1, n])/8 - (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*
     S2[1, n])/4 + (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (5*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 + (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    8 - (Half[S2[1, n], n]*S2[1, n]^4)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 + 
   (21*Diff[S2[1, n], n, 2]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/16 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (5*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (15*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (13*S2[1, n]^3*S2[2, Infinity])/16 - 
   (419*Half[S2[1, n], n]*S2[2, Infinity]^2)/160 - 
   (S2[-1, Infinity]*S2[2, Infinity]^2)/5 + (619*S2[1, n]*S2[2, Infinity]^2)/
    160 + (27*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 - 
   (15*Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 - 
   (5*Half[S2[1, n], n]^2*S2[3, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/8 - 
   (5*S2[1, n]^2*S2[3, Infinity])/16 + (61*S2[2, Infinity]*S2[3, Infinity])/
    64 + (623*S2[5, Infinity])/128 - 4*S2[-4, 1, n] - 
   (33*Half[S2[1, n], n]*S2[-3, 1, n])/8 + (33*S2[1, n]*S2[-3, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] - Half[S2[1, n], n]^2*S2[-2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/2 - S2[1, n]^2*S2[-2, 1, n] + 
   (3*S2[2, Infinity]*S2[-2, 1, n])/4 + (5*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/
    8 + (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/8 - (Half[S2[2, 1, n], n]*S2[-1, 1, n])/
    8 - (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[3, Infinity]*S2[-1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + (3*S2[1, n]^2*S2[2, 1, n])/
    8 + (S2[2, Infinity]*S2[2, 1, n])/2 + (S2[-1, 1, n]*S2[2, 1, n])/2 - 
   7*S2[4, 1, n] + S2[-3, 1, 1, n] + S2[-2, 1, -2, n]/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - (S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 + (3*S2[1, n]*S2[-1, -2, -1, n])/
    8 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, n])/8 - S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + (3*S2[1, n]*S2[1, 2, -1, n])/2 + 
   S2[2, 1, -2, n] - (3*Half[S2[1, n], n]*S2[2, 1, -1, n])/4 + 
   (7*S2[1, n]*S2[2, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]*S2[2, 1, 1, n])/2 + S2[-2, 1, 1, 1, n] - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (15*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + S2[1, 1, -1, 2, n] - 
   S2[-1, -1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, -1, -1, n])/2 + 
   S2[-1, 1, -1, -1, 1, n]/4 - S2[-1, 1, 1, 1, 1, Infinity]/4 - 
   3*S2[1, -1, -1, -1, -1, n] - S2[1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, 1, -1, -1, -1, n])/2, 
 S2[-1, 2, -2, n] -> (15*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/16 - (9*Diff[Half[S2[1, n], n], n, 4])/
    32 + (3*Diff[Half[S2[2, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 + 
   (25*Diff[S2[1, n], n, 4])/96 + (47*Diff[S2[-3, 1, n], n, 1])/8 + 
   (5*Diff[S2[-2, 1, n], n, 2])/4 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (19*Diff[S2[-1, 1, n], n, 3])/48 - (3*Diff[S2[2, 1, n], n, 2])/4 + 
   Diff[S2[-1, -2, -1, n], n, 1]/8 + Diff[S2[-1, 1, -1, n], n, 2]/8 - 
   Diff[S2[-1, 1, 1, n], n, 2]/4 - Diff[S2[1, 2, -1, n], n, 1] - 
   (3*Diff[S2[2, 1, -1, n], n, 1])/4 - Diff[S2[2, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 + 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 - 
   (3*Half[S2[4, 1, n], n])/8 - (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    8 + Half[S2[3, 1, 1, n], n]/4 - (Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    96 - (7*S2[-1, Infinity]^5)/480 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 - 
   (15*Diff[S2[1, n], n, 3]*S2[1, n])/32 - Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] + (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[1, n])/8 + (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*
     S2[1, n])/2 + (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (S2[-1, Infinity]^4*S2[1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^2)/8 - (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    8 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/8 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^3 - (9*Half[S2[1, n], n]^2*S2[1, n]^3)/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^4)/8 - S2[1, n]^5/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 2]*S2[2, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (7*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (13*S2[1, n]^3*S2[2, Infinity])/16 + 
   (41*Half[S2[1, n], n]*S2[2, Infinity]^2)/32 + 
   (43*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (221*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 + 
   (7*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 + 
   (3*Half[S2[1, n], n]^2*S2[3, Infinity])/32 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 - 
   (45*S2[1, n]^2*S2[3, Infinity])/32 - (525*S2[2, Infinity]*S2[3, Infinity])/
    64 + (3093*S2[5, Infinity])/128 + 11*S2[-4, 1, n] + 
   (27*Half[S2[1, n], n]*S2[-3, 1, n])/8 - (27*S2[1, n]*S2[-3, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[-2, 1, n] + (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    2 - (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, n])/2 + (3*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/8 - (Half[S2[2, 1, n], n]*S2[-1, 1, n])/
    8 - (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (3*S2[1, n]^3*S2[-1, 1, n])/8 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (21*S2[3, Infinity]*S2[-1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + 
   (11*S2[1, n]^2*S2[2, 1, n])/8 + 2*S2[2, Infinity]*S2[2, 1, n] + 
   (S2[-1, 1, n]*S2[2, 1, n])/2 + 6*S2[4, 1, n] + S2[-3, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - (S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 - (S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/8 + (S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   S2[2, Infinity]*S2[-1, 1, 1, n] - (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 2, -1, n])/2 + S2[2, 1, -2, n] + 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 + (3*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 - (S2[1, n]*S2[2, 1, 1, n])/2 - 
   2*S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n] - (S2[1, n]*S2[-1, 1, -1, -1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + S2[1, 1, -1, 2, n] + 
   S2[-1, -1, 1, -1, -1, n]/2 + (3*S2[-1, 1, -1, -1, -1, n])/2 + 
   S2[-1, 1, -1, -1, 1, n]/4 + (7*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, -1, -1, -1, -1, n] - S2[1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, 1, -1, -1, -1, n])/2, 
 S2[-1, 2, 2, n] -> (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, n], n, 3]/6 - Diff[S2[-1, 1, 1, n], n, 2]/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1] - S2[-1, Infinity]^5/120 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/3 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1]*S2[1, n] - Diff[S2[1, n], n, 1]^2*S2[1, n] + 
   (Diff[S2[1, n], n, 3]*S2[1, n])/3 - Diff[S2[-2, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (S2[-1, Infinity]^4*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/2 - 
   Diff[S2[1, n], n, 2]*S2[1, n]^2 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/
    2 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^3 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/6 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, Infinity] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[2, Infinity] - (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[1, n]^3*S2[2, Infinity])/2 + (Half[S2[1, n], n]*S2[2, Infinity]^2)/5 + 
   (S2[-1, Infinity]*S2[2, Infinity]^2)/20 - (81*S2[1, n]*S2[2, Infinity]^2)/
    40 + (13*Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 + 
   (S2[1, n]^2*S2[3, Infinity])/16 + (S2[2, Infinity]*S2[3, Infinity])/16 - 
   (15*S2[5, Infinity])/16 - S2[-4, 1, n] - 2*S2[1, n]*S2[-3, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 + (S2[1, n]^2*S2[-2, 1, n])/2 - 
   (S2[2, Infinity]*S2[-2, 1, n])/2 + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, n] - S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] + S2[-3, 1, 1, n] + 
   S2[2, Infinity]*S2[-1, 1, 1, n] - S2[1, n]*S2[1, 2, -1, n] - 
   S2[1, n]*S2[2, 1, -1, n] - S2[-2, 1, 1, 1, n] - 
   2*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, 1, -1, 2, n] + 
   S2[-1, 1, 1, 1, 1, Infinity], S2[-1, -1, -3, n] -> 
  (-3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 4])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   (9*Diff[S2[1, n], n, 4])/32 - (9*Diff[S2[-3, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 2]/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (9*Diff[S2[-1, 1, n], n, 3])/16 + Diff[S2[-1, -2, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, n], n, 2]/2 + Diff[S2[1, 2, -1, n], n, 1] + 
   (3*Diff[S2[2, 1, -1, n], n, 1])/4 - Diff[S2[-1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/32 - (11*S2[-1, Infinity]^5)/480 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (27*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 + 
   (77*Diff[S2[1, n], n, 3]*S2[1, n])/96 - 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - (S2[-1, Infinity]^4*S2[1, n])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/8 + (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 + (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    8 - (3*Half[S2[1, n], n]*S2[1, n]^4)/8 + S2[1, n]^5/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (9*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (S2[1, n]^3*S2[2, Infinity])/4 + (47*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    160 - (S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (7*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 - 
   (5*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 - 
   (17*Half[S2[1, n], n]^2*S2[3, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 + 
   (29*S2[1, n]^2*S2[3, Infinity])/64 + (31*S2[2, Infinity]*S2[3, Infinity])/
    16 - (59*S2[5, Infinity])/16 - S2[-4, 1, n]/2 + 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/8 + (5*S2[1, n]*S2[-3, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 + (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    4 - (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (9*S2[3, Infinity]*S2[-1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 + (S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 + (Half[S2[1, n], n]^2*S2[2, 1, n])/
    8 + (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 - 
   (7*S2[1, n]^2*S2[2, 1, n])/8 - (S2[2, Infinity]*S2[2, 1, n])/2 - 
   (S2[-1, 1, n]*S2[2, 1, n])/2 - (3*S2[-3, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 + (S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 - (S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[2, Infinity]*S2[-1, 1, -1, n])/8 + (S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 - S2[1, n]*S2[1, 2, -1, n] - 
   S2[2, 1, -2, n]/2 + (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[2, 1, -1, n])/4 - (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]*S2[2, 1, 1, n])/2 - S2[-2, 1, 1, 1, n]/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - S2[1, 1, -1, 2, n]/2 - 
   S2[-1, 1, -1, -1, 1, n]/4 + (11*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   S2[1, -1, -1, 1, -1, n]/2 + (3*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, 1, -1, -1, -1, n])/2, S2[-1, -1, 3, n] -> 
  (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 4])/192 - Diff[Half[S2[2, 1, n], n], n, 2]/
    32 + Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (25*Diff[S2[1, n], n, 4])/192 + (39*Diff[S2[-3, 1, n], n, 1])/16 + 
   (7*Diff[S2[-2, 1, n], n, 2])/8 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, n], n, 3]/32 - (3*Diff[S2[2, 1, n], n, 2])/8 - 
   Diff[S2[-2, 1, -1, n], n, 1]/2 + Diff[S2[-1, -2, -1, n], n, 1]/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2])/16 - Diff[S2[-1, 1, 1, n], n, 2]/8 - 
   Diff[S2[1, 2, -1, n], n, 1]/2 - (3*Diff[S2[2, 1, -1, n], n, 1])/8 - 
   Diff[S2[2, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 - Half[S2[4, 1, n], n]/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[3, 1, 1, n], n]/8 - (17*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    192 + (5*S2[-1, Infinity]^5)/192 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/32 + 
   (43*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 - 
   (15*Diff[S2[1, n], n, 3]*S2[1, n])/64 - Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] + (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + (13*S2[-1, Infinity]^4*S2[1, n])/
    192 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^2)/16 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 - (9*Half[S2[1, n], n]^2*S2[1, n]^3)/
    16 + (7*Half[S2[1, n], n]*S2[1, n]^4)/16 - S2[1, n]^5/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (13*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (13*S2[1, n]^3*S2[2, Infinity])/32 + 
   (393*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 + 
   (S2[-1, Infinity]*S2[2, Infinity]^2)/8 - (409*S2[1, n]*S2[2, Infinity]^2)/
    320 - (45*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (25*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 + 
   (35*Half[S2[1, n], n]^2*S2[3, Infinity])/64 - 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 - 
   (13*S2[1, n]^2*S2[3, Infinity])/64 - (425*S2[2, Infinity]*S2[3, Infinity])/
    128 + (1409*S2[5, Infinity])/256 + (9*S2[-4, 1, n])/2 + 
   (27*Half[S2[1, n], n]*S2[-3, 1, n])/16 - (27*S2[1, n]*S2[-3, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/8 - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] + (Half[S2[1, n], n]^2*S2[-2, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, n])/4 + (S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (3*S2[1, n]^3*S2[-1, 1, n])/16 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (21*S2[3, Infinity]*S2[-1, 1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 - (S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 + 
   (11*S2[1, n]^2*S2[2, 1, n])/16 + S2[2, Infinity]*S2[2, 1, n] + 
   (S2[-1, 1, n]*S2[2, 1, n])/4 + 4*S2[4, 1, n] + S2[-3, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 - (S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 - (S2[1, n]*S2[-1, -2, -1, n])/
    16 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/16 + (S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[1, 2, -1, n])/
    4 + (3*S2[1, n]*S2[1, 2, -1, n])/4 + S2[2, 1, -2, n]/2 + 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/8 + (3*S2[1, n]*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 - (S2[1, n]*S2[2, 1, 1, n])/4 - 
   S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n]/2 - (S2[1, n]*S2[-1, 1, -1, -1, n])/
    8 + (17*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (13*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + S2[1, 1, -1, 2, n]/2 + 
   S2[-1, -1, 1, -1, -1, n]/4 + (3*S2[-1, 1, -1, -1, -1, n])/4 + 
   S2[-1, 1, -1, -1, 1, n]/8 - (25*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, 1, -1, n]/4 - 
   (3*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, 1, -1, -1, -1, n])/4, 
 S2[-1, 1, -3, n] -> (-15*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/32 + (17*Diff[Half[S2[1, n], n], n, 4])/
    64 - (7*Diff[Half[S2[2, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (37*Diff[S2[1, n], n, 4])/192 - (47*Diff[S2[-3, 1, n], n, 1])/16 - 
   Diff[S2[-2, 1, n], n, 2]/8 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (43*Diff[S2[-1, 1, n], n, 3])/96 + (5*Diff[S2[2, 1, n], n, 2])/8 - 
   Diff[S2[-2, 1, -1, n], n, 1]/2 - Diff[S2[-1, -2, -1, n], n, 1]/16 - 
   Diff[S2[-1, 1, -1, n], n, 2]/16 + Diff[S2[-1, 1, 1, n], n, 2]/8 + 
   Diff[S2[1, 2, -1, n], n, 1]/2 + (3*Diff[S2[2, 1, -1, n], n, 1])/8 + 
   Diff[S2[2, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/192 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + 
   (3*Half[S2[4, 1, n], n])/16 + (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    16 - Half[S2[3, 1, 1, n], n]/8 + (Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    192 + (23*S2[-1, Infinity]^5)/960 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (17*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 + 
   (15*Diff[S2[1, n], n, 3]*S2[1, n])/64 - 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + (S2[-1, Infinity]^4*S2[1, n])/64 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^2)/16 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 + (9*Half[S2[1, n], n]^2*S2[1, n]^3)/
    16 - (7*Half[S2[1, n], n]*S2[1, n]^4)/16 + S2[1, n]^5/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (11*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (13*S2[1, n]^3*S2[2, Infinity])/32 - 
   (61*Half[S2[1, n], n]*S2[2, Infinity]^2)/64 - 
   (4*S2[-1, Infinity]*S2[2, Infinity]^2)/5 + 
   (321*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (93*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (31*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 - 
   (3*Half[S2[1, n], n]^2*S2[3, Infinity])/64 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 + 
   (45*S2[1, n]^2*S2[3, Infinity])/64 + (529*S2[2, Infinity]*S2[3, Infinity])/
    128 - (3205*S2[5, Infinity])/256 - (11*S2[-4, 1, n])/2 - 
   (27*Half[S2[1, n], n]*S2[-3, 1, n])/16 + (27*S2[1, n]*S2[-3, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 - (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    4 + (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 - 
   (S2[1, n]^2*S2[-2, 1, n])/4 - (3*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (3*S2[1, n]^3*S2[-1, 1, n])/16 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (27*S2[3, Infinity]*S2[-1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 + (S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - 
   (11*S2[1, n]^2*S2[2, 1, n])/16 - S2[2, Infinity]*S2[2, 1, n] - 
   (S2[-1, 1, n]*S2[2, 1, n])/4 - 3*S2[4, 1, n] - S2[-3, 1, 1, n]/2 - 
   S2[-2, 1, -2, n]/2 - (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 + 
   (S2[1, n]*S2[-2, 1, -1, n])/4 - (Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 + 
   (S2[1, n]*S2[-1, -2, -1, n])/16 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/
    16 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, 1, -1, n])/16 - (S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[1, 2, -1, n])/
    4 - (3*S2[1, n]*S2[1, 2, -1, n])/4 - S2[2, 1, -2, n]/2 - 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/8 - (3*S2[1, n]*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + (S2[1, n]*S2[2, 1, 1, n])/4 + 
   S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n]/2 + (S2[1, n]*S2[-1, 1, -1, -1, n])/
    8 - (Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - S2[1, 1, -1, 2, n]/2 - 
   S2[-1, -1, 1, -1, -1, n]/4 - (3*S2[-1, 1, -1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, 1, n]/8 - (23*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, 1, -1, n]/4 + 
   (3*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, 1, -1, -1, -1, n])/4, 
 S2[-1, 1, 3, n] -> -Diff[Half[S2[1, n], n], n, 4]/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   Diff[S2[1, n], n, 4]/16 - Diff[S2[-2, 1, n], n, 2]/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, n], n, 3]/6 + Diff[S2[-1, 1, 1, n], n, 2]/4 - 
   Diff[S2[2, 1, -1, n], n, 1]/2 + Diff[S2[-1, 1, 1, 1, n], n, 1]/2 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/2 - S2[-1, Infinity]^5/80 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n])/2 - (Diff[S2[1, n], n, 3]*S2[1, n])/6 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n])/4 - (Diff[S2[2, 1, n], n, 1]*S2[1, n])/
    2 - (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^4*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[1, n]^3*S2[2, Infinity])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    20 - (9*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (61*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - (S2[1, n]^2*S2[3, Infinity])/
    32 + (5*S2[2, Infinity]*S2[3, Infinity])/16 + (35*S2[5, Infinity])/128 + 
   S2[-4, 1, n]/2 + S2[1, n]*S2[-3, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - (S2[1, n]^2*S2[-2, 1, n])/4 - 
   (S2[2, Infinity]*S2[-2, 1, n])/4 + (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + S2[3, Infinity]*S2[-1, 1, n] - 
   (S2[2, Infinity]*S2[2, 1, n])/4 - S2[-3, 1, 1, n]/2 - 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + (S2[1, n]*S2[1, 2, -1, n])/2 - 
   S2[2, 1, -2, n]/2 + (S2[1, n]*S2[2, 1, -1, n])/2 + S2[-2, 1, 1, 1, n]/2 + 
   S2[1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, 1, -1, 2, n]/2 + 
   (3*S2[-1, 1, 1, 1, 1, Infinity])/2, S2[1, -3, -1, n] -> 
  (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/32 + 
   (67*Diff[Half[S2[1, n], n], n, 4])/192 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (57*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (73*Diff[S2[1, n], n, 4])/192 + (21*Diff[S2[-3, 1, n], n, 1])/16 + 
   (7*Diff[S2[-2, 1, n], n, 2])/8 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (33*Diff[S2[-1, 1, n], n, 3])/32 - (3*Diff[S2[2, 1, n], n, 2])/8 - 
   Diff[S2[-2, 1, -1, n], n, 1]/2 + (3*Diff[S2[-1, -2, -1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2])/16 + (5*Diff[S2[-1, 1, 1, n], n, 2])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1])/2 + (7*Diff[S2[2, 1, -1, n], n, 1])/8 - 
   Diff[S2[2, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 + (51*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (43*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/64 + 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 - Half[S2[4, 1, n], n]/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[3, 1, 1, n], n]/8 - (11*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    192 - S2[-1, Infinity]^5/960 - (7*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[1, n])/32 - (21*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (109*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 + 
   (87*Diff[S2[1, n], n, 3]*S2[1, n])/64 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (47*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - (S2[-1, Infinity]^4*S2[1, n])/
    192 + (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (3*Half[S2[1, n], n]^3*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 - (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    16 + (Half[S2[1, n], n]*S2[1, n]^4)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 - 
   (33*Diff[S2[1, n], n, 2]*S2[2, Infinity])/32 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (5*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (13*S2[1, n]^3*S2[2, Infinity])/32 + 
   (271*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 + 
   (53*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (279*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (7*Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 + 
   (5*Half[S2[1, n], n]^2*S2[3, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 + 
   (5*S2[1, n]^2*S2[3, Infinity])/32 - (9*S2[2, Infinity]*S2[3, Infinity])/
    128 - (169*S2[5, Infinity])/256 + (3*S2[-4, 1, n])/2 + 
   (17*Half[S2[1, n], n]*S2[-3, 1, n])/16 - (17*S2[1, n]*S2[-3, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, n])/2 + (3*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 - 
   (17*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (S2[1, n]^3*S2[-1, 1, n])/16 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[3, Infinity]*S2[-1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 + (S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - (3*S2[1, n]^2*S2[2, 1, n])/
    16 + (S2[2, Infinity]*S2[2, 1, n])/4 - (S2[-1, 1, n]*S2[2, 1, n])/4 + 
   2*S2[4, 1, n] - S2[-3, 1, 1, n]/2 - (Half[S2[1, n], n]*S2[-2, 1, -1, n])/
    4 + (S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 - 
   (3*S2[1, n]*S2[-1, -2, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/16 + (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/4 - (3*S2[1, n]*S2[1, 2, -1, n])/4 - 
   S2[2, 1, -2, n]/2 + (3*Half[S2[1, n], n]*S2[2, 1, -1, n])/8 - 
   (7*S2[1, n]*S2[2, 1, -1, n])/8 - (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + 
   (S2[1, n]*S2[2, 1, 1, n])/4 - S2[-2, 1, 1, 1, n]/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - S2[1, 1, -1, 2, n]/2 + 
   S2[-1, -1, 1, -1, -1, n]/4 + (3*S2[-1, 1, -1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, 1, n]/8 + S2[-1, 1, 1, 1, 1, Infinity]/8 + 
   (3*S2[1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, 1, -1, n]/4 + 
   (3*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, 1, -1, -1, -1, n])/4, 
 S2[1, -3, 1, n] -> -Diff[S2[-3, 1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 
   (7*S2[2, Infinity]*S2[3, Infinity])/8 - (83*S2[5, Infinity])/16 - 
   2*S2[-4, 1, n] + S2[1, n]*S2[-3, 1, n] - 2*S2[-3, 1, 1, n], 
 S2[1, 3, -1, n] -> (-11*Diff[Half[S2[1, n], n], n, 4])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   (11*Diff[S2[1, n], n, 4])/48 - Diff[S2[-2, 1, n], n, 2]/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, n], n, 3]/2 - Diff[S2[-1, 1, 1, n], n, 2]/4 - 
   Diff[S2[1, 2, -1, n], n, 1] - Diff[S2[2, 1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 - 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/24 + S2[-1, Infinity]^5/240 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]^2*S2[1, n])/4 - (19*Diff[S2[1, n], n, 3]*S2[1, n])/
    24 + (Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (S2[-1, Infinity]^4*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 + 
   Diff[S2[1, n], n, 2]*S2[1, n]^2 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/
    4 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[1, n]^3*S2[2, Infinity])/4 + (Half[S2[1, n], n]*S2[2, Infinity]^2)/4 - 
   (47*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (5*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - (S2[1, n]^2*S2[3, Infinity])/
    32 - (23*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (381*S2[5, Infinity])/128 + S2[-4, 1, n]/2 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - (S2[1, n]^2*S2[-2, 1, n])/4 - 
   (S2[2, Infinity]*S2[-2, 1, n])/4 + (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + (S2[2, Infinity]*S2[2, 1, n])/
    4 + S2[-3, 1, 1, n]/2 - (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]*S2[1, 2, -1, n])/2 + S2[2, 1, -2, n]/2 + 
   (S2[1, n]*S2[2, 1, -1, n])/2 + S2[-2, 1, 1, 1, n]/2 - 
   S2[1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, 1, -1, 2, n]/2 - 
   S2[-1, 1, 1, 1, 1, Infinity]/2, S2[1, 3, 1, n] -> 
  (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 - Diff[S2[1, n], n, 4]/24 + 
   Diff[S2[2, 1, n], n, 2]/2 - (Diff[S2[1, n], n, 1]^2*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 3]*S2[1, n])/24 - (Diff[S2[2, 1, n], n, 1]*S2[1, n])/
    2 + (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 
   (S2[1, n]*S2[2, Infinity]^2)/2 + (9*S2[5, Infinity])/2 - 2*S2[4, 1, n] - 
   2*S2[3, 1, 1, n], S2[1, -2, -2, n] -> -Diff[Half[S2[1, n], n], n, 4]/16 + 
   Diff[Half[S2[2, 1, n], n], n, 2]/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   Diff[S2[1, n], n, 4]/16 + (3*Diff[S2[-3, 1, n], n, 1])/2 + 
   Diff[S2[-2, 1, n], n, 2]/4 - Diff[S2[2, 1, n], n, 2]/4 - 
   (3*Half[S2[4, 1, n], n])/16 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    2 - Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n])/2 - (Diff[S2[1, n], n, 3]*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (13*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[3, Infinity])/8 - 
   (9*S2[2, Infinity]*S2[3, Infinity])/8 + (75*S2[5, Infinity])/16 + 
   3*S2[-4, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 + (S2[2, Infinity]*S2[-2, 1, n])/4 + 
   S2[4, 1, n] - S2[-2, 1, -2, n]/2, S2[1, -2, 2, n] -> 
  -Diff[Half[S2[1, n], n], n, 4]/3 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1])/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 2])/2 - 3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] + 
   Diff[S2[1, n], n, 4]/3 - Diff[S2[-2, 1, n], n, 2]/2 + 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1] - 
   Diff[S2[-1, 1, n], n, 3] - Diff[S2[-1, 1, 1, n], n, 2] - 
   Diff[S2[1, 2, -1, n], n, 1] - Diff[S2[2, 1, -1, n], n, 1] - 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1]*S2[1, n] + 2*Diff[S2[1, n], n, 1]^2*S2[1, n] - 
   Diff[S2[1, n], n, 3]*S2[1, n] + Diff[S2[-1, 1, n], n, 2]*S2[1, n] - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] + 
   Diff[S2[1, n], n, 2]*S2[1, n]^2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (37*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (7*Diff[S2[1, n], n, 1]*S2[3, Infinity])/8 - 
   (17*S2[2, Infinity]*S2[3, Infinity])/16 + (73*S2[5, Infinity])/32 - 
   2*S2[1, n]*S2[-3, 1, n] + Diff[S2[1, n], n, 1]*S2[-2, 1, n] - 
   S2[2, Infinity]*S2[-2, 1, n] + Diff[S2[1, n], n, 2]*S2[-1, 1, n] + 
   2*S2[-3, 1, 1, n], S2[1, 2, -2, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 4])/12 - 2*Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 1] - 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 2] + 4*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] - 
   (5*Diff[S2[1, n], n, 4])/12 - 2*Diff[S2[-3, 1, n], n, 1] - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1] + 
   Diff[S2[-1, 1, n], n, 3] + Diff[S2[-1, 1, 1, n], n, 2] + 
   Diff[S2[1, 2, -1, n], n, 1] + Diff[S2[2, 1, -1, n], n, 1] + 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 - 
   (2*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/3 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   3*Diff[S2[1, n], n, 1]^2*S2[1, n] + (7*Diff[S2[1, n], n, 3]*S2[1, n])/6 - 
   Diff[S2[-1, 1, n], n, 2]*S2[1, n] + Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
    S2[1, n] - Diff[S2[1, n], n, 2]*S2[1, n]^2 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*S2[1, n]*S2[2, Infinity]^2)/40 - (Diff[S2[1, n], n, 1]*S2[3, Infinity])/
    8 + (33*S2[2, Infinity]*S2[3, Infinity])/16 - (331*S2[5, Infinity])/32 - 
   4*S2[-4, 1, n] + 2*S2[1, n]*S2[-3, 1, n] - Diff[S2[1, n], n, 2]*
    S2[-1, 1, n] - 2*S2[-3, 1, 1, n] - S2[2, 1, -2, n], 
 S2[1, 2, 2, n] -> -(Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   Diff[S2[1, n], n, 4]/24 + Diff[S2[2, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n])/2 - (Diff[S2[1, n], n, 3]*S2[1, n])/12 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[2, Infinity] + (7*S2[1, n]*S2[2, Infinity]^2)/10 + 
   2*S2[2, Infinity]*S2[3, Infinity] - (9*S2[5, Infinity])/2 - 
   S2[2, Infinity]*S2[2, 1, n] + 2*S2[3, 1, 1, n], 
 S2[1, -1, -3, n] -> (-17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/16 - (47*Diff[Half[S2[1, n], n], n, 4])/
    96 - Diff[Half[S2[2, 1, n], n], n, 2]/4 + 
   (51*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/4 - 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 + 
   (55*Diff[S2[1, n], n, 4])/96 - (11*Diff[S2[-3, 1, n], n, 1])/8 - 
   (5*Diff[S2[-2, 1, n], n, 2])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (71*Diff[S2[-1, 1, n], n, 3])/48 + Diff[S2[2, 1, n], n, 2]/4 + 
   Diff[S2[-2, 1, -1, n], n, 1] - Diff[S2[-1, -2, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, -1, n], n, 2]/4 - (3*Diff[S2[-1, 1, 1, n], n, 2])/4 - 
   2*Diff[S2[1, 2, -1, n], n, 1] - (5*Diff[S2[2, 1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/16 - 
   (23*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (77*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + 
   (7*Half[S2[4, 1, n], n])/16 - (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    8 + Half[S2[3, 1, 1, n], n]/4 + (5*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    96 - (11*S2[-1, Infinity]^5)/480 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/16 + 
   (41*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (63*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 - 
   (185*Diff[S2[1, n], n, 3]*S2[1, n])/96 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - (S2[-1, Infinity]^4*S2[1, n])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/8 - (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 - (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    8 + (3*Half[S2[1, n], n]*S2[1, n]^4)/8 - S2[1, n]^5/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[2, Infinity])/8 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (27*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (2*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (15*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (39*Half[S2[1, n], n]*S2[2, Infinity]^2)/160 + 
   (11*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (99*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 + 
   (11*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 - 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/64 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 - 
   (7*S2[1, n]^2*S2[3, Infinity])/64 - (17*S2[2, Infinity]*S2[3, Infinity])/
    16 + (871*S2[5, Infinity])/128 - 2*S2[-4, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/8 + (3*S2[1, n]*S2[-3, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    4 - (S2[1, n]^2*S2[-2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (15*S2[3, Infinity]*S2[-1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 - (Half[S2[1, n], n]^2*S2[2, 1, n])/
    8 - (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + 
   (7*S2[1, n]^2*S2[2, 1, n])/8 + (3*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, n])/2 - 3*S2[4, 1, n] + S2[-3, 1, 1, n] + 
   S2[-2, 1, -2, n]/2 + (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]*S2[-2, 1, -1, n])/2 - (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]*S2[-1, -2, -1, n])/8 + (S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   S2[2, Infinity]*S2[-1, 1, 1, n] - (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 2, -1, n])/2 + S2[2, 1, -2, n] - 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 + (5*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 - (S2[1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n] - (S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + S2[1, 1, -1, 2, n] + 
   S2[-1, 1, -1, -1, 1, n]/4 + (11*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   S2[1, -1, -1, 1, -1, n]/2 - (3*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, 1, -1, -1, -1, n])/2, S2[1, -1, 3, n] -> 
  Diff[Half[S2[1, n], n], n, 4]/3 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1])/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 2])/2 + 3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] - 
   Diff[S2[1, n], n, 4]/3 + 2*Diff[S2[-3, 1, n], n, 1] + 
   Diff[S2[-2, 1, n], n, 2] - (3*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/2 + (2*Diff[S2[-1, 1, n], n, 3])/3 + 
   Diff[S2[1, 2, -1, n], n, 1] + Diff[S2[2, 1, -1, n], n, 1] - 
   Diff[S2[-1, 1, 1, 1, n], n, 1] + Diff[S2[1, n], n, 1]^2*
    Half[S2[1, n], n] - (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 + 
   S2[-1, Infinity]^5/120 - (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/6 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   3*Diff[S2[1, n], n, 1]^2*S2[1, n] + (4*Diff[S2[1, n], n, 3]*S2[1, n])/3 - 
   Diff[S2[-2, 1, n], n, 1]*S2[1, n] - Diff[S2[-1, 1, n], n, 2]*S2[1, n] + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/2 - 
   2*Diff[S2[1, n], n, 2]*S2[1, n]^2 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/
    2 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^3 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 2]*S2[2, Infinity] + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/3 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, Infinity] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[2, Infinity] + (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[1, n]^3*S2[2, Infinity])/2 - (Half[S2[1, n], n]*S2[2, Infinity]^2)/2 + 
   (7*S2[-1, Infinity]*S2[2, Infinity]^2)/10 - (7*S2[1, n]*S2[2, Infinity]^2)/
    10 - Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity] + 
   (15*Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 + 
   Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity] - 
   (15*S2[1, n]^2*S2[3, Infinity])/16 - (9*S2[2, Infinity]*S2[3, Infinity])/
    8 + 2*S2[5, Infinity] + S2[-4, 1, n] - S2[1, n]*S2[-3, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 + (S2[1, n]^2*S2[-2, 1, n])/2 + 
   (S2[2, Infinity]*S2[-2, 1, n])/2 - Diff[S2[1, n], n, 2]*S2[-1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n] - S2[1, n]*S2[2, Infinity]*
    S2[-1, 1, n] - S2[3, Infinity]*S2[-1, 1, n] + 
   S2[2, Infinity]*S2[-1, 1, 1, n] - S2[1, n]*S2[1, 2, -1, n] - 
   S2[1, n]*S2[2, 1, -1, n] - S2[-2, 1, 1, 1, n] - S2[1, 1, -1, 2, n] - 
   S2[-1, 1, 1, 1, 1, Infinity], S2[1, 1, -3, n] -> 
  Diff[Half[S2[1, n], n], n, 4]/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 - Diff[S2[1, n], n, 4]/24 + 
   Diff[S2[-3, 1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/6 + 
   (Diff[S2[1, n], n, 3]*S2[1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 - (7*S2[1, n]*S2[2, Infinity]^2)/
    20 + (3*Diff[S2[1, n], n, 1]*S2[3, Infinity])/8 - 
   (3*S2[1, n]^2*S2[3, Infinity])/8 - (5*S2[2, Infinity]*S2[3, Infinity])/4 + 
   (17*S2[5, Infinity])/4 + 2*S2[-4, 1, n] - S2[1, n]*S2[-3, 1, n] + 
   S2[-3, 1, 1, n], S2[1, 1, 3, n] -> 
  (-3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   Diff[S2[1, n], n, 4]/12 - Diff[S2[2, 1, n], n, 2]/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n])/4 - (5*Diff[S2[1, n], n, 3]*S2[1, n])/
    24 + (Diff[S2[2, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 - (S2[1, n]*S2[2, Infinity]^2)/
    10 - (Diff[S2[1, n], n, 1]*S2[3, Infinity])/2 + 
   (S2[1, n]^2*S2[3, Infinity])/2 + (S2[2, Infinity]*S2[3, Infinity])/2 - 
   (7*S2[5, Infinity])/2 + 2*S2[4, 1, n] + S2[3, 1, 1, n], 
 S2[-2, -1, -1, -1, n] -> 
  (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/8 + 
   Diff[Half[S2[1, n], n], n, 4]/48 - Diff[Half[S2[2, 1, n], n], n, 2]/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/12 - 
   Diff[S2[1, n], n, 4]/48 - Diff[S2[-3, 1, n], n, 1] - 
   Diff[S2[-2, 1, n], n, 2]/4 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, n], n, 3]/24 + Diff[S2[2, 1, n], n, 2]/4 + 
   Diff[S2[-1, 1, -1, n], n, 2]/8 + Diff[S2[2, 1, 1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/36 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    24 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/12 + 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/72 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/48 + Half[S2[4, 1, n], n]/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/16 - S2[-1, Infinity]^5/120 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/36 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[1, n])/24 + (Diff[S2[1, n], n, 3]*S2[1, n])/
    72 + (Diff[S2[-2, 1, n], n, 1]*S2[1, n])/3 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n])/4 - (Diff[S2[2, 1, n], n, 1]*S2[1, n])/
    2 - (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Half[S2[1, n], n]^4*S2[1, n])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (S2[-1, Infinity]^4*S2[1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/48 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/6 + (Half[S2[2, 1, n], n]*S2[1, n]^2)/
    48 - (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/24 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^3)/12 + (Half[S2[1, n], n]*S2[1, n]^4)/2 - 
   (5*S2[1, n]^5)/24 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[2, Infinity])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/48 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (11*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*S2[1, n]^3*S2[2, Infinity])/16 - 
   (11*Half[S2[1, n], n]*S2[2, Infinity]^2)/20 + 
   (S2[-1, Infinity]*S2[2, Infinity]^2)/20 + (81*S2[1, n]*S2[2, Infinity]^2)/
    80 + (157*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 - 
   (79*Half[S2[1, n], n]^2*S2[3, Infinity])/192 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 - 
   (67*S2[1, n]^2*S2[3, Infinity])/192 + 
   (395*S2[2, Infinity]*S2[3, Infinity])/192 - (733*S2[5, Infinity])/128 - 
   2*S2[-4, 1, n] - (7*Half[S2[1, n], n]*S2[-3, 1, n])/12 + 
   (7*S2[1, n]*S2[-3, 1, n])/12 + (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/6 - (S2[1, n]^2*S2[-2, 1, n])/
    12 - (S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (13*S2[1, n]^3*S2[-1, 1, n])/24 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/24 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (S2[3, Infinity]*S2[-1, 1, n])/16 - (Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 + 
   (S2[1, n]^2*S2[2, 1, n])/2 - (3*S2[2, Infinity]*S2[2, 1, n])/4 - 
   S2[4, 1, n] - (Half[S2[1, n], n]*S2[-1, -2, -1, n])/12 + 
   (S2[1, n]*S2[-1, -2, -1, n])/12 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/
    8 + (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (7*S2[1, n]^2*S2[-1, 1, -1, n])/24 + (S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 - Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, 1, n] - (Half[S2[1, n], n]*S2[2, 1, -1, n])/6 + 
   (S2[1, n]*S2[2, 1, -1, n])/6 - S2[1, n]*S2[2, 1, 1, n] + S2[3, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, n])/3 - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/3 - (S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] - S2[1, n]*S2[-1, 1, 1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - S2[1, 1, -2, -1, n] - 
   S2[1, 2, -1, -1, n] + S2[2, 1, 1, 1, n] - S2[-1, -1, 1, -1, -1, n]/2 - 
   S2[-1, 1, -1, -1, -1, n]/2 + S2[-1, 1, -1, 1, 1, n]/2 - 
   S2[-1, 1, 1, 1, -1, n]/2 + S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, -1, -1, -1, n] + S2[1, 1, -1, 1, -1, n]/2 + 
   2*S2[1, 1, 1, -1, -1, n], S2[-2, -1, -1, 1, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 4])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   (11*Diff[S2[1, n], n, 4])/48 + (11*Diff[S2[-3, 1, n], n, 1])/4 + 
   Diff[S2[-2, 1, n], n, 2]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/4 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (17*Diff[S2[-1, 1, n], n, 3])/24 + Diff[S2[-1, -2, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, 1, n], n, 2] - Diff[S2[1, 2, -1, n], n, 1] - 
   Diff[S2[2, 1, -1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/4 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n] - 
   (25*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/8 + 
   (47*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/48 - 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] - 
   (17*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n] - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/4 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^5/48 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 - 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   (33*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 - 
   (59*Diff[S2[1, n], n, 3]*S2[1, n])/48 + Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] + (23*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[1, n] + (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - (11*S2[-1, Infinity]^4*S2[1, n])/
    48 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 + Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^2)/2 + (Half[S2[1, n], n]^3*S2[1, n]^2)/4 - 
   (Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 - (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    4 + (3*Half[S2[1, n], n]*S2[1, n]^4)/4 - S2[1, n]^5/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   Half[S2[1, n], n]^3*S2[2, Infinity] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (21*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (357*Half[S2[1, n], n]*S2[2, Infinity]^2)/80 + 
   (5*S2[-1, Infinity]*S2[2, Infinity]^2)/4 + 
   (179*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 + 
   (71*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 + 
   (31*Half[S2[1, n], n]^2*S2[3, Infinity])/32 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 - 
   (85*S2[1, n]^2*S2[3, Infinity])/32 - (151*S2[2, Infinity]*S2[3, Infinity])/
    32 + (945*S2[5, Infinity])/64 + 3*S2[-4, 1, n] - 
   (9*Half[S2[1, n], n]*S2[-3, 1, n])/4 - (9*S2[1, n]*S2[-3, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, n])/2 + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, n] - (5*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/2 + 
   Diff[S2[1, n], n, 2]*S2[-1, 1, n] - Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, n])/2 + 4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, n] + (Half[S2[2, 1, n], n]*S2[-1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n] - (S2[1, n]^3*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (11*S2[3, Infinity]*S2[-1, 1, n])/8 - 2*S2[-2, 1, n]*S2[-1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]^2)/4 + (3*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 - (3*Half[S2[1, n], n]^2*S2[2, 1, n])/
    4 - Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n] + (7*S2[1, n]^2*S2[2, 1, n])/
    4 + (S2[2, Infinity]*S2[2, 1, n])/2 - S2[-1, 1, n]*S2[2, 1, n] + 
   3*S2[-3, 1, 1, n] + 3*Half[S2[1, n], n]*S2[-2, 1, -1, n] - 
   3*S2[1, n]*S2[-2, 1, -1, n] - (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/4 + 
   (S2[1, n]*S2[-1, -2, -1, n])/4 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, n])/2 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/2 - (S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + 
   2*Half[S2[1, n], n]^2*S2[-1, 1, 1, n] - 4*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] + 2*S2[1, n]^2*S2[-1, 1, 1, n] - 
   3*Half[S2[1, n], n]*S2[1, 2, -1, n] + 3*S2[1, n]*S2[1, 2, -1, n] + 
   S2[2, 1, -2, n] - (3*Half[S2[1, n], n]*S2[2, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[2, 1, -1, n])/2 + 3*Half[S2[1, n], n]*S2[2, 1, 1, n] - 
   3*S2[1, n]*S2[2, 1, 1, n] - (S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   Half[S2[1, n], n]*S2[-1, 1, -1, 1, n] - S2[1, n]*S2[-1, 1, -1, 1, n] - 
   (13*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (11*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - S2[1, -1, 1, 2, n] + 
   S2[-1, 1, -1, -1, 1, n]/2 - 2*S2[-1, 1, 1, -1, -1, n] + 
   (5*S2[-1, 1, 1, 1, 1, Infinity])/2 - S2[1, -1, 1, -1, -1, n]/2 - 
   3*S2[1, 1, -1, -1, -1, n], S2[-2, -1, 1, -1, n] -> 
  (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 + 
   Diff[Half[S2[1, n], n], n, 4]/32 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   Diff[S2[1, n], n, 4]/32 - Diff[S2[-3, 1, n], n, 1]/8 + 
   Diff[S2[-2, 1, n], n, 2]/4 + (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (11*Diff[S2[-1, 1, n], n, 3])/48 + Diff[S2[-1, -2, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, n], n, 2]/2 - Diff[S2[2, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1])/4 + Diff[S2[-1, 1, 1, 1, n], n, 1]/
    2 + (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n] + 
   (45*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (79*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 + 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] + 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/8 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4)/96 - 
   (11*S2[-1, Infinity]^5)/480 - (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    16 - (25*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (41*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 + 
   (21*Diff[S2[1, n], n, 3]*S2[1, n])/32 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + (13*S2[-1, Infinity]^4*S2[1, n])/
    96 + (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/8 - (7*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 - (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    8 + (3*Half[S2[1, n], n]*S2[1, n]^4)/8 - S2[1, n]^5/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/2 - 
   (5*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (11*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (7*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (39*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (S2[1, n]^3*S2[2, Infinity])/4 + (407*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    160 + (29*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (257*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (63*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 - 
   (77*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 - 
   (31*Half[S2[1, n], n]^2*S2[3, Infinity])/64 - 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 + 
   (123*S2[1, n]^2*S2[3, Infinity])/64 + (23*S2[2, Infinity]*S2[3, Infinity])/
    32 + (39*S2[5, Infinity])/64 - S2[-4, 1, n]/2 + 
   (9*Half[S2[1, n], n]*S2[-3, 1, n])/8 + (7*S2[1, n]*S2[-3, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[-2, 1, n] + (3*Half[S2[1, n], n]^2*S2[-2, 1, n])/
    4 - 4*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n] + 
   3*S2[1, n]^2*S2[-2, 1, n] + S2[2, Infinity]*S2[-2, 1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n] - 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n] - 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, n] + (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/
    4 - (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (35*S2[3, Infinity]*S2[-1, 1, n])/32 + (5*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (5*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + 
   (3*S2[1, n]^2*S2[2, 1, n])/8 + (S2[2, Infinity]*S2[2, 1, n])/2 + 
   (3*S2[-1, 1, n]*S2[2, 1, n])/2 - (3*S2[-3, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 + (3*S2[1, n]*S2[-2, 1, -1, n])/
    2 + (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, n])/8 + (S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] - S2[1, n]^2*S2[-1, 1, 1, n] - 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, 2, -1, n])/2 - S2[1, n]*S2[1, 2, -1, n] - 
   S2[2, 1, -2, n]/2 + (3*Half[S2[1, n], n]*S2[2, 1, -1, n])/4 - 
   (S2[1, n]*S2[2, 1, -1, n])/4 - (3*Half[S2[1, n], n]*S2[2, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[2, 1, 1, n])/2 + S2[-2, 1, 1, 1, n]/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, n])/2 + (S2[1, n]*S2[-1, 1, -1, 1, n])/
    2 + (13*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (13*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + S2[1, -1, 1, 2, n] + 
   (3*S2[1, 1, -1, 2, n])/2 + S2[1, 1, 2, -1, n] - 
   S2[-1, 1, -1, -1, 1, n]/4 + S2[-1, 1, 1, -1, -1, n] + 
   (11*S2[-1, 1, 1, 1, 1, Infinity])/4 - S2[1, -1, -1, 1, -1, n]/2 - 
   (5*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, 1, -1, -1, -1, n])/2, 
 S2[-2, -1, 1, 1, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 4])/32 - Diff[Half[S2[2, 1, 1, n], n], n, 1]/
    2 - (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/24 - 
   Diff[S2[1, n], n, 4]/32 - (17*Diff[S2[-3, 1, n], n, 1])/8 - 
   (3*Diff[S2[-2, 1, n], n, 2])/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, n], n, 3])/48 + Diff[S2[2, 1, n], n, 2]/4 + 
   Diff[S2[-2, 1, -1, n], n, 1] - (3*Diff[S2[-1, -2, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, n], n, 2]/2 - Diff[S2[-1, 1, 1, n], n, 2]/4 + 
   Diff[S2[2, 1, -1, n], n, 1]/4 + 2*Diff[S2[2, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + Diff[S2[-1, 1, -1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 1]^2*
     Half[S2[1, n], n])/16 + (17*Diff[Half[S2[1, n], n], n, 3]*
     Half[S2[1, n], n])/48 + (Diff[Half[S2[2, 1, n], n], n, 1]*
     Half[S2[1, n], n])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (13*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 - 
   (3*Half[S2[4, 1, n], n])/16 + (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    8 - Half[S2[3, 1, 1, n], n]/4 - (Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    96 - S2[-1, Infinity]^5/96 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    16 - (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 + (5*Diff[S2[1, n], n, 3]*S2[1, n])/
    96 + (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - (11*S2[-1, Infinity]^4*S2[1, n])/
    96 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/8 + (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 + (5*Half[S2[1, n], n]^2*S2[1, n]^3)/
    24 - (Half[S2[1, n], n]*S2[1, n]^4)/24 - S2[1, n]^5/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 + 
   (5*Diff[S2[1, n], n, 2]*S2[2, Infinity])/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (5*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (21*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (S2[1, n]^3*S2[2, Infinity])/12 - (Half[S2[1, n], n]*S2[2, Infinity]^2)/
    32 + (5*S2[-1, Infinity]*S2[2, Infinity]^2)/8 + 
   (343*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 + 
   (163*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 - 
   (43*Half[S2[1, n], n]^2*S2[3, Infinity])/192 - 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 - 
   (175*S2[1, n]^2*S2[3, Infinity])/192 + 
   (121*S2[2, Infinity]*S2[3, Infinity])/24 - (893*S2[5, Infinity])/64 - 
   2*S2[-4, 1, n] + (3*Half[S2[1, n], n]*S2[-3, 1, n])/8 + 
   (9*S2[1, n]*S2[-3, 1, n])/8 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/4 + (7*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, n] - (7*S2[1, n]^2*S2[-2, 1, n])/4 - 
   S2[2, Infinity]*S2[-2, 1, n] - (3*Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, n])/8 + (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, n])/4 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (23*S2[3, Infinity]*S2[-1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 + (S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 + (Half[S2[1, n], n]^2*S2[2, 1, n])/
    8 + (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 - 
   (3*S2[1, n]^2*S2[2, 1, n])/8 - (7*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (S2[-1, 1, n]*S2[2, 1, n])/2 + S2[4, 1, n] - S2[-3, 1, 1, n] - 
   S2[-2, 1, -2, n]/2 - (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[-2, 1, -1, n])/2 + (Half[S2[1, n], n]*S2[-1, -2, -1, n])/
    8 + (3*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/4 + (S2[1, n]^2*S2[-1, 1, -1, n])/
    4 - (3*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] + S2[1, n]^2*S2[-1, 1, 1, n] + 
   S2[2, Infinity]*S2[-1, 1, 1, n] + (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + 
   (S2[1, n]*S2[1, 2, -1, n])/2 - S2[2, 1, -2, n] + 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 - (S2[1, n]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 - (3*S2[1, n]*S2[2, 1, 1, n])/2 + 
   2*S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n] + (S2[1, n]*S2[-1, 1, -1, -1, n])/
    4 - (S2[1, n]*S2[-1, 1, -1, 1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, n] - S2[1, n]*S2[-1, 1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (11*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - S2[1, 1, -1, 2, n] + 
   S2[2, 1, 1, 1, n] - S2[-1, 1, -1, -1, 1, n]/4 + S2[-1, 1, -1, 1, 1, n]/2 - 
   S2[-1, 1, 1, 1, -1, n]/2 + (5*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   S2[1, -1, -1, 1, -1, n]/2 + (3*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, 1, -1, -1, -1, n])/2 + S2[1, 1, -1, 1, -1, n]/2 + 
   2*S2[1, 1, 1, -1, -1, n], S2[-2, 1, -1, -1, n] -> 
  (-35*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/96 + 
   (185*Diff[Half[S2[1, n], n], n, 4])/576 + Diff[Half[S2[2, 1, n], n], n, 2]/
    32 + Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/6 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/48 + 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (173*Diff[S2[1, n], n, 4])/576 + (17*Diff[S2[-3, 1, n], n, 1])/48 + 
   (13*Diff[S2[-2, 1, n], n, 2])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (27*Diff[S2[-1, 1, n], n, 3])/32 - Diff[S2[2, 1, n], n, 2]/8 - 
   Diff[S2[-1, -2, -1, n], n, 1]/48 - Diff[S2[-1, 1, -1, n], n, 2]/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2])/8 + Diff[S2[1, 2, -1, n], n, 1] + 
   (23*Diff[S2[2, 1, -1, n], n, 1])/24 - Diff[S2[2, 1, 1, n], n, 1] - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1])/24 - Diff[S2[-1, 1, 1, 1, n], n, 1]/
    2 + (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/96 + 
   (43*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/288 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/48 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    48 + (95*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/96 - 
   (269*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/576 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (47*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/96 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/96 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/48 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/48 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[3, 1, 1, n], n]/8 + Half[S2[2, 1, 1, 1, n], n]/4 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^4)/192 + S2[-1, Infinity]^5/320 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/96 - 
   (271*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/288 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/48 + 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/48 - 
   (269*Diff[S2[1, n], n, 1]^2*S2[1, n])/96 + 
   (689*Diff[S2[1, n], n, 3]*S2[1, n])/576 - 
   (4*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/3 - 
   (203*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/96 + 
   (17*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (2*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + (9*S2[-1, Infinity]^4*S2[1, n])/
    64 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 - 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (13*Half[S2[1, n], n]^3*S2[1, n]^2)/48 + 
   (13*Half[S2[2, 1, n], n]*S2[1, n]^2)/48 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/48 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/6 + (37*Half[S2[1, n], n]^2*S2[1, n]^3)/
    48 - (13*Half[S2[1, n], n]*S2[1, n]^4)/16 + (7*S2[1, n]^5)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 - 
   (47*Diff[S2[1, n], n, 2]*S2[2, Infinity])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/3 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (23*Half[S2[1, n], n]^3*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (3*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (65*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (33*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (17*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*S2[1, n]^3*S2[2, Infinity])/32 + 
   (71*Half[S2[1, n], n]*S2[2, Infinity]^2)/64 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (673*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (209*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 - 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/192 - 
   (35*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 + 
   (233*S2[1, n]^2*S2[3, Infinity])/192 - 
   (131*S2[2, Infinity]*S2[3, Infinity])/384 + (175*S2[5, Infinity])/128 + 
   (41*Half[S2[1, n], n]*S2[-3, 1, n])/48 - (41*S2[1, n]*S2[-3, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/12 + 
   (5*Half[S2[1, n], n]^2*S2[-2, 1, n])/12 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/12 + 
   (2*S2[1, n]^2*S2[-2, 1, n])/3 + (S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 - 
   (31*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 + 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (31*S2[1, n]^3*S2[-1, 1, n])/48 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/12 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    16 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/3 + 
   (7*S2[3, Infinity]*S2[-1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 - (S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - 
   (21*S2[1, n]^2*S2[2, 1, n])/16 + (S2[2, Infinity]*S2[2, 1, n])/2 - 
   (S2[-1, 1, n]*S2[2, 1, n])/4 - S2[-3, 1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 + (3*S2[1, n]*S2[-2, 1, -1, n])/
    4 + (11*Half[S2[1, n], n]*S2[-1, -2, -1, n])/48 - 
   (11*S2[1, n]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (19*S2[1, n]^2*S2[-1, 1, -1, n])/48 - (S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 - (Half[S2[1, n], n]^2*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   S2[1, n]^2*S2[-1, 1, 1, n] + (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, 2, -1, n])/4 - (7*S2[1, n]*S2[1, 2, -1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[2, 1, -1, n])/24 - (35*S2[1, n]*S2[2, 1, -1, n])/
    24 - (3*Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + 
   (7*S2[1, n]*S2[2, 1, 1, n])/4 - S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, n])/6 + 
   (7*S2[1, n]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, n])/4 + (S2[1, n]*S2[-1, 1, -1, 1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (19*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (27*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - S2[1, 1, -1, 2, n] - 
   S2[1, 1, 2, -1, n] + S2[1, 2, -1, -1, n] - S2[2, 1, 1, 1, n] + 
   S2[-1, -1, 1, -1, -1, n]/4 + S2[-1, 1, -1, -1, -1, n]/4 - 
   S2[-1, 1, -1, -1, 1, n]/8 - S2[-1, 1, -1, 1, 1, n]/4 + 
   S2[-1, 1, 1, -1, -1, n]/2 + S2[-1, 1, 1, 1, -1, n]/4 - 
   (3*S2[-1, 1, 1, 1, 1, Infinity])/8 - S2[1, -1, -1, -1, -1, n]/2 + 
   S2[1, -1, -1, 1, -1, n]/4 + (7*S2[1, -1, 1, -1, -1, n])/8 + 
   (9*S2[1, 1, -1, -1, -1, n])/4 - S2[1, 1, -1, 1, -1, n]/4 - 
   S2[1, 1, 1, -1, -1, n], S2[-2, 1, -1, 1, n] -> 
  (-9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 - 
   (53*Diff[Half[S2[1, n], n], n, 4])/96 - Diff[Half[S2[2, 1, n], n], n, 2]/
    8 + (47*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/4 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 + 
   (19*Diff[S2[1, n], n, 4])/32 + Diff[S2[-3, 1, n], n, 1]/8 - 
   Diff[S2[-2, 1, n], n, 2] + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (71*Diff[S2[-1, 1, n], n, 3])/48 + Diff[S2[-2, 1, -1, n], n, 1] - 
   Diff[S2[-1, -2, -1, n], n, 1]/8 + Diff[S2[-1, 1, -1, n], n, 2]/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2])/4 - 2*Diff[S2[1, 2, -1, n], n, 1] - 
   (5*Diff[S2[2, 1, -1, n], n, 1])/4 + Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1] + (Diff[Half[S2[1, n], n], n, 1]^2*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[1, n], n], n, 3]*
     Half[S2[1, n], n])/16 - (23*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/
    16 + (77*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + Half[S2[4, 1, n], n]/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/8 + 
   Half[S2[3, 1, 1, n], n]/4 + (5*Half[S2[1, n], n]*S2[-1, Infinity]^4)/96 - 
   (11*S2[-1, Infinity]^5)/480 - (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    16 + (41*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (55*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 - 
   (59*Diff[S2[1, n], n, 3]*S2[1, n])/32 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - (S2[-1, Infinity]^4*S2[1, n])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/8 - (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 - (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    8 + (3*Half[S2[1, n], n]*S2[1, n]^4)/8 - S2[1, n]^5/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (2*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (15*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (119*Half[S2[1, n], n]*S2[2, Infinity]^2)/160 + 
   (71*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (127*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (93*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 - 
   (69*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 - 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/64 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 - 
   (7*S2[1, n]^2*S2[3, Infinity])/64 - (7*S2[2, Infinity]*S2[3, Infinity])/
    4 + (1343*S2[5, Infinity])/128 + S2[-4, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/8 + (3*S2[1, n]*S2[-3, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    4 - Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n] + 
   (3*S2[1, n]^2*S2[-2, 1, n])/4 + (S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, n] + (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (15*S2[3, Infinity]*S2[-1, 1, n])/32 + (3*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 - (Half[S2[1, n], n]^2*S2[2, 1, n])/
    8 - (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + 
   (7*S2[1, n]^2*S2[2, 1, n])/8 + (3*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, n])/2 - S2[4, 1, n] + S2[-3, 1, 1, n] + 
   S2[-2, 1, -2, n] + (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]*S2[-2, 1, -1, n])/2 - (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]*S2[-1, -2, -1, n])/8 + (S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + (3*S2[1, n]*S2[1, 2, -1, n])/2 + 
   S2[2, 1, -2, n] - (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 + 
   (5*S2[1, n]*S2[2, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]*S2[2, 1, 1, n])/2 - S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n] - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - S2[1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, n] + S2[-1, 1, -1, -1, 1, n]/4 + 
   (11*S2[-1, 1, 1, 1, 1, Infinity])/4 - S2[1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, 1, -1, -1, -1, n])/2, 
 S2[-2, 1, 1, -1, n] -> (17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/32 + (29*Diff[Half[S2[1, n], n], n, 4])/
    64 + (3*Diff[Half[S2[2, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (211*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/48 - 
   (31*Diff[S2[1, n], n, 4])/64 + (13*Diff[S2[-3, 1, n], n, 1])/16 + 
   (9*Diff[S2[-2, 1, n], n, 2])/8 - (15*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (115*Diff[S2[-1, 1, n], n, 3])/96 - Diff[S2[2, 1, n], n, 2]/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1])/2 + (3*Diff[S2[-1, -2, -1, n], n, 1])/
    16 - (7*Diff[S2[-1, 1, -1, n], n, 2])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2])/8 + (3*Diff[S2[1, 2, -1, n], n, 1])/2 + 
   (7*Diff[S2[2, 1, -1, n], n, 1])/8 - (3*Diff[S2[2, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 1]/8 - Diff[S2[-1, 1, -1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 + (35*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (43*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/64 + 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 - 
   (3*Half[S2[4, 1, n], n])/16 + (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    16 - Half[S2[3, 1, 1, n], n]/8 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^4)/192 + 
   (31*S2[-1, Infinity]^5)/960 + (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    32 - (47*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (69*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 + 
   (253*Diff[S2[1, n], n, 3]*S2[1, n])/192 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 + 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + (5*S2[-1, Infinity]^4*S2[1, n])/
    64 + (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (3*Half[S2[1, n], n]^3*S2[1, n]^2)/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 - (Half[S2[1, n], n]^2*S2[1, n]^3)/
    48 - (13*Half[S2[1, n], n]*S2[1, n]^4)/48 + S2[1, n]^5/6 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 - 
   (131*Diff[S2[1, n], n, 2]*S2[2, Infinity])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (75*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (25*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (79*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (29*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (9*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (47*S2[1, n]^3*S2[2, Infinity])/96 + 
   (519*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 - 
   (49*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (787*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (287*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 + 
   (19*Diff[S2[1, n], n, 1]*S2[3, Infinity])/24 + 
   (47*Half[S2[1, n], n]^2*S2[3, Infinity])/96 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/24 - 
   (55*S2[1, n]^2*S2[3, Infinity])/96 - (859*S2[2, Infinity]*S2[3, Infinity])/
    384 + (17*S2[5, Infinity])/256 + S2[-4, 1, n]/2 + 
   (17*Half[S2[1, n], n]*S2[-3, 1, n])/16 - (17*S2[1, n]*S2[-3, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 + (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    2 + (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 - 
   (S2[1, n]^2*S2[-2, 1, n])/2 + (3*Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, n])/4 - (25*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, n] - (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/
    16 - (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (9*S2[1, n]^3*S2[-1, 1, n])/16 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    16 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (79*S2[3, Infinity]*S2[-1, 1, n])/64 - (5*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 + (S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - (11*S2[1, n]^2*S2[2, 1, n])/
    16 + (3*S2[2, Infinity]*S2[2, 1, n])/4 - (S2[-1, 1, n]*S2[2, 1, n])/4 + 
   S2[4, 1, n] - S2[-3, 1, 1, n]/2 - S2[-2, 1, -2, n]/2 - 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 + (S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 - 
   (3*S2[1, n]*S2[-1, -2, -1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, n])/16 + (S2[2, Infinity]*S2[-1, 1, -1, n])/
    4 - 2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] - S2[1, n]^2*S2[-1, 1, 1, n] - 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[1, 2, -1, n])/
    4 - (3*S2[1, n]*S2[1, 2, -1, n])/4 - S2[2, 1, -2, n]/2 + 
   (3*Half[S2[1, n], n]*S2[2, 1, -1, n])/8 - (7*S2[1, n]*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + (5*S2[1, n]*S2[2, 1, 1, n])/4 - 
   S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n]/2 + (S2[1, n]*S2[-1, 1, -1, -1, n])/
    8 + (S2[1, n]*S2[-1, 1, -1, 1, n])/2 - Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, n] + S2[1, n]*S2[-1, 1, 1, 1, n] + 
   (19*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (15*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + S2[1, -1, 1, -2, n] + 
   S2[1, 1, -2, -1, n] - S2[1, 1, -1, 2, n]/2 - S2[2, 1, 1, 1, n] + 
   S2[-1, -1, 1, -1, -1, n]/4 + (3*S2[-1, 1, -1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, 1, n]/8 - S2[-1, 1, -1, 1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, n]/2 - (31*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, 1, -1, n]/4 + 
   (3*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, 1, -1, -1, -1, n])/4 - 
   S2[1, 1, -1, 1, -1, n]/2 - 2*S2[1, 1, 1, -1, -1, n], 
 S2[2, -1, -1, -1, n] -> 
  (-25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/96 + 
   (43*Diff[Half[S2[1, n], n], n, 4])/576 + Diff[Half[S2[2, 1, n], n], n, 2]/
    32 + Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/48 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/48 - 
   (31*Diff[S2[1, n], n, 4])/576 + (31*Diff[S2[-3, 1, n], n, 1])/48 + 
   (5*Diff[S2[-2, 1, n], n, 2])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/3 + 
   (19*Diff[S2[-1, 1, n], n, 3])/96 - Diff[S2[2, 1, n], n, 2]/8 + 
   Diff[S2[-1, -2, -1, n], n, 1]/48 - Diff[S2[-1, 1, -1, n], n, 2]/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2])/8 + Diff[S2[2, 1, -1, n], n, 1]/24 - 
   Diff[S2[2, 1, 1, n], n, 1] + (7*Diff[S2[-1, 1, -1, -1, n], n, 1])/24 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/96 + 
   (37*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/288 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 + (53*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/96 - 
   (143*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/576 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (37*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/96 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/96 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/24 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[3, 1, 1, n], n]/8 + Half[S2[2, 1, 1, 1, n], n]/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4)/64 + S2[-1, Infinity]^5/192 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/96 - 
   (73*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/288 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (59*Diff[S2[1, n], n, 1]^2*S2[1, n])/96 + 
   (179*Diff[S2[1, n], n, 3]*S2[1, n])/576 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (73*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/96 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[1, n])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + (3*S2[-1, Infinity]^4*S2[1, n])/
    64 + (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/48 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/24 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]^2)/48 + (Half[S2[2, 1, n], n]*S2[1, n]^2)/
    12 + (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/48 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 + (19*Half[S2[1, n], n]^2*S2[1, n]^3)/
    48 - (7*Half[S2[1, n], n]*S2[1, n]^4)/16 + S2[1, n]^5/6 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 - 
   (5*Diff[S2[1, n], n, 2]*S2[2, Infinity])/32 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (23*Half[S2[1, n], n]^3*S2[2, Infinity])/96 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (7*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (25*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (15*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[1, n]^3*S2[2, Infinity])/32 + 
   (277*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 - 
   (S2[-1, Infinity]*S2[2, Infinity]^2)/32 - (411*S2[1, n]*S2[2, Infinity]^2)/
    320 + (17*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (29*Diff[S2[1, n], n, 1]*S2[3, Infinity])/48 - 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/48 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/48 + 
   (17*S2[1, n]^2*S2[3, Infinity])/48 - (875*S2[2, Infinity]*S2[3, Infinity])/
    384 + (341*S2[5, Infinity])/64 + S2[-4, 1, n] + 
   (23*Half[S2[1, n], n]*S2[-3, 1, n])/48 - (23*S2[1, n]*S2[-3, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/3 + (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    6 - (7*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/12 + 
   (5*S2[1, n]^2*S2[-2, 1, n])/12 + (S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (19*S2[1, n]^3*S2[-1, 1, n])/48 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    16 + (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (11*S2[3, Infinity]*S2[-1, 1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 - (3*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - (7*S2[1, n]^2*S2[2, 1, n])/
    16 + (3*S2[2, Infinity]*S2[2, 1, n])/4 + (S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 + (S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, -2, -1, n])/48 - 
   (5*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/6 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (19*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   S2[1, n]^2*S2[-1, 1, 1, n] - (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/4 - (S2[1, n]*S2[1, 2, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[2, 1, -1, n])/24 - (5*S2[1, n]*S2[2, 1, -1, n])/
    24 - (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + (5*S2[1, n]*S2[2, 1, 1, n])/
    4 - S2[3, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, n])/4 + (S2[1, n]*S2[-1, 1, -1, 1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - S2[1, 1, 2, -1, n] + 
   S2[1, 2, -1, -1, n] - S2[2, 1, 1, 1, n] + S2[-1, -1, 1, -1, -1, n]/4 + 
   S2[-1, 1, -1, -1, -1, n]/4 + S2[-1, 1, -1, -1, 1, n]/8 - 
   S2[-1, 1, -1, 1, 1, n]/4 + S2[-1, 1, 1, -1, -1, n]/2 + 
   S2[-1, 1, 1, 1, -1, n]/4 - (5*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   S2[1, -1, -1, -1, -1, n]/2 - S2[1, -1, -1, 1, -1, n]/4 + 
   S2[1, -1, 1, -1, -1, n]/8 + (3*S2[1, 1, -1, -1, -1, n])/4 - 
   S2[1, 1, -1, 1, -1, n]/4 - S2[1, 1, 1, -1, -1, n], 
 S2[2, -1, -1, 1, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 4])/16 + Diff[Half[S2[2, 1, n], n], n, 2]/
    8 - Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/4 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   (11*Diff[S2[1, n], n, 4])/24 + (3*Diff[S2[-3, 1, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, n], n, 2])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (7*Diff[S2[-1, 1, n], n, 3])/8 - (3*Diff[S2[2, 1, n], n, 2])/4 + 
   Diff[S2[-2, 1, -1, n], n, 1] - Diff[S2[-1, -2, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, -1, n], n, 2]/4 - Diff[S2[-1, 1, 1, n], n, 2]/2 - 
   Diff[S2[1, 2, -1, n], n, 1] - Diff[S2[2, 1, -1, n], n, 1]/2 + 
   Diff[S2[2, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, 1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 - 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (3*Half[S2[4, 1, n], n])/16 + (Half[S2[1, n], n]*S2[-1, Infinity]^4)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[1, n])/4 - (23*Diff[S2[1, n], n, 3]*S2[1, n])/
    24 + (Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 - 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n] + (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (S2[-1, Infinity]^4*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/2 + 
   Diff[S2[1, n], n, 2]*S2[1, n]^2 + Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity] - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity] + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 + 
   S2[1, n]^3*S2[2, Infinity] - (21*Half[S2[1, n], n]*S2[2, Infinity]^2)/20 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]^2)/8 + (17*S2[1, n]*S2[2, Infinity]^2)/
    20 + (31*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 - 
   (33*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - 
   Half[S2[1, n], n]^2*S2[3, Infinity] - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/8 + 
   (11*S2[1, n]^2*S2[3, Infinity])/8 + (19*S2[2, Infinity]*S2[3, Infinity])/
    16 - (205*S2[5, Infinity])/64 + 3*S2[-4, 1, n] - 
   Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n] + S2[1, n]^2*S2[-2, 1, n] + 
   (S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n] + 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] + (3*S2[3, Infinity]*S2[-1, 1, n])/
    4 + S2[-2, 1, n]*S2[-1, 1, n] + S2[1, n]*S2[-1, 1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 + 4*S2[4, 1, n] + 
   S2[-2, 1, -2, n]/2 + S2[1, n]*S2[-2, 1, -1, n] + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] + 2*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   S2[3, 1, 1, n] - S2[1, n]*S2[-1, 1, -1, 1, n] + 
   3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] - 3*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, -1, 1, -2, n] + 
   S2[-1, 1, -1, 1, 1, n] - S2[1, 1, -1, 1, -1, n], 
 S2[2, -1, 1, -1, n] -> 
  (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/32 + 
   (137*Diff[Half[S2[1, n], n], n, 4])/192 + Diff[Half[S2[2, 1, n], n], n, 2]/
    32 - Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 - 
   (51*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   (51*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (325*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/48 - 
   (139*Diff[S2[1, n], n, 4])/192 - (41*Diff[S2[-3, 1, n], n, 1])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2])/8 - (13*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (169*Diff[S2[-1, 1, n], n, 3])/96 + (3*Diff[S2[2, 1, n], n, 2])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1])/2 + Diff[S2[-1, -2, -1, n], n, 1]/16 - 
   (9*Diff[S2[-1, 1, -1, n], n, 2])/16 + (7*Diff[S2[-1, 1, 1, n], n, 2])/8 + 
   (5*Diff[S2[1, 2, -1, n], n, 1])/2 + (13*Diff[S2[2, 1, -1, n], n, 1])/8 - 
   Diff[S2[2, 1, 1, n], n, 1]/2 - (3*Diff[S2[-1, 1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]/2 - (3*Diff[S2[-1, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 + (25*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (115*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/192 - 
   (15*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 - Half[S2[4, 1, n], n]/8 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 - 
   (3*Half[S2[3, 1, 1, n], n])/8 - (41*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    192 + (3*S2[-1, Infinity]^5)/64 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/32 - 
   (85*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (119*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 + 
   (359*Diff[S2[1, n], n, 3]*S2[1, n])/192 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (61*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 + 
   (21*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n] + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[1, n])/16 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + (15*S2[-1, Infinity]^4*S2[1, n])/
    64 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]^2)/16 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 + 
   (53*Half[S2[1, n], n]^2*S2[1, n]^3)/48 - (55*Half[S2[1, n], n]*S2[1, n]^4)/
    48 + (5*S2[1, n]^5)/12 + (15*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, Infinity])/32 - (101*Diff[S2[1, n], n, 2]*S2[2, Infinity])/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/4 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (13*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (55*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (9*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (65*S2[1, n]^3*S2[2, Infinity])/96 + 
   (309*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]^2)/8 - 
   (649*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (65*Diff[S2[1, n], n, 1]*S2[3, Infinity])/96 + 
   (67*Half[S2[1, n], n]^2*S2[3, Infinity])/48 - 
   (35*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/48 + 
   (5*S2[1, n]^2*S2[3, Infinity])/24 + (1691*S2[2, Infinity]*S2[3, Infinity])/
    384 - (4225*S2[5, Infinity])/256 - (11*S2[-4, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-3, 1, n])/16 + (5*S2[1, n]*S2[-3, 1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 - S2[1, n]^2*S2[-2, 1, n] - 
   (5*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/2 - 
   (31*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (15*S2[1, n]^3*S2[-1, 1, n])/16 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, n] - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (37*S2[3, Infinity]*S2[-1, 1, n])/64 - (7*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 - (13*S2[1, n]*S2[-1, 1, n]^2)/
    16 - (23*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (33*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, 1, n])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - 
   (33*S2[1, n]^2*S2[2, 1, n])/16 - (5*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (3*S2[-1, 1, n]*S2[2, 1, n])/4 - 2*S2[4, 1, n] - (3*S2[-3, 1, 1, n])/2 - 
   S2[-2, 1, -2, n] - (3*Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[-2, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[-1, -2, -1, n])/
    16 - (S2[1, n]*S2[-1, -2, -1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (13*S2[1, n]^2*S2[-1, 1, -1, n])/16 + (S2[2, Infinity]*S2[-1, 1, -1, n])/
    2 - Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] - 3*S2[1, n]^2*S2[-1, 1, 1, n] + 
   S2[2, Infinity]*S2[-1, 1, 1, n] + S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 2, -1, n])/4 - (9*S2[1, n]*S2[1, 2, -1, n])/4 - 
   (3*S2[2, 1, -2, n])/2 + (Half[S2[1, n], n]*S2[2, 1, -1, n])/8 - 
   (13*S2[1, n]*S2[2, 1, -1, n])/8 - (3*Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + 
   (7*S2[1, n]*S2[2, 1, 1, n])/4 + S2[3, 1, 1, n] - 
   (3*S2[-2, 1, 1, 1, n])/2 + (3*S2[1, n]*S2[-1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, n] + 4*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   (41*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (45*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + S2[1, -1, 1, -2, n] + 
   S2[1, 1, -2, -1, n] - (3*S2[1, 1, -1, 2, n])/2 - S2[2, 1, 1, 1, n] - 
   S2[-1, -1, 1, -1, -1, n]/4 - (3*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[-1, 1, -1, -1, 1, n])/8 - (3*S2[-1, 1, -1, 1, 1, n])/2 + 
   S2[-1, 1, 1, 1, -1, n]/2 - (45*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, -1, -1, -1, -1, n])/2 + (3*S2[1, -1, -1, 1, -1, n])/4 + 
   (9*S2[1, -1, 1, -1, -1, n])/8 + (9*S2[1, 1, -1, -1, -1, n])/4 + 
   S2[1, 1, -1, 1, -1, n]/2 - 2*S2[1, 1, 1, -1, -1, n], 
 S2[2, -1, 1, 1, n] -> -Diff[Half[S2[1, n], n], n, 4]/3 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 - 
   3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] + Diff[S2[1, n], n, 4]/3 - 
   Diff[S2[-3, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 2] + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, n], n, 3])/6 - Diff[S2[1, 2, -1, n], n, 1] - 
   Diff[S2[2, 1, -1, n], n, 1] + 2*Diff[S2[-1, 1, 1, 1, n], n, 1] - 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 + S2[-1, Infinity]^5/60 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/6 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   3*Diff[S2[1, n], n, 1]^2*S2[1, n] - (4*Diff[S2[1, n], n, 3]*S2[1, n])/3 + 
   2*Diff[S2[-2, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/2 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (S2[-1, Infinity]^4*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/2 + 
   2*Diff[S2[1, n], n, 2]*S2[1, n]^2 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/
    2 + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]^3 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 + 
   Diff[S2[1, n], n, 2]*S2[2, Infinity] - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/3 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, Infinity] - 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[2, Infinity] + (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (S2[1, n]^3*S2[2, Infinity])/2 + (Half[S2[1, n], n]*S2[2, Infinity]^2)/2 - 
   (8*S2[-1, Infinity]*S2[2, Infinity]^2)/5 + (53*S2[1, n]*S2[2, Infinity]^2)/
    40 + (Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 - 
   (S2[1, n]^2*S2[3, Infinity])/16 - (9*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (5*S2[5, Infinity])/16 + S2[-4, 1, n] + 2*S2[1, n]*S2[-3, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 - (S2[1, n]^2*S2[-2, 1, n])/2 - 
   (S2[2, Infinity]*S2[-2, 1, n])/2 + Diff[S2[1, n], n, 2]*S2[-1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n] + S2[1, n]*S2[2, Infinity]*
    S2[-1, 1, n] + S2[-3, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] - 
   S2[2, Infinity]*S2[-1, 1, 1, n] + S2[1, n]*S2[1, 2, -1, n] + 
   S2[1, n]*S2[2, 1, -1, n] + 2*S2[-2, 1, 1, 1, n] + 
   2*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, 1, -1, 2, n] - 
   2*S2[-1, 1, 1, 1, 1, Infinity], S2[2, 1, -1, -1, n] -> 
  (-3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 4])/96 - Diff[Half[S2[2, 1, n], n], n, 2]/
    8 + Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/4 - 
   (53*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/24 + 
   (25*Diff[S2[1, n], n, 4])/96 + (3*Diff[S2[-3, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 2]/4 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (11*Diff[S2[-1, 1, n], n, 3])/16 + Diff[S2[2, 1, n], n, 2]/4 + 
   Diff[S2[-1, -2, -1, n], n, 1]/8 - Diff[S2[-1, 1, 1, n], n, 2]/4 - 
   Diff[S2[1, 2, -1, n], n, 1] - (3*Diff[S2[2, 1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 - 
   (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (15*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/32 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + 
   (5*Half[S2[4, 1, n], n])/16 - (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    8 + Half[S2[3, 1, 1, n], n]/4 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    32 - S2[-1, Infinity]^5/160 - (5*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[1, n])/16 + (13*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (39*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 - 
   (35*Diff[S2[1, n], n, 3]*S2[1, n])/32 + Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] + (27*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - (13*S2[-1, Infinity]^4*S2[1, n])/
    96 - (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^2)/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^2)/4 + (Half[S2[1, n], n]^3*S2[1, n]^2)/8 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^3)/24 + (17*Half[S2[1, n], n]*S2[1, n]^4)/
    24 - (7*S2[1, n]^5)/24 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/
    16 + (17*Diff[S2[1, n], n, 2]*S2[2, Infinity])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/2 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (13*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (S2[1, n]^3*S2[2, Infinity])/12 - (83*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    160 - (21*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (57*S2[1, n]*S2[2, Infinity]^2)/32 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 + 
   (115*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 - 
   (85*Half[S2[1, n], n]^2*S2[3, Infinity])/192 + 
   (55*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 - 
   (169*S2[1, n]^2*S2[3, Infinity])/192 - 
   (47*S2[2, Infinity]*S2[3, Infinity])/24 + (417*S2[5, Infinity])/64 - 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/8 + (3*S2[1, n]*S2[-3, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    4 - (S2[1, n]^2*S2[-2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n] - (3*S2[1, n]^3*S2[-1, 1, n])/
    4 - (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[3, Infinity]*S2[-1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 - (Half[S2[1, n], n]^2*S2[2, 1, n])/
    8 - (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + 
   (11*S2[1, n]^2*S2[2, 1, n])/8 + (S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, n])/2 - 2*S2[4, 1, n] + S2[-3, 1, 1, n] + 
   S2[-2, 1, -2, n]/2 + (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]*S2[-2, 1, -1, n])/2 - (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]*S2[-1, -2, -1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/
    4 + (S2[1, n]^2*S2[-1, 1, -1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 - Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, 1, n] - S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + (3*S2[1, n]*S2[1, 2, -1, n])/2 + 
   S2[2, 1, -2, n] - (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 + 
   (5*S2[1, n]*S2[2, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[2, 1, 1, n])/2 - S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n] - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/4 - (S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] - S2[1, n]*S2[-1, 1, 1, 1, n] - 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (13*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - S2[1, 1, -2, -1, n] + 
   S2[1, 1, -1, 2, n] - S2[1, 2, -1, -1, n] + S2[2, 1, 1, 1, n] + 
   S2[-1, 1, -1, -1, 1, n]/4 + S2[-1, 1, -1, 1, 1, n]/2 - 
   S2[-1, 1, 1, 1, -1, n]/2 + (3*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   S2[1, -1, -1, 1, -1, n]/2 - (3*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, 1, -1, -1, -1, n])/2 + S2[1, 1, -1, 1, -1, n]/2 + 
   2*S2[1, 1, 1, -1, -1, n], S2[2, 1, -1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 4]/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 + Diff[S2[1, n], n, 4]/24 + 
   2*Diff[S2[-3, 1, n], n, 1] + Diff[S2[-2, 1, n], n, 2]/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, n], n, 3]/3 - Diff[S2[-1, 1, 1, n], n, 2] - 
   Diff[S2[-1, 1, 1, 1, n], n, 1] + S2[-1, Infinity]^5/120 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/6 + 
   (Diff[S2[1, n], n, 3]*S2[1, n])/6 - Diff[S2[-2, 1, n], n, 1]*S2[1, n] + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/2 - 
   Diff[S2[1, n], n, 2]*S2[1, n]^2 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/
    2 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^3 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/3 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, Infinity] + (5*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[2, Infinity])/2 + (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[1, n]^3*S2[2, Infinity])/2 + (Half[S2[1, n], n]*S2[2, Infinity]^2)/2 - 
   (4*S2[-1, Infinity]*S2[2, Infinity]^2)/5 - (71*S2[1, n]*S2[2, Infinity]^2)/
    40 - Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity] + 
   (43*Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 + 
   Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity] - 
   (15*S2[1, n]^2*S2[3, Infinity])/16 - (49*S2[2, Infinity]*S2[3, Infinity])/
    16 + (167*S2[5, Infinity])/32 + 2*S2[-4, 1, n] - 
   3*S2[1, n]*S2[-3, 1, n] - (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, n])/2 + (S2[2, Infinity]*S2[-2, 1, n])/2 - 
   S2[3, Infinity]*S2[-1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[2, 1, n] - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, n] + S2[1, n]^2*S2[2, 1, n] + (S2[2, Infinity]*S2[2, 1, n])/2 + 
   S2[-1, 1, n]*S2[2, 1, n] + 2*S2[-3, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] - S2[2, Infinity]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[1, 2, -1, n] + S2[2, 1, -2, n] - S2[-2, 1, 1, 1, n] - 
   S2[1, -1, 1, 2, n] - S2[1, 1, -1, 2, n] - S2[-1, 1, 1, 1, 1, Infinity], 
 S2[2, 1, 1, -1, n] -> (13*Diff[Half[S2[1, n], n], n, 4])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 - 
   (13*Diff[S2[1, n], n, 4])/48 - Diff[S2[-3, 1, n], n, 1] + 
   Diff[S2[-2, 1, n], n, 2]/4 - (9*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/4 + (5*Diff[S2[-1, 1, n], n, 3])/6 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2])/4 + Diff[S2[1, 2, -1, n], n, 1] + 
   Diff[S2[2, 1, -1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, n], n, 1]/2 + 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/8 - S2[-1, Infinity]^5/48 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (9*Diff[S2[1, n], n, 1]^2*S2[1, n])/4 + (7*Diff[S2[1, n], n, 3]*S2[1, n])/
    8 - (Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (S2[-1, Infinity]^4*S2[1, n])/24 - (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[1, n]^3*S2[2, Infinity])/4 - (3*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    4 + (35*S2[-1, Infinity]*S2[2, Infinity]^2)/16 + 
   (89*S2[1, n]*S2[2, Infinity]^2)/80 + Diff[Half[S2[1, n], n], n, 1]*
    S2[3, Infinity] - (75*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - 
   Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity] + 
   (45*S2[1, n]^2*S2[3, Infinity])/32 + (65*S2[2, Infinity]*S2[3, Infinity])/
    16 - (677*S2[5, Infinity])/128 - (3*S2[-4, 1, n])/2 + 
   2*S2[1, n]*S2[-3, 1, n] - (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, n])/4 + (S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + S2[3, Infinity]*S2[-1, 1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n] + Diff[S2[1, n], n, 1]*
    S2[2, 1, n] + Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n] - 
   S2[1, n]^2*S2[2, 1, n] - (3*S2[2, Infinity]*S2[2, 1, n])/4 - 
   S2[-1, 1, n]*S2[2, 1, n] - (5*S2[-3, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] + (3*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - (S2[1, n]*S2[1, 2, -1, n])/2 - S2[2, 1, -2, n]/2 - 
   (S2[1, n]*S2[2, 1, -1, n])/2 - S2[-2, 1, 1, 1, n]/2 - 
   S2[1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, -1, 1, 2, n] + 
   S2[1, 1, -1, 2, n]/2 + S2[1, 1, 2, -1, n] + 
   (5*S2[-1, 1, 1, 1, 1, Infinity])/2, S2[-1, -2, -1, -1, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 4])/64 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (11*Diff[S2[1, n], n, 4])/64 + (49*Diff[S2[-3, 1, n], n, 1])/16 + 
   (9*Diff[S2[-2, 1, n], n, 2])/8 - (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (55*Diff[S2[-1, 1, n], n, 3])/96 - (5*Diff[S2[2, 1, n], n, 2])/8 - 
   Diff[S2[-2, 1, -1, n], n, 1]/2 - Diff[S2[-1, -2, -1, n], n, 1]/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2])/16 + Diff[S2[-1, 1, 1, n], n, 2]/8 + 
   Diff[S2[1, 2, -1, n], n, 1]/2 + (3*Diff[S2[2, 1, -1, n], n, 1])/8 - 
   (7*Diff[S2[2, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 + (35*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (43*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/64 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 - 
   (9*Half[S2[4, 1, n], n])/16 + (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    16 - Half[S2[3, 1, 1, n], n]/8 - 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^4)/64 + 
   (47*S2[-1, Infinity]^5)/960 + (25*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[1, n])/32 - (59*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (45*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 + 
   (181*Diff[S2[1, n], n, 3]*S2[1, n])/192 - 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] - (55*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 + 
   (27*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + (55*S2[-1, Infinity]^4*S2[1, n])/
    192 + (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (3*Half[S2[1, n], n]^3*S2[1, n]^2)/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 + (5*Half[S2[1, n], n]^2*S2[1, n]^3)/
    16 - (15*Half[S2[1, n], n]*S2[1, n]^4)/16 + S2[1, n]^5/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 - 
   (41*Diff[S2[1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (17*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (79*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (61*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (55*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (97*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (21*S2[1, n]^3*S2[2, Infinity])/32 + 
   (959*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 - 
   (23*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (1819*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (69*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 + 
   (37*Half[S2[1, n], n]^2*S2[3, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/4 + 
   (7*S2[1, n]^2*S2[3, Infinity])/32 - (905*S2[2, Infinity]*S2[3, Infinity])/
    128 + (3977*S2[5, Infinity])/256 + (13*S2[-4, 1, n])/2 + 
   (49*Half[S2[1, n], n]*S2[-3, 1, n])/16 - (49*S2[1, n]*S2[-3, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, n])/2 + (S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (25*S2[1, n]^3*S2[-1, 1, n])/16 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (39*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    16 - (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (39*S2[3, Infinity]*S2[-1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 + (S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (15*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - (27*S2[1, n]^2*S2[2, 1, n])/
    16 + (11*S2[2, Infinity]*S2[2, 1, n])/4 - (S2[-1, 1, n]*S2[2, 1, n])/4 + 
   4*S2[4, 1, n] - S2[-3, 1, 1, n]/2 - S2[-2, 1, -2, n]/2 - 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 + (S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 - 
   (3*S2[1, n]*S2[-1, -2, -1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (11*S2[1, n]^2*S2[-1, 1, -1, n])/16 - (S2[2, Infinity]*S2[-1, 1, -1, n])/
    4 + 3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, n] + (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/4 - (3*S2[1, n]*S2[1, 2, -1, n])/4 - 
   S2[2, 1, -2, n]/2 + (11*Half[S2[1, n], n]*S2[2, 1, -1, n])/8 - 
   (15*S2[1, n]*S2[2, 1, -1, n])/8 - (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + 
   (13*S2[1, n]*S2[2, 1, 1, n])/4 - 4*S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n]/2 - 
   Half[S2[1, n], n]*S2[-1, 1, -1, -1, n] + (9*S2[1, n]*S2[-1, 1, -1, -1, n])/
    8 + (3*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, n] + 3*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   (51*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (55*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 3*S2[1, 1, -2, -1, n] - 
   S2[1, 1, -1, 2, n]/2 + 3*S2[1, 2, -1, -1, n] - 3*S2[2, 1, 1, 1, n] + 
   (9*S2[-1, -1, 1, -1, -1, n])/4 + (15*S2[-1, 1, -1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, 1, n]/8 - (3*S2[-1, 1, -1, 1, 1, n])/2 + 
   (3*S2[-1, 1, 1, 1, -1, n])/2 - (47*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, 1, -1, n]/4 + 
   (3*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, 1, -1, 1, -1, n])/2 - 6*S2[1, 1, 1, -1, -1, n], 
 S2[-1, -2, -1, 1, n] -> 
  (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 4])/96 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   (13*Diff[S2[1, n], n, 4])/96 - (7*Diff[S2[-3, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 2]/4 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (13*Diff[S2[-1, 1, n], n, 3])/48 - Diff[S2[-1, -2, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, n], n, 2]/2 + Diff[S2[2, 1, -1, n], n, 1]/4 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1])/4 + Diff[S2[-1, 1, 1, 1, n], n, 1]/
    2 + (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    2 + (91*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (51*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/32 + 
   4*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] + 
   (59*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (9*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/8 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4)/32 + S2[-1, Infinity]^5/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (95*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 + 
   (51*Diff[S2[1, n], n, 3]*S2[1, n])/32 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (59*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (9*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + (13*S2[-1, Infinity]^4*S2[1, n])/
    32 + (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/8 - (5*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^3)/8 - (3*Half[S2[1, n], n]*S2[1, n]^4)/
    8 + S2[1, n]^5/8 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^3*S2[2, Infinity])/2 - 
   (3*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (27*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (3*S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (35*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (21*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (33*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (81*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (5*S2[1, n]^3*S2[2, Infinity])/4 + 
   (217*Half[S2[1, n], n]*S2[2, Infinity]^2)/32 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]^2)/4 - 
   (1031*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 - 
   (39*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 - 
   (93*Half[S2[1, n], n]^2*S2[3, Infinity])/64 - 
   (35*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 + 
   (149*S2[1, n]^2*S2[3, Infinity])/64 + (7*S2[2, Infinity]*S2[3, Infinity])/
    32 - (373*S2[5, Infinity])/64 - S2[-4, 1, n]/2 + 
   (27*Half[S2[1, n], n]*S2[-3, 1, n])/8 - (19*S2[1, n]*S2[-3, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 + 
   (9*Half[S2[1, n], n]^2*S2[-2, 1, n])/4 - 8*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, n] + (11*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, n] + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (7*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, n])/4 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (17*S2[3, Infinity]*S2[-1, 1, n])/32 + (7*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (11*Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (11*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 + 
   (9*Half[S2[1, n], n]^2*S2[2, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + 
   (S2[1, n]^2*S2[2, 1, n])/8 + (S2[2, Infinity]*S2[2, 1, n])/2 + 
   (5*S2[-1, 1, n]*S2[2, 1, n])/2 - S2[-3, 1, 1, n]/2 - 
   (9*Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 + (9*S2[1, n]*S2[-2, 1, -1, n])/
    2 + (9*Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]*S2[-1, -2, -1, n])/8 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, n])/2 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n] - 
   S2[1, n]^2*S2[-1, 1, -1, n] + (3*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - 3*Half[S2[1, n], n]^2*
    S2[-1, 1, 1, n] + 6*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, n] - (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[1, 2, -1, n])/2 - 4*S2[1, n]*S2[1, 2, -1, n] - 
   S2[2, 1, -2, n]/2 + (9*Half[S2[1, n], n]*S2[2, 1, -1, n])/4 - 
   (7*S2[1, n]*S2[2, 1, -1, n])/4 - (7*Half[S2[1, n], n]*S2[2, 1, 1, n])/2 + 
   (7*S2[1, n]*S2[2, 1, 1, n])/2 + S2[-2, 1, 1, 1, n]/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (39*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (39*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + S2[1, -1, 1, 2, n] - 
   S2[1, 1, -1, 2, n]/2 - S2[1, 1, 2, -1, n] + S2[-1, 1, -1, -1, 1, n]/4 + 
   3*S2[-1, 1, 1, -1, -1, n] - (15*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, -1, -1, 1, -1, n])/2 - (3*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, 1, -1, -1, -1, n])/2, S2[-1, -2, 1, -1, n] -> 
  (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/24 - 
   (31*Diff[Half[S2[1, n], n], n, 4])/144 - Diff[Half[S2[2, 1, n], n], n, 2]/
    16 - Diff[Half[S2[2, 1, 1, n], n], n, 1]/2 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/48 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/24 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   (25*Diff[S2[1, n], n, 4])/144 - (4*Diff[S2[-3, 1, n], n, 1])/3 - 
   (7*Diff[S2[-2, 1, n], n, 2])/12 - (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/12 + 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (13*Diff[S2[-1, 1, n], n, 3])/24 + Diff[S2[2, 1, n], n, 2]/4 - 
   Diff[S2[-1, -2, -1, n], n, 1]/3 + Diff[S2[-1, 1, -1, n], n, 2]/8 - 
   Diff[S2[-1, 1, 1, n], n, 2]/2 - (2*Diff[S2[2, 1, -1, n], n, 1])/3 + 
   2*Diff[S2[2, 1, 1, n], n, 1] - (2*Diff[S2[-1, 1, -1, -1, n], n, 1])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/12 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/36 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/12 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    24 - (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/3 + 
   (10*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/9 - 
   (8*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/6 + 
   (2*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/3 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/12 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/12 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/48 + 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/2 - 
   Half[S2[3, 1, 1, n], n]/4 - Half[S2[2, 1, 1, 1, n], n]/2 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^4)/48 + S2[-1, Infinity]^5/40 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/9 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/6 - 
   (119*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/24 + 
   (121*Diff[S2[1, n], n, 1]^2*S2[1, n])/24 - 
   (113*Diff[S2[1, n], n, 3]*S2[1, n])/72 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/3 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/3 - Diff[S2[2, 1, n], n, 1]*
    S2[1, n] - (2*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/3 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   4*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Half[S2[1, n], n]^4*S2[1, n])/24 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   Half[S2[2, 1, 1, n], n]*S2[1, n] - (17*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^2)/6 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/6 + (13*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    48 - (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/24 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^3)/12 + (Half[S2[1, n], n]*S2[1, n]^4)/2 - 
   (5*S2[1, n]^5)/24 + (35*Diff[S2[1, n], n, 2]*S2[2, Infinity])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (95*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (47*Half[S2[1, n], n]^3*S2[2, Infinity])/48 + 
   (7*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (11*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/24 - 
   (155*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (51*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (17*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (51*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (61*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (13*S2[1, n]^3*S2[2, Infinity])/16 - 
   (141*Half[S2[1, n], n]*S2[2, Infinity]^2)/40 - 
   (51*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (493*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/16 + 
   (433*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 + 
   (149*Half[S2[1, n], n]^2*S2[3, Infinity])/192 + 
   (55*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 - 
   (523*S2[1, n]^2*S2[3, Infinity])/192 + 
   (797*S2[2, Infinity]*S2[3, Infinity])/192 - (2013*S2[5, Infinity])/128 - 
   2*S2[-4, 1, n] - (25*Half[S2[1, n], n]*S2[-3, 1, n])/12 + 
   (37*S2[1, n]*S2[-3, 1, n])/12 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/3 + (25*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/12 - 
   (13*Half[S2[1, n], n]^2*S2[-2, 1, n])/12 + 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/6 - 
   (55*S2[1, n]^2*S2[-2, 1, n])/12 - (5*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/24 - Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, n] - (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, n])/3 + (95*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, n])/24 + (Half[S2[1, n], n]^3*S2[-1, 1, n])/24 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 - 
   (119*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (13*S2[1, n]^3*S2[-1, 1, n])/24 - (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (25*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (3*S2[3, Infinity]*S2[-1, 1, n])/4 - 3*S2[-2, 1, n]*S2[-1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, n]^2 + S2[1, n]*S2[-1, 1, n]^2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 - (Half[S2[1, n], n]^2*S2[2, 1, n])/
    2 + Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n] + (S2[1, n]^2*S2[2, 1, n])/2 - 
   (9*S2[2, Infinity]*S2[2, 1, n])/4 - 2*S2[-1, 1, n]*S2[2, 1, n] + 
   3*Half[S2[1, n], n]*S2[-2, 1, -1, n] - 3*S2[1, n]*S2[-2, 1, -1, n] - 
   (7*Half[S2[1, n], n]*S2[-1, -2, -1, n])/12 + 
   (7*S2[1, n]*S2[-1, -2, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (19*S2[1, n]^2*S2[-1, 1, -1, n])/24 - (S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 - (S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + 2*Half[S2[1, n], n]^2*
    S2[-1, 1, 1, n] - 5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[1, 2, -1, n] + 
   3*S2[1, n]*S2[1, 2, -1, n] - (7*Half[S2[1, n], n]*S2[2, 1, -1, n])/6 + 
   (13*S2[1, n]*S2[2, 1, -1, n])/6 + 2*Half[S2[1, n], n]*S2[2, 1, 1, n] - 
   4*S2[1, n]*S2[2, 1, 1, n] + 2*S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, n])/3 - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/3 + Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, n] - (3*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] - S2[1, n]*S2[-1, 1, 1, 1, n] - 
   (11*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (17*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - S2[1, -1, 1, 2, n] + 
   S2[1, 1, 2, -1, n] - 2*S2[1, 2, -1, -1, n] + 2*S2[2, 1, 1, 1, n] - 
   S2[-1, -1, 1, -1, -1, n]/2 - S2[-1, 1, -1, -1, -1, n]/2 + 
   S2[-1, 1, -1, 1, 1, n]/2 - 2*S2[-1, 1, 1, -1, -1, n] - 
   S2[-1, 1, 1, 1, -1, n]/2 - 3*S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, -1, -1, -1, n] + S2[1, -1, -1, 1, -1, n] + 
   S2[1, -1, 1, -1, -1, n] + S2[1, 1, -1, 1, -1, n]/2 + 
   2*S2[1, 1, 1, -1, -1, n], S2[-1, -2, 1, 1, n] -> 
  (-25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/32 + 
   (49*Diff[Half[S2[1, n], n], n, 4])/192 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (19*Diff[S2[1, n], n, 4])/192 - (5*Diff[S2[-3, 1, n], n, 1])/16 + 
   (3*Diff[S2[-2, 1, n], n, 2])/8 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (37*Diff[S2[-1, 1, n], n, 3])/96 + Diff[S2[2, 1, n], n, 2]/8 - 
   Diff[S2[-2, 1, -1, n], n, 1]/2 + (5*Diff[S2[-1, -2, -1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2])/16 + (3*Diff[S2[-1, 1, 1, n], n, 2])/8 + 
   Diff[S2[1, 2, -1, n], n, 1]/2 + Diff[S2[2, 1, -1, n], n, 1]/8 - 
   Diff[S2[2, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (21*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 - (35*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (65*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/192 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] - 
   (43*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 + 
   (5*Half[S2[4, 1, n], n])/16 - (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    16 + Half[S2[3, 1, 1, n], n]/8 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^4)/192 + S2[-1, Infinity]^5/960 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 + (9*Diff[S2[1, n], n, 3]*S2[1, n])/
    64 - (Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 + Diff[Half[S2[1, n], n], n, 2]*
    Half[S2[1, n], n]*S2[1, n] - (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[1, n])/8 + (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/
    4 + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + (S2[-1, Infinity]^4*S2[1, n])/
    192 - (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 + (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    16 - (Half[S2[1, n], n]*S2[1, n]^4)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (43*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (23*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (13*S2[1, n]^3*S2[2, Infinity])/32 - 
   (583*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 - 
   (23*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (159*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (15*Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 - 
   (5*Half[S2[1, n], n]^2*S2[3, Infinity])/32 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/8 + 
   (23*S2[1, n]^2*S2[3, Infinity])/32 + (57*S2[2, Infinity]*S2[3, Infinity])/
    128 - (75*S2[5, Infinity])/256 - (5*S2[-4, 1, n])/2 - 
   (33*Half[S2[1, n], n]*S2[-3, 1, n])/16 + (9*S2[1, n]*S2[-3, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, n])/2 + (S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (S2[1, n]^3*S2[-1, 1, n])/16 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[3, Infinity]*S2[-1, 1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 - (S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[2, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 + 
   (3*S2[1, n]^2*S2[2, 1, n])/16 + (S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, n])/4 - 2*S2[4, 1, n] + S2[-3, 1, 1, n]/2 + 
   S2[-2, 1, -2, n]/2 + (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[-2, 1, -1, n])/4 - (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/
    16 - (5*S2[1, n]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, 1, -1, n])/16 - (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[1, 2, -1, n])/4 - (S2[1, n]*S2[1, 2, -1, n])/4 + 
   S2[2, 1, -2, n]/2 - (11*Half[S2[1, n], n]*S2[2, 1, -1, n])/8 + 
   (7*S2[1, n]*S2[2, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + 
   (3*S2[1, n]*S2[2, 1, 1, n])/4 + S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n]/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/8 - 
   (19*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - S2[1, 1, -2, -1, n] + 
   S2[1, 1, -1, 2, n]/2 - S2[-1, -1, 1, -1, -1, n]/4 - 
   (3*S2[-1, 1, -1, -1, -1, n])/4 + S2[-1, 1, -1, -1, 1, n]/8 - 
   S2[-1, 1, 1, 1, 1, Infinity]/8 - (3*S2[1, -1, -1, -1, -1, n])/2 - 
   S2[1, -1, -1, 1, -1, n]/4 - (3*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, 1, -1, -1, -1, n])/4, S2[-1, 2, -1, -1, n] -> 
  (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 4])/192 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2])/32 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (31*Diff[S2[1, n], n, 4])/192 - (49*Diff[S2[-3, 1, n], n, 1])/16 - 
   (3*Diff[S2[-2, 1, n], n, 2])/8 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (29*Diff[S2[-1, 1, n], n, 3])/96 + (3*Diff[S2[2, 1, n], n, 2])/8 + 
   Diff[S2[-1, -2, -1, n], n, 1]/16 + (3*Diff[S2[-1, 1, -1, n], n, 2])/16 - 
   Diff[S2[-1, 1, 1, n], n, 2]/8 + Diff[S2[1, 2, -1, n], n, 1] + 
   (5*Diff[S2[2, 1, -1, n], n, 1])/8 + 3*Diff[S2[2, 1, 1, n], n, 1] - 
   (9*Diff[S2[-1, 1, -1, -1, n], n, 1])/8 - Diff[S2[-1, 1, 1, 1, n], n, 1] - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 - (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (13*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/192 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] - 
   (23*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 - 
   (3*Half[S2[3, 1, 1, n], n])/8 - (3*Half[S2[2, 1, 1, 1, n], n])/4 + 
   (25*Half[S2[1, n], n]*S2[-1, Infinity]^4)/192 - 
   (29*S2[-1, Infinity]^5)/960 - (13*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[1, n])/32 + (13*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 - 
   (17*Diff[S2[1, n], n, 3]*S2[1, n])/192 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (43*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 - 
   (19*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[1, n])/16 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (13*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (41*S2[-1, Infinity]^4*S2[1, n])/192 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^2)/16 - (Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 - (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^3)/16 + (15*Half[S2[1, n], n]*S2[1, n]^4)/
    16 - (3*S2[1, n]^5)/8 + (21*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, Infinity])/32 - (Diff[S2[1, n], n, 2]*S2[2, Infinity])/32 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (23*Half[S2[1, n], n]^3*S2[2, Infinity])/32 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/4 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (19*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (79*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (35*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (79*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (9*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (15*S2[1, n]^3*S2[2, Infinity])/32 - 
   (529*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 + 
   (119*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (1623*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 + 
   (83*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 + 
   (35*Half[S2[1, n], n]^2*S2[3, Infinity])/64 - 
   (57*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 - 
   (19*S2[1, n]^2*S2[3, Infinity])/64 + 
   (1067*S2[2, Infinity]*S2[3, Infinity])/128 - (1345*S2[5, Infinity])/64 - 
   (9*S2[-4, 1, n])/2 - (17*Half[S2[1, n], n]*S2[-3, 1, n])/16 + 
   (65*S2[1, n]*S2[-3, 1, n])/16 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/8 + Diff[S2[1, n], n, 1]*S2[-2, 1, n] - 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 - 
   (7*S2[1, n]^2*S2[-2, 1, n])/4 - (S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, n] + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 + 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (15*S2[1, n]^3*S2[-1, 1, n])/16 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (51*S2[3, Infinity]*S2[-1, 1, n])/64 - (5*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 + (11*S2[1, n]*S2[-1, 1, n]^2)/
    16 - (23*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 + 
   (7*S2[1, n]^2*S2[2, 1, n])/16 - (11*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (5*S2[-1, 1, n]*S2[2, 1, n])/4 - (5*S2[-3, 1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 - (5*S2[1, n]*S2[-2, 1, -1, n])/
    4 - (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 + 
   (3*S2[1, n]*S2[-1, -2, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (19*S2[1, n]^2*S2[-1, 1, -1, n])/16 - (S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 + (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, n])/2 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   3*S2[1, n]^2*S2[-1, 1, 1, n] + S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/4 + (3*S2[1, n]*S2[1, 2, -1, n])/4 - 
   S2[2, 1, -2, n]/2 - (3*Half[S2[1, n], n]*S2[2, 1, -1, n])/8 + 
   (7*S2[1, n]*S2[2, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 - 
   (13*S2[1, n]*S2[2, 1, 1, n])/4 + 3*S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (25*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (41*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + S2[1, 1, -1, 2, n]/2 + 
   3*S2[1, 1, 2, -1, n] - 3*S2[1, 2, -1, -1, n] + 3*S2[2, 1, 1, 1, n] - 
   (3*S2[-1, -1, 1, -1, -1, n])/4 - (3*S2[-1, 1, -1, -1, -1, n])/4 - 
   (5*S2[-1, 1, -1, -1, 1, n])/8 + (3*S2[-1, 1, -1, 1, 1, n])/4 - 
   (3*S2[-1, 1, 1, -1, -1, n])/2 - (3*S2[-1, 1, 1, 1, -1, n])/4 + 
   (29*S2[-1, 1, 1, 1, 1, Infinity])/8 + (3*S2[1, -1, -1, -1, -1, n])/2 + 
   (5*S2[1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, 1, -1, -1, -1, n])/4 + (3*S2[1, 1, -1, 1, -1, n])/4 + 
   3*S2[1, 1, 1, -1, -1, n], S2[-1, 2, -1, 1, n] -> 
  (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/32 - 
   (31*Diff[Half[S2[1, n], n], n, 4])/192 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/48 + 
   (17*Diff[S2[1, n], n, 4])/192 + (39*Diff[S2[-3, 1, n], n, 1])/16 + 
   (3*Diff[S2[-2, 1, n], n, 2])/8 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (9*Diff[S2[-1, 1, n], n, 3])/32 - (3*Diff[S2[2, 1, n], n, 2])/8 + 
   Diff[S2[-2, 1, -1, n], n, 1]/2 + Diff[S2[-1, -2, -1, n], n, 1]/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2])/16 - Diff[S2[-1, 1, 1, n], n, 2]/8 - 
   Diff[S2[1, 2, -1, n], n, 1]/2 - (3*Diff[S2[2, 1, -1, n], n, 1])/8 + 
   Diff[S2[2, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]/2 + Diff[S2[-1, 1, 1, 1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 - (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (25*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (27*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 - Half[S2[4, 1, n], n]/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[3, 1, 1, n], n]/8 - (Half[S2[1, n], n]*S2[-1, Infinity]^4)/192 - 
   (11*S2[-1, Infinity]^5)/192 - (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    32 + (59*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (33*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 - 
   (61*Diff[S2[1, n], n, 3]*S2[1, n])/192 + Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] + (63*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - (9*S2[-1, Infinity]^4*S2[1, n])/
    64 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/12 - Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^2 + (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^2)/16 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/
    8 + (5*Half[S2[1, n], n]^3*S2[1, n]^2)/16 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 + 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]^3)/3 - 
   (35*Half[S2[1, n], n]^2*S2[1, n]^3)/48 + (37*Half[S2[1, n], n]*S2[1, n]^4)/
    48 - (7*S2[1, n]^5)/24 + (11*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, Infinity])/32 - (31*Diff[S2[1, n], n, 2]*S2[2, Infinity])/96 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (7*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (67*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (33*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (27*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (69*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (39*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (127*S2[1, n]^3*S2[2, Infinity])/96 + 
   (153*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 + 
   (49*S2[-1, Infinity]*S2[2, Infinity]^2)/16 + 
   (131*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (245*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 + 
   (481*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 + 
   (137*Half[S2[1, n], n]^2*S2[3, Infinity])/192 + 
   (157*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 - 
   (571*S2[1, n]^2*S2[3, Infinity])/192 - 
   (1235*S2[2, Infinity]*S2[3, Infinity])/384 + (2903*S2[5, Infinity])/256 + 
   (9*S2[-4, 1, n])/2 + (27*Half[S2[1, n], n]*S2[-3, 1, n])/16 - 
   (27*S2[1, n]*S2[-3, 1, n])/16 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/8 + (Half[S2[1, n], n]^2*S2[-2, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 - 
   (7*S2[1, n]^2*S2[-2, 1, n])/4 + (S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (11*S2[1, n]^3*S2[-1, 1, n])/16 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    16 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (41*S2[3, Infinity]*S2[-1, 1, n])/64 - (3*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 - (17*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 - 
   (19*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 + 
   (19*S2[1, n]^2*S2[2, 1, n])/16 + (S2[2, Infinity]*S2[2, 1, n])/2 + 
   (S2[-1, 1, n]*S2[2, 1, n])/4 + 4*S2[4, 1, n] + S2[-3, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 - (9*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 - (S2[1, n]*S2[-1, -2, -1, n])/
    16 + (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, n])/16 + (3*S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 - Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] - S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[2, Infinity]*S2[-1, 1, 1, n] + S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   (5*Half[S2[1, n], n]*S2[1, 2, -1, n])/4 + (7*S2[1, n]*S2[1, 2, -1, n])/4 + 
   S2[2, 1, -2, n]/2 - (7*Half[S2[1, n], n]*S2[2, 1, -1, n])/8 + 
   (11*S2[1, n]*S2[2, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 - 
   (5*S2[1, n]*S2[2, 1, 1, n])/4 + S2[-2, 1, 1, 1, n]/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/8 + (S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   2*Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] + 2*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (27*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + S2[1, -1, 1, -2, n] - 
   S2[1, 1, -2, -1, n] + S2[1, 1, -1, 2, n]/2 + S2[2, 1, 1, 1, n] + 
   S2[-1, -1, 1, -1, -1, n]/4 + (3*S2[-1, 1, -1, -1, -1, n])/4 + 
   S2[-1, 1, -1, -1, 1, n]/8 - S2[-1, 1, -1, 1, 1, n]/2 - 
   S2[-1, 1, 1, 1, -1, n]/2 + (55*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, 1, -1, n]/4 - 
   (3*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, 1, -1, 1, -1, n])/2 + 2*S2[1, 1, 1, -1, -1, n], 
 S2[-1, 2, 1, -1, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]) - 
   (17*Diff[Half[S2[1, n], n], n, 4])/48 - Diff[Half[S2[2, 1, n], n], n, 2]/
    16 - Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 + 
   (39*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/6 + 
   Diff[S2[1, n], n, 4]/3 - (7*Diff[S2[-3, 1, n], n, 1])/4 - 
   (5*Diff[S2[-2, 1, n], n, 2])/4 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (11*Diff[S2[-1, 1, n], n, 3])/12 + Diff[S2[2, 1, n], n, 2]/4 + 
   Diff[S2[-2, 1, -1, n], n, 1] - Diff[S2[-1, -2, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2])/8 - Diff[S2[-1, 1, 1, n], n, 2]/2 - 
   Diff[S2[1, 2, -1, n], n, 1] - Diff[S2[2, 1, -1, n], n, 1]/2 - 
   Diff[S2[2, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, 1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/4 + 
   (13*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/24 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/12 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + Half[S2[4, 1, n], n]/8 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^5/120 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 - 
   (13*Diff[S2[1, n], n, 3]*S2[1, n])/12 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/2 - 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n] + (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/
    8 - (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Half[S2[1, n], n]^4*S2[1, n])/8 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (5*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/2 + (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/8 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^3)/12 - (5*Half[S2[1, n], n]*S2[1, n]^4)/
    6 + (7*S2[1, n]^5)/24 - Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity] + 
   (53*Diff[S2[1, n], n, 2]*S2[2, Infinity])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/16 + 
   (5*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (7*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (7*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (47*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (83*S2[1, n]^3*S2[2, Infinity])/48 - 
   (89*Half[S2[1, n], n]*S2[2, Infinity]^2)/40 - 
   (43*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (33*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 - 
   (397*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 - 
   (167*Half[S2[1, n], n]^2*S2[3, Infinity])/192 - 
   (55*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 + 
   (373*S2[1, n]^2*S2[3, Infinity])/192 - 
   (29*S2[2, Infinity]*S2[3, Infinity])/192 + (945*S2[5, Infinity])/128 - 
   2*S2[-4, 1, n] - (7*Half[S2[1, n], n]*S2[-3, 1, n])/4 + 
   (7*S2[1, n]*S2[-3, 1, n])/4 + (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/
    2 + (3*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/2 + (S2[1, n]^2*S2[-2, 1, n])/
    4 - (3*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/8 - Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, n] + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/8 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, n] - (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/
    8 + (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (5*S2[1, n]^3*S2[-1, 1, n])/8 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (11*S2[3, Infinity]*S2[-1, 1, n])/16 + S2[-2, 1, n]*S2[-1, 1, n] + 
   S2[1, n]*S2[-1, 1, n]^2 - (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*S2[2, 1, n] - (Half[S2[1, n], n]^2*S2[2, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n] - S2[1, n]^2*S2[2, 1, n] + 
   (S2[2, Infinity]*S2[2, 1, n])/4 - 4*S2[4, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/4 + (S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/8 - (3*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] + S2[1, n]^2*S2[-1, 1, 1, n] + 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/2 - (S2[1, n]*S2[2, 1, -1, n])/2 + 
   S2[1, n]*S2[2, 1, 1, n] - 2*S2[3, 1, 1, n] - 
   (S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 2*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, n] - 2*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (5*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - S2[1, -1, 1, -2, n] + 
   S2[1, 1, -2, -1, n] + 2*S2[1, 2, -1, -1, n] - S2[2, 1, 1, 1, n] - 
   S2[-1, -1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, -1, -1, n])/2 + 
   S2[-1, 1, -1, 1, 1, n]/2 + S2[-1, 1, 1, 1, -1, n]/2 + 
   S2[-1, 1, 1, 1, 1, Infinity] - 3*S2[1, -1, -1, -1, -1, n] - 
   (3*S2[1, 1, -1, 1, -1, n])/2 - 2*S2[1, 1, 1, -1, -1, n], 
 S2[-1, 2, 1, 1, n] -> (-11*Diff[Half[S2[1, n], n], n, 4])/48 + 
   Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1] + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] + (11*Diff[S2[1, n], n, 4])/
    48 + Diff[S2[-3, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 2]/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (2*Diff[S2[-1, 1, n], n, 3])/3 - (3*Diff[S2[-1, 1, 1, n], n, 2])/4 - 
   Diff[S2[1, 2, -1, n], n, 1] - Diff[S2[2, 1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 - 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/8 - S2[-1, Infinity]^5/240 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n])/4 - (17*Diff[S2[1, n], n, 3]*S2[1, n])/
    24 + (Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (S2[-1, Infinity]^4*S2[1, n])/24 + (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[1, n]^3*S2[2, Infinity])/4 - (Half[S2[1, n], n]*S2[2, Infinity]^2)/4 + 
   (17*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (53*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (15*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - 
   (13*S2[1, n]^2*S2[3, Infinity])/32 - (29*S2[2, Infinity]*S2[3, Infinity])/
    16 + (925*S2[5, Infinity])/128 + (5*S2[-4, 1, n])/2 - 
   S2[1, n]*S2[-3, 1, n] + (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - 
   (S2[1, n]^2*S2[-2, 1, n])/4 - (S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + (S2[2, Infinity]*S2[2, 1, n])/
    4 + (5*S2[-3, 1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]*S2[1, 2, -1, n])/2 + S2[2, 1, -2, n]/2 - 
   (S2[1, n]*S2[2, 1, -1, n])/2 + Half[S2[1, n], n]*S2[2, 1, 1, n] - 
   S2[1, n]*S2[2, 1, 1, n] - S2[-2, 1, 1, 1, n]/2 - 
   S2[1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, 1, -1, 2, n]/2 - 
   S2[1, 1, 2, -1, n] + S2[-1, 1, 1, 1, 1, Infinity]/2, 
 S2[-1, -1, -2, -1, n] -> 
  (-27*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 4])/96 - Diff[Half[S2[2, 1, n], n], n, 2]/
    2 + Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 + 
   (39*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/4 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 + 
   (35*Diff[S2[1, n], n, 4])/96 - (57*Diff[S2[-3, 1, n], n, 1])/8 - 
   (5*Diff[S2[-2, 1, n], n, 2])/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (19*Diff[S2[-1, 1, n], n, 3])/16 + (3*Diff[S2[2, 1, n], n, 2])/2 + 
   Diff[S2[-2, 1, -1, n], n, 1] + Diff[S2[-1, -2, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, -1, n], n, 2]/2 - Diff[S2[-1, 1, 1, n], n, 2]/4 - 
   Diff[S2[1, 2, -1, n], n, 1] - (3*Diff[S2[2, 1, -1, n], n, 1])/4 + 
   4*Diff[S2[2, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1] + (Diff[Half[S2[1, n], n], n, 1]^2*
     Half[S2[1, n], n])/16 - (31*Diff[Half[S2[1, n], n], n, 3]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[2, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (47*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (47*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/32 - 
   4*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] - 
   (31*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + 
   (5*Half[S2[4, 1, n], n])/4 - (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    8 + Half[S2[3, 1, 1, n], n]/4 + (41*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    96 - (7*S2[-1, Infinity]^5)/96 - (13*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[1, n])/16 + (21*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (75*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 - 
   (217*Diff[S2[1, n], n, 3]*S2[1, n])/96 + 5*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] + (51*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (21*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[1, n])/4 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - (15*S2[-1, Infinity]^4*S2[1, n])/
    32 - (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]^2)/8 + (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 + (5*Half[S2[1, n], n]^2*S2[1, n]^3)/
    8 + (3*Half[S2[1, n], n]*S2[1, n]^4)/8 - (3*S2[1, n]^5)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 + 
   (23*Diff[S2[1, n], n, 2]*S2[2, Infinity])/8 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/8 + 
   (5*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (27*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (21*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (41*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (7*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (45*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (15*S2[1, n]^3*S2[2, Infinity])/8 - 
   (999*Half[S2[1, n], n]*S2[2, Infinity]^2)/160 - 
   (S2[-1, Infinity]*S2[2, Infinity]^2)/2 + (1637*S2[1, n]*S2[2, Infinity]^2)/
    160 + (51*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 + 
   (99*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 - 
   (97*Half[S2[1, n], n]^2*S2[3, Infinity])/64 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 + 
   (11*S2[1, n]^2*S2[3, Infinity])/64 + (365*S2[2, Infinity]*S2[3, Infinity])/
    32 - (1259*S2[5, Infinity])/64 - 15*S2[-4, 1, n] - 
   (59*Half[S2[1, n], n]*S2[-3, 1, n])/8 + (59*S2[1, n]*S2[-3, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - 
   (7*Half[S2[1, n], n]^2*S2[-2, 1, n])/4 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, n] - (7*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (5*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/4 - (Half[S2[2, 1, n], n]*S2[-1, 1, n])/
    8 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*S2[1, n]^3*S2[-1, 1, n])/2 - (21*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (21*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (33*S2[3, Infinity]*S2[-1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 - 
   (9*Half[S2[1, n], n]^2*S2[2, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + 
   (11*S2[1, n]^2*S2[2, 1, n])/8 - (15*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, n])/2 - 12*S2[4, 1, n] + S2[-3, 1, 1, n] + 
   S2[-2, 1, -2, n] + (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]*S2[-2, 1, -1, n])/2 - (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]*S2[-1, -2, -1, n])/8 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/
    4 + (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, n] - S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + (3*S2[1, n]*S2[1, 2, -1, n])/2 + 
   S2[2, 1, -2, n] - (9*Half[S2[1, n], n]*S2[2, 1, -1, n])/4 + 
   (13*S2[1, n]*S2[2, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 - 
   (7*S2[1, n]*S2[2, 1, 1, n])/2 + 5*S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, -1, -1, n] - (5*S2[1, n]*S2[-1, 1, -1, -1, n])/
    4 - (3*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, n] - 3*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   (41*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (45*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 3*S2[1, 1, -2, -1, n] + 
   S2[1, 1, -1, 2, n] - 3*S2[1, 2, -1, -1, n] + 3*S2[2, 1, 1, 1, n] - 
   3*S2[-1, -1, 1, -1, -1, n] - 6*S2[-1, 1, -1, -1, -1, n] + 
   S2[-1, 1, -1, -1, 1, n]/4 + (3*S2[-1, 1, -1, 1, 1, n])/2 - 
   (3*S2[-1, 1, 1, 1, -1, n])/2 + (35*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   6*S2[1, -1, -1, -1, -1, n] - S2[1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, 1, -1, 1, -1, n])/2 + 6*S2[1, 1, 1, -1, -1, n], 
 S2[-1, -1, -2, 1, n] -> 
  (-53*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/96 - 
   Diff[Half[S2[1, n], n], n, 4]/576 + Diff[Half[S2[2, 1, n], n], n, 2]/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/48 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (13*Diff[S2[1, n], n, 4])/576 - (37*Diff[S2[-3, 1, n], n, 1])/48 - 
   (11*Diff[S2[-2, 1, n], n, 2])/24 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (3*Diff[S2[-1, 1, n], n, 3])/32 - Diff[S2[2, 1, n], n, 2]/8 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1])/48 - Diff[S2[-1, 1, -1, n], n, 2]/16 - 
   Diff[S2[-1, 1, 1, n], n, 2]/8 + (5*Diff[S2[2, 1, -1, n], n, 1])/24 - 
   Diff[S2[2, 1, 1, n], n, 1] - (13*Diff[S2[-1, 1, -1, -1, n], n, 1])/24 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 + 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/96 - 
   (191*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/288 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/48 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    48 - (235*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/96 + 
   (433*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/576 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (139*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/96 - 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/12 + 
   (49*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/96 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/3 + 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/24 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[3, 1, 1, n], n]/8 + Half[S2[2, 1, 1, 1, n], n]/4 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]^4)/64 - S2[-1, Infinity]^5/64 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/96 + 
   (131*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/288 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/48 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/48 + 
   (181*Diff[S2[1, n], n, 1]^2*S2[1, n])/96 - 
   (349*Diff[S2[1, n], n, 3]*S2[1, n])/576 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/3 + 
   (79*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/96 + 
   (19*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[1, n])/48 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/12 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - (19*S2[-1, Infinity]^4*S2[1, n])/
    192 - (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]^2)/48 + (Half[S2[2, 1, n], n]*S2[1, n]^2)/
    3 + (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/48 - 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]^3)/48 - (7*Half[S2[1, n], n]*S2[1, n]^4)/
    16 + S2[1, n]^5/6 - (9*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/
    32 + (Diff[S2[1, n], n, 2]*S2[2, Infinity])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (133*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (25*Half[S2[1, n], n]^3*S2[2, Infinity])/96 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity] - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (3*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (115*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (31*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (17*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (19*S2[1, n]^3*S2[2, Infinity])/32 - 
   (519*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]^2)/32 + 
   (297*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (55*Diff[S2[1, n], n, 1]*S2[3, Infinity])/96 + 
   (11*Half[S2[1, n], n]^2*S2[3, Infinity])/48 + 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/48 - 
   (S2[1, n]^2*S2[3, Infinity])/12 - (203*S2[2, Infinity]*S2[3, Infinity])/
    384 + (31*S2[5, Infinity])/8 + S2[-4, 1, n] - 
   (49*Half[S2[1, n], n]*S2[-3, 1, n])/48 + (73*S2[1, n]*S2[-3, 1, n])/48 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/3 + 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/12 - 
   (19*S2[1, n]^2*S2[-2, 1, n])/12 - (S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/3 + 
   (97*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (79*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (19*S2[1, n]^3*S2[-1, 1, n])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/24 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    16 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (25*S2[3, Infinity]*S2[-1, 1, n])/64 - (3*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 + (5*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (23*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[2, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - 
   (23*S2[1, n]^2*S2[2, 1, n])/16 + (S2[2, Infinity]*S2[2, 1, n])/4 - 
   (3*S2[-1, 1, n]*S2[2, 1, n])/4 + (3*Half[S2[1, n], n]*S2[-2, 1, -1, n])/
    4 - (3*S2[1, n]*S2[-2, 1, -1, n])/4 - 
   (19*Half[S2[1, n], n]*S2[-1, -2, -1, n])/48 - 
   (5*S2[1, n]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, n])/48 - (S2[2, Infinity]*S2[-1, 1, -1, n])/
    4 + (Half[S2[1, n], n]^2*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[1, 2, -1, n])/4 + (3*S2[1, n]*S2[1, 2, -1, n])/4 - 
   (19*Half[S2[1, n], n]*S2[2, 1, -1, n])/24 - (5*S2[1, n]*S2[2, 1, -1, n])/
    24 + (3*Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + 
   (S2[1, n]*S2[2, 1, 1, n])/4 - S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, n])/6 + 
   (13*S2[1, n]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, n])/
    2 - (27*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (19*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + S2[1, 2, -1, -1, n] - 
   S2[2, 1, 1, 1, n] + S2[-1, -1, 1, -1, -1, n]/4 + 
   S2[-1, 1, -1, -1, -1, n]/4 - (3*S2[-1, 1, -1, -1, 1, n])/8 - 
   S2[-1, 1, -1, 1, 1, n]/4 - S2[-1, 1, 1, -1, -1, n]/2 + 
   S2[-1, 1, 1, 1, -1, n]/4 + (15*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   S2[1, -1, -1, -1, -1, n]/2 + (3*S2[1, -1, -1, 1, -1, n])/4 + 
   (5*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, 1, -1, -1, -1, n])/4 - 
   S2[1, 1, -1, 1, -1, n]/4 - S2[1, 1, 1, -1, -1, n], 
 S2[-1, -1, 2, -1, n] -> 
  (-13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/32 - 
   (65*Diff[Half[S2[1, n], n], n, 4])/192 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1])/4 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (77*Diff[S2[1, n], n, 4])/192 + (83*Diff[S2[-3, 1, n], n, 1])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2])/8 + (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (33*Diff[S2[-1, 1, n], n, 3])/32 - (3*Diff[S2[2, 1, n], n, 2])/8 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1])/16 - (3*Diff[S2[-1, 1, -1, n], n, 2])/
    16 - (7*Diff[S2[-1, 1, 1, n], n, 2])/8 - 2*Diff[S2[1, 2, -1, n], n, 1] - 
   (11*Diff[S2[2, 1, -1, n], n, 1])/8 - 3*Diff[S2[2, 1, 1, n], n, 1] + 
   (11*Diff[S2[-1, 1, -1, -1, n], n, 1])/8 + Diff[S2[-1, 1, 1, 1, n], n, 1]/
    2 + (13*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 + (17*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Half[S2[3, 1, 1, n], n])/8 + (3*Half[S2[2, 1, 1, 1, n], n])/4 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4)/64 + 
   (43*S2[-1, Infinity]^5)/960 + (11*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[1, n])/32 - (29*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 - 
   (19*Diff[S2[1, n], n, 3]*S2[1, n])/64 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (29*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 + 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/2 - 
   (11*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + 
   (71*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^2)/16 - (Half[S2[2, 1, n], n]*S2[1, n]^2)/
    8 + (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 + (7*Half[S2[1, n], n]^2*S2[1, n]^3)/
    16 - (9*Half[S2[1, n], n]*S2[1, n]^4)/16 + S2[1, n]^5/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 2]*S2[2, Infinity])/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (23*Half[S2[1, n], n]^3*S2[2, Infinity])/32 - 
   (5*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (17*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (125*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (83*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (41*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (107*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (39*S2[1, n]^3*S2[2, Infinity])/32 + 
   (643*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 + 
   (17*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (2429*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (15*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/32 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/8 - 
   (S2[1, n]^2*S2[3, Infinity])/32 - (1411*S2[2, Infinity]*S2[3, Infinity])/
    128 + (1793*S2[5, Infinity])/64 + 7*S2[-4, 1, n] + 
   (11*Half[S2[1, n], n]*S2[-3, 1, n])/16 - (107*S2[1, n]*S2[-3, 1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 + 
   (11*S2[1, n]^2*S2[-2, 1, n])/4 + (S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 - 
   (7*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (11*S2[1, n]^3*S2[-1, 1, n])/16 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (69*S2[3, Infinity]*S2[-1, 1, n])/64 + (7*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 - (13*S2[1, n]*S2[-1, 1, n]^2)/
    16 + (37*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 - 
   (19*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, 1, n])/16 - 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 + 
   (7*S2[1, n]^2*S2[2, 1, n])/16 + (13*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (7*S2[-1, 1, n]*S2[2, 1, n])/4 + 5*S2[-3, 1, 1, n] - 
   (7*Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 + (7*S2[1, n]*S2[-2, 1, -1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 - 
   (S2[1, n]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (19*S2[1, n]^2*S2[-1, 1, -1, n])/16 + (S2[2, Infinity]*S2[-1, 1, -1, n])/
    4 - (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   3*S2[1, n]^2*S2[-1, 1, 1, n] - (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/4 - (3*S2[1, n]*S2[1, 2, -1, n])/4 + 
   S2[2, 1, -2, n] + (Half[S2[1, n], n]*S2[2, 1, -1, n])/8 - 
   (9*S2[1, n]*S2[2, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + 
   (11*S2[1, n]*S2[2, 1, 1, n])/4 - 3*S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (39*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (71*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - S2[1, 1, -1, 2, n] - 
   3*S2[1, 1, 2, -1, n] + 3*S2[1, 2, -1, -1, n] - 3*S2[2, 1, 1, 1, n] + 
   (3*S2[-1, -1, 1, -1, -1, n])/4 + (3*S2[-1, 1, -1, -1, -1, n])/4 + 
   (7*S2[-1, 1, -1, -1, 1, n])/8 - (3*S2[-1, 1, -1, 1, 1, n])/4 + 
   (3*S2[-1, 1, 1, -1, -1, n])/2 + (3*S2[-1, 1, 1, 1, -1, n])/4 - 
   (43*S2[-1, 1, 1, 1, 1, Infinity])/8 - (3*S2[1, -1, -1, -1, -1, n])/2 - 
   (7*S2[1, -1, -1, 1, -1, n])/4 - (9*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, 1, -1, -1, -1, n])/4 - (3*S2[1, 1, -1, 1, -1, n])/4 - 
   3*S2[1, 1, 1, -1, -1, n], S2[-1, -1, 2, 1, n] -> 
  (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 4])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/8 + 
   2*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] - Diff[S2[1, n], n, 4]/4 + 
   (15*Diff[S2[-3, 1, n], n, 1])/4 + (7*Diff[S2[-2, 1, n], n, 2])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, n], n, 3] - (3*Diff[S2[2, 1, n], n, 2])/4 - 
   Diff[S2[-2, 1, -1, n], n, 1] + Diff[S2[-1, -2, -1, n], n, 1]/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2])/8 + Diff[S2[-1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 2, -1, n], n, 1] + Diff[S2[2, 1, -1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 + (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 - 
   (3*Half[S2[4, 1, n], n])/8 - (7*Half[S2[1, n], n]*S2[-1, Infinity]^4)/48 + 
   S2[-1, Infinity]^5/40 - (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/8 - 
   (25*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 + 
   (17*Diff[S2[1, n], n, 3]*S2[1, n])/12 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Half[S2[1, n], n]^4*S2[1, n])/8 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (3*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/2 - (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 - (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    4 + (Half[S2[1, n], n]*S2[1, n]^4)/2 - S2[1, n]^5/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/8 - 
   (17*Diff[S2[1, n], n, 2]*S2[2, Infinity])/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/16 - 
   (5*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 + 
   (27*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (33*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (13*S2[1, n]^3*S2[2, Infinity])/16 + 
   (97*Half[S2[1, n], n]*S2[2, Infinity]^2)/40 + 
   (63*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (63*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 - 
   (21*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 + 
   (13*Half[S2[1, n], n]^2*S2[3, Infinity])/64 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 + 
   (21*S2[1, n]^2*S2[3, Infinity])/64 - (121*S2[2, Infinity]*S2[3, Infinity])/
    64 - (21*S2[5, Infinity])/32 + 6*S2[-4, 1, n] + 
   (15*Half[S2[1, n], n]*S2[-3, 1, n])/4 - (15*S2[1, n]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/2 + 
   (7*S2[1, n]^2*S2[-2, 1, n])/4 + (5*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, n])/8 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[3, Infinity]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[2, 1, n] + Half[S2[1, n], n]^2*S2[2, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n] + S2[1, n]^2*S2[2, 1, n] + 
   (3*S2[2, Infinity]*S2[2, 1, n])/4 + 7*S2[4, 1, n] + 
   S2[1, n]*S2[-2, 1, -1, n] + (Half[S2[1, n], n]*S2[-1, -2, -1, n])/4 - 
   (S2[1, n]*S2[-1, -2, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/
    8 + (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/8 + (S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   Half[S2[1, n], n]*S2[1, 2, -1, n] - S2[1, n]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/2 - (S2[1, n]*S2[2, 1, -1, n])/2 + 
   S2[3, 1, 1, n] + (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - S2[1, 2, -1, -1, n] + 
   S2[-1, -1, 1, -1, -1, n]/2 + (3*S2[-1, 1, -1, -1, -1, n])/2 - 
   3*S2[-1, 1, 1, 1, 1, Infinity] + 3*S2[1, -1, -1, -1, -1, n], 
 S2[-1, -1, -1, -2, n] -> 
  (119*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 4])/192 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 - 
   (73*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/48 + 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/48 - 
   (25*Diff[S2[1, n], n, 4])/192 + (81*Diff[S2[-3, 1, n], n, 1])/16 + 
   (13*Diff[S2[-2, 1, n], n, 2])/8 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (21*Diff[S2[-1, 1, n], n, 3])/32 - (9*Diff[S2[2, 1, n], n, 2])/8 - 
   Diff[S2[-2, 1, -1, n], n, 1]/2 - Diff[S2[-1, -2, -1, n], n, 1]/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2])/16 + Diff[S2[-1, 1, 1, n], n, 2]/8 + 
   Diff[S2[1, 2, -1, n], n, 1]/2 + (3*Diff[S2[2, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[2, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (65*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/288 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    48 + (121*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/96 - 
   (403*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/576 + 
   (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/24 - 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/3 - 
   (13*Half[S2[4, 1, n], n])/16 + (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    16 - Half[S2[3, 1, 1, n], n]/8 - 
   (43*Half[S2[1, n], n]*S2[-1, Infinity]^4)/192 + 
   (31*S2[-1, Infinity]^5)/960 + (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    32 - (161*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/288 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/48 - 
   (223*Diff[S2[1, n], n, 1]^2*S2[1, n])/96 + 
   (655*Diff[S2[1, n], n, 3]*S2[1, n])/576 - 
   (10*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/3 - 
   (55*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 + 
   (11*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - Diff[Half[S2[1, n], n], n, 2]*
    Half[S2[1, n], n]*S2[1, n] + (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[1, n])/8 - (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/
    12 + (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (7*Half[S2[1, n], n]^4*S2[1, n])/48 + 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + (47*S2[-1, Infinity]^4*S2[1, n])/
    192 + (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/48 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]^2)/12 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (25*Half[S2[1, n], n]^3*S2[1, n]^2)/48 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/48 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 - 
   (25*Half[S2[1, n], n]^2*S2[1, n]^3)/48 + (Half[S2[1, n], n]*S2[1, n]^4)/
    16 + S2[1, n]^5/12 + (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/
    96 - (45*Diff[S2[1, n], n, 2]*S2[2, Infinity])/32 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (191*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/96 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity] + 
   (43*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (13*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (329*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (41*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (47*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (77*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (5*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (91*S2[1, n]^3*S2[2, Infinity])/96 + 
   (1023*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 + 
   (41*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (1587*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (23*Diff[S2[1, n], n, 1]*S2[3, Infinity])/24 + 
   (61*Half[S2[1, n], n]^2*S2[3, Infinity])/48 - 
   (53*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/48 + 
   (11*S2[1, n]^2*S2[3, Infinity])/24 - 
   (2215*S2[2, Infinity]*S2[3, Infinity])/384 + (2781*S2[5, Infinity])/256 + 
   (21*S2[-4, 1, n])/2 + (235*Half[S2[1, n], n]*S2[-3, 1, n])/48 - 
   (235*S2[1, n]*S2[-3, 1, n])/48 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/8 - (5*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 + 
   (4*Half[S2[1, n], n]^2*S2[-2, 1, n])/3 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/12 + 
   (4*S2[1, n]^2*S2[-2, 1, n])/3 + S2[2, Infinity]*S2[-2, 1, n] - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (7*Half[S2[1, n], n]^3*S2[-1, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (23*S2[1, n]^3*S2[-1, 1, n])/48 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/6 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    16 - (31*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (31*S2[3, Infinity]*S2[-1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 + (S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (13*Half[S2[1, n], n]^2*S2[2, 1, n])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]^2*S2[2, 1, n])/16 + (7*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (S2[-1, 1, n]*S2[2, 1, n])/4 + 9*S2[4, 1, n] - S2[-3, 1, 1, n]/2 - 
   S2[-2, 1, -2, n]/2 - (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 + 
   (S2[1, n]*S2[-2, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[-1, -2, -1, n])/48 - 
   (S2[1, n]*S2[-1, -2, -1, n])/48 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/
    16 + (7*Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, n])/48 + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] - S2[1, n]^2*S2[-1, 1, 1, n] + 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[1, 2, -1, n])/
    4 - (3*S2[1, n]*S2[1, 2, -1, n])/4 - S2[2, 1, -2, n]/2 + 
   (25*Half[S2[1, n], n]*S2[2, 1, -1, n])/24 - (37*S2[1, n]*S2[2, 1, -1, n])/
    24 - (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + (5*S2[1, n]*S2[2, 1, 1, n])/
    4 - 2*S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n]/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, n])/3 + 
   (11*S2[1, n]*S2[-1, 1, -1, -1, n])/24 + (S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] + S2[1, n]*S2[-1, 1, 1, 1, n] + 
   (43*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (47*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + S2[1, 1, -2, -1, n] - 
   S2[1, 1, -1, 2, n]/2 + S2[1, 2, -1, -1, n] - S2[2, 1, 1, 1, n] + 
   (5*S2[-1, -1, 1, -1, -1, n])/4 + (11*S2[-1, 1, -1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, 1, n]/8 - S2[-1, 1, -1, 1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, n]/2 - (31*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (7*S2[1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, 1, -1, n]/4 + 
   (3*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, 1, -1, -1, -1, n])/4 - 
   S2[1, 1, -1, 1, -1, n]/2 - 2*S2[1, 1, 1, -1, -1, n], 
 S2[-1, -1, -1, 2, n] -> 
  (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/96 + 
   (119*Diff[Half[S2[1, n], n], n, 4])/576 - Diff[Half[S2[2, 1, n], n], n, 2]/
    32 - Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/24 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/48 + 
   (103*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/48 - 
   (131*Diff[S2[1, n], n, 4])/576 - (133*Diff[S2[-3, 1, n], n, 1])/48 - 
   (11*Diff[S2[-2, 1, n], n, 2])/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (17*Diff[S2[-1, 1, n], n, 3])/32 + Diff[S2[2, 1, n], n, 2]/8 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1])/48 + Diff[S2[-1, 1, -1, n], n, 2]/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2])/8 + Diff[S2[1, 2, -1, n], n, 1] + 
   (17*Diff[S2[2, 1, -1, n], n, 1])/24 + Diff[S2[2, 1, 1, n], n, 1] - 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/96 - 
   (55*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/288 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 - (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/96 - 
   (79*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/576 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] - 
   (43*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/96 - 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/96 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/48 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[3, 1, 1, n], n]/8 - Half[S2[2, 1, 1, 1, n], n]/4 + 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]^4)/192 - 
   (19*S2[-1, Infinity]^5)/960 - (17*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[1, n])/96 + (43*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/288 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[1, n])/96 + 
   (139*Diff[S2[1, n], n, 3]*S2[1, n])/576 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/96 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[1, n])/48 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - (13*S2[-1, Infinity]^4*S2[1, n])/
    64 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/6 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/48 + (5*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    48 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/48 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^3)/6 - (Half[S2[1, n], n]^2*S2[1, n]^3)/
    48 + (Half[S2[1, n], n]*S2[1, n]^4)/16 - S2[1, n]^5/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/96 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (7*Half[S2[1, n], n]^3*S2[2, Infinity])/96 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (5*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (51*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (21*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (17*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (47*S2[1, n]^3*S2[2, Infinity])/96 - 
   (103*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 - 
   (131*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (929*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 + 
   (77*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 - 
   (107*Half[S2[1, n], n]^2*S2[3, Infinity])/192 + 
   (53*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 - 
   (77*S2[1, n]^2*S2[3, Infinity])/192 + 
   (1667*S2[2, Infinity]*S2[3, Infinity])/384 - (849*S2[5, Infinity])/64 - 
   (7*S2[-4, 1, n])/2 - (5*Half[S2[1, n], n]*S2[-3, 1, n])/48 + 
   (149*S2[1, n]*S2[-3, 1, n])/48 - (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/24 + (5*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/6 - 
   (5*Half[S2[1, n], n]^2*S2[-2, 1, n])/12 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/12 - 
   (17*S2[1, n]^2*S2[-2, 1, n])/12 - (S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (25*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/3 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (7*S2[1, n]^3*S2[-1, 1, n])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/3 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (29*S2[3, Infinity]*S2[-1, 1, n])/64 - (3*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 + (5*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - 
   (7*S2[1, n]^2*S2[2, 1, n])/16 - (5*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (3*S2[-1, 1, n]*S2[2, 1, n])/4 - (5*S2[-3, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 - (3*S2[1, n]*S2[-2, 1, -1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, -2, -1, n])/48 - 
   (S2[1, n]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/6 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (19*S2[1, n]^2*S2[-1, 1, -1, n])/48 - (S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 + (Half[S2[1, n], n]^2*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   S2[1, n]^2*S2[-1, 1, 1, n] + (Half[S2[1, n], n]*S2[1, 2, -1, n])/4 + 
   (S2[1, n]*S2[1, 2, -1, n])/4 - S2[2, 1, -2, n]/2 + 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/24 + (11*S2[1, n]*S2[2, 1, -1, n])/
    24 - (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 - (3*S2[1, n]*S2[2, 1, 1, n])/
    4 + S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, n])/6 + 
   (5*S2[1, n]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, n])/4 - (S2[1, n]*S2[-1, 1, -1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (23*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (39*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + S2[1, 1, -1, 2, n]/2 + 
   S2[1, 1, 2, -1, n] - S2[1, 2, -1, -1, n] + S2[2, 1, 1, 1, n] - 
   S2[-1, -1, 1, -1, -1, n]/4 - S2[-1, 1, -1, -1, -1, n]/4 - 
   (3*S2[-1, 1, -1, -1, 1, n])/8 + S2[-1, 1, -1, 1, 1, n]/4 - 
   S2[-1, 1, 1, -1, -1, n]/2 - S2[-1, 1, 1, 1, -1, n]/4 + 
   (19*S2[-1, 1, 1, 1, 1, Infinity])/8 + S2[1, -1, -1, -1, -1, n]/2 + 
   (3*S2[1, -1, -1, 1, -1, n])/4 + (5*S2[1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, 1, -1, -1, -1, n])/4 + S2[1, 1, -1, 1, -1, n]/4 + 
   S2[1, 1, 1, -1, -1, n], S2[-1, -1, 1, -2, n] -> 
  (-19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/96 + 
   (253*Diff[Half[S2[1, n], n], n, 4])/576 - Diff[Half[S2[2, 1, n], n], n, 2]/
    32 - Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 - 
   (103*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/48 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/48 + 
   (67*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (265*Diff[S2[1, n], n, 4])/576 - (155*Diff[S2[-3, 1, n], n, 1])/48 - 
   (7*Diff[S2[-2, 1, n], n, 2])/24 - (43*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/48 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (35*Diff[S2[-1, 1, n], n, 3])/32 + Diff[S2[2, 1, n], n, 2]/8 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1])/48 + Diff[S2[-1, 1, -1, n], n, 2]/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2])/8 + 2*Diff[S2[1, 2, -1, n], n, 1] + 
   (31*Diff[S2[2, 1, -1, n], n, 1])/24 + Diff[S2[2, 1, 1, n], n, 1] - 
   (11*Diff[S2[-1, 1, -1, -1, n], n, 1])/24 - Diff[S2[-1, 1, 1, 1, n], n, 
    1] - (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/96 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/288 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/48 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    48 + (31*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/96 - 
   (253*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/576 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (17*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/96 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/24 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/96 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/12 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/12 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[3, 1, 1, n], n]/8 - Half[S2[2, 1, 1, 1, n], n]/4 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4)/192 - S2[-1, Infinity]^5/192 - 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/96 - 
   (179*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/288 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/48 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/48 - 
   (217*Diff[S2[1, n], n, 1]^2*S2[1, n])/96 + 
   (697*Diff[S2[1, n], n, 3]*S2[1, n])/576 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n])/3 - 
   (115*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/96 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/3 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - (13*S2[-1, Infinity]^4*S2[1, n])/
    192 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]^2)/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^2)/48 + 
   (7*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/48 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]^3)/48 - (5*Half[S2[1, n], n]*S2[1, n]^4)/
    16 + S2[1, n]^5/12 - (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/
    32 - (25*Diff[S2[1, n], n, 2]*S2[2, Infinity])/96 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (23*Half[S2[1, n], n]^3*S2[2, Infinity])/96 + 
   (5*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (13*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (125*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (33*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (19*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (5*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (21*S2[1, n]^3*S2[2, Infinity])/32 - 
   (9*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 - 
   (29*S2[-1, Infinity]*S2[2, Infinity]^2)/32 + 
   (651*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (7*Diff[S2[1, n], n, 1]*S2[3, Infinity])/48 - 
   (Half[S2[1, n], n]^2*S2[3, Infinity])/96 - 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/24 + 
   (43*S2[1, n]^2*S2[3, Infinity])/48 + 
   (2711*S2[2, Infinity]*S2[3, Infinity])/384 - (2639*S2[5, Infinity])/128 - 
   (9*S2[-4, 1, n])/2 + (13*Half[S2[1, n], n]*S2[-3, 1, n])/48 + 
   (131*S2[1, n]*S2[-3, 1, n])/48 - (49*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/24 + (17*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/6 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/12 - 
   (7*S2[1, n]^2*S2[-2, 1, n])/6 - (S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (41*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/48 + 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (5*S2[1, n]^3*S2[-1, 1, n])/48 - (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/24 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    16 + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (47*S2[3, Infinity]*S2[-1, 1, n])/64 - (5*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 + (7*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (25*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, n])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - 
   (21*S2[1, n]^2*S2[2, 1, n])/16 - 2*S2[2, Infinity]*S2[2, 1, n] - 
   (5*S2[-1, 1, n]*S2[2, 1, n])/4 - (7*S2[-3, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 - (S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, -2, -1, n])/48 - 
   (7*S2[1, n]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/3 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (19*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   S2[1, n]^2*S2[-1, 1, 1, n] + S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 2, -1, n])/4 - (5*S2[1, n]*S2[1, 2, -1, n])/4 - 
   S2[2, 1, -2, n]/2 + (7*Half[S2[1, n], n]*S2[2, 1, -1, n])/24 - 
   (19*S2[1, n]*S2[2, 1, -1, n])/24 - (3*Half[S2[1, n], n]*S2[2, 1, 1, n])/
    4 - (S2[1, n]*S2[2, 1, 1, n])/4 + S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, n])/6 + 
   (11*S2[1, n]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, n])/4 - (S2[1, n]*S2[-1, 1, -1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (13*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - S2[1, 1, -1, 2, n]/2 + 
   S2[1, 1, 2, -1, n] - S2[1, 2, -1, -1, n] + S2[2, 1, 1, 1, n] - 
   S2[-1, -1, 1, -1, -1, n]/4 - S2[-1, 1, -1, -1, -1, n]/4 - 
   (5*S2[-1, 1, -1, -1, 1, n])/8 + S2[-1, 1, -1, 1, 1, n]/4 - 
   S2[-1, 1, 1, -1, -1, n]/2 - S2[-1, 1, 1, 1, -1, n]/4 + 
   (5*S2[-1, 1, 1, 1, 1, Infinity])/8 + S2[1, -1, -1, -1, -1, n]/2 + 
   (5*S2[1, -1, -1, 1, -1, n])/4 + (11*S2[1, -1, 1, -1, -1, n])/8 + 
   (9*S2[1, 1, -1, -1, -1, n])/4 + S2[1, 1, -1, 1, -1, n]/4 + 
   S2[1, 1, 1, -1, -1, n], S2[-1, -1, 1, 2, n] -> 
  (-29*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 4])/192 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/48 + 
   (5*Diff[S2[1, n], n, 4])/192 - (9*Diff[S2[-3, 1, n], n, 1])/16 + 
   Diff[S2[-2, 1, n], n, 2]/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, n], n, 3])/32 + (7*Diff[S2[2, 1, n], n, 2])/8 - 
   Diff[S2[-2, 1, -1, n], n, 1]/2 + Diff[S2[-1, -2, -1, n], n, 1]/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2])/16 - Diff[S2[-1, 1, 1, n], n, 2]/8 - 
   Diff[S2[1, 2, -1, n], n, 1]/2 - (3*Diff[S2[2, 1, -1, n], n, 1])/8 - 
   (5*Diff[S2[2, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 - (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 + Half[S2[4, 1, n], n]/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[3, 1, 1, n], n]/8 - (13*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    192 + (11*S2[-1, Infinity]^5)/320 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (45*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 - 
   (39*Diff[S2[1, n], n, 3]*S2[1, n])/64 + Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] + (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + (3*S2[-1, Infinity]^4*S2[1, n])/
    64 - (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]^2)/12 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]^3)/48 - (19*Half[S2[1, n], n]*S2[1, n]^4)/
    48 + S2[1, n]^5/6 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 + 
   (31*Diff[S2[1, n], n, 2]*S2[2, Infinity])/96 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (9*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (31*S2[1, n]^3*S2[2, Infinity])/96 - 
   (87*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (67*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (191*Diff[S2[1, n], n, 1]*S2[3, Infinity])/96 + 
   (65*Half[S2[1, n], n]^2*S2[3, Infinity])/96 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/3 + 
   (35*S2[1, n]^2*S2[3, Infinity])/96 - 
   (1333*S2[2, Infinity]*S2[3, Infinity])/384 + (3699*S2[5, Infinity])/256 - 
   (3*S2[-4, 1, n])/2 - (33*Half[S2[1, n], n]*S2[-3, 1, n])/16 + 
   (33*S2[1, n]*S2[-3, 1, n])/16 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/8 - (3*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 - 
   (S2[1, n]^2*S2[-2, 1, n])/2 + (S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (7*S2[1, n]^3*S2[-1, 1, n])/16 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (25*S2[3, Infinity]*S2[-1, 1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 - (S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 - 
   (13*Half[S2[1, n], n]^2*S2[2, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - 
   (13*S2[1, n]^2*S2[2, 1, n])/16 + (7*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, n])/4 - 6*S2[4, 1, n] + S2[-3, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 - (S2[1, n]*S2[-2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 + 
   (3*S2[1, n]*S2[-1, -2, -1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, n])/16 - (S2[2, Infinity]*S2[-1, 1, -1, n])/
    4 + Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n] - 
   S2[1, n]^2*S2[-1, 1, 1, n] - (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/4 + (3*S2[1, n]*S2[1, 2, -1, n])/4 + 
   S2[2, 1, -2, n]/2 + (5*Half[S2[1, n], n]*S2[2, 1, -1, n])/8 - 
   (S2[1, n]*S2[2, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + 
   (3*S2[1, n]*S2[2, 1, 1, n])/4 - 4*S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n]/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/8 + (S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] + S2[1, n]*S2[-1, 1, 1, 1, n] + 
   (13*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + S2[1, 1, -2, -1, n] + 
   S2[1, 1, -1, 2, n]/2 + S2[1, 2, -1, -1, n] - S2[2, 1, 1, 1, n] - 
   S2[-1, -1, 1, -1, -1, n]/4 - (3*S2[-1, 1, -1, -1, -1, n])/4 + 
   S2[-1, 1, -1, -1, 1, n]/8 - S2[-1, 1, -1, 1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, n]/2 - (33*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, 1, -1, n]/4 - 
   (3*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, 1, -1, -1, -1, n])/4 - 
   S2[1, 1, -1, 1, -1, n]/2 - 2*S2[1, 1, 1, -1, -1, n], 
 S2[-1, 1, -2, -1, n] -> 
  (-7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 4])/72 + Diff[Half[S2[2, 1, n], n], n, 2]/
    16 + Diff[Half[S2[2, 1, 1, n], n], n, 1]/2 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/24 + 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] - Diff[S2[1, n], n, 4]/9 + 
   (5*Diff[S2[-3, 1, n], n, 1])/6 + Diff[S2[-2, 1, n], n, 2]/3 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (11*Diff[S2[-1, 1, n], n, 3])/24 - Diff[S2[2, 1, n], n, 2]/4 - 
   Diff[S2[-1, -2, -1, n], n, 1]/6 - Diff[S2[-1, 1, -1, n], n, 2]/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2])/4 + Diff[S2[2, 1, -1, n], n, 1]/6 - 
   2*Diff[S2[2, 1, 1, n], n, 1] + (2*Diff[S2[-1, 1, -1, -1, n], n, 1])/3 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/12 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/9 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/12 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    24 + (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/6 - 
   (13*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/36 + 
   (2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/12 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/3 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/48 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/48 + 
   Half[S2[3, 1, 1, n], n]/4 + Half[S2[2, 1, 1, 1, n], n]/2 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4)/48 + (7*S2[-1, Infinity]^5)/240 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/12 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/36 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/6 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/24 - 
   (49*Diff[S2[1, n], n, 1]^2*S2[1, n])/24 + 
   (47*Diff[S2[1, n], n, 3]*S2[1, n])/72 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/6 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/3 + Diff[S2[2, 1, n], n, 1]*
    S2[1, n] + (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/6 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Half[S2[1, n], n]^4*S2[1, n])/24 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/2 + (3*S2[-1, Infinity]^4*S2[1, n])/
    16 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (2*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/6 - (Half[S2[2, 1, n], n]*S2[1, n]^2)/
    48 + (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 + (5*Half[S2[1, n], n]^2*S2[1, n]^3)/
    12 - (Half[S2[1, n], n]*S2[1, n]^4)/2 + (5*S2[1, n]^5)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 - 
   (11*Diff[S2[1, n], n, 2]*S2[2, Infinity])/48 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (47*Half[S2[1, n], n]^3*S2[2, Infinity])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity] - 
   (25*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (23*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (51*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (9*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 + 
   (47*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (5*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (9*S2[1, n]^3*S2[2, Infinity])/16 + 
   (73*Half[S2[1, n], n]*S2[2, Infinity]^2)/40 - 
   (59*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (71*S2[1, n]*S2[2, Infinity]^2)/20 + Diff[Half[S2[1, n], n], n, 1]*
    S2[3, Infinity] - (355*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 - 
   (233*Half[S2[1, n], n]^2*S2[3, Infinity])/192 + 
   (197*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 + 
   (97*S2[1, n]^2*S2[3, Infinity])/192 - 
   (677*S2[2, Infinity]*S2[3, Infinity])/192 + (201*S2[5, Infinity])/32 + 
   (3*S2[-4, 1, n])/2 + (7*Half[S2[1, n], n]*S2[-3, 1, n])/12 - 
   (7*S2[1, n]*S2[-3, 1, n])/12 + (4*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/3 - (5*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/6 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/12 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/6 + 
   (4*S2[1, n]^2*S2[-2, 1, n])/3 - (Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, n])/8 - (7*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/3 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (13*S2[1, n]^3*S2[-1, 1, n])/24 + (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/24 - (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (S2[3, Infinity]*S2[-1, 1, n])/8 + S2[-2, 1, n]*S2[-1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, n]^2 - S2[1, n]*S2[-1, 1, n]^2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 - S2[1, n]^2*S2[2, 1, n] + 
   (3*S2[2, Infinity]*S2[2, 1, n])/2 + S2[-1, 1, n]*S2[2, 1, n] - 
   S2[-3, 1, 1, n]/2 - Half[S2[1, n], n]*S2[-2, 1, -1, n] + 
   S2[1, n]*S2[-2, 1, -1, n] + (Half[S2[1, n], n]*S2[-1, -2, -1, n])/12 - 
   (S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/6 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/24 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (19*S2[1, n]^2*S2[-1, 1, -1, n])/24 + (S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 + (S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - 2*Half[S2[1, n], n]^2*
    S2[-1, 1, 1, n] + 5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, n] - (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[1, 2, -1, n])/2 - S2[2, 1, -2, n]/2 + 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/6 - (2*S2[1, n]*S2[2, 1, -1, n])/3 - 
   Half[S2[1, n], n]*S2[2, 1, 1, n] + 3*S2[1, n]*S2[2, 1, 1, n] - 
   2*S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n]/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, n])/3 + 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/3 - Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, n] + (3*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] + S2[1, n]*S2[-1, 1, 1, 1, n] + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + S2[1, -1, 1, 2, n] + 
   S2[1, 1, -1, 2, n]/2 - S2[1, 1, 2, -1, n] + 2*S2[1, 2, -1, -1, n] - 
   2*S2[2, 1, 1, 1, n] + S2[-1, -1, 1, -1, -1, n]/2 + 
   S2[-1, 1, -1, -1, -1, n]/2 - S2[-1, 1, -1, 1, 1, n]/2 + 
   2*S2[-1, 1, 1, -1, -1, n] + S2[-1, 1, 1, 1, -1, n]/2 - 
   (7*S2[-1, 1, 1, 1, 1, Infinity])/2 - S2[1, -1, -1, -1, -1, n] - 
   S2[1, -1, -1, 1, -1, n] - S2[1, -1, 1, -1, -1, n] - 
   S2[1, 1, -1, 1, -1, n]/2 - 2*S2[1, 1, 1, -1, -1, n], 
 S2[-1, 1, -2, 1, n] -> (19*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/32 + (193*Diff[Half[S2[1, n], n], n, 4])/
    192 + (7*Diff[Half[S2[2, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (449*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/48 - 
   (199*Diff[S2[1, n], n, 4])/192 + (11*Diff[S2[-3, 1, n], n, 1])/16 + 
   (17*Diff[S2[-2, 1, n], n, 2])/8 - (13*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (257*Diff[S2[-1, 1, n], n, 3])/96 - Diff[S2[2, 1, n], n, 2]/8 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1])/2 + (5*Diff[S2[-1, -2, -1, n], n, 1])/
    16 - (15*Diff[S2[-1, 1, -1, n], n, 2])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 2])/8 + (7*Diff[S2[1, 2, -1, n], n, 1])/2 + 
   (17*Diff[S2[2, 1, -1, n], n, 1])/8 - (5*Diff[S2[2, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1])/8 - Diff[S2[-1, 1, -1, 1, n], n, 1] - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 + (129*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (379*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (49*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 - 
   (7*Half[S2[4, 1, n], n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 - 
   (3*Half[S2[3, 1, 1, n], n])/8 - (53*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    192 + (53*S2[-1, Infinity]^5)/960 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/32 - 
   (67*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (243*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 + 
   (703*Diff[S2[1, n], n, 3]*S2[1, n])/192 - 5*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] - (157*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 + 
   (25*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (131*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[1, n])/16 - (3*Half[S2[2, 1, 1, n], n]*S2[1, n])/
    16 + (65*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 - 
   (14*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/16 + (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 + (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 + 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]^3)/3 + 
   (25*Half[S2[1, n], n]^2*S2[1, n]^3)/48 - (47*Half[S2[1, n], n]*S2[1, n]^4)/
    48 + (11*S2[1, n]^5)/24 + (31*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, Infinity])/32 - (223*Diff[S2[1, n], n, 2]*S2[2, Infinity])/96 + 
   Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity] + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (89*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (69*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (101*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (53*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (115*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (41*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (65*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (69*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (51*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (55*S2[1, n]^3*S2[2, Infinity])/96 + 
   (1013*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 - 
   (4*S2[-1, Infinity]*S2[2, Infinity]^2)/5 - 
   (1701*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (161*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 - 
   (269*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 + 
   (179*Half[S2[1, n], n]^2*S2[3, Infinity])/192 - 
   (155*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 + 
   (395*S2[1, n]^2*S2[3, Infinity])/192 - 
   (203*S2[2, Infinity]*S2[3, Infinity])/384 - (947*S2[5, Infinity])/256 - 
   S2[-4, 1, n]/2 + (39*Half[S2[1, n], n]*S2[-3, 1, n])/16 - 
   (39*S2[1, n]*S2[-3, 1, n])/16 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/8 - Diff[S2[1, n], n, 1]*S2[-2, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 + 
   (7*S2[1, n]^2*S2[-2, 1, n])/4 + (S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (45*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, n] + (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/
    16 + (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (21*S2[1, n]^3*S2[-1, 1, n])/16 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 - (33*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    16 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (89*S2[3, Infinity]*S2[-1, 1, n])/64 - (3*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 + (3*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 + 
   (33*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 - 
   (33*S2[1, n]^2*S2[2, 1, n])/16 + (S2[2, Infinity]*S2[2, 1, n])/2 - 
   (3*S2[-1, 1, n]*S2[2, 1, n])/4 + S2[4, 1, n] - (3*S2[-3, 1, 1, n])/2 - 
   (3*S2[-2, 1, -2, n])/2 - (3*Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 + 
   (7*S2[1, n]*S2[-2, 1, -1, n])/4 + (5*Half[S2[1, n], n]*S2[-1, -2, -1, n])/
    16 - (5*S2[1, n]*S2[-1, -2, -1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (7*S2[1, n]^2*S2[-1, 1, -1, n])/16 + (3*S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 - 2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] - 2*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (11*Half[S2[1, n], n]*S2[1, 2, -1, n])/4 - (17*S2[1, n]*S2[1, 2, -1, n])/
    4 - (3*S2[2, 1, -2, n])/2 + (21*Half[S2[1, n], n]*S2[2, 1, -1, n])/8 - 
   (33*S2[1, n]*S2[2, 1, -1, n])/8 - (3*Half[S2[1, n], n]*S2[2, 1, 1, n])/4 + 
   (11*S2[1, n]*S2[2, 1, 1, n])/4 - S2[3, 1, 1, n] - 
   (3*S2[-2, 1, 1, 1, n])/2 + (3*S2[1, n]*S2[-1, 1, -1, -1, n])/8 + 
   S2[1, n]*S2[-1, 1, -1, 1, n] - 2*Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] + 
   2*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   (53*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (65*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + S2[1, -1, 1, -2, n] + 
   2*S2[1, 1, -2, -1, n] - (3*S2[1, 1, -1, 2, n])/2 - 2*S2[2, 1, 1, 1, n] + 
   S2[-1, -1, 1, -1, -1, n]/4 + (3*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[-1, 1, -1, -1, 1, n])/8 - S2[-1, 1, -1, 1, 1, n] + 
   S2[-1, 1, 1, 1, -1, n] - (53*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, -1, -1, -1, -1, n])/2 + (3*S2[1, -1, -1, 1, -1, n])/4 + 
   (9*S2[1, -1, 1, -1, -1, n])/8 + (9*S2[1, 1, -1, -1, -1, n])/4 - 
   S2[1, 1, -1, 1, -1, n] - 4*S2[1, 1, 1, -1, -1, n], 
 S2[-1, 1, 2, -1, n] -> (33*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/32 + (79*Diff[Half[S2[1, n], n], n, 4])/
    192 + (3*Diff[Half[S2[2, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (203*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/48 - 
   (85*Diff[S2[1, n], n, 4])/192 - (3*Diff[S2[-3, 1, n], n, 1])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2])/8 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (33*Diff[S2[-1, 1, n], n, 3])/32 - Diff[S2[2, 1, n], n, 2]/8 - 
   Diff[S2[-2, 1, -1, n], n, 1]/2 + (3*Diff[S2[-1, -2, -1, n], n, 1])/16 + 
   Diff[S2[-1, 1, -1, n], n, 2]/16 + (5*Diff[S2[-1, 1, 1, n], n, 2])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1])/2 + (7*Diff[S2[2, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[2, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 + (67*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 - 
   (161*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/192 + 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 - Half[S2[4, 1, n], n]/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[3, 1, 1, n], n]/8 - (9*Half[S2[1, n], n]*S2[-1, Infinity]^4)/64 - 
   (11*S2[-1, Infinity]^5)/320 - (23*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[1, n])/32 - (79*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (133*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 + 
   (317*Diff[S2[1, n], n, 3]*S2[1, n])/192 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + (23*S2[-1, Infinity]^4*S2[1, n])/
    192 + (15*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (8*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (3*Half[S2[1, n], n]^3*S2[1, n]^2)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^3)/48 + (19*Half[S2[1, n], n]*S2[1, n]^4)/
    48 - S2[1, n]^5/6 + (29*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/
    32 - (91*Diff[S2[1, n], n, 2]*S2[2, Infinity])/96 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (89*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (3*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (95*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (29*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (25*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (65*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (127*S2[1, n]^3*S2[2, Infinity])/96 + 
   (519*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 + 
   (87*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (451*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (175*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 + 
   (19*Diff[S2[1, n], n, 1]*S2[3, Infinity])/12 + 
   (79*Half[S2[1, n], n]^2*S2[3, Infinity])/96 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/6 - 
   (35*S2[1, n]^2*S2[3, Infinity])/96 + 
   (1429*S2[2, Infinity]*S2[3, Infinity])/384 - (2623*S2[5, Infinity])/256 - 
   (3*S2[-4, 1, n])/2 + (17*Half[S2[1, n], n]*S2[-3, 1, n])/16 - 
   (17*S2[1, n]*S2[-3, 1, n])/16 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/8 - (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, n])/2 + (S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 - 
   (33*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, n] + (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/
    16 - (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (7*S2[1, n]^3*S2[-1, 1, n])/16 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 + (33*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    16 - (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (33*S2[3, Infinity]*S2[-1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 - (15*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 + (5*S2[1, n]^2*S2[2, 1, n])/
    16 - (5*S2[2, Infinity]*S2[2, 1, n])/4 - (S2[-1, 1, n]*S2[2, 1, n])/4 + 
   2*S2[4, 1, n] - S2[-3, 1, 1, n]/2 - S2[-2, 1, -2, n]/2 - 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 + (S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 - 
   (3*S2[1, n]*S2[-1, -2, -1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, n])/16 + (S2[2, Infinity]*S2[-1, 1, -1, n])/
    4 - Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] - S2[1, n]^2*S2[-1, 1, 1, n] + 
   S2[-1, 1, n]*S2[-1, 1, 1, n] + (5*Half[S2[1, n], n]*S2[1, 2, -1, n])/4 - 
   (7*S2[1, n]*S2[1, 2, -1, n])/4 - S2[2, 1, -2, n]/2 + 
   (3*Half[S2[1, n], n]*S2[2, 1, -1, n])/8 - (7*S2[1, n]*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 - (3*S2[1, n]*S2[2, 1, 1, n])/4 + 
   3*S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n]/2 + (S2[1, n]*S2[-1, 1, -1, -1, n])/
    8 + (S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 2*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, n] + 2*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   (27*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (23*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + S2[1, -1, 1, -2, n] - 
   S2[1, 1, -2, -1, n] - S2[1, 1, -1, 2, n]/2 - 2*S2[1, 2, -1, -1, n] + 
   S2[2, 1, 1, 1, n] + S2[-1, -1, 1, -1, -1, n]/4 + 
   (3*S2[-1, 1, -1, -1, -1, n])/4 - S2[-1, 1, -1, -1, 1, n]/8 - 
   S2[-1, 1, -1, 1, 1, n]/2 - S2[-1, 1, 1, 1, -1, n]/2 + 
   (33*S2[-1, 1, 1, 1, 1, Infinity])/8 + (3*S2[1, -1, -1, -1, -1, n])/2 + 
   S2[1, -1, -1, 1, -1, n]/4 + (3*S2[1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, 1, -1, -1, -1, n])/4 + (3*S2[1, 1, -1, 1, -1, n])/2 + 
   2*S2[1, 1, 1, -1, -1, n], S2[-1, 1, 2, 1, n] -> 
  (9*Diff[Half[S2[1, n], n], n, 4])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 - 
   (9*Diff[S2[1, n], n, 4])/16 - 3*Diff[S2[-3, 1, n], n, 1] + 
   Diff[S2[-2, 1, n], n, 2]/4 - (13*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/4 + (5*Diff[S2[-1, 1, n], n, 3])/3 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2])/4 + 2*Diff[S2[1, 2, -1, n], n, 1] + 
   (3*Diff[S2[2, 1, -1, n], n, 1])/2 - Diff[S2[-1, 1, 1, 1, n], n, 1]/2 + 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/2 - S2[-1, Infinity]^5/48 - 
   (2*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   3*Diff[S2[1, n], n, 1]^2*S2[1, n] + (17*Diff[S2[1, n], n, 3]*S2[1, n])/
    12 - (Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^4*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 - 
   Diff[S2[1, n], n, 2]*S2[1, n]^2 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/
    4 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[1, n]^3*S2[2, Infinity])/4 + 
   (19*Half[S2[1, n], n]*S2[2, Infinity]^2)/20 - 
   (S2[-1, Infinity]*S2[2, Infinity]^2)/16 + (99*S2[1, n]*S2[2, Infinity]^2)/
    80 + Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity] - 
   (63*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - 
   Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity] + 
   (57*S2[1, n]^2*S2[3, Infinity])/32 + (45*S2[2, Infinity]*S2[3, Infinity])/
    8 - (2005*S2[5, Infinity])/128 - (9*S2[-4, 1, n])/2 + 
   4*S2[1, n]*S2[-3, 1, n] - (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, n])/4 + (S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + S2[3, Infinity]*S2[-1, 1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n] + Diff[S2[1, n], n, 1]*
    S2[2, 1, n] + Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n] - 
   S2[1, n]^2*S2[2, 1, n] - (3*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (11*S2[-3, 1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[1, 2, -1, n])/2 - (3*S2[2, 1, -2, n])/2 + 
   (S2[1, n]*S2[2, 1, -1, n])/2 - 2*Half[S2[1, n], n]*S2[2, 1, 1, n] + 
   2*S2[1, n]*S2[2, 1, 1, n] - S2[-2, 1, 1, 1, n]/2 + 
   S2[1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, -1, 1, 2, n] + 
   (3*S2[1, 1, -1, 2, n])/2 + 2*S2[1, 1, 2, -1, n] + 
   (5*S2[-1, 1, 1, 1, 1, Infinity])/2, S2[-1, 1, -1, -2, n] -> 
  (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 - 
   (55*Diff[Half[S2[1, n], n], n, 4])/96 + 
   (45*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 + 
   (55*Diff[S2[1, n], n, 4])/96 + (15*Diff[S2[-3, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 2]/2 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (77*Diff[S2[-1, 1, n], n, 3])/48 + Diff[S2[-1, -2, -1, n], n, 1]/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2])/4 - 2*Diff[S2[1, 2, -1, n], n, 1] - 
   (7*Diff[S2[2, 1, -1, n], n, 1])/4 - Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1] - (3*Diff[Half[S2[1, n], n], n, 1]^2*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[1, n], n], n, 3]*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[2, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (27*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (73*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/32 - S2[-1, Infinity]^5/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (71*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 - 
   (169*Diff[S2[1, n], n, 3]*S2[1, n])/96 + Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] + (39*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - (7*S2[-1, Infinity]^4*S2[1, n])/
    96 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/8 - (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 - (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    8 + (3*Half[S2[1, n], n]*S2[1, n]^4)/8 - S2[1, n]^5/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/2 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (133*Half[S2[1, n], n]*S2[2, Infinity]^2)/160 + 
   (7*S2[-1, Infinity]*S2[2, Infinity]^2)/16 + 
   (21*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 + 
   (105*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 + 
   (45*Half[S2[1, n], n]^2*S2[3, Infinity])/64 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 - 
   (91*S2[1, n]^2*S2[3, Infinity])/64 - (143*S2[2, Infinity]*S2[3, Infinity])/
    32 + (1777*S2[5, Infinity])/128 + 3*S2[-4, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/8 - (21*S2[1, n]*S2[-3, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    4 - (S2[1, n]^2*S2[-2, 1, n])/4 - (S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (7*S2[3, Infinity]*S2[-1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 + (3*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 - (Half[S2[1, n], n]^2*S2[2, 1, n])/
    8 - (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + 
   (15*S2[1, n]^2*S2[2, 1, n])/8 + (3*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, n])/2 + 4*S2[-3, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - (S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 + (S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - (S2[-1, 1, n]*S2[-1, 1, -1, n])/
    2 + Half[S2[1, n], n]^2*S2[-1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] + S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[2, Infinity]*S2[-1, 1, 1, n] - (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 2, -1, n])/2 + S2[2, 1, -2, n] - 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 + (5*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[2, 1, 1, n])/2 - (3*S2[1, n]*S2[2, 1, 1, n])/2 + 
   S2[-2, 1, 1, 1, n] - (3*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, n])/2 - (S2[1, n]*S2[-1, 1, -1, 1, n])/
    2 - (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (7*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - S2[1, -1, 1, 2, n] - 
   S2[1, 1, 2, -1, n] + (3*S2[-1, 1, -1, -1, 1, n])/4 - 
   S2[-1, 1, 1, -1, -1, n] + (5*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   S2[1, -1, -1, 1, -1, n]/2 - S2[1, -1, 1, -1, -1, n]/4 - 
   (3*S2[1, 1, -1, -1, -1, n])/2, S2[-1, 1, -1, 2, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]) - 
   (7*Diff[Half[S2[1, n], n], n, 4])/24 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2])/16 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/12 + 
   (17*Diff[S2[1, n], n, 4])/48 - (13*Diff[S2[-3, 1, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, n], n, 2])/2 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (11*Diff[S2[-1, 1, n], n, 3])/12 + Diff[S2[2, 1, n], n, 2]/2 + 
   Diff[S2[-2, 1, -1, n], n, 1] - Diff[S2[-1, -2, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2])/8 - Diff[S2[-1, 1, 1, n], n, 2]/2 - 
   Diff[S2[1, 2, -1, n], n, 1] - Diff[S2[2, 1, -1, n], n, 1]/2 + 
   2*Diff[S2[2, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, 1, n], n, 1]/2 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 - (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/4 + 
   (25*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/24 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/12 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + 
   (5*Half[S2[4, 1, n], n])/16 + (5*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    16 - S2[-1, Infinity]^5/120 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    4 + (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (25*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 - (3*Diff[S2[1, n], n, 3]*S2[1, n])/
    2 + (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   Diff[S2[-1, 1, n], n, 2]*S2[1, n] - (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/
    4 - (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/2 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n] + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Half[S2[1, n], n]^4*S2[1, n])/8 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (13*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/2 + (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/8 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^3)/12 - (Half[S2[1, n], n]*S2[1, n]^4)/6 - 
   S2[1, n]^5/24 - (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 + 
   (73*Diff[S2[1, n], n, 2]*S2[2, Infinity])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (57*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/16 + 
   (5*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (7*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (69*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (39*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (71*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (91*S2[1, n]^3*S2[2, Infinity])/48 - 
   (41*Half[S2[1, n], n]*S2[2, Infinity]^2)/10 - 
   (43*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (85*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 - 
   (5*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 - 
   (295*Half[S2[1, n], n]^2*S2[3, Infinity])/192 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 + 
   (197*S2[1, n]^2*S2[3, Infinity])/192 + 
   (1019*S2[2, Infinity]*S2[3, Infinity])/192 - (1511*S2[5, Infinity])/128 - 
   5*S2[-4, 1, n] - (15*Half[S2[1, n], n]*S2[-3, 1, n])/4 + 
   (15*S2[1, n]*S2[-3, 1, n])/4 + (5*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-2, 1, n])/4 - S2[2, Infinity]*S2[-2, 1, n] - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/8 - Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, n] + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/
    8 - (Half[S2[1, n], n]^3*S2[-1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (3*S2[1, n]^3*S2[-1, 1, n])/8 - (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (S2[3, Infinity]*S2[-1, 1, n])/16 + S2[1, n]*S2[-1, 1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, n] - (7*S2[2, Infinity]*S2[2, 1, n])/4 - 4*S2[4, 1, n] + 
   S2[-2, 1, -2, n]/2 - (Half[S2[1, n], n]*S2[-1, -2, -1, n])/4 + 
   (S2[1, n]*S2[-1, -2, -1, n])/4 - (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/
    8 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, n])/8 + (S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] + 3*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[1, 2, -1, n] + S2[1, n]*S2[1, 2, -1, n] - 
   (3*Half[S2[1, n], n]*S2[2, 1, -1, n])/2 + (3*S2[1, n]*S2[2, 1, -1, n])/2 - 
   S2[1, n]*S2[2, 1, 1, n] + 2*S2[3, 1, 1, n] - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, n] - 4*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   (15*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (13*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - S2[1, -1, 1, -2, n] - 
   S2[1, 1, -2, -1, n] + S2[2, 1, 1, 1, n] - S2[-1, -1, 1, -1, -1, n]/2 - 
   (3*S2[-1, 1, -1, -1, -1, n])/2 + (3*S2[-1, 1, -1, 1, 1, n])/2 - 
   S2[-1, 1, 1, 1, -1, n]/2 + S2[-1, 1, 1, 1, 1, Infinity] - 
   3*S2[1, -1, -1, -1, -1, n] - S2[1, 1, -1, 1, -1, n]/2 + 
   2*S2[1, 1, 1, -1, -1, n], S2[-1, 1, 1, -2, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 - 
   (49*Diff[Half[S2[1, n], n], n, 4])/96 - Diff[Half[S2[2, 1, n], n], n, 2]/
    8 + (39*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/4 - 
   (119*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/24 + 
   (53*Diff[S2[1, n], n, 4])/96 + (9*Diff[S2[-3, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 2]/2 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (21*Diff[S2[-1, 1, n], n, 3])/16 + Diff[S2[-2, 1, -1, n], n, 1] - 
   Diff[S2[-1, -2, -1, n], n, 1]/8 + Diff[S2[-1, 1, -1, n], n, 2]/2 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2])/4 - 2*Diff[S2[1, 2, -1, n], n, 1] - 
   (5*Diff[S2[2, 1, -1, n], n, 1])/4 + Diff[S2[2, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + Diff[S2[-1, 1, -1, 1, n], n, 1]/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1] + (Diff[Half[S2[1, n], n], n, 1]^2*
     Half[S2[1, n], n])/16 - (13*Diff[Half[S2[1, n], n], n, 3]*
     Half[S2[1, n], n])/48 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (31*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (31*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + Half[S2[4, 1, n], n]/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/8 + 
   Half[S2[3, 1, 1, n], n]/4 + (13*Half[S2[1, n], n]*S2[-1, Infinity]^4)/96 - 
   (11*S2[-1, Infinity]^5)/480 - (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    16 + (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (59*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 - 
   (181*Diff[S2[1, n], n, 3]*S2[1, n])/96 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (39*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - (13*S2[-1, Infinity]^4*S2[1, n])/
    96 - (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^2)/4 + (Half[S2[1, n], n]^3*S2[1, n]^2)/8 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 - (13*Half[S2[1, n], n]^2*S2[1, n]^3)/
    24 + (17*Half[S2[1, n], n]*S2[1, n]^4)/24 - (7*S2[1, n]^5)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 + 
   (23*Diff[S2[1, n], n, 2]*S2[2, Infinity])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (25*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (7*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (13*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (27*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (S2[1, n]^3*S2[2, Infinity])/12 - 
   (227*Half[S2[1, n], n]*S2[2, Infinity]^2)/160 + 
   (43*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (353*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 + 
   (109*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 - 
   (85*Half[S2[1, n], n]^2*S2[3, Infinity])/192 + 
   (67*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 - 
   (193*S2[1, n]^2*S2[3, Infinity])/192 - 
   (85*S2[2, Infinity]*S2[3, Infinity])/48 + (491*S2[5, Infinity])/64 + 
   3*S2[-4, 1, n] - (3*Half[S2[1, n], n]*S2[-3, 1, n])/8 + 
   (3*S2[1, n]*S2[-3, 1, n])/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/4 - (S2[1, n]^2*S2[-2, 1, n])/4 + 
   (S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, n] - (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n] - (3*S2[1, n]^3*S2[-1, 1, n])/
    4 - (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[3, Infinity]*S2[-1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + 
   (11*S2[1, n]^2*S2[2, 1, n])/8 + (S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, n])/2 + S2[4, 1, n] + S2[-3, 1, 1, n] + 
   S2[-2, 1, -2, n] + (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]*S2[-2, 1, -1, n])/2 - (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]*S2[-1, -2, -1, n])/8 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/
    4 + (S2[1, n]^2*S2[-1, 1, -1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 + Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] + S2[1, n]^2*S2[-1, 1, 1, n] - 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + (5*S2[1, n]*S2[1, 2, -1, n])/2 + 
   S2[2, 1, -2, n] - (5*Half[S2[1, n], n]*S2[2, 1, -1, n])/4 + 
   (9*S2[1, n]*S2[2, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[2, 1, 1, n])/2 + S2[-2, 1, 1, 1, n] - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/4 - (S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] - S2[1, n]*S2[-1, 1, 1, 1, n] - 
   (13*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (13*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - S2[1, -1, 1, -2, n] - 
   S2[1, 1, -2, -1, n] + S2[1, 1, -1, 2, n] + S2[2, 1, 1, 1, n] + 
   S2[-1, 1, -1, -1, 1, n]/4 + S2[-1, 1, -1, 1, 1, n]/2 - 
   S2[-1, 1, 1, 1, -1, n]/2 + (11*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   S2[1, -1, -1, 1, -1, n]/2 - (3*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, 1, -1, -1, -1, n])/2 + S2[1, 1, -1, 1, -1, n]/2 + 
   2*S2[1, 1, 1, -1, -1, n], S2[-1, 1, 1, 2, n] -> 
  -Diff[Half[S2[1, n], n], n, 4]/3 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1])/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 2])/2 - (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/
    4 + Diff[S2[1, n], n, 4]/3 + 2*Diff[S2[-3, 1, n], n, 1] + 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1] - 
   Diff[S2[-1, 1, n], n, 3] - Diff[S2[-1, 1, 1, n], n, 2] - 
   Diff[S2[1, 2, -1, n], n, 1] - Diff[S2[2, 1, -1, n], n, 1] - 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/3 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1]*S2[1, n] + (7*Diff[S2[1, n], n, 1]^2*S2[1, n])/4 - 
   (17*Diff[S2[1, n], n, 3]*S2[1, n])/24 + Diff[S2[-1, 1, n], n, 2]*
    S2[1, n] - (Diff[S2[2, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (S2[1, n]^3*S2[2, Infinity])/2 - (3*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    10 - (39*S2[1, n]*S2[2, Infinity]^2)/40 - Diff[Half[S2[1, n], n], n, 1]*
    S2[3, Infinity] + (3*Diff[S2[1, n], n, 1]*S2[3, Infinity])/2 + 
   Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity] - 
   (11*S2[1, n]^2*S2[3, Infinity])/8 - (47*S2[2, Infinity]*S2[3, Infinity])/
    16 + (271*S2[5, Infinity])/32 + 2*S2[-4, 1, n] - 
   3*S2[1, n]*S2[-3, 1, n] + Diff[S2[1, n], n, 2]*S2[-1, 1, n] + 
   Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n] - Diff[S2[1, n], n, 1]*
    S2[2, 1, n] - Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n] + 
   S2[1, n]^2*S2[2, 1, n] + (S2[2, Infinity]*S2[2, 1, n])/2 + 
   3*S2[-3, 1, 1, n] + S2[2, 1, -2, n] + Half[S2[1, n], n]*S2[2, 1, 1, n] - 
   S2[1, n]*S2[2, 1, 1, n] - S2[1, -1, 1, 2, n] - S2[1, 1, -1, 2, n] - 
   S2[1, 1, 2, -1, n], S2[1, -2, -1, -1, n] -> 
  (35*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/96 - 
   (185*Diff[Half[S2[1, n], n], n, 4])/576 - Diff[Half[S2[2, 1, n], n], n, 2]/
    32 - Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/6 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/48 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/16 + 
   (173*Diff[S2[1, n], n, 4])/576 - (17*Diff[S2[-3, 1, n], n, 1])/48 - 
   (13*Diff[S2[-2, 1, n], n, 2])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (27*Diff[S2[-1, 1, n], n, 3])/32 + Diff[S2[2, 1, n], n, 2]/8 + 
   Diff[S2[-1, -2, -1, n], n, 1]/48 + Diff[S2[-1, 1, -1, n], n, 2]/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2])/8 - Diff[S2[1, 2, -1, n], n, 1] - 
   (23*Diff[S2[2, 1, -1, n], n, 1])/24 + Diff[S2[2, 1, 1, n], n, 1] + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1])/24 + Diff[S2[-1, 1, 1, 1, n], n, 1]/
    2 + (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/96 + 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/288 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/48 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    48 - (35*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/96 + 
   (185*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/576 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/96 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/96 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/48 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[3, 1, 1, n], n]/8 - Half[S2[2, 1, 1, 1, n], n]/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/64 - S2[-1, Infinity]^5/320 - 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/96 + 
   (199*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/288 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/48 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/48 + 
   (209*Diff[S2[1, n], n, 1]^2*S2[1, n])/96 - 
   (605*Diff[S2[1, n], n, 3]*S2[1, n])/576 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/6 + 
   (143*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/96 - 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[1, n])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - (11*S2[-1, Infinity]^4*S2[1, n])/
    192 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 + 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/48 - (7*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    48 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/48 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/3 - (Half[S2[1, n], n]^2*S2[1, n]^3)/
    48 + (Half[S2[1, n], n]*S2[1, n]^4)/16 - S2[1, n]^5/24 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/32 + 
   (47*Diff[S2[1, n], n, 2]*S2[2, Infinity])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/3 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (25*Half[S2[1, n], n]^3*S2[2, Infinity])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (3*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (29*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (11*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*S2[1, n]^3*S2[2, Infinity])/32 + 
   (101*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (217*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 + 
   (209*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 - 
   (107*Half[S2[1, n], n]^2*S2[3, Infinity])/192 + 
   (59*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 - 
   (167*S2[1, n]^2*S2[3, Infinity])/192 + 
   (131*S2[2, Infinity]*S2[3, Infinity])/384 - (175*S2[5, Infinity])/128 - 
   (5*Half[S2[1, n], n]*S2[-3, 1, n])/48 + (5*S2[1, n]*S2[-3, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/12 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/12 - 
   (S2[1, n]^2*S2[-2, 1, n])/6 - (S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 + 
   (31*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (7*S2[1, n]^3*S2[-1, 1, n])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/12 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    16 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (7*S2[3, Infinity]*S2[-1, 1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 - (3*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 + (9*S2[1, n]^2*S2[2, 1, n])/
    16 - (S2[2, Infinity]*S2[2, 1, n])/2 + (S2[-1, 1, n]*S2[2, 1, n])/4 + 
   S2[-3, 1, 1, n] - (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 + 
   (S2[1, n]*S2[-2, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[-1, -2, -1, n])/48 - 
   (S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/6 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, n])/48 + (S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 - (Half[S2[1, n], n]^2*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[1, 2, -1, n])/
    4 + (3*S2[1, n]*S2[1, 2, -1, n])/4 + (Half[S2[1, n], n]*S2[2, 1, -1, n])/
    24 + (23*S2[1, n]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 - (3*S2[1, n]*S2[2, 1, 1, n])/4 + 
   S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, n])/6 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, n])/2 - (S2[1, n]*S2[-1, 1, 1, 1, n])/
    2 - (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (11*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - S2[1, 2, -1, -1, n] + 
   S2[2, 1, 1, 1, n] - S2[-1, -1, 1, -1, -1, n]/4 - 
   S2[-1, 1, -1, -1, -1, n]/4 + S2[-1, 1, -1, -1, 1, n]/8 + 
   S2[-1, 1, -1, 1, 1, n]/4 + S2[-1, 1, 1, -1, -1, n]/2 - 
   S2[-1, 1, 1, 1, -1, n]/4 + (3*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   S2[1, -1, -1, -1, -1, n]/2 - S2[1, -1, -1, 1, -1, n]/4 + 
   S2[1, -1, 1, -1, -1, n]/8 + (3*S2[1, 1, -1, -1, -1, n])/4 + 
   S2[1, 1, -1, 1, -1, n]/4 + S2[1, 1, 1, -1, -1, n], 
 S2[1, -2, -1, 1, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/4 + 
   (29*Diff[Half[S2[1, n], n], n, 4])/48 + Diff[Half[S2[2, 1, n], n], n, 2]/
    8 + Diff[Half[S2[2, 1, 1, n], n], n, 1]/2 - 
   2*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   (53*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/12 - 
   (23*Diff[S2[1, n], n, 4])/48 + Diff[S2[-3, 1, n], n, 1] + 
   (5*Diff[S2[-2, 1, n], n, 2])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (17*Diff[S2[-1, 1, n], n, 3])/12 - Diff[S2[2, 1, n], n, 2]/4 - 
   2*Diff[S2[-2, 1, -1, n], n, 1] + Diff[S2[-1, -2, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, n], n, 2] + Diff[S2[-1, 1, 1, n], n, 2] + 
   2*Diff[S2[1, 2, -1, n], n, 1] + Diff[S2[2, 1, -1, n], n, 1] - 
   3*Diff[S2[2, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, 1, n], n, 1] - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/3 + Diff[S2[-2, 1, n], n, 1]*
    Half[S2[1, n], n] - Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n] + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/4 + Half[S2[4, 1, n], n]/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/12 + S2[-1, Infinity]^5/30 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n])/4 + (25*Diff[S2[1, n], n, 3]*S2[1, n])/
    24 - 2*Diff[S2[-2, 1, n], n, 1]*S2[1, n] - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/4 + 2*Diff[S2[2, 1, n], n, 1]*
    S2[1, n] + (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/2 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/3 + 
   2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n] + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/2 + (S2[-1, Infinity]^4*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 - 
   (2*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 - Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^2 - Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (Half[S2[2, 1, n], n]*S2[1, n]^2)/4 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]^3 - (4*Diff[S2[1, n], n, 1]*S2[1, n]^3)/3 + 
   (Half[S2[1, n], n]^2*S2[1, n]^3)/3 - (2*Half[S2[1, n], n]*S2[1, n]^4)/3 + 
   S2[1, n]^5/3 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 - 
   (11*Diff[S2[1, n], n, 2]*S2[2, Infinity])/12 - 
   Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity] + 2*Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (4*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity] + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[1, n]^3*S2[2, Infinity])/6 + (21*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    20 - (49*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (121*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/16 - 
   (47*Diff[S2[1, n], n, 1]*S2[3, Infinity])/48 + 
   (2*Half[S2[1, n], n]^2*S2[3, Infinity])/3 + 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/48 + 
   (29*S2[1, n]^2*S2[3, Infinity])/48 - (89*S2[2, Infinity]*S2[3, Infinity])/
    24 + (233*S2[5, Infinity])/32 - S2[-4, 1, n] - 
   (3*S2[1, n]*S2[-3, 1, n])/2 + (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 - 
   (S2[2, Infinity]*S2[-2, 1, n])/4 + Diff[Half[S2[1, n], n], n, 2]*
    S2[-1, 1, n] - 2*Diff[S2[1, n], n, 2]*S2[-1, 1, n] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n] + S2[1, n]^3*S2[-1, 1, n] + 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n] - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (13*S2[3, Infinity]*S2[-1, 1, n])/8 - S2[-2, 1, n]*S2[-1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/2 - (3*S2[1, n]^2*S2[2, 1, n])/
    2 + S2[2, Infinity]*S2[2, 1, n] - 2*S2[4, 1, n] - S2[-2, 1, -2, n]/2 + 
   S2[1, n]*S2[-2, 1, -1, n] - (S2[1, n]*S2[-1, -2, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/2 - (S2[1, n]^2*S2[-1, 1, -1, n])/
    2 + (S2[2, Infinity]*S2[-1, 1, -1, n])/2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] - 2*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[2, Infinity]*S2[-1, 1, 1, n] - 2*S2[1, n]*S2[1, 2, -1, n] - 
   S2[1, n]*S2[2, 1, -1, n] + 3*S2[1, n]*S2[2, 1, 1, n] - 2*S2[3, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, -1, 1, n] - 2*Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] + 
   2*S2[1, n]*S2[-1, 1, 1, 1, n] + 2*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, Infinity] - 3*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, -1, 1, -2, n] - 2*S2[2, 1, 1, 1, n] - S2[-1, 1, -1, 1, 1, n] + 
   S2[-1, 1, 1, 1, -1, n] - 4*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, 1, -1, 1, -1, n] - 4*S2[1, 1, 1, -1, -1, n], 
 S2[1, -2, 1, -1, n] -> (-17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/32 - (29*Diff[Half[S2[1, n], n], n, 4])/
    64 - (3*Diff[Half[S2[2, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/8 + 
   (39*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/16 - 
   (215*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/48 + 
   (31*Diff[S2[1, n], n, 4])/64 - (13*Diff[S2[-3, 1, n], n, 1])/16 - 
   (9*Diff[S2[-2, 1, n], n, 2])/8 + (15*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (115*Diff[S2[-1, 1, n], n, 3])/96 + Diff[S2[2, 1, n], n, 2]/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1])/2 - (3*Diff[S2[-1, -2, -1, n], n, 1])/
    16 + (11*Diff[S2[-1, 1, -1, n], n, 2])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2])/8 - (3*Diff[S2[1, 2, -1, n], n, 1])/2 - 
   (7*Diff[S2[2, 1, -1, n], n, 1])/8 + (5*Diff[S2[2, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, -1, n], n, 1]/8 + Diff[S2[-1, 1, -1, 1, n], n, 1] + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 - (19*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/32 + 
   (97*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/192 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] + 
   (21*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 + 
   (3*Half[S2[4, 1, n], n])/16 - (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    16 + Half[S2[3, 1, 1, n], n]/8 + (9*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    64 - (31*S2[-1, Infinity]^5)/960 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/32 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (45*Diff[S2[1, n], n, 1]^2*S2[1, n])/32 - 
   (197*Diff[S2[1, n], n, 3]*S2[1, n])/192 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/32 - 
   (23*Diff[S2[2, 1, n], n, 1]*S2[1, n])/16 - 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - (31*S2[-1, Infinity]^4*S2[1, n])/
    192 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^2)/12 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^2)/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/16 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^3)/48 + (29*Half[S2[1, n], n]*S2[1, n]^4)/
    48 - S2[1, n]^5/3 - (21*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/
    32 + (139*Diff[S2[1, n], n, 2]*S2[2, Infinity])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (81*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/32 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (37*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (87*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (45*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (17*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (73*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (55*S2[1, n]^3*S2[2, Infinity])/96 - 
   (607*Half[S2[1, n], n]*S2[2, Infinity]^2)/320 + 
   (53*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (1111*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (279*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/128 + 
   (5*Diff[S2[1, n], n, 1]*S2[3, Infinity])/48 - 
   (79*Half[S2[1, n], n]^2*S2[3, Infinity])/96 - 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/48 + 
   (53*S2[1, n]^2*S2[3, Infinity])/96 + 
   (1331*S2[2, Infinity]*S2[3, Infinity])/384 - (1483*S2[5, Infinity])/256 - 
   S2[-4, 1, n]/2 - (17*Half[S2[1, n], n]*S2[-3, 1, n])/16 + 
   (17*S2[1, n]*S2[-3, 1, n])/16 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/4 + (S2[1, n]^2*S2[-2, 1, n])/
    2 - (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 + 
   (25*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, n] + (21*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/
    16 + (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/16 + 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (17*S2[1, n]^3*S2[-1, 1, n])/16 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 + (27*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    16 + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (107*S2[3, Infinity]*S2[-1, 1, n])/64 + (5*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/16 - (S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/16 - 
   (19*Diff[S2[1, n], n, 1]*S2[2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/8 + (19*S2[1, n]^2*S2[2, 1, n])/
    16 - (5*S2[2, Infinity]*S2[2, 1, n])/4 + (S2[-1, 1, n]*S2[2, 1, n])/4 + 
   S2[-3, 1, 1, n]/2 + S2[-2, 1, -2, n]/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/4 - (S2[1, n]*S2[-2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/16 + 
   (3*S2[1, n]*S2[-1, -2, -1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (7*S2[1, n]^2*S2[-1, 1, -1, n])/16 - (S2[2, Infinity]*S2[-1, 1, -1, n])/
    2 + 2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] + 2*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[1, 2, -1, n])/
    4 + (3*S2[1, n]*S2[1, 2, -1, n])/4 + S2[2, 1, -2, n]/2 - 
   (3*Half[S2[1, n], n]*S2[2, 1, -1, n])/8 + (7*S2[1, n]*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/4 - (9*S2[1, n]*S2[2, 1, 1, n])/4 + 
   2*S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n]/2 - (S2[1, n]*S2[-1, 1, -1, -1, n])/
    8 - S2[1, n]*S2[-1, 1, -1, 1, n] + 2*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, n] - 2*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   (27*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (31*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - S2[1, -1, 1, -2, n] - 
   2*S2[1, 1, -2, -1, n] + S2[1, 1, -1, 2, n]/2 + 2*S2[2, 1, 1, 1, n] - 
   S2[-1, -1, 1, -1, -1, n]/4 - (3*S2[-1, 1, -1, -1, -1, n])/4 + 
   S2[-1, 1, -1, -1, 1, n]/8 + S2[-1, 1, -1, 1, 1, n] - 
   S2[-1, 1, 1, 1, -1, n] + (31*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, 1, -1, n]/4 - 
   (3*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, 1, -1, -1, -1, n])/4 + 
   S2[1, 1, -1, 1, -1, n] + 4*S2[1, 1, 1, -1, -1, n], 
 S2[1, -2, 1, 1, n] -> Diff[Half[S2[1, n], n], n, 4]/3 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] - Diff[S2[1, n], n, 4]/3 + 
   Diff[S2[-3, 1, n], n, 1] + Diff[S2[-2, 1, n], n, 2] - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1] + 
   Diff[S2[-1, 1, n], n, 3] + Diff[S2[-1, 1, 1, n], n, 2] + 
   Diff[S2[1, 2, -1, n], n, 1] + Diff[S2[2, 1, -1, n], n, 1] + 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/6 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   3*Diff[S2[1, n], n, 1]^2*S2[1, n] + (4*Diff[S2[1, n], n, 3]*S2[1, n])/3 - 
   2*Diff[S2[-2, 1, n], n, 1]*S2[1, n] - 2*Diff[S2[-1, 1, n], n, 2]*
    S2[1, n] - Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (S2[-1, Infinity]^4*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/2 - 
   2*Diff[S2[1, n], n, 2]*S2[1, n]^2 + Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^3 - (Diff[S2[1, n], n, 2]*S2[2, Infinity])/
    2 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity] + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (39*S2[1, n]*S2[2, Infinity]^2)/40 - Diff[Half[S2[1, n], n], n, 1]*
    S2[3, Infinity] + (Diff[S2[1, n], n, 1]*S2[3, Infinity])/8 + 
   (7*S2[1, n]^2*S2[3, Infinity])/8 - (5*S2[2, Infinity]*S2[3, Infinity])/
    16 - (41*S2[5, Infinity])/32 - S2[1, n]*S2[-3, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] + S2[1, n]^2*S2[-2, 1, n] + 
   S2[2, Infinity]*S2[-2, 1, n] - Diff[S2[1, n], n, 2]*S2[-1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n] - S2[-3, 1, 1, n] - 
   S2[1, n]*S2[1, 2, -1, n] - S2[1, n]*S2[2, 1, -1, n] - 
   3*S2[-2, 1, 1, 1, n] - S2[1, n]*S2[-1, 1, 1, 1, Infinity], 
 S2[1, 2, -1, 1, n] -> (17*Diff[Half[S2[1, n], n], n, 4])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 - 
   (17*Diff[S2[1, n], n, 4])/24 - Diff[S2[-3, 1, n], n, 1] + 
   Diff[S2[-2, 1, n], n, 2] - 4*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1] + (11*Diff[S2[-1, 1, n], n, 3])/6 + 
   Diff[S2[-1, 1, 1, n], n, 2] + 2*Diff[S2[1, 2, -1, n], n, 1] + 
   2*Diff[S2[2, 1, -1, n], n, 1] - 2*Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   2*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n] - 
   Diff[S2[1, n], n, 3]*Half[S2[1, n], n] - S2[-1, Infinity]^5/60 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/2 + 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   6*Diff[S2[1, n], n, 1]^2*S2[1, n] + (5*Diff[S2[1, n], n, 3]*S2[1, n])/2 - 
   2*Diff[S2[-2, 1, n], n, 1]*S2[1, n] - 3*Diff[S2[-1, 1, n], n, 2]*
    S2[1, n] + (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (S2[-1, Infinity]^4*S2[1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/2 - 
   3*Diff[S2[1, n], n, 2]*S2[1, n]^2 + Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^3 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[2, Infinity] - 3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
    S2[2, Infinity] - (S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity] + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   Half[S2[1, n], n]*S2[2, Infinity]^2 + 
   (47*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (9*S2[1, n]*S2[2, Infinity]^2)/20 + Diff[Half[S2[1, n], n], n, 1]*
    S2[3, Infinity] - 2*Diff[S2[1, n], n, 1]*S2[3, Infinity] - 
   Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity] + 
   (15*S2[1, n]^2*S2[3, Infinity])/8 + (9*S2[2, Infinity]*S2[3, Infinity])/
    2 - (311*S2[5, Infinity])/32 - 3*S2[-4, 1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] + S2[1, n]^2*S2[-2, 1, n] + 
   S2[2, Infinity]*S2[-2, 1, n] - (3*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n] - S2[1, n]*S2[2, Infinity]*
    S2[-1, 1, n] + S2[3, Infinity]*S2[-1, 1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n] + Diff[S2[1, n], n, 1]*
    S2[2, 1, n] + Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n] - 
   S2[1, n]^2*S2[2, 1, n] - (S2[2, Infinity]*S2[2, 1, n])/2 - 
   S2[-1, 1, n]*S2[2, 1, n] - 4*S2[-3, 1, 1, n] + 
   2*S2[2, Infinity]*S2[-1, 1, 1, n] - S2[1, n]*S2[1, 2, -1, n] - 
   S2[2, 1, -2, n] - 2*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-2, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, -1, 1, 2, n] + 
   2*S2[-1, 1, 1, 1, 1, Infinity], S2[1, 2, 1, -1, n] -> 
  (-23*Diff[Half[S2[1, n], n], n, 4])/48 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   (23*Diff[S2[1, n], n, 4])/48 + Diff[S2[-3, 1, n], n, 1] - 
   (3*Diff[S2[-2, 1, n], n, 2])/4 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (4*Diff[S2[-1, 1, n], n, 3])/3 - (3*Diff[S2[-1, 1, 1, n], n, 2])/4 - 
   2*Diff[S2[1, 2, -1, n], n, 1] - (3*Diff[S2[2, 1, -1, n], n, 1])/2 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/4 + 
   (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/24 + S2[-1, Infinity]^5/80 + 
   Diff[Half[S2[1, n], n], n, 3]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (15*Diff[S2[1, n], n, 1]^2*S2[1, n])/4 - 
   (41*Diff[S2[1, n], n, 3]*S2[1, n])/24 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/4 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^4*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 + 
   2*Diff[S2[1, n], n, 2]*S2[1, n]^2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (9*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[1, n]^3*S2[2, Infinity])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    4 - (51*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (89*S2[1, n]*S2[2, Infinity]^2)/80 - Diff[Half[S2[1, n], n], n, 1]*
    S2[3, Infinity] + (61*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 + 
   Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity] - 
   (59*S2[1, n]^2*S2[3, Infinity])/32 - (75*S2[2, Infinity]*S2[3, Infinity])/
    16 + (1217*S2[5, Infinity])/128 + (5*S2[-4, 1, n])/2 - 
   2*S2[1, n]*S2[-3, 1, n] + (3*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - 
   (3*S2[1, n]^2*S2[-2, 1, n])/4 - (3*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   Diff[S2[1, n], n, 2]*S2[-1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - S2[3, Infinity]*S2[-1, 1, n] + 
   Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n] - Diff[S2[1, n], n, 1]*
    S2[2, 1, n] - Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n] + 
   S2[1, n]^2*S2[2, 1, n] + (3*S2[2, Infinity]*S2[2, 1, n])/4 + 
   S2[-1, 1, n]*S2[2, 1, n] + (7*S2[-3, 1, 1, n])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + (3*S2[1, n]*S2[1, 2, -1, n])/2 + 
   S2[2, 1, -2, n]/2 + (3*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (3*S2[-2, 1, 1, 1, n])/2 + S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   S2[1, -1, 1, 2, n] - S2[1, 1, -1, 2, n]/2 - 2*S2[1, 1, 2, -1, n] - 
   (3*S2[-1, 1, 1, 1, 1, Infinity])/2, S2[1, 2, 1, 1, n] -> 
  -Diff[S2[2, 1, 1, n], n, 1] - Diff[S2[1, n], n, 1]*S2[3, Infinity] - 
   S2[2, Infinity]*S2[3, Infinity] + (11*S2[5, Infinity])/2 + 
   S2[2, Infinity]*S2[2, 1, n] + S2[1, n]*S2[2, 1, 1, n] - S2[3, 1, 1, n] - 
   3*S2[2, 1, 1, 1, n], S2[1, -1, -2, -1, n] -> 
  (-9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 4])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   (43*Diff[S2[1, n], n, 4])/96 - (7*Diff[S2[-3, 1, n], n, 1])/8 + 
   Diff[S2[-2, 1, n], n, 2]/2 - (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (53*Diff[S2[-1, 1, n], n, 3])/48 - Diff[S2[-1, -2, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, n], n, 2]/4 + 2*Diff[S2[1, 2, -1, n], n, 1] + 
   (7*Diff[S2[2, 1, -1, n], n, 1])/4 - (7*Diff[S2[-1, 1, -1, -1, n], n, 1])/
    4 - 2*Diff[S2[-1, 1, 1, 1, n], n, 1] - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 + 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n] - 
   (33*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 - 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] - 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4)/32 + S2[-1, Infinity]^5/480 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 + 
   (31*Diff[S2[1, n], n, 3]*S2[1, n])/32 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - (5*S2[-1, Infinity]^4*S2[1, n])/
    96 - (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/8 + (7*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 + (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    8 - (3*Half[S2[1, n], n]*S2[1, n]^4)/8 + S2[1, n]^5/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]^3*S2[2, Infinity])/2 + 
   (5*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (27*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (11*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (37*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (13*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (37*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*S2[1, n]^3*S2[2, Infinity])/2 - 
   (507*Half[S2[1, n], n]*S2[2, Infinity]^2)/160 - 
   (31*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (83*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 - 
   (45*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 + 
   (135*Half[S2[1, n], n]^2*S2[3, Infinity])/64 - 
   (95*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 + 
   (99*S2[1, n]^2*S2[3, Infinity])/64 + (127*S2[2, Infinity]*S2[3, Infinity])/
    32 - (1229*S2[5, Infinity])/128 - 2*S2[-4, 1, n] - 
   (9*Half[S2[1, n], n]*S2[-3, 1, n])/8 + (9*S2[1, n]*S2[-3, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, n])/4 + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, n] - (9*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n] + 
   4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n] + 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, n] - (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/
    4 + (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, n])/4 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (29*S2[3, Infinity]*S2[-1, 1, n])/32 - (5*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (13*Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 + (13*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 - 
   (11*S2[1, n]^2*S2[2, 1, n])/8 - (5*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (5*S2[-1, 1, n]*S2[2, 1, n])/2 - 2*S2[-3, 1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - (3*S2[1, n]*S2[-2, 1, -1, n])/
    2 - (3*Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, -1, n] + S2[1, n]^2*S2[-1, 1, -1, n] - 
   (5*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - (S2[-1, 1, n]*S2[-1, 1, -1, n])/
    2 + 3*Half[S2[1, n], n]^2*S2[-1, 1, 1, n] - 6*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] + 3*S2[1, n]^2*S2[-1, 1, 1, n] + 
   2*S2[2, Infinity]*S2[-1, 1, 1, n] - (3*Half[S2[1, n], n]*S2[1, 2, -1, n])/
    2 - (S2[1, n]*S2[1, 2, -1, n])/2 - (3*Half[S2[1, n], n]*S2[2, 1, -1, n])/
    4 - (5*S2[1, n]*S2[2, 1, -1, n])/4 + (3*Half[S2[1, n], n]*S2[2, 1, 1, n])/
    2 - (3*S2[1, n]*S2[2, 1, 1, n])/2 - 2*S2[-2, 1, 1, 1, n] + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (5*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - S2[1, -1, 1, 2, n] - 
   S2[1, 1, -1, 2, n] + S2[1, 1, 2, -1, n] - (3*S2[-1, 1, -1, -1, 1, n])/4 - 
   3*S2[-1, 1, 1, -1, -1, n] - S2[-1, 1, 1, 1, 1, Infinity]/4 + 
   (5*S2[1, -1, -1, 1, -1, n])/2 + (9*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, 1, -1, -1, -1, n])/2, S2[1, -1, -2, 1, n] -> 
  (-5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 - 
   (37*Diff[Half[S2[1, n], n], n, 4])/32 - Diff[Half[S2[2, 1, n], n], n, 2]/
    4 - Diff[Half[S2[2, 1, 1, n], n], n, 1]/2 + 
   (79*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/4 - 
   (223*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/24 + 
   (33*Diff[S2[1, n], n, 4])/32 - (7*Diff[S2[-3, 1, n], n, 1])/8 - 
   (9*Diff[S2[-2, 1, n], n, 2])/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (139*Diff[S2[-1, 1, n], n, 3])/48 + (3*Diff[S2[2, 1, n], n, 2])/4 + 
   3*Diff[S2[-2, 1, -1, n], n, 1] - (5*Diff[S2[-1, -2, -1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2])/4 - (7*Diff[S2[-1, 1, 1, n], n, 2])/4 - 
   4*Diff[S2[1, 2, -1, n], n, 1] - (9*Diff[S2[2, 1, -1, n], n, 1])/4 + 
   3*Diff[S2[2, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1] + Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n] - 
   (23*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (109*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 + 
   (3*Half[S2[4, 1, n], n])/16 - (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    8 + Half[S2[3, 1, 1, n], n]/4 + (13*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    96 - (9*S2[-1, Infinity]^5)/160 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/16 + 
   (73*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (91*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 - 
   (293*Diff[S2[1, n], n, 3]*S2[1, n])/96 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 + 
   (59*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 - 
   (21*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - (7*S2[-1, Infinity]^4*S2[1, n])/
    32 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 + 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]^2)/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/8 - (7*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^3)/24 + (25*Half[S2[1, n], n]*S2[1, n]^4)/
    24 - (11*S2[1, n]^5)/24 - (13*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, Infinity])/16 + (61*Diff[S2[1, n], n, 2]*S2[2, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (39*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   2*S2[-1, Infinity]^3*S2[2, Infinity] + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, Infinity] - (21*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[2, Infinity])/8 + (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/
    8 - (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (27*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (S2[1, n]^3*S2[2, Infinity])/6 - (207*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    160 + (207*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (747*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 + 
   (293*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 - 
   (149*Half[S2[1, n], n]^2*S2[3, Infinity])/192 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 - 
   (281*S2[1, n]^2*S2[3, Infinity])/192 + 
   (55*S2[2, Infinity]*S2[3, Infinity])/48 + (987*S2[5, Infinity])/128 + 
   2*S2[-4, 1, n] - (3*Half[S2[1, n], n]*S2[-3, 1, n])/8 + 
   (15*S2[1, n]*S2[-3, 1, n])/8 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/4 + (5*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, n] - (5*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 - Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, n] - (Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (5*S2[1, n]^3*S2[-1, 1, n])/4 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (43*S2[3, Infinity]*S2[-1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + (19*S2[1, n]^2*S2[2, 1, n])/
    8 - (S2[2, Infinity]*S2[2, 1, n])/4 + (S2[-1, 1, n]*S2[2, 1, n])/2 - 
   S2[4, 1, n] + S2[-3, 1, 1, n] + S2[-2, 1, -2, n]/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - (5*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 + (5*S2[1, n]*S2[-1, -2, -1, n])/
    8 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/2 - (3*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] + 2*S2[1, n]^2*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + (7*S2[1, n]*S2[1, 2, -1, n])/2 + 
   S2[2, 1, -2, n] - (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 + 
   (9*S2[1, n]*S2[2, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 - 
   (7*S2[1, n]*S2[2, 1, 1, n])/2 - S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n] - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/4 - S2[1, n]*S2[-1, 1, -1, 1, n] + 
   2*Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] - 2*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   (13*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (21*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - S2[1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, n] + 2*S2[2, 1, 1, 1, n] + S2[-1, 1, -1, -1, 1, n]/4 + 
   S2[-1, 1, -1, 1, 1, n] - S2[-1, 1, 1, 1, -1, n] + 
   (27*S2[-1, 1, 1, 1, 1, Infinity])/4 - S2[1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, 1, -1, -1, -1, n])/2 + 
   S2[1, 1, -1, 1, -1, n] + 4*S2[1, 1, 1, -1, -1, n], 
 S2[1, -1, 2, -1, n] -> (-9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2])/16 - (25*Diff[Half[S2[1, n], n], n, 4])/
    96 + Diff[Half[S2[2, 1, n], n], n, 2]/16 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   (79*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/24 + 
   (31*Diff[S2[1, n], n, 4])/96 + (27*Diff[S2[-3, 1, n], n, 1])/8 + 
   Diff[S2[-2, 1, n], n, 2]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (9*Diff[S2[-1, 1, n], n, 3])/16 - Diff[S2[2, 1, n], n, 2]/2 + 
   Diff[S2[-1, -2, -1, n], n, 1]/8 - Diff[S2[-1, 1, -1, n], n, 2]/8 - 
   Diff[S2[-1, 1, 1, n], n, 2]/4 - Diff[S2[1, 2, -1, n], n, 1] - 
   (3*Diff[S2[2, 1, -1, n], n, 1])/4 - 2*Diff[S2[2, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 1]/4 + Diff[S2[-1, 1, -1, 1, n], n, 1]/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1] + (Diff[Half[S2[1, n], n], n, 1]^2*
     Half[S2[1, n], n])/16 + (5*Diff[Half[S2[1, n], n], n, 3]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[2, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/32 + 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 - Half[S2[4, 1, n], n]/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/8 + 
   Half[S2[3, 1, 1, n], n]/4 + (7*Half[S2[1, n], n]*S2[-1, Infinity]^4)/96 + 
   (3*S2[-1, Infinity]^5)/160 + (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/
    16 + (9*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (37*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 - 
   (27*Diff[S2[1, n], n, 3]*S2[1, n])/32 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[1, n])/8 + (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*
     S2[1, n])/2 + (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (5*S2[-1, Infinity]^4*S2[1, n])/32 + (11*Diff[S2[1, n], n, 2]*S2[1, n]^2)/
    12 + (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^2)/8 - (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    8 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/6 - (23*Half[S2[1, n], n]^2*S2[1, n]^3)/
    24 + (13*Half[S2[1, n], n]*S2[1, n]^4)/24 - S2[1, n]^5/12 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 + 
   (5*Diff[S2[1, n], n, 2]*S2[2, Infinity])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (3*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (9*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (9*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (5*S2[1, n]^3*S2[2, Infinity])/48 + 
   (69*Half[S2[1, n], n]*S2[2, Infinity]^2)/160 - 
   (69*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (11*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 - 
   (89*Diff[S2[1, n], n, 1]*S2[3, Infinity])/96 - 
   (55*Half[S2[1, n], n]^2*S2[3, Infinity])/96 + 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/24 - 
   (85*S2[1, n]^2*S2[3, Infinity])/96 - 
   (1331*S2[2, Infinity]*S2[3, Infinity])/192 + (575*S2[5, Infinity])/32 + 
   6*S2[-4, 1, n] + (11*Half[S2[1, n], n]*S2[-3, 1, n])/8 - 
   (11*S2[1, n]*S2[-3, 1, n])/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/4 - (3*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, n])/2 + (5*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/8 - (Half[S2[2, 1, n], n]*S2[-1, 1, n])/
    8 + Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n] - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (39*S2[3, Infinity]*S2[-1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 + (7*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 + 
   (7*S2[1, n]^2*S2[2, 1, n])/8 + (5*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (S2[-1, 1, n]*S2[2, 1, n])/2 + 2*S2[4, 1, n] + S2[-3, 1, 1, n] + 
   S2[-2, 1, -2, n]/2 + (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]*S2[-2, 1, -1, n])/2 + (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]*S2[-1, -2, -1, n])/8 - (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/
    8 + (Half[S2[1, n], n]^2*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, n])/8 + Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n] + S2[1, n]^2*S2[-1, 1, 1, n] - 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 + (3*S2[1, n]*S2[1, 2, -1, n])/2 + 
   S2[2, 1, -2, n] + (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[2, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]*S2[2, 1, 1, n])/2 - 3*S2[3, 1, 1, n] + S2[-2, 1, 1, 1, n] - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/4 - (S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   2*Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] - 2*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (15*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - S2[1, -1, 1, -2, n] + 
   S2[1, 1, -2, -1, n] + S2[1, 1, -1, 2, n] - S2[2, 1, 1, 1, n] + 
   S2[-1, -1, 1, -1, -1, n]/2 + (3*S2[-1, 1, -1, -1, -1, n])/2 + 
   S2[-1, 1, -1, -1, 1, n]/4 + S2[-1, 1, -1, 1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, n]/2 - (9*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, -1, -1, -1, -1, n] - S2[1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, 1, -1, 1, -1, n])/2 - 2*S2[1, 1, 1, -1, -1, n], 
 S2[1, -1, 2, 1, n] -> (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, n], n, 3]/6 + Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   S2[-1, Infinity]^5/40 + (Diff[S2[-1, 1, n], n, 2]*S2[1, n])/2 - 
   (S2[-1, Infinity]^4*S2[1, n])/12 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/
    2 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[1, n]^3*S2[2, Infinity])/2 + (Half[S2[1, n], n]*S2[2, Infinity]^2)/2 - 
   (33*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (4*S2[1, n]*S2[2, Infinity]^2)/5 - Diff[Half[S2[1, n], n], n, 1]*
    S2[3, Infinity] + (29*Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 + 
   Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity] - 
   (29*S2[1, n]^2*S2[3, Infinity])/16 - (35*S2[2, Infinity]*S2[3, Infinity])/
    16 - (23*S2[5, Infinity])/8 - S2[-4, 1, n] - S2[1, n]*S2[-3, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 - (S2[1, n]^2*S2[-2, 1, n])/2 - 
   (S2[2, Infinity]*S2[-2, 1, n])/2 - S2[3, Infinity]*S2[-1, 1, n] - 
   S2[2, Infinity]*S2[-1, 1, 1, n] + S2[-2, 1, 1, 1, n] + 
   2*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, -1, 1, 2, n] - 
   S2[1, 1, -1, 2, n] - 3*S2[-1, 1, 1, 1, 1, Infinity], 
 S2[1, -1, -1, -2, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/8 - 
   Diff[Half[S2[1, n], n], n, 4]/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + Diff[S2[1, n], n, 4]/16 + 
   (7*Diff[S2[-3, 1, n], n, 1])/4 + Diff[S2[-2, 1, n], n, 2]/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (5*Diff[S2[-1, 1, n], n, 3])/24 + Diff[S2[-1, -2, -1, n], n, 1]/4 - 
   Diff[S2[1, 2, -1, n], n, 1] - Diff[S2[2, 1, -1, n], n, 1]/2 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1])/2 + Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    2 + (27*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/8 - 
   (37*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/48 + 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/16 - S2[-1, Infinity]^5/80 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 + 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   (23*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 + (7*Diff[S2[1, n], n, 3]*S2[1, n])/
    16 - Diff[S2[-2, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/2 - Diff[Half[S2[1, n], n], n, 2]*
    Half[S2[1, n], n]*S2[1, n] + 3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
    S2[1, n] - Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n] + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + (S2[-1, Infinity]^4*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 + 2*Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^2)/2 + (Half[S2[1, n], n]^3*S2[1, n]^2)/4 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]^3 + (5*Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^3)/4 + (3*Half[S2[1, n], n]*S2[1, n]^4)/
    4 - S2[1, n]^5/4 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   Half[S2[1, n], n]^3*S2[2, Infinity] - 
   (3*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^3*S2[2, Infinity])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 + 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (7*S2[1, n]^3*S2[2, Infinity])/4 + 
   (169*Half[S2[1, n], n]*S2[2, Infinity]^2)/80 + 
   (63*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (217*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 + 
   (43*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - 
   (45*Half[S2[1, n], n]^2*S2[3, Infinity])/32 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[3, Infinity] - (65*S2[1, n]^2*S2[3, Infinity])/32 - 
   (17*S2[2, Infinity]*S2[3, Infinity])/4 + (611*S2[5, Infinity])/64 + 
   S2[-4, 1, n] + (3*Half[S2[1, n], n]*S2[-3, 1, n])/4 - 
   (3*S2[1, n]*S2[-3, 1, n])/4 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/2 - 2*Diff[S2[1, n], n, 1]*S2[-2, 1, n] + 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, n] + 2*S2[1, n]^2*S2[-2, 1, n] + S2[2, Infinity]*S2[-2, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, n] + 2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, n] - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/
    2 - (Half[S2[2, 1, n], n]*S2[-1, 1, n])/2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n] + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n] - (S2[1, n]^3*S2[-1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n] + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] - (13*S2[3, Infinity]*S2[-1, 1, n])/
    8 + 2*S2[-2, 1, n]*S2[-1, 1, n] + (5*Half[S2[1, n], n]*S2[-1, 1, n]^2)/
    4 - (5*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 + (Half[S2[1, n], n]^2*S2[2, 1, n])/
    4 - (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/2 + 
   (5*S2[1, n]^2*S2[2, 1, n])/4 + (3*S2[2, Infinity]*S2[2, 1, n])/2 + 
   2*S2[-1, 1, n]*S2[2, 1, n] + S2[-3, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-2, 1, -1, n] + S2[1, n]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/4 - (S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, n])/2 + (3*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - 2*Half[S2[1, n], n]^2*
    S2[-1, 1, 1, n] + 4*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n] - 
   2*S2[1, n]^2*S2[-1, 1, 1, n] - S2[2, Infinity]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[1, 2, -1, n] + (Half[S2[1, n], n]*S2[2, 1, -1, n])/
    2 + (S2[1, n]*S2[2, 1, -1, n])/2 - Half[S2[1, n], n]*S2[2, 1, 1, n] + 
   S2[1, n]*S2[2, 1, 1, n] + S2[-2, 1, 1, 1, n] - 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/2 - Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, n] + S2[1, n]*S2[-1, 1, -1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + S2[1, -1, 1, 2, n] + 
   S2[1, 1, -1, 2, n] + S2[-1, 1, -1, -1, 1, n]/2 + 
   2*S2[-1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   2*S2[1, -1, -1, 1, -1, n] - (5*S2[1, -1, 1, -1, -1, n])/2 - 
   3*S2[1, 1, -1, -1, -1, n], S2[1, -1, -1, 2, n] -> 
  (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 4])/96 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/8 - 
   (29*Diff[S2[1, n], n, 4])/96 - (19*Diff[S2[-3, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 2]/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (29*Diff[S2[-1, 1, n], n, 3])/48 + Diff[S2[2, 1, n], n, 2]/4 - 
   Diff[S2[-1, -2, -1, n], n, 1]/8 + Diff[S2[-1, 1, 1, n], n, 2]/4 + 
   Diff[S2[1, 2, -1, n], n, 1] + (3*Diff[S2[2, 1, -1, n], n, 1])/4 + 
   Diff[S2[2, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 - Half[S2[4, 1, n], n]/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/8 - 
   Half[S2[3, 1, 1, n], n]/4 - (17*Half[S2[1, n], n]*S2[-1, Infinity]^4)/96 - 
   S2[-1, Infinity]^5/96 - (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/16 - 
   (35*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (35*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 + 
   (31*Diff[S2[1, n], n, 3]*S2[1, n])/32 - Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] - (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + (25*S2[-1, Infinity]^4*S2[1, n])/
    96 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/8 + (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/4 + (3*Half[S2[1, n], n]^2*S2[1, n]^3)/
    8 - (3*Half[S2[1, n], n]*S2[1, n]^4)/8 + S2[1, n]^5/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (5*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (5*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (15*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (S2[1, n]^3*S2[2, Infinity])/2 + (167*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    160 + (13*S2[-1, Infinity]*S2[2, Infinity]^2)/16 - 
   (299*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 + 
   (7*Diff[S2[1, n], n, 1]*S2[3, Infinity])/64 + 
   (71*Half[S2[1, n], n]^2*S2[3, Infinity])/64 - 
   (63*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 + 
   (71*S2[1, n]^2*S2[3, Infinity])/64 + (39*S2[2, Infinity]*S2[3, Infinity])/
    8 - (1567*S2[5, Infinity])/128 - 4*S2[-4, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/8 - (3*S2[1, n]*S2[-3, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/4 + (S2[1, n]^2*S2[-2, 1, n])/4 - 
   S2[2, Infinity]*S2[-2, 1, n] + (3*Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, n])/8 - Diff[S2[1, n], n, 2]*S2[-1, 1, n] + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (37*S2[3, Infinity]*S2[-1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 - (7*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 + (Half[S2[1, n], n]^2*S2[2, 1, n])/
    8 + (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 - 
   (7*S2[1, n]^2*S2[2, 1, n])/8 - (7*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (S2[-1, 1, n]*S2[2, 1, n])/2 - S2[4, 1, n] - S2[-3, 1, 1, n] - 
   S2[-2, 1, -2, n]/2 - (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]*S2[-2, 1, -1, n])/2 + (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]*S2[-1, -2, -1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/
    2 - (S2[1, n]^2*S2[-1, 1, -1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 - Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] - 2*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[1, 2, -1, n])/2 - (3*S2[1, n]*S2[1, 2, -1, n])/2 - 
   S2[2, 1, -2, n] + (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 - 
   (5*S2[1, n]*S2[2, 1, -1, n])/4 - (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]*S2[2, 1, 1, n])/2 + 2*S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n] + 
   (S2[1, n]*S2[-1, 1, -1, -1, n])/4 + S2[1, n]*S2[-1, 1, -1, 1, n] - 
   3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] + 3*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   (17*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (25*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + S2[1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, n] - S2[-1, 1, -1, -1, 1, n]/4 - S2[-1, 1, -1, 1, 1, n] + 
   (5*S2[-1, 1, 1, 1, 1, Infinity])/4 + S2[1, -1, -1, 1, -1, n]/2 + 
   (3*S2[1, -1, 1, -1, -1, n])/4 + (3*S2[1, 1, -1, -1, -1, n])/2 + 
   S2[1, 1, -1, 1, -1, n], S2[1, 1, -2, 1, n] -> 
  (-2*Diff[Half[S2[1, n], n], n, 4])/3 + 3*Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 1] + 3*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 2] - 6*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] + 
   (2*Diff[S2[1, n], n, 4])/3 - Diff[S2[-3, 1, n], n, 1] - 
   (3*Diff[S2[-2, 1, n], n, 2])/2 + 4*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1] - 2*Diff[S2[-1, 1, n], n, 3] - 
   2*Diff[S2[-1, 1, 1, n], n, 2] - 2*Diff[S2[1, 2, -1, n], n, 1] - 
   2*Diff[S2[2, 1, -1, n], n, 1] - 2*Diff[S2[1, n], n, 1]^2*
    Half[S2[1, n], n] + Diff[S2[1, n], n, 3]*Half[S2[1, n], n] + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/3 - 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   6*Diff[S2[1, n], n, 1]^2*S2[1, n] - (8*Diff[S2[1, n], n, 3]*S2[1, n])/3 + 
   3*Diff[S2[-2, 1, n], n, 1]*S2[1, n] + 4*Diff[S2[-1, 1, n], n, 2]*
    S2[1, n] + 2*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n] - 
   3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   (S2[-1, Infinity]^4*S2[1, n])/12 - Diff[Half[S2[1, n], n], n, 2]*
    S2[1, n]^2 + 4*Diff[S2[1, n], n, 2]*S2[1, n]^2 - 
   2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2 + 2*Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 - 2*Diff[S2[1, n], n, 1]*S2[1, n]^3 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 3*Diff[S2[1, n], n, 1]*
    S2[-1, Infinity]*S2[2, Infinity] - Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[2, Infinity] + 2*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity] - 
   3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity] + 
   (41*S2[1, n]*S2[2, Infinity]^2)/40 + Diff[Half[S2[1, n], n], n, 1]*
    S2[3, Infinity] + (3*Diff[S2[1, n], n, 1]*S2[3, Infinity])/4 - 
   (7*S2[1, n]^2*S2[3, Infinity])/4 - (3*S2[2, Infinity]*S2[3, Infinity])/4 + 
   (57*S2[5, Infinity])/16 + S2[-4, 1, n] + S2[1, n]*S2[-3, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 - (3*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (3*S2[2, Infinity]*S2[-2, 1, n])/2 + 2*Diff[S2[1, n], n, 2]*S2[-1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n] + 2*S2[-3, 1, 1, n] + 
   2*S2[1, n]*S2[1, 2, -1, n] + 2*S2[1, n]*S2[2, 1, -1, n] + 
   3*S2[-2, 1, 1, 1, n] + 2*S2[1, n]*S2[-1, 1, 1, 1, Infinity], 
 S2[1, 1, 2, 1, n] -> -(Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   Diff[S2[1, n], n, 4]/24 + 2*Diff[S2[2, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n])/4 - (Diff[S2[1, n], n, 3]*S2[1, n])/24 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[2, Infinity] + (6*S2[1, n]*S2[2, Infinity]^2)/5 + 
   Diff[S2[1, n], n, 1]*S2[3, Infinity] + 3*S2[2, Infinity]*S2[3, Infinity] - 
   10*S2[5, Infinity] - (Diff[S2[1, n], n, 1]*S2[2, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, n])/2 - (3*S2[2, Infinity]*S2[2, 1, n])/2 + 
   S2[4, 1, n] - 2*S2[1, n]*S2[2, 1, 1, n] + 2*S2[3, 1, 1, n] + 
   3*S2[2, 1, 1, 1, n], S2[1, 1, -1, -2, n] -> 
  (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 4])/96 + Diff[Half[S2[2, 1, n], n], n, 2]/
    4 - (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   (83*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/24 - 
   (13*Diff[S2[1, n], n, 4])/32 + (3*Diff[S2[-3, 1, n], n, 1])/8 + 
   (3*Diff[S2[-2, 1, n], n, 2])/4 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/8 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (21*Diff[S2[-1, 1, n], n, 3])/16 - (3*Diff[S2[2, 1, n], n, 2])/4 - 
   Diff[S2[-2, 1, -1, n], n, 1] + Diff[S2[-1, -2, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, n], n, 2]/2 + (3*Diff[S2[-1, 1, 1, n], n, 2])/4 + 
   2*Diff[S2[1, 2, -1, n], n, 1] + (5*Diff[S2[2, 1, -1, n], n, 1])/4 - 
   Diff[S2[2, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/48 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n] + 
   (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/16 - 
   (15*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/16 - 
   (5*Half[S2[4, 1, n], n])/16 + (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/
    8 - Half[S2[3, 1, 1, n], n]/4 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^4)/
    32 + (11*S2[-1, Infinity]^5)/480 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]^2*S2[1, n])/16 + 
   (35*Diff[S2[1, n], n, 3]*S2[1, n])/32 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/2 - 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/16 + 
   (13*Diff[S2[2, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + (3*S2[-1, Infinity]^4*S2[1, n])/
    32 - (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/16 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^2)/12 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/8 + (3*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    16 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^3)/24 - (17*Half[S2[1, n], n]*S2[1, n]^4)/
    24 + (7*S2[1, n]^5)/24 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/
    16 - (23*Diff[S2[1, n], n, 2]*S2[2, Infinity])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (7*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (S2[1, n]^3*S2[2, Infinity])/6 + (123*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    160 - (43*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (213*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/64 - 
   (277*Diff[S2[1, n], n, 1]*S2[3, Infinity])/192 + 
   (85*Half[S2[1, n], n]^2*S2[3, Infinity])/192 - 
   (55*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 + 
   (265*S2[1, n]^2*S2[3, Infinity])/192 + 
   (55*S2[2, Infinity]*S2[3, Infinity])/48 - (415*S2[5, Infinity])/64 + 
   (3*Half[S2[1, n], n]*S2[-3, 1, n])/8 - (3*S2[1, n]*S2[-3, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/4 + (Half[S2[1, n], n]^2*S2[-2, 1, n])/
    4 + (S2[1, n]^2*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, n] - (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/
    4 + (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/4 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n] + (3*S2[1, n]^3*S2[-1, 1, n])/
    4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*S2[3, Infinity]*S2[-1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/8 + (S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 - 
   (11*S2[1, n]^2*S2[2, 1, n])/8 - (S2[2, Infinity]*S2[2, 1, n])/4 - 
   (S2[-1, 1, n]*S2[2, 1, n])/2 + 2*S2[4, 1, n] - S2[-3, 1, 1, n] - 
   S2[-2, 1, -2, n]/2 - (Half[S2[1, n], n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]*S2[-2, 1, -1, n])/2 + (Half[S2[1, n], n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]*S2[-1, -2, -1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/
    4 - (S2[1, n]^2*S2[-1, 1, -1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 - Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] - S2[1, n]^2*S2[-1, 1, 1, n] + 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[1, 2, -1, n])/
    2 - (3*S2[1, n]*S2[1, 2, -1, n])/2 - S2[2, 1, -2, n] + 
   (Half[S2[1, n], n]*S2[2, 1, -1, n])/4 - (5*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, 1, 1, n])/2 + (3*S2[1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, 1, n] - S2[-2, 1, 1, 1, n] + (S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, 1, n])/2 - Half[S2[1, n], n]*S2[-1, 1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, 1, 1, n] + 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - S2[1, 1, -1, 2, n] - 
   S2[2, 1, 1, 1, n] - S2[-1, 1, -1, -1, 1, n]/4 - S2[-1, 1, -1, 1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, n]/2 - (11*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   S2[1, -1, -1, 1, -1, n]/2 + (3*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, 1, -1, -1, -1, n])/2 - S2[1, 1, -1, 1, -1, n]/2 - 
   2*S2[1, 1, 1, -1, -1, n], S2[1, 1, 1, -2, n] -> 
  (3*Diff[Half[S2[1, n], n], n, 4])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/3 + 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/12 - 
   (3*Diff[S2[1, n], n, 4])/8 + Diff[S2[-2, 1, n], n, 2]/2 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1] + 
   Diff[S2[-1, 1, n], n, 3] + Diff[S2[-1, 1, 1, n], n, 2] + 
   Diff[S2[1, 2, -1, n], n, 1] + Diff[S2[2, 1, -1, n], n, 1] + 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 - Diff[Half[S2[1, n], n], n, 3]*
    S2[1, n] + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     S2[1, n])/2 - (7*Diff[S2[1, n], n, 1]^2*S2[1, n])/2 + 
   (3*Diff[S2[1, n], n, 3]*S2[1, n])/2 - Diff[S2[-2, 1, n], n, 1]*S2[1, n] - 
   2*Diff[S2[-1, 1, n], n, 2]*S2[1, n] - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n] + (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (S2[-1, Infinity]^4*S2[1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 - 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 + Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^2 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/6 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^3)/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/3 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity] + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (S2[1, n]^3*S2[2, Infinity])/12 - (13*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/3 - 
   (Diff[S2[1, n], n, 1]*S2[3, Infinity])/6 + (S2[1, n]^2*S2[3, Infinity])/
    2 + (25*S2[2, Infinity]*S2[3, Infinity])/48 - (103*S2[5, Infinity])/32 - 
   S2[-4, 1, n] - (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, n])/2 + (S2[2, Infinity]*S2[-2, 1, n])/2 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, n] + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, n] - S2[-3, 1, 1, n] - S2[1, n]*S2[1, 2, -1, n] - 
   S2[1, n]*S2[2, 1, -1, n] - S2[-2, 1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, 1, 1, Infinity], S2[1, 1, 1, 2, n] -> 
  (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/12 - 
   Diff[S2[2, 1, 1, n], n, 1] + (Diff[S2[1, n], n, 1]^2*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 3]*S2[1, n])/8 + (Diff[S2[2, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 - (Diff[S2[1, n], n, 1]*S2[1, n]^3)/
    6 - (Diff[S2[1, n], n, 2]*S2[2, Infinity])/12 + 
   (S2[1, n]^3*S2[2, Infinity])/6 - (3*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (5*Diff[S2[1, n], n, 1]*S2[3, Infinity])/6 + (S2[1, n]^2*S2[3, Infinity])/
    2 - (7*S2[2, Infinity]*S2[3, Infinity])/6 + (11*S2[5, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, n])/2 - (S2[1, n]^2*S2[2, 1, n])/2 + 
   (S2[2, Infinity]*S2[2, 1, n])/2 - S2[4, 1, n] + S2[1, n]*S2[2, 1, 1, n] - 
   S2[3, 1, 1, n] - S2[2, 1, 1, 1, n], S2[-1, -1, -1, -1, -1, n] -> 
  Diff[Half[S2[1, n], n], n, 4]/120 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/12 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/12 - 
   Diff[S2[1, n], n, 4]/120 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/12 + Half[S2[1, n], n]^5/120 - 
   (Diff[S2[1, n], n, 1]^2*S2[1, n])/8 + (Diff[S2[1, n], n, 3]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Half[S2[1, n], n]^4*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/12 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/12 + (Diff[S2[1, n], n, 1]*S2[1, n]^3)/
    12 - (Half[S2[1, n], n]^2*S2[1, n]^3)/12 + (Half[S2[1, n], n]*S2[1, n]^4)/
    24 - S2[1, n]^5/120 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/
    12 - (Diff[S2[1, n], n, 2]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/12 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[1, n]^3*S2[2, Infinity])/12 + (9*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    40 - (9*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (Diff[S2[1, n], n, 1]*S2[3, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[3, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/4 - 
   (S2[1, n]^2*S2[3, Infinity])/8 - (S2[2, Infinity]*S2[3, Infinity])/8 - 
   (3*S2[5, Infinity])/16, S2[-1, -1, -1, -1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2] - 
   Diff[Half[S2[1, n], n], n, 4]/12 + Diff[Half[S2[2, 1, n], n], n, 2]/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   Diff[S2[1, n], n, 4]/24 + 4*Diff[S2[-3, 1, n], n, 1] + 
   Diff[S2[-2, 1, n], n, 2] - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/
    2 + Diff[S2[-1, 1, n], n, 3]/6 - Diff[S2[2, 1, n], n, 2] + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/6 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/3 + 2*Diff[S2[-2, 1, n], n, 1]*
    Half[S2[1, n], n] + (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/4 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/4 - Half[S2[4, 1, n], n]/2 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/12 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 + (11*Diff[S2[1, n], n, 3]*S2[1, n])/
    24 - 2*Diff[S2[-2, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n])/2 - Diff[Half[S2[1, n], n], n, 2]*
    Half[S2[1, n], n]*S2[1, n] + 2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
    S2[1, n] - Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Half[S2[1, n], n]^4*S2[1, n])/8 + (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*
     S2[1, n])/2 + (S2[-1, Infinity]^4*S2[1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/2 - 3*Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 + (Half[S2[1, n], n]^3*S2[1, n]^2)/2 - 
   (Half[S2[2, 1, n], n]*S2[1, n]^2)/4 + (5*Diff[S2[1, n], n, 1]*S2[1, n]^3)/
    4 - (3*Half[S2[1, n], n]^2*S2[1, n]^3)/4 + (Half[S2[1, n], n]*S2[1, n]^4)/
    2 - S2[1, n]^5/8 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*S2[1, n]^3*S2[2, Infinity])/4 + 
   (19*Half[S2[1, n], n]*S2[2, Infinity]^2)/10 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]^2)/2 - 
   (103*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 + 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/8 - 
   (5*S2[1, n]^2*S2[3, Infinity])/16 - (55*S2[2, Infinity]*S2[3, Infinity])/
    16 + (185*S2[5, Infinity])/32 + 8*S2[-4, 1, n] + 
   4*Half[S2[1, n], n]*S2[-3, 1, n] - 4*S2[1, n]*S2[-3, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] + Half[S2[1, n], n]^2*S2[-2, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n] + S2[1, n]^2*S2[-2, 1, n] + 
   S2[2, Infinity]*S2[-2, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, n])/6 - (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, n])/6 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/2 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[3, Infinity]*S2[-1, 1, n])/4 - Diff[S2[1, n], n, 1]*S2[2, 1, n] + 
   Half[S2[1, n], n]^2*S2[2, 1, n] - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, n] + S2[1, n]^2*S2[2, 1, n] + S2[2, Infinity]*S2[2, 1, n] + 
   8*S2[4, 1, n] + 2*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity] - 
   2*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + S2[-1, -1, 1, -1, -1, n] + 
   2*S2[-1, 1, -1, -1, -1, n] + 3*S2[1, -1, -1, -1, -1, n], 
 S2[-1, -1, -1, 1, -1, n] -> 
  (-7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/6 + 
   Diff[Half[S2[1, n], n], n, 4]/12 - Diff[Half[S2[2, 1, n], n], n, 2]/4 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/6 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/3 - 
   4*Diff[S2[-3, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 2] + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, n], n, 3]/6 + Diff[S2[2, 1, n], n, 2] - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 - 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 - 2*Diff[S2[-2, 1, n], n, 1]*
    Half[S2[1, n], n] - (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/4 + 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3)/6 + 
   (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/4 + Half[S2[4, 1, n], n]/2 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/12 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[1, n])/2 - (2*Diff[S2[1, n], n, 3]*S2[1, n])/
    3 + 2*Diff[S2[-2, 1, n], n, 1]*S2[1, n] + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (8*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/3 + 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n] + 
   (Half[S2[1, n], n]^4*S2[1, n])/6 - (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*
     S2[1, n])/2 - (S2[-1, Infinity]^4*S2[1, n])/12 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/12 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 - 
   (2*Half[S2[1, n], n]^3*S2[1, n]^2)/3 + (Half[S2[2, 1, n], n]*S2[1, n]^2)/
    4 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/6 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^3)/3 + Half[S2[1, n], n]^2*S2[1, n]^3 - 
   (2*Half[S2[1, n], n]*S2[1, n]^4)/3 + S2[1, n]^5/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/3 + 
   (13*Diff[S2[1, n], n, 2]*S2[2, Infinity])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/12 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (13*S2[1, n]^3*S2[2, Infinity])/12 - 
   (5*Half[S2[1, n], n]*S2[2, Infinity]^2)/2 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]^2)/2 + (17*S2[1, n]*S2[2, Infinity]^2)/
    5 + Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity] - 
   (17*Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 + 
   (Half[S2[1, n], n]^2*S2[3, Infinity])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/8 + 
   (17*S2[1, n]^2*S2[3, Infinity])/16 + (65*S2[2, Infinity]*S2[3, Infinity])/
    16 - (153*S2[5, Infinity])/32 - 8*S2[-4, 1, n] - 
   4*Half[S2[1, n], n]*S2[-3, 1, n] + 4*S2[1, n]*S2[-3, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] - Half[S2[1, n], n]^2*S2[-2, 1, n] + 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n] - S2[1, n]^2*S2[-2, 1, n] - 
   S2[2, Infinity]*S2[-2, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, n])/6 + (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, n])/6 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/2 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[3, Infinity]*S2[-1, 1, n])/4 + Diff[S2[1, n], n, 1]*S2[2, 1, n] - 
   Half[S2[1, n], n]^2*S2[2, 1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, n] - S2[1, n]^2*S2[2, 1, n] - S2[2, Infinity]*S2[2, 1, n] - 
   8*S2[4, 1, n] - 2*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity] + 
   2*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 2*S2[-1, -1, 1, -1, -1, n] - 
   3*S2[-1, 1, -1, -1, -1, n] - 4*S2[1, -1, -1, -1, -1, n], 
 S2[-1, -1, -1, 1, 1, n] -> 
  (-7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 4])/144 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/3 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   (5*Diff[S2[1, n], n, 4])/144 - (17*Diff[S2[-3, 1, n], n, 1])/12 - 
   (2*Diff[S2[-2, 1, n], n, 2])/3 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/12 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/12 - 
   Diff[S2[-1, 1, n], n, 3]/8 + Diff[S2[-1, -2, -1, n], n, 1]/12 + 
   Diff[S2[2, 1, -1, n], n, 1]/6 - (5*Diff[S2[-1, 1, -1, -1, n], n, 1])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/6 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    6 - (17*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/8 + 
   (31*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/48 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (29*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/24 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/24 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/24 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^5/80 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/24 + 
   (43*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/72 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/3 + 
   (47*Diff[S2[1, n], n, 1]^2*S2[1, n])/24 - 
   (101*Diff[S2[1, n], n, 3]*S2[1, n])/144 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/3 + 
   (29*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/24 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/3 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/12 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - (7*S2[-1, Infinity]^4*S2[1, n])/
    48 - (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/24 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]^2)/6 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/3 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/12 + (7*Half[S2[2, 1, n], n]*S2[1, n]^2)/
    24 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/6 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^3)/6 + (Half[S2[1, n], n]^2*S2[1, n]^3)/
    4 - (Half[S2[1, n], n]*S2[1, n]^4)/4 + S2[1, n]^5/12 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/24 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/6 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/12 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/6 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/12 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/12 - 
   (19*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[1, n]^3*S2[2, Infinity])/2 - (129*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    80 - (27*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (181*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/32 + 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 - 
   (19*S2[1, n]^2*S2[3, Infinity])/32 + (19*S2[2, Infinity]*S2[3, Infinity])/
    16 - (93*S2[5, Infinity])/64 - (3*Half[S2[1, n], n]*S2[-3, 1, n])/4 + 
   (29*S2[1, n]*S2[-3, 1, n])/12 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, n])/6 + (7*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 + 
   (8*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/3 - 
   (13*S2[1, n]^2*S2[-2, 1, n])/6 - (S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/3 + 
   (S2[1, n]^3*S2[-1, 1, n])/6 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (9*S2[3, Infinity]*S2[-1, 1, n])/16 - S2[-2, 1, n]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/4 + (S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 - (Half[S2[1, n], n]^2*S2[2, 1, n])/
    4 + (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/2 - 
   (5*S2[1, n]^2*S2[2, 1, n])/4 - (S2[2, Infinity]*S2[2, 1, n])/2 - 
   S2[-1, 1, n]*S2[2, 1, n] + Half[S2[1, n], n]*S2[-2, 1, -1, n] - 
   S2[1, n]*S2[-2, 1, -1, n] - (Half[S2[1, n], n]*S2[-1, -2, -1, n])/4 - 
   (S2[1, n]*S2[-1, -2, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/3 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/3 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/3 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/3 - (S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] + (S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - Half[S2[1, n], n]*S2[1, 2, -1, n] + 
   S2[1, n]*S2[1, 2, -1, n] - (Half[S2[1, n], n]*S2[2, 1, -1, n])/2 - 
   (S2[1, n]*S2[2, 1, -1, n])/6 + Half[S2[1, n], n]*S2[2, 1, 1, n] - 
   S2[1, n]*S2[2, 1, 1, n] + (5*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (7*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - S2[-1, 1, -1, -1, 1, n]/2 - 
   S2[-1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, -1, 1, -1, n] + S2[1, -1, 1, -1, -1, n]/2 + 
   S2[1, 1, -1, -1, -1, n], S2[-1, -1, 1, -1, 1, n] -> 
  (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/4 + 
   Diff[Half[S2[1, n], n], n, 4]/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 - Diff[S2[1, n], n, 4]/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, -1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/4 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n] + 
   (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/4 - 
   (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/24 + 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/4 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/2 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/6 + S2[-1, Infinity]^5/120 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/4 - 
   (2*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/3 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (9*Diff[S2[1, n], n, 1]^2*S2[1, n])/4 + (17*Diff[S2[1, n], n, 3]*S2[1, n])/
    24 - 2*Diff[S2[-2, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/2 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n] - (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n] + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/2 + (S2[-1, Infinity]^4*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 - 
   2*Diff[S2[1, n], n, 2]*S2[1, n]^2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/2 - 4*Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 - (Half[S2[2, 1, n], n]*S2[1, n]^2)/4 + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]^3 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/2 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (2*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/2 - 
   3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity] + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 + 
   3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity] - 
   (S2[1, n]^3*S2[2, Infinity])/2 + (139*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    40 - (4*S2[-1, Infinity]*S2[2, Infinity]^2)/5 - 
   (16*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[3, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[3, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/2 + 
   (7*S2[1, n]^2*S2[3, Infinity])/8 - (27*S2[2, Infinity]*S2[3, Infinity])/
    32 - (93*S2[5, Infinity])/64 + (3*Half[S2[1, n], n]*S2[-3, 1, n])/2 - 
   2*S2[1, n]*S2[-3, 1, n] + Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] + Half[S2[1, n], n]^2*S2[-2, 1, n] - 
   4*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n] + 3*S2[1, n]^2*S2[-2, 1, n] + 
   (S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, n] - 3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n] - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, n] + (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - (S2[3, Infinity]*S2[-1, 1, n])/
    8 + 2*S2[-2, 1, n]*S2[-1, 1, n] + (Half[S2[1, n], n]*S2[-1, 1, n]^2)/2 - 
   (S2[1, n]*S2[-1, 1, n]^2)/2 + Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[2, 1, n] + (Half[S2[1, n], n]^2*S2[2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/2 + S2[1, n]^2*S2[2, 1, n] + 
   (S2[2, Infinity]*S2[2, 1, n])/2 + 2*S2[-1, 1, n]*S2[2, 1, n] - 
   2*Half[S2[1, n], n]*S2[-2, 1, -1, n] + 2*S2[1, n]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, -2, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] - Half[S2[1, n], n]^2*
    S2[-1, 1, 1, n] + 2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n] - 
   S2[1, n]^2*S2[-1, 1, 1, n] - S2[2, Infinity]*S2[-1, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[1, 2, -1, n] - 2*S2[1, n]*S2[1, 2, -1, n] + 
   Half[S2[1, n], n]*S2[2, 1, -1, n] - 2*Half[S2[1, n], n]*S2[2, 1, 1, n] + 
   2*S2[1, n]*S2[2, 1, 1, n] - S2[1, n]*S2[-1, 1, -1, -1, n] + 
   4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity] - 
   3*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 2*S2[-1, 1, 1, -1, -1, n] - 
   S2[-1, 1, 1, 1, 1, Infinity] - S2[1, -1, -1, 1, -1, n], 
 S2[-1, -1, 1, 1, -1, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/8 - 
   Diff[Half[S2[1, n], n], n, 4]/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   Diff[S2[1, n], n, 4]/16 + Diff[S2[-3, 1, n], n, 1]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, n], n, 3]/8 - Diff[S2[-1, -2, -1, n], n, 1]/4 - 
   Diff[S2[2, 1, -1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    2 - (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/8 + 
   (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/48 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n] - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/16 + S2[-1, Infinity]^5/48 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (11*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 - 
   (19*Diff[S2[1, n], n, 3]*S2[1, n])/48 + Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] + (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n] - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - (S2[-1, Infinity]^4*S2[1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 + 
   Diff[S2[1, n], n, 2]*S2[1, n]^2 - (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/
    4 + 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - Diff[S2[1, n], n, 1]*S2[1, n]^3 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^3*S2[2, Infinity])/4 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (9*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (9*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[1, n]^3*S2[2, Infinity])/4 - (117*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    80 - (S2[-1, Infinity]*S2[2, Infinity]^2)/8 + 
   (117*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 + 
   (7*Half[S2[1, n], n]^2*S2[3, Infinity])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 - 
   (21*S2[1, n]^2*S2[3, Infinity])/32 + (7*S2[2, Infinity]*S2[3, Infinity])/
    8 - (217*S2[5, Infinity])/64 - (3*Half[S2[1, n], n]*S2[-3, 1, n])/4 + 
   (3*S2[1, n]*S2[-3, 1, n])/4 - (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, n])/2 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, n] - (3*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (7*S2[3, Infinity]*S2[-1, 1, n])/16 - S2[-2, 1, n]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]^2)/4 + (S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 - (Half[S2[1, n], n]^2*S2[2, 1, n])/
    4 + (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, n])/4 - (S2[2, Infinity]*S2[2, 1, n])/2 - 
   S2[-1, 1, n]*S2[2, 1, n] + Half[S2[1, n], n]*S2[-2, 1, -1, n] - 
   S2[1, n]*S2[-2, 1, -1, n] - (Half[S2[1, n], n]*S2[-1, -2, -1, n])/4 + 
   (S2[1, n]*S2[-1, -2, -1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] + (S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - Half[S2[1, n], n]*S2[1, 2, -1, n] + 
   S2[1, n]*S2[1, 2, -1, n] - (Half[S2[1, n], n]*S2[2, 1, -1, n])/2 + 
   (S2[1, n]*S2[2, 1, -1, n])/2 + Half[S2[1, n], n]*S2[2, 1, 1, n] - 
   S2[1, n]*S2[2, 1, 1, n] - (S2[1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + S2[-1, 1, -1, -1, 1, n]/2 - 
   (5*S2[-1, 1, 1, 1, 1, Infinity])/2 + S2[1, -1, 1, -1, -1, n]/2, 
 S2[-1, -1, 1, 1, 1, n] -> 
  (-3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 4])/8 + Diff[Half[S2[2, 1, 1, n], n], n, 1]/
    4 - Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/4 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/12 - 
   (13*Diff[S2[1, n], n, 4])/48 + (3*Diff[S2[-3, 1, n], n, 1])/4 + 
   Diff[S2[-2, 1, n], n, 2] + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (7*Diff[S2[-1, 1, n], n, 3])/8 - Diff[S2[-2, 1, -1, n], n, 1] + 
   Diff[S2[-1, -2, -1, n], n, 1]/4 - Diff[S2[-1, 1, -1, n], n, 2]/2 + 
   Diff[S2[-1, 1, 1, n], n, 2]/2 + Diff[S2[1, 2, -1, n], n, 1] + 
   Diff[S2[2, 1, -1, n], n, 1]/2 - Diff[S2[2, 1, 1, n], n, 1] - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/3 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/24 + S2[-1, Infinity]^5/30 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (15*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 + 
   (15*Diff[S2[1, n], n, 3]*S2[1, n])/16 - 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n] - (13*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + (S2[-1, Infinity]^4*S2[1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^2)/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/6 + (Half[S2[1, n], n]^2*S2[1, n]^3)/
    12 - (Half[S2[1, n], n]*S2[1, n]^4)/6 + S2[1, n]^5/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 - 
   (13*Diff[S2[1, n], n, 2]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (5*S2[1, n]^3*S2[2, Infinity])/24 + 
   (3*Half[S2[1, n], n]*S2[2, Infinity]^2)/20 - 
   (61*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (113*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 - 
   (31*Diff[S2[1, n], n, 1]*S2[3, Infinity])/24 + 
   (Half[S2[1, n], n]^2*S2[3, Infinity])/6 - 
   (53*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/96 + 
   (31*S2[1, n]^2*S2[3, Infinity])/24 - (65*S2[2, Infinity]*S2[3, Infinity])/
    96 - (91*S2[5, Infinity])/128 - (3*S2[1, n]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, n] - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/2 + S2[1, n]^2*S2[-2, 1, n] + 
   (S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (7*S2[3, Infinity]*S2[-1, 1, n])/16 + (S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 - (S2[1, n]^2*S2[2, 1, n])/4 + 
   (S2[2, Infinity]*S2[2, 1, n])/2 + S2[1, n]*S2[-2, 1, -1, n] - 
   (S2[1, n]*S2[-1, -2, -1, n])/4 - S2[1, n]*S2[1, 2, -1, n] - 
   (S2[1, n]*S2[2, 1, -1, n])/2 + S2[1, n]*S2[2, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity] - 
   3*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - S2[-1, 1, -1, 1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, n]/2 - 4*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, 1, -1, 1, -1, n]/2 - S2[1, 1, 1, -1, -1, n], 
 S2[-1, 1, -1, 1, -1, n] -> -Diff[S2[-1, 1, -1, -1, n], n, 1] - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/24 - S2[-1, Infinity]^5/120 + 
   (S2[-1, Infinity]^4*S2[1, n])/24 + Half[S2[1, n], n]*S2[-1, Infinity]^2*
    S2[2, Infinity] - (2*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity] + 
   (9*Half[S2[1, n], n]*S2[2, Infinity]^2)/20 + 
   (17*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (9*S2[1, n]*S2[2, Infinity]^2)/20 + (33*S2[5, Infinity])/64 + 
   S2[3, Infinity]*S2[-1, 1, n] - (S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   S2[1, n]*S2[-1, 1, -1, -1, n] + Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, Infinity] - S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   S2[-1, 1, -1, -1, 1, n] - 2*S2[-1, 1, 1, -1, -1, n] + 
   S2[-1, 1, 1, 1, 1, Infinity] - S2[1, -1, 1, -1, -1, n], 
 S2[-1, 1, 1, -1, 1, n] -> 
  (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/2 - Diff[S2[1, n], n, 4]/24 + 
   Diff[S2[-1, 1, -1, n], n, 2]/4 - Diff[S2[-1, 1, -1, 1, n], n, 1]/2 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4)/24 - S2[-1, Infinity]^5/30 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[1, n])/4 + (Diff[S2[1, n], n, 3]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n])/2 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n] + (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (S2[-1, Infinity]^4*S2[1, n])/24 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/
    2 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity] - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[1, n]^3*S2[2, Infinity])/2 - (3*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    8 + (121*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (17*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 - 
   (13*S2[1, n]^2*S2[3, Infinity])/16 - (S2[2, Infinity]*S2[3, Infinity])/2 + 
   (653*S2[5, Infinity])/128 + (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/
    2 - (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (5*S2[3, Infinity]*S2[-1, 1, n])/16 - (S2[1, n]*S2[-1, 1, n]^2)/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/4 - (S2[1, n]^2*S2[-1, 1, -1, n])/
    4 + (S2[2, Infinity]*S2[-1, 1, -1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, n] - S2[1, n]^2*S2[-1, 1, 1, n] - 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 + (S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, 1, 1, 1, Infinity] - S2[-1, 1, -1, 1, 1, n]/2 - 
   (3*S2[-1, 1, 1, 1, -1, n])/2 + 4*S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, 1, -1, 1, -1, n]/2, S2[1, -1, -1, -1, 1, n] -> 
  (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 4])/36 - 
   (2*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/6 + 
   (4*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/3 - 
   (5*Diff[S2[1, n], n, 4])/36 + (7*Diff[S2[-3, 1, n], n, 1])/6 + 
   (2*Diff[S2[-2, 1, n], n, 2])/3 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/3 - 
   (2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/3 + 
   Diff[S2[-1, 1, n], n, 3]/4 + Diff[S2[-1, -2, -1, n], n, 1]/6 + 
   Diff[S2[2, 1, -1, n], n, 1]/3 + Diff[S2[-1, 1, -1, -1, n], n, 1]/3 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n])/3 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/6 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/6 - 
   (4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    3 + (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 + 
   (2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2)/6 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3)/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/6 - S2[-1, Infinity]^5/120 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/3 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/36 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/6 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[1, n])/3 + (29*Diff[S2[1, n], n, 3]*S2[1, n])/
    36 - (4*Diff[S2[-2, 1, n], n, 1]*S2[1, n])/3 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/12 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   (2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/3 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/6 + 
   (S2[-1, Infinity]^4*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/2 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^2)/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/3 - 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (Half[S2[1, n], n]^3*S2[1, n]^2)/6 - (Half[S2[2, 1, n], n]*S2[1, n]^2)/6 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/3 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^3)/3 - (Half[S2[1, n], n]^2*S2[1, n]^3)/
    2 + (Half[S2[1, n], n]*S2[1, n]^4)/2 - S2[1, n]^5/6 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/8 - 
   (11*Diff[S2[1, n], n, 2]*S2[2, Infinity])/12 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/6 - 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/12 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/12 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/3 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/6 + 
   (S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (5*S2[1, n]^3*S2[2, Infinity])/6 + (Half[S2[1, n], n]*S2[2, Infinity]^2)/
    8 + (47*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (33*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[3, Infinity])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/8 - 
   (9*S2[1, n]^2*S2[3, Infinity])/8 - (71*S2[2, Infinity]*S2[3, Infinity])/
    32 + (125*S2[5, Infinity])/32 - (7*S2[1, n]*S2[-3, 1, n])/6 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/3 - 
   (2*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/3 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/3 + 
   (2*S2[1, n]^2*S2[-2, 1, n])/3 + (S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/3 + 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/3 - 
   (S2[1, n]^3*S2[-1, 1, n])/6 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   S2[3, Infinity]*S2[-1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/2 + (S2[1, n]^2*S2[2, 1, n])/2 + 
   (S2[2, Infinity]*S2[2, 1, n])/2 - (S2[1, n]*S2[-1, -2, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/6 + (S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[2, 1, -1, n])/3 - (S2[1, n]*S2[-1, 1, -1, -1, n])/3 - 
   S2[1, n]*S2[-1, 1, 1, 1, Infinity] + S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, -1, -1, 1, -1, n] - S2[1, -1, 1, -1, -1, n] - 
   2*S2[1, 1, -1, -1, -1, n], S2[1, -1, -1, 1, 1, n] -> 
  (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 4])/8 - Diff[Half[S2[2, 1, n], n], n, 2]/8 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/2 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/4 - 
   4*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] + (11*Diff[S2[1, n], n, 4])/
    24 - (3*Diff[S2[-3, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, n], n, 2])/2 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, n], n, 3])/2 + Diff[S2[2, 1, n], n, 2]/2 + 
   2*Diff[S2[-2, 1, -1, n], n, 1] - Diff[S2[-1, -2, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, n], n, 2] - Diff[S2[-1, 1, 1, n], n, 2] - 
   2*Diff[S2[1, 2, -1, n], n, 1] - Diff[S2[2, 1, -1, n], n, 1] + 
   2*Diff[S2[2, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, 1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    4 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/2 - Diff[S2[-2, 1, n], n, 1]*
    Half[S2[1, n], n] + (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 - S2[-1, Infinity]^5/20 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n])/2 - (35*Diff[S2[1, n], n, 3]*S2[1, n])/
    24 + 3*Diff[S2[-2, 1, n], n, 1]*S2[1, n] + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/2 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n])/2 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[1, n] + Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/2 - (S2[-1, Infinity]^4*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 - 
   (Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 - (Half[S2[1, n], n]^2*S2[1, n]^3)/4 + 
   (Half[S2[1, n], n]*S2[1, n]^4)/2 - S2[1, n]^5/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   S2[-1, Infinity]^3*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (15*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[1, n]^3*S2[2, Infinity])/8 - (3*Half[S2[1, n], n]*S2[2, Infinity]^2)/
    20 + (189*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (201*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/8 + 
   (47*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/8 - 
   (47*S2[1, n]^2*S2[3, Infinity])/32 + (69*S2[2, Infinity]*S2[3, Infinity])/
    32 + (215*S2[5, Infinity])/128 + (3*S2[1, n]*S2[-3, 1, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, n] - (3*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, n])/4 + Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, n] - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/
    4 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*S2[1, n]^3*S2[-1, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, n])/4 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (21*S2[3, Infinity]*S2[-1, 1, n])/16 - (S2[1, n]*S2[-1, 1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/2 + S2[1, n]^2*S2[2, 1, n] - 
   (S2[2, Infinity]*S2[2, 1, n])/2 - 2*S2[1, n]*S2[-2, 1, -1, n] + 
   (S2[1, n]*S2[-1, -2, -1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   2*S2[1, n]*S2[1, 2, -1, n] + S2[1, n]*S2[2, 1, -1, n] - 
   2*S2[1, n]*S2[2, 1, 1, n] - (S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   2*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + S2[-1, 1, -1, 1, 1, n]/2 - 
   (3*S2[-1, 1, 1, 1, -1, n])/2 + 6*S2[-1, 1, 1, 1, 1, Infinity] + 
   (3*S2[1, 1, -1, 1, -1, n])/2 + 3*S2[1, 1, 1, -1, -1, n], 
 S2[1, -1, 1, -1, 1, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]) + 
   Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1] + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2] + Diff[S2[1, n], n, 4]/12 - 
   Diff[S2[-1, 1, -1, n], n, 2]/2 + Diff[S2[-1, 1, n], n, 2]*
    Half[S2[1, n], n] + 2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   S2[-1, Infinity]^5/30 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n])/2 - (Diff[S2[1, n], n, 3]*S2[1, n])/12 - 
   Diff[S2[-1, 1, n], n, 2]*S2[1, n] - 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n] - Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity] - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity] + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 + 
   S2[1, n]^3*S2[2, Infinity] - (9*Half[S2[1, n], n]*S2[2, Infinity]^2)/20 - 
   (19*S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (31*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/8 - 
   (13*Diff[S2[1, n], n, 1]*S2[3, Infinity])/8 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/8 + 
   (13*S2[1, n]^2*S2[3, Infinity])/8 + (13*S2[2, Infinity]*S2[3, Infinity])/
    16 - (31*S2[5, Infinity])/8 - Diff[Half[S2[1, n], n], n, 2]*
    S2[-1, 1, n] + Diff[S2[1, n], n, 2]*S2[-1, 1, n] - 
   2*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, n] - Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n] - 
   3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n] + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - S2[3, Infinity]*S2[-1, 1, n] + 
   S2[1, n]*S2[-1, 1, n]^2 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] + 2*S2[1, n]^2*S2[-1, 1, 1, n] + 
   S2[2, Infinity]*S2[-1, 1, 1, n] - S2[-1, 1, -1, 1, 1, n] + 
   3*S2[-1, 1, 1, 1, -1, n] - 4*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, 1, -1, 1, -1, n], S2[1, -1, 1, 1, -1, n] -> 
  Diff[S2[-1, 1, -1, n], n, 2]/4 + Diff[S2[-1, 1, -1, 1, n], n, 1]/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n])/2 - (S2[-1, Infinity]^4*S2[1, n])/
    24 + (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[2, Infinity]^2)/40 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]^2)/16 + 
   (37*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/16 - 
   (S2[1, n]^2*S2[3, Infinity])/16 + (S2[2, Infinity]*S2[3, Infinity])/16 - 
   (29*S2[5, Infinity])/128 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (7*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/4 + (S2[1, n]^2*S2[-1, 1, -1, n])/
    4 - (S2[2, Infinity]*S2[-1, 1, -1, n])/4 - (S2[1, n]*S2[-1, 1, -1, 1, n])/
    2 + S2[1, n]*S2[-1, 1, 1, 1, Infinity] + S2[-1, 1, -1, 1, 1, n]/2 - 
   (3*S2[-1, 1, 1, 1, -1, n])/2 - S2[1, 1, -1, 1, -1, n]/2, 
 S2[1, -1, 1, 1, 1, n] -> -Diff[S2[-1, 1, 1, 1, n], n, 1] - 
   S2[-1, Infinity]^5/40 + (2*Half[S2[1, n], n]*S2[2, Infinity]^2)/5 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - (2*S2[1, n]*S2[2, Infinity]^2)/
    5 + (7*S2[2, Infinity]*S2[3, Infinity])/8 + S2[5, Infinity]/32 + 
   S2[3, Infinity]*S2[-1, 1, n] + S2[2, Infinity]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, 1, 1, n] - 4*S2[-1, 1, 1, 1, 1, n] + 
   3*S2[-1, 1, 1, 1, 1, Infinity], S2[1, 1, -1, -1, 1, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2])/8 + 
   Diff[Half[S2[1, n], n], n, 4]/4 + Diff[Half[S2[2, 1, n], n], n, 2]/8 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/8 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2] + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/4 - 
   (7*Diff[S2[1, n], n, 4])/48 + (3*Diff[S2[-3, 1, n], n, 1])/4 + 
   Diff[S2[-2, 1, n], n, 2]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (5*Diff[S2[-1, 1, n], n, 3])/8 - Diff[S2[2, 1, n], n, 2]/2 - 
   Diff[S2[-2, 1, -1, n], n, 1] + Diff[S2[-1, -2, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, n], n, 2]/2 + Diff[S2[-1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 2, -1, n], n, 1] + Diff[S2[2, 1, -1, n], n, 1]/2 - 
   Diff[S2[2, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, 1, n], n, 1]/2 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/2 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n])/8 + S2[-1, Infinity]^5/60 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 + (7*Diff[S2[1, n], n, 3]*S2[1, n])/
    48 - Diff[S2[-2, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n])/8 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n])/4 + Diff[S2[-1, 1, -1, n], n, 1]*
    S2[1, n] + (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + (S2[-1, Infinity]^4*S2[1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/8 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^2)/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/4 - Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 + 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n]^2 + (Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^3)/2 + (Half[S2[1, n], n]^2*S2[1, n]^3)/
    4 - (Half[S2[1, n], n]*S2[1, n]^4)/2 + S2[1, n]^5/4 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (2*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (7*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[1, n]^3*S2[2, Infinity])/4 + (Half[S2[1, n], n]*S2[2, Infinity]^2)/4 - 
   (8*S2[-1, Infinity]*S2[2, Infinity]^2)/5 - (39*S2[1, n]*S2[2, Infinity]^2)/
    40 - (19*Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/32 - 
   (27*Diff[S2[1, n], n, 1]*S2[3, Infinity])/32 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/32 + 
   (27*S2[1, n]^2*S2[3, Infinity])/32 - (13*S2[2, Infinity]*S2[3, Infinity])/
    16 + S2[5, Infinity]/32 - (3*S2[1, n]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, n])/2 + (S2[1, n]^2*S2[-2, 1, n])/
    2 + (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, n])/2 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, n] + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, n])/2 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]^2)/4 + (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, n])/
    4 + (3*Diff[S2[1, n], n, 1]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, n])/4 - (3*S2[1, n]^2*S2[2, 1, n])/
    4 + S2[1, n]*S2[-2, 1, -1, n] - (S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, n])/2 - (S2[1, n]^2*S2[-1, 1, -1, n])/
    2 - Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, n] - S2[1, n]^2*S2[-1, 1, 1, n] - 
   (S2[2, Infinity]*S2[-1, 1, 1, n])/2 - S2[1, n]*S2[1, 2, -1, n] - 
   (S2[1, n]*S2[2, 1, -1, n])/2 + S2[1, n]*S2[2, 1, 1, n] + 
   (S2[1, n]*S2[-1, 1, -1, 1, n])/2 - S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   2*S2[-1, 1, 1, 1, 1, Infinity] - S2[1, 1, -1, 1, -1, n] - 
   3*S2[1, 1, 1, -1, -1, n], S2[1, 1, -1, 1, 1, n] -> 
  Diff[S2[-1, 1, 1, n], n, 2]/2 + 3*Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   (7*S2[-1, Infinity]^5)/120 - Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n] - 
   (S2[-1, Infinity]^4*S2[1, n])/8 - Diff[S2[-1, 1, n], n, 1]*
    S2[2, Infinity] + (S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (Half[S2[1, n], n]*S2[2, Infinity]^2)/10 - 
   (37*S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (13*S2[1, n]*S2[2, Infinity]^2)/20 - Diff[Half[S2[1, n], n], n, 1]*
    S2[3, Infinity] + Diff[S2[1, n], n, 1]*S2[3, Infinity] + 
   Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity] - S2[1, n]^2*S2[3, Infinity] - 
   (25*S2[2, Infinity]*S2[3, Infinity])/8 - (63*S2[5, Infinity])/32 + 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] - 2*S2[3, Infinity]*S2[-1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n])/2 + (S2[1, n]^2*S2[-1, 1, 1, n])/
    2 - (5*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   3*S2[1, n]*S2[-1, 1, 1, 1, n] + 3*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   6*S2[-1, 1, 1, 1, 1, n] - 7*S2[-1, 1, 1, 1, 1, Infinity], 
 S2[1, 1, 1, -1, 1, n] -> (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, n], n, 3]/6 - Diff[S2[-1, 1, 1, n], n, 2] - 
   3*Diff[S2[-1, 1, 1, 1, n], n, 1] - S2[-1, Infinity]^5/24 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n])/2 + 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n] + (S2[-1, Infinity]^4*S2[1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^3*S2[2, Infinity])/3 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, Infinity] + (3*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[2, Infinity])/2 + (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[1, n]^3*S2[2, Infinity])/2 - (Half[S2[1, n], n]*S2[2, Infinity]^2)/
    10 + (7*S2[-1, Infinity]*S2[2, Infinity]^2)/4 - 
   (13*S2[1, n]*S2[2, Infinity]^2)/10 + Diff[Half[S2[1, n], n], n, 1]*
    S2[3, Infinity] - (3*Diff[S2[1, n], n, 1]*S2[3, Infinity])/16 - 
   Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity] + 
   (3*S2[1, n]^2*S2[3, Infinity])/16 + (37*S2[2, Infinity]*S2[3, Infinity])/
    16 + S2[5, Infinity] + (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, n])/6 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/
    2 + (4*S2[3, Infinity]*S2[-1, 1, n])/3 + Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, n] - S2[1, n]^2*S2[-1, 1, 1, n] + 
   2*S2[2, Infinity]*S2[-1, 1, 1, n] + 3*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 4*S2[-1, 1, 1, 1, 1, n] + 
   5*S2[-1, 1, 1, 1, 1, Infinity], S2[1, 1, 1, 1, -1, n] -> 
  Diff[Half[S2[1, n], n], n, 4]/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2])/6 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/12 - 
   Diff[S2[1, n], n, 4]/24 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1])/
    2 + Diff[S2[-1, 1, n], n, 3]/6 + Diff[S2[-1, 1, 1, n], n, 2]/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n])/24 + S2[-1, Infinity]^5/120 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n])/8 + (5*Diff[S2[1, n], n, 3]*S2[1, n])/
    24 - (Diff[S2[-1, 1, n], n, 2]*S2[1, n])/2 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n] + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (S2[-1, Infinity]^4*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^2)/4 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^2)/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^3)/6 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 + (Half[S2[1, n], n]*S2[1, n]^4)/
    24 - S2[1, n]^5/24 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (S2[1, n]^3*S2[2, Infinity])/6 + (Half[S2[1, n], n]*S2[2, Infinity]^2)/
    40 - (S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (9*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[3, Infinity])/3 - 
   (5*Diff[S2[1, n], n, 1]*S2[3, Infinity])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[3, Infinity])/3 + 
   (5*S2[1, n]^2*S2[3, Infinity])/48 - (29*S2[2, Infinity]*S2[3, Infinity])/
    48 - (Diff[S2[1, n], n, 2]*S2[-1, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, n])/6 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[3, Infinity]*S2[-1, 1, n])/3 - (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, n])/
    2 + (S2[1, n]^2*S2[-1, 1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - S2[1, n]*S2[-1, 1, 1, 1, n] + S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[-1, 1, 1, 1, 1, n] - S2[-1, 1, 1, 1, 1, Infinity], 
 S2[1, 1, 1, 1, 1, n] -> -(Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2])/12 + 
   Diff[S2[1, n], n, 4]/120 + (Diff[S2[1, n], n, 1]^2*S2[1, n])/8 - 
   (Diff[S2[1, n], n, 3]*S2[1, n])/24 + (Diff[S2[1, n], n, 2]*S2[1, n]^2)/
    12 - (Diff[S2[1, n], n, 1]*S2[1, n]^3)/12 + S2[1, n]^5/120 + 
   (Diff[S2[1, n], n, 2]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (S2[1, n]^3*S2[2, Infinity])/12 + (9*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (Diff[S2[1, n], n, 1]*S2[3, Infinity])/6 + (S2[1, n]^2*S2[3, Infinity])/
    6 + (S2[2, Infinity]*S2[3, Infinity])/6 + S2[5, Infinity]/5, 
 S2[-6, n] -> -Diff[Half[S2[1, n], n], n, 5]/120 + Diff[S2[1, n], n, 5]/120 - 
   (31*S2[2, Infinity]^3)/140, S2[6, n] -> -Diff[S2[1, n], n, 5]/120 + 
   (8*S2[2, Infinity]^3)/35, S2[-5, -1, n] -> 
  Diff[Half[S2[1, n], n], n, 2]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/48 - Diff[Half[S2[4, 1, n], n], n, 1]/
    16 - Diff[S2[1, n], n, 2]^2/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   Diff[S2[1, n], n, 5]/240 + Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/2 + Diff[S2[-2, 1, n], n, 3]/6 + 
   Diff[S2[-1, 1, n], n, 4]/24 - Diff[S2[2, 1, n], n, 3]/24 + 
   Diff[S2[4, 1, n], n, 1]/2 - (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 + S2[-5, -1, Infinity], 
 S2[5, -1, n] -> -Diff[Half[S2[1, n], n], n, 5]/120 + 
   Diff[S2[1, n], n, 5]/120 - Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/2 - Diff[S2[-2, 1, n], n, 3]/6 - 
   Diff[S2[-1, 1, n], n, 4]/24 + (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/
    24 - (Diff[S2[1, n], n, 4]*S2[1, n])/24 - (3*S2[2, Infinity]^3)/8 + 
   (15*S2[3, Infinity]^2)/32 - S2[-5, -1, Infinity] - S2[-5, 1, n], 
 S2[5, 1, n] -> Diff[S2[1, n], n, 2]^2/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   Diff[S2[1, n], n, 5]/240 + Diff[S2[2, 1, n], n, 3]/24 - 
   Diff[S2[4, 1, n], n, 1]/2 + (2*S2[2, Infinity]^3)/5 - S2[3, Infinity]^2/2, 
 S2[-4, -2, n] -> -Diff[Half[S2[1, n], n], n, 2]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 + 
   Diff[Half[S2[1, n], n], n, 5]/24 - Diff[Half[S2[2, 1, n], n], n, 3]/12 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/8 + Diff[S2[1, n], n, 2]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 - Diff[S2[1, n], n, 5]/40 - 
   2*Diff[S2[-4, 1, n], n, 1] - Diff[S2[-3, 1, n], n, 2] - 
   Diff[S2[-2, 1, n], n, 3]/6 + Diff[S2[2, 1, n], n, 3]/6 - 
   Diff[S2[4, 1, n], n, 1] + (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    12 - (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   (193*S2[2, Infinity]^3)/420 - (3*S2[3, Infinity]^2)/4, 
 S2[-4, 2, n] -> -Diff[S2[-4, 1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 - (221*S2[2, Infinity]^3)/168 + 
   (3*S2[3, Infinity]^2)/4 - 4*S2[-5, 1, n], 
 S2[4, -2, n] -> -Diff[Half[S2[1, n], n], n, 5]/120 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/6 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + Diff[S2[1, n], n, 5]/120 + 
   3*Diff[S2[-4, 1, n], n, 1] + Diff[S2[-3, 1, n], n, 2] + 
   Diff[S2[-2, 1, n], n, 3]/6 + (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   (779*S2[2, Infinity]^3)/840 - (15*S2[3, Infinity]^2)/16 + 4*S2[-5, 1, n], 
 S2[4, 2, n] -> -Diff[S2[1, n], n, 2]^2/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + Diff[S2[1, n], n, 5]/60 - 
   Diff[S2[2, 1, n], n, 3]/6 + Diff[S2[4, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 - (8*S2[2, Infinity]^3)/105 + 
   S2[3, Infinity]^2, S2[-3, -3, n] -> Diff[Half[S2[1, n], n], n, 2]^2/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/4 + 
   Diff[S2[1, n], n, 2]^2/8 - Diff[S2[1, n], n, 5]/240 + 
   (4*S2[2, Infinity]^3)/35 - (3*Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/8 + (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 + 
   (9*S2[3, Infinity]^2)/32, S2[-3, 3, n] -> 3*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/2 + (97*S2[2, Infinity]^3)/56 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 - (63*S2[3, Infinity]^2)/32 + 
   6*S2[-5, 1, n], S2[3, -3, n] -> -Diff[Half[S2[1, n], n], n, 5]/120 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/4 - 
   Diff[S2[1, n], n, 2]^2/4 + Diff[S2[1, n], n, 5]/120 - 
   3*Diff[S2[-4, 1, n], n, 1] - Diff[S2[-3, 1, n], n, 2]/2 - 
   (547*S2[2, Infinity]^3)/280 - (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 + 
   (39*S2[3, Infinity]^2)/32 - 6*S2[-5, 1, n], 
 S2[3, 3, n] -> Diff[S2[1, n], n, 2]^2/8 - Diff[S2[1, n], n, 5]/240 + 
   (4*S2[2, Infinity]^3)/35 + (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 + 
   S2[3, Infinity]^2/2, S2[-2, -4, n] -> Diff[Half[S2[1, n], n], n, 2]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/3 - 
   Diff[Half[S2[1, n], n], n, 5]/24 + Diff[Half[S2[2, 1, n], n], n, 3]/12 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   Diff[S2[1, n], n, 2]^2/4 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   Diff[S2[1, n], n, 5]/60 + 2*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2] + Diff[S2[-2, 1, n], n, 3]/6 - 
   Diff[S2[2, 1, n], n, 3]/6 + Diff[S2[4, 1, n], n, 1] + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 - 
   (47*S2[2, Infinity]^3)/840 + (3*S2[3, Infinity]^2)/4, 
 S2[-2, 4, n] -> -3*Diff[S2[-4, 1, n], n, 1] - Diff[S2[-3, 1, n], n, 2] - 
   Diff[S2[-2, 1, n], n, 3]/6 - (2*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/5 + (2*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 - 
   (1133*S2[2, Infinity]^3)/840 + (15*S2[3, Infinity]^2)/16 - 4*S2[-5, 1, n], 
 S2[2, -4, n] -> -Diff[Half[S2[1, n], n], n, 5]/120 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + Diff[S2[1, n], n, 5]/120 + 
   Diff[S2[-4, 1, n], n, 1] + (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 + 
   (125*S2[2, Infinity]^3)/168 - (3*S2[3, Infinity]^2)/4 + 4*S2[-5, 1, n], 
 S2[2, 4, n] -> Diff[S2[1, n], n, 2]^2/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 - Diff[S2[1, n], n, 5]/40 + 
   Diff[S2[2, 1, n], n, 3]/6 - Diff[S2[4, 1, n], n, 1] - 
   (2*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 + 
   (74*S2[2, Infinity]^3)/105 - S2[3, Infinity]^2, 
 S2[-1, -5, n] -> -Diff[Half[S2[1, n], n], n, 2]^2/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/48 + Diff[Half[S2[4, 1, n], n], n, 1]/
    16 + Diff[S2[1, n], n, 2]^2/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   Diff[S2[1, n], n, 5]/240 - Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/2 - Diff[S2[-2, 1, n], n, 3]/6 - 
   Diff[S2[-1, 1, n], n, 4]/24 + Diff[S2[2, 1, n], n, 3]/24 - 
   Diff[S2[4, 1, n], n, 1]/2 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/24 - (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (8*S2[2, Infinity]^3)/35 - (15*Half[S2[1, n], n]*S2[5, Infinity])/16 + 
   (15*S2[1, n]*S2[5, Infinity])/16 - S2[-5, -1, Infinity], 
 S2[-1, 5, n] -> Diff[S2[-4, 1, n], n, 1] + Diff[S2[-3, 1, n], n, 2]/2 + 
   Diff[S2[-2, 1, n], n, 3]/6 + Diff[S2[-1, 1, n], n, 4]/24 + 
   (43*S2[2, Infinity]^3)/280 - (15*S2[3, Infinity]^2)/32 + 
   Half[S2[1, n], n]*S2[5, Infinity] - S2[1, n]*S2[5, Infinity] + 
   S2[-5, -1, Infinity] + S2[-5, 1, n], 
 S2[1, -5, n] -> -Diff[Half[S2[1, n], n], n, 5]/120 + 
   Diff[S2[1, n], n, 5]/120 + (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 - (31*S2[2, Infinity]^3)/140 - 
   (15*S2[1, n]*S2[5, Infinity])/16 - S2[-5, 1, n], 
 S2[1, 5, n] -> -Diff[S2[1, n], n, 2]^2/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   Diff[S2[1, n], n, 5]/240 - Diff[S2[2, 1, n], n, 3]/24 + 
   Diff[S2[4, 1, n], n, 1]/2 + (Diff[S2[1, n], n, 4]*S2[1, n])/24 - 
   (6*S2[2, Infinity]^3)/35 + S2[3, Infinity]^2/2 + S2[1, n]*S2[5, Infinity], 
 S2[-4, -1, -1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/96 + 
   (13*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 + 
   (131*Diff[Half[S2[1, n], n], n, 5])/576 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (169*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (251*Diff[S2[1, n], n, 1]^3)/96 - (69*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (97*Diff[S2[1, n], n, 2]^2)/48 - 
   (93*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/64 + 
   (605*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (131*Diff[S2[1, n], n, 5])/576 + Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2] + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (5*Diff[S2[-2, 1, n], n, 3])/6 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/3 - 
   (91*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 - 
   (51*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (2*Diff[S2[-1, 1, n], n, 4])/3 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/24 + (3*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 2])/4 - 2*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (143*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (67*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 - (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 - (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/4 + 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 - S2[-1, Infinity]^6/480 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/2 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (75*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (121*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (117*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (175*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (109*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (19*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (25*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (S2[-1, Infinity]^5*S2[1, n])/240 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (49*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (151*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - (5*Half[S2[1, n], n]^2*S2[1, n]^4)/
    12 + (5*Half[S2[1, n], n]*S2[1, n]^5)/24 - S2[1, n]^6/24 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/3 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (23*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (19*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (3*S2[1, n]^4*S2[2, Infinity])/16 - 
   (147*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 - 
   (111*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 - 
   (89*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (139*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (499*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (239*S2[1, n]^2*S2[2, Infinity]^2)/320 + (3709*S2[2, Infinity]^3)/6720 + 
   (233*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (263*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (73*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (113*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (173*S2[1, n]^3*S2[3, Infinity])/384 - 
   (123*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (423*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (43*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (205*S2[3, Infinity]^2)/128 + (653*S2[1, n]*S2[5, Infinity])/128 + 
   S2[-5, -1, Infinity]/4 + 2*S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (3*S2[1, n]^2*S2[-3, 1, n])/16 + (19*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (31*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/24 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (S2[3, Infinity]*S2[-2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (31*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (27*S2[2, Infinity]^2*S2[-1, 1, n])/40 - 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (15*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (7*S2[1, n]^3*S2[2, 1, n])/48 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (21*S2[3, Infinity]*S2[2, 1, n])/16 + (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/
    2 - 3*S2[-4, 1, 1, n] + S2[1, n]*S2[-3, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/16 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 - (S2[3, Infinity]*S2[-1, 1, -1, n])/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[3, Infinity]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + (3*S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/8 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 - 3*S2[-3, 1, 1, 1, n] + (3*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - S2[-2, 2, 1, 1, n]/2 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    8 + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 + S2[2, -2, 1, 1, n]/2 - 
   (3*S2[-2, 1, 1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    4 + (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + S2[1, -1, 1, 1, 2, n]/2 - 
   3*S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, -1, 1, n]/2 - 
   2*S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, 1, -1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n]/4 + (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    2 + (5*S2[1, -1, -1, -1, -1, -1, n])/2, 
 S2[-4, -1, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/32 + 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/64 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (13*Diff[Half[S2[1, n], n], n, 5])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/48 - Diff[Half[S2[4, 1, n], n], n, 1]/
    16 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (101*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (47*Diff[S2[1, n], n, 1]^3)/32 - (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (63*Diff[S2[1, n], n, 2]^2)/32 - 
   (679*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (1507*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (613*Diff[S2[1, n], n, 5])/2880 - (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   (3*Diff[S2[-3, 1, n], n, 2])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   Diff[S2[-2, 1, n], n, 3]/6 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (25*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, n], n, 1]^2/16 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 - 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (25*Diff[S2[-1, 1, n], n, 4])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   Diff[S2[2, 1, n], n, 3]/24 - Diff[S2[-3, 1, 1, n], n, 1]/2 - 
   Diff[S2[-2, 1, -2, n], n, 1]/4 - Diff[S2[-2, 1, -1, n], n, 2]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, n], n, 3]/4 + (3*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + Diff[S2[2, 1, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/3 - (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (59*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (139*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 + (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 - (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/24 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/12 + 
   Half[S2[2, 1, n], n]^2/64 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - S2[-1, Infinity]^6/1440 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 - 
   (29*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/72 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (69*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (391*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (43*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (23*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (91*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (13*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (25*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (53*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (S2[-1, Infinity]^5*S2[1, n])/480 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (55*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/6 - 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/96 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/12 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    48 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    8 + (Half[S2[1, n], n]*S2[1, n]^5)/12 - S2[1, n]^6/48 + 
   (59*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (29*Diff[S2[1, n], n, 3]*S2[2, Infinity])/72 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (19*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    3 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    24 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/48 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    16 + (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    16 + (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (S2[1, n]^4*S2[2, Infinity])/48 + (159*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/320 - (773*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    960 - (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/192 - 
   (37*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (109*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (53*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 - 
   (23*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (65*S2[1, n]^2*S2[2, Infinity]^2)/192 + (57*S2[2, Infinity]^3)/80 + 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (11*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (45*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (S2[1, n]^3*S2[3, Infinity])/64 + (57*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/128 - (27*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/128 + (73*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/
    128 - (327*S2[3, Infinity]^2)/1024 - 
   (125*Half[S2[1, n], n]*S2[5, Infinity])/128 - (7*S2[1, n]*S2[5, Infinity])/
    32 - S2[-5, -1, Infinity]/8 - 2*S2[1, n]*S2[-4, 1, n] + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 - 
   (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (7*S2[1, n]^2*S2[-3, 1, n])/24 + (19*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 + 
   (S2[1, n]^3*S2[-2, 1, n])/12 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (31*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (173*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + (7*S2[-3, 1, n]*S2[-1, 1, n])/
    24 - (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/48 + (S2[2, Infinity]*S2[-1, 1, n]^2)/12 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (S2[1, n]^3*S2[2, 1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (S2[3, Infinity]*S2[2, 1, n])/32 + (S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2/4 - 
   2*S2[1, n]*S2[4, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/
    4 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - S2[-2, 2, -2, n]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + S2[-1, 1, -1, n]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/12 + (S2[2, Infinity]*S2[2, 1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + S2[4, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + S2[-1, 1, -1, -1, -1, 1, n]/4 + 
   S2[-1, 1, 1, 1, 1, 1, Infinity]/2 - S2[1, -1, -1, -1, 1, -1, n]/4 - 
   S2[1, -1, -1, 1, -1, -1, n]/2 - S2[1, -1, 1, -1, -1, -1, n]/2 - 
   S2[1, 1, -1, -1, -1, -1, n], S2[-4, 1, -1, n] -> 
  (7*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (23*Diff[Half[S2[1, n], n], n, 2]^2)/384 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 - 
   (413*Diff[Half[S2[1, n], n], n, 5])/1152 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/64 + Diff[Half[S2[4, 1, n], n], n, 1]/
    32 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (41*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (95*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/36 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (635*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (647*Diff[S2[1, n], n, 1]^3)/192 + 
   (209*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 - 
   (629*Diff[S2[1, n], n, 2]^2)/192 + 
   (2311*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (5473*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (421*Diff[S2[1, n], n, 5])/1152 + Diff[S2[-4, 1, n], n, 1] + 
   (11*Diff[S2[-3, 1, n], n, 2])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 - 
   (31*Diff[S2[-2, 1, n], n, 3])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (265*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   Diff[S2[-1, 1, n], n, 1]^2/32 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 + 
   (141*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (65*Diff[S2[-1, 1, n], n, 4])/64 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   Diff[S2[2, 1, n], n, 3]/16 + Diff[S2[4, 1, n], n, 1]/2 + 
   3*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   Diff[S2[-2, 1, -1, n], n, 2]/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, 1, n], n, 3]/2 - (11*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (19*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (3*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[3, 1, 1, n], n, 1] + 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    16 + (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    8 + (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + Diff[S2[1, -1, -1, -1, -1, n], 
    n, 1] - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 + (43*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (85*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    4 - (259*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (511*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (47*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    3 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 + (19*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (15*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 - (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    64 + (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 + 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   Half[S2[2, 1, n], n]^2/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   Half[S2[4, 1, 1, n], n]/16 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + (7*S2[-1, Infinity]^6)/2880 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 + (473*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (167*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (293*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (1507*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (47*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 - 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (365*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (7*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (13*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (67*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (19*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (65*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 + 
   (119*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (S2[-1, Infinity]^5*S2[1, n])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (199*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (83*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (1063*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (229*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (21*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (77*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    192 + (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (7*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + S2[1, n]^6/32 + (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 + (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (59*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/36 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (25*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (59*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (181*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    24 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (91*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (17*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 + (145*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (305*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (9*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (41*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (5*S2[1, n]^4*S2[2, Infinity])/48 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/128 - 
   (173*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/240 + 
   (169*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (27*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (503*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (99*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (31*S2[1, n]^2*S2[2, Infinity]^2)/60 - (233*S2[2, Infinity]^3)/3360 - 
   (809*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (875*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (99*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (169*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (15*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (663*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (335*S2[1, n]^3*S2[3, Infinity])/768 + 
   (97*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (1371*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (31*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (4369*S2[3, Infinity]^2)/2048 + (125*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (609*S2[1, n]*S2[5, Infinity])/128 + (15*S2[-5, -1, Infinity])/8 - 
   2*S2[-5, 1, n] + (47*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 - 
   (25*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (17*S2[1, n]^2*S2[-3, 1, n])/96 - (19*S2[2, Infinity]*S2[-3, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (31*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (103*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (17*S2[1, n]^3*S2[-2, 1, n])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/6 - 
   (17*S2[3, Infinity]*S2[-2, 1, n])/64 - S2[-2, 1, n]^2/8 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (245*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (S2[1, n]^4*S2[-1, 1, n])/24 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (583*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (61*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/96 - (S2[2, Infinity]*S2[-1, 1, n]^2)/24 + 
   (67*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 - 
   (67*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/16 - (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/32 + (7*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (13*S2[1, n]^3*S2[2, 1, n])/96 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (71*S2[3, Infinity]*S2[2, 1, n])/64 - (S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - S2[2, 1, n]^2/8 + 
   S2[1, n]*S2[4, 1, n] + 2*S2[-4, 1, 1, n] - S2[1, n]*S2[-3, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + S2[-2, 2, -2, n]/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/96 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (9*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - S2[-1, 1, -1, n]^2/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   S2[3, Infinity]*S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[1, n]*S2[2, 1, -2, n])/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 + (41*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (35*S2[1, n]^2*S2[2, 1, -1, n])/48 + (2*S2[2, Infinity]*S2[2, 1, -1, n])/
    3 - (S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 - S2[4, 1, 1, n] + 3*S2[-3, 1, 1, 1, n] - 
   (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + S2[-2, 2, 1, 1, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - (S2[1, n]*S2[1, 1, 2, -1, n])/
    2 - S2[2, -2, 1, 1, n]/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, 2, n]/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 3*S2[1, 1, 1, 2, -1, n] + 
   S2[1, 1, 2, -1, 1, n]/2 + 2*S2[1, 1, 2, 1, -1, n] + 
   S2[1, 2, 1, 1, -1, n] - S2[-1, -1, -1, 1, -1, -1, n]/8 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/8 - (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, -1, 1, n]/8 - (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + S2[1, -1, -1, -1, 1, -1, n]/8 + 
   S2[1, -1, -1, 1, -1, -1, n]/4 + S2[1, -1, 1, -1, -1, -1, n]/4 + 
   S2[1, 1, -1, -1, -1, -1, n]/2, S2[4, -1, -1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/192 - (59*Diff[Half[S2[1, n], n], n, 2]^2)/
    384 - (49*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    288 - (299*Diff[Half[S2[1, n], n], n, 5])/1152 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/192 + Diff[Half[S2[4, 1, n], n], n, 1]/
    32 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (583*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (557*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (545*Diff[S2[1, n], n, 1]^3)/192 + 
   (157*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 - 
   (449*Diff[S2[1, n], n, 2]^2)/192 + 
   (1945*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (4123*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (1511*Diff[S2[1, n], n, 5])/5760 - (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   (35*Diff[S2[-3, 1, n], n, 2])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 - 
   (15*Diff[S2[-2, 1, n], n, 3])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (211*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (57*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (149*Diff[S2[-1, 1, n], n, 4])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   Diff[S2[2, 1, n], n, 3]/48 - Diff[S2[4, 1, n], n, 1]/2 + 
   (5*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-2, 1, -1, n], n, 2]/8 - 
   Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/8 - (7*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   (13*Diff[S2[2, 1, -1, n], n, 2])/16 + Diff[S2[2, 1, 1, n], n, 2]/8 + 
   2*Diff[S2[-2, 1, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, -1, n], n, 2]/16 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    8 - (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (13*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (95*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (349*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (505*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (19*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    6 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 + (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 + 
   (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   Half[S2[2, 1, n], n]^2/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   Half[S2[4, 1, 1, n], n]/16 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 - (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + (7*S2[-1, Infinity]^6)/2880 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    12 + (311*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (163*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (143*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (259*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (1189*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (19*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (259*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (49*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (137*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (49*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (S2[-1, Infinity]^5*S2[1, n])/192 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (343*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (169*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (155*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (1015*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (229*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 + 
   (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (55*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    192 - (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (7*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + S2[1, n]^6/32 - (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 - (17*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/144 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (121*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (37*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (13*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    96 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    16 - (67*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    64 - (17*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    64 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/24 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (71*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (9*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (41*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (5*S2[1, n]^4*S2[2, Infinity])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (47*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (169*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (427*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (503*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (99*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (31*S2[1, n]^2*S2[2, Infinity]^2)/60 - (253*S2[2, Infinity]^3)/6720 - 
   (395*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (647*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (15*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (303*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (335*S2[1, n]^3*S2[3, Infinity])/768 + 
   (97*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (1371*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (31*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (1425*S2[3, Infinity]^2)/2048 + (125*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (609*S2[1, n]*S2[5, Infinity])/128 + (3*S2[-5, -1, Infinity])/8 - 
   2*S2[-5, 1, n] - (67*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (2*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/3 + 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (17*S2[1, n]^2*S2[-3, 1, n])/96 - (13*S2[2, Infinity]*S2[-3, 1, n])/24 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (67*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (127*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (17*S2[1, n]^3*S2[-2, 1, n])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/6 - 
   (17*S2[3, Infinity]*S2[-2, 1, n])/64 - S2[-2, 1, n]^2/8 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (29*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (215*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (583*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (61*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/96 - (S2[2, Infinity]*S2[-1, 1, n]^2)/24 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (13*S2[1, n]^3*S2[2, 1, n])/96 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (71*S2[3, Infinity]*S2[2, 1, n])/64 - (S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - S2[2, 1, n]^2/8 + 
   S2[1, n]*S2[4, 1, n] + 2*S2[-4, 1, 1, n] - S2[1, n]*S2[-3, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/96 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (9*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - S2[-1, 1, -1, n]^2/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   S2[3, Infinity]*S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 + (4*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (35*S2[1, n]^2*S2[2, 1, -1, n])/48 + (2*S2[2, Infinity]*S2[2, 1, -1, n])/
    3 - (S2[-1, 1, n]*S2[2, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 - S2[4, 1, 1, n] + 3*S2[-3, 1, 1, 1, n] - 
   (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + S2[-2, 2, 1, 1, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - (S2[1, n]*S2[1, 1, 2, -1, n])/
    2 - S2[2, -2, 1, 1, n]/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, 2, n]/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 3*S2[1, 1, 1, 2, -1, n] + 
   S2[1, 1, 2, -1, 1, n]/2 + 2*S2[1, 1, 2, 1, -1, n] + 
   S2[1, 2, 1, 1, -1, n] - S2[-1, -1, -1, 1, -1, -1, n]/8 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/8 - (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, -1, 1, n]/8 - (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + S2[1, -1, -1, -1, 1, -1, n]/8 + 
   S2[1, -1, -1, 1, -1, -1, n]/4 + S2[1, -1, 1, -1, -1, -1, n]/4 + 
   S2[1, 1, -1, -1, -1, -1, n]/2, S2[4, -1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 5]/12 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   Diff[S2[1, n], n, 1]^3/2 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (3*Diff[S2[1, n], n, 2]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3] + Diff[S2[1, n], n, 5]/12 + 
   (3*Diff[S2[-4, 1, n], n, 1])/2 + Diff[S2[-3, 1, n], n, 2]/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   Diff[S2[-2, 1, n], n, 3]/12 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, n], n, 4]/8 - Diff[S2[-3, 1, 1, n], n, 1]/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/6 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/12 + Diff[S2[-3, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/2 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 + (3*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    4 - (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 + 
   (227*S2[2, Infinity]^3)/3360 - (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/
    16 + (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (37*S2[3, Infinity]^2)/256 - (3*S2[-5, -1, Infinity])/2 + 2*S2[-5, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - S2[-4, 1, 1, n] - 
   S2[-3, 1, 1, 1, n] + (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + S2[2, -2, 1, 1, n]/2, 
 S2[4, 1, -1, n] -> (13*Diff[Half[S2[1, n], n], n, 5])/48 - 
   2*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1] + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 - 
   (21*Diff[S2[1, n], n, 1]^3)/8 - (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (19*Diff[S2[1, n], n, 2]^2)/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/16 + 
   (57*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 - 
   (13*Diff[S2[1, n], n, 5])/48 - Diff[S2[-4, 1, n], n, 1]/2 + 
   Diff[S2[-3, 1, n], n, 2]/4 - 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + (2*Diff[S2[-2, 1, n], n, 3])/3 - 
   2*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1] - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (35*Diff[S2[-1, 1, n], n, 4])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   2*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-1, 1, 1, n], n, 3]/6 + 
   Diff[S2[1, 2, -1, n], n, 2] + Diff[S2[2, 1, -1, n], n, 2] - 
   2*Diff[S2[-2, 1, 1, 1, n], n, 1] - (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 - (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/
    2 + (23*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^6/480 - 
   (3*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (69*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[1, n], n, 4]*S2[1, n])/6 - 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] - (5*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/
    3 + (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (65*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^5*S2[1, n])/240 + 
   (2*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (23*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (97*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (35*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/10 + 
   (49*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 - 
   (149*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (257*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (5*S2[1, n]^2*S2[2, Infinity]^2)/8 - (49*S2[2, Infinity]^3)/40 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 - 
   (15*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (7*S2[1, n]^3*S2[3, Infinity])/16 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] + (159*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    32 + (S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (433*S2[3, Infinity]^2)/256 + (593*S2[1, n]*S2[5, Infinity])/128 - 
   (7*S2[-5, -1, Infinity])/8 + S2[1, n]*S2[-4, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + (S2[1, n]^2*S2[-3, 1, n])/4 - 
   (S2[2, Infinity]*S2[-3, 1, n])/4 - (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    4 + 2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (S2[1, n]^3*S2[-2, 1, n])/2 + (S2[3, Infinity]*S2[-2, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (29*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (9*S2[2, Infinity]^2*S2[-1, 1, n])/10 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - (7*S2[3, Infinity]*S2[2, 1, n])/
    8 + (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - S2[-4, 1, 1, n] + 
   S2[1, n]*S2[-3, 1, 1, n] + (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[3, Infinity]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 - (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    4 + (3*S2[1, n]^2*S2[2, 1, -1, n])/4 - 
   (3*S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 - 2*S2[-3, 1, 1, 1, n] + (3*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - S2[-2, 2, 1, 1, n]/2 + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 - (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + S2[1, -1, 1, 1, 2, n]/2 - 
   3*S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, -1, 1, n]/2 - 
   2*S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, 1, -1, n] + 
   (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, S2[-3, -2, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/96 - (5*Diff[Half[S2[1, n], n], n, 2]^2)/
    32 + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 - 
   (3497*Diff[Half[S2[1, n], n], n, 5])/2880 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (281*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (363*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (1093*Diff[S2[1, n], n, 1]^3)/96 + 
   (351*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 - 
   (173*Diff[S2[1, n], n, 2]^2)/16 + (1337*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/192 - (3035*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/192 + (3497*Diff[S2[1, n], n, 5])/2880 - 
   2*Diff[S2[-4, 1, n], n, 1] - (3*Diff[S2[-3, 1, n], n, 2])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (69*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (17*Diff[S2[-2, 1, n], n, 3])/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (147*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 + 
   (227*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (27*Diff[S2[-1, 1, n], n, 4])/8 + (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (21*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (15*Diff[S2[-1, 1, 1, n], n, 3])/8 - (17*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1] - (15*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   7*Diff[S2[-2, 1, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (203*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (119*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 - (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 - 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 + S2[-1, Infinity]^6/160 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (11*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (297*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (177*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (523*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (291*Diff[S2[1, n], n, 4]*S2[1, n])/64 - 
   (29*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (45*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (103*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (193*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (17*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (33*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (33*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (37*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (15*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (S2[-1, Infinity]^5*S2[1, n])/80 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (123*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (207*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 - 
   (27*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (113*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 + 
   (19*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (75*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/8 - 
   (15*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/64 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (27*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    32 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 + (5*Half[S2[1, n], n]^2*S2[1, n]^4)/
    4 - (5*Half[S2[1, n], n]*S2[1, n]^5)/8 + S2[1, n]^6/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 + Diff[S2[1, n], n, 1]^2*S2[2, Infinity] + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/4 - 
   (15*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (51*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   4*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (87*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (85*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + 3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (135*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (45*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (5*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/8 - (51*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/16 + (15*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/8 + (45*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 + (21*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 - (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (57*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (9*S2[1, n]^4*S2[2, Infinity])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (333*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 - 
   (173*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (417*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1497*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (717*S2[1, n]^2*S2[2, Infinity]^2)/320 - (24319*S2[2, Infinity]^3)/6720 - 
   (305*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (407*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 - 
   (255*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (163*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (21*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (113*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (763*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (33*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (173*S2[1, n]^3*S2[3, Infinity])/128 + 
   (369*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (1269*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (129*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (615*S2[3, Infinity]^2)/128 - (1959*S2[1, n]*S2[5, Infinity])/128 + 
   (5*S2[-5, -1, Infinity])/4 - 11*S2[-5, 1, n] - 3*S2[1, n]*S2[-4, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (9*S2[1, n]^2*S2[-3, 1, n])/16 - (57*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (27*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (7*S2[1, n]^3*S2[-2, 1, n])/8 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (3*S2[3, Infinity]*S2[-2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (25*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (47*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + Diff[S2[2, 1, n], n, 1]*
    S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/16 + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    16 + (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (27*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 + 
   (S2[1, n]^4*S2[-1, 1, n])/8 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (23*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (81*S2[2, Infinity]^2*S2[-1, 1, n])/40 + 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (45*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (7*S2[1, n]^3*S2[2, 1, n])/16 - (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (15*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (63*S2[3, Infinity]*S2[2, 1, n])/16 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 9*S2[-4, 1, 1, n] - 
   3*S2[1, n]*S2[-3, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/16 - 
   (3*S2[2, Infinity]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (3*S2[3, Infinity]*S2[-1, 1, -1, n])/
    32 - (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   3*S2[3, Infinity]*S2[-1, 1, 1, n] + 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - (9*S2[1, n]^2*S2[1, 2, -1, n])/
    4 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 + (3*S2[1, n]*S2[2, 1, -2, n])/
    2 - (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (15*S2[1, n]^2*S2[2, 1, -1, n])/8 + (15*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[3, 1, -2, n])/2 + 9*S2[-3, 1, 1, 1, n] - 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (21*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (49*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - (3*S2[2, -2, 1, 1, n])/2 + 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - (3*S2[1, -1, 1, 1, 2, n])/2 + 
   9*S2[1, 1, 1, 2, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/4 - (9*S2[-1, -1, 1, -1, -1, -1, n])/4 - 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/2 - (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    2 - (15*S2[1, -1, -1, -1, -1, -1, n])/2, 
 S2[-3, 2, -1, n] -> (-5*Diff[Half[S2[1, n], n], n, 1]^3)/64 + 
   (27*Diff[Half[S2[1, n], n], n, 2]^2)/128 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/32 + 
   (367*Diff[Half[S2[1, n], n], n, 5])/384 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 - 
   (701*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (609*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (613*Diff[S2[1, n], n, 1]^3)/64 - (559*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (549*Diff[S2[1, n], n, 2]^2)/64 - 
   (719*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/128 + 
   (4943*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/384 - 
   (125*Diff[S2[1, n], n, 5])/128 - Diff[S2[-4, 1, n], n, 1]/2 + 
   (13*Diff[S2[-3, 1, n], n, 2])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] + 
   (103*Diff[S2[-2, 1, n], n, 3])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (239*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   Diff[S2[-1, 1, n], n, 1]^2/32 - (15*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 - 
   (97*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (177*Diff[S2[-1, 1, n], n, 4])/64 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   Diff[S2[2, 1, n], n, 3]/48 - (17*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   Diff[S2[-2, 1, -1, n], n, 2]/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/8 + (29*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1] + (51*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (5*Diff[S2[2, 1, 1, n], n, 2])/8 + 2*Diff[S2[3, 1, 1, n], n, 1] - 
   7*Diff[S2[-2, 1, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, -1, n], n, 2]/16 - 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (17*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/192 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (289*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 - (175*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/128 - 
   (25*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (9*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (15*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (11*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/8 + (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    64 - (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   (3*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[4, 1, 1, n], n])/16 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    64 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 - (7*S2[-1, Infinity]^6)/960 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 - 
   (145*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/64 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (497*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (141*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (845*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (1417*Diff[S2[1, n], n, 4]*S2[1, n])/384 + 
   (25*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 5*Diff[S2[-2, 1, n], n, 2]*
    S2[1, n] + (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     S2[1, n])/2 + (49*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     S2[1, n])/8 - (335*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 + 
   (15*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (33*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (61*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (2*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (33*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (10*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (25*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 - 
   (73*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (S2[-1, Infinity]^5*S2[1, n])/64 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (247*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 - 
   (9*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (107*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (1063*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 + 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (229*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 - 
   (41*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (129*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 + 
   (9*S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 - (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 - (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (7*Half[S2[1, n], n]*S2[1, n]^5)/
    16 - (3*S2[1, n]^6)/32 - (7*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    24 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (221*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (123*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (103*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   4*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity] - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (45*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (135*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (57*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (23*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (39*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (123*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 + (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    8 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (249*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (51*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (11*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/8 - (87*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (227*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (33*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 - (27*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    64 + (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (123*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (5*S2[1, n]^4*S2[2, Infinity])/16 - 
   (787*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (477*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 - 
   (169*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (479*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (503*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (297*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 - 
   (31*S2[1, n]^2*S2[2, Infinity]^2)/20 + (493*S2[2, Infinity]^3)/1344 + 
   (687*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 - 
   (815*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (69*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (371*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (45*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (1629*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (335*S2[1, n]^3*S2[3, Infinity])/256 - 
   (291*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (4113*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (93*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (10227*S2[3, Infinity]^2)/2048 - (375*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (1827*S2[1, n]*S2[5, Infinity])/128 - (25*S2[-5, -1, Infinity])/8 + 
   6*S2[-5, 1, n] - (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (17*S2[1, n]^2*S2[-3, 1, n])/32 + (17*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (43*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (111*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 - 
   (17*S2[1, n]^3*S2[-2, 1, n])/16 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (51*S2[3, Infinity]*S2[-2, 1, n])/64 + (3*S2[-2, 1, n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (91*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (227*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 - 
   (S2[1, n]^4*S2[-1, 1, n])/8 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (27*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (583*S2[2, Infinity]^2*S2[-1, 1, n])/320 + 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (183*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/32 + (S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (45*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (59*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (103*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (33*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (13*S2[1, n]^3*S2[2, 1, n])/32 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 - (63*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (213*S2[3, Infinity]*S2[2, 1, n])/64 + (3*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (27*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (3*S2[2, 1, n]^2)/8 - 
   3*S2[1, n]*S2[4, 1, n] - 6*S2[-4, 1, 1, n] + 3*S2[1, n]*S2[-3, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - S2[-2, 2, -2, n]/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/32 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (27*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + (3*S2[-1, 1, -1, n]^2)/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 3*Diff[S2[1, n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + 3*S2[3, Infinity]*S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (39*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 - (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 - (19*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (35*S2[1, n]^2*S2[2, 1, -1, n])/16 - 2*S2[2, Infinity]*S2[2, 1, -1, n] + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[3, 1, -2, n])/2 + 3*S2[4, 1, 1, n] - 9*S2[-3, 1, 1, 1, n] + 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (27*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (3*S2[2, -2, 1, 1, n])/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (15*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, 2, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 9*S2[1, 1, 1, 2, -1, n] - 
   (3*S2[1, 1, 2, -1, 1, n])/2 - 6*S2[1, 1, 2, 1, -1, n] - 
   3*S2[1, 2, 1, 1, -1, n] + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 + (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/8 + (21*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    4 + (15*S2[1, -1, -1, -1, -1, -1, n])/4 - (3*S2[1, -1, -1, -1, 1, -1, n])/
    8 - (3*S2[1, -1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, -1, -1, -1, n])/
    4 - (3*S2[1, 1, -1, -1, -1, -1, n])/2, 
 S2[-3, 2, 1, n] -> (-23*Diff[Half[S2[1, n], n], n, 5])/240 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 + 
   (5*Diff[S2[1, n], n, 1]^3)/4 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (3*Diff[S2[1, n], n, 2]^2)/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (23*Diff[S2[1, n], n, 5])/240 - Diff[S2[-3, 1, n], n, 2]/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, n], n, 3]/6 + (3*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, n], n, 4]/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - Diff[S2[2, 1, -1, n], n, 2]/4 + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - Diff[S2[1, n], n, 1]*
    Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/4 + (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/
    4 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/2 + (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    4 - (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (39*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 + 
   (3071*S2[2, Infinity]^3)/3360 + (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/
    32 - (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (211*S2[3, Infinity]^2)/256 + 2*S2[-5, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - S2[-4, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + S2[3, 1, -2, n] + 
   S2[-3, 1, 1, 1, n] + (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - S2[2, -2, 1, 1, n]/2, 
 S2[-3, -1, -2, n] -> (5*Diff[Half[S2[1, n], n], n, 1]^3)/48 - 
   Diff[Half[S2[1, n], n], n, 2]^2/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/4 + 
   (361*Diff[Half[S2[1, n], n], n, 5])/1440 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/16 - 
   (77*Diff[S2[1, n], n, 1]^3)/48 - (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (19*Diff[S2[1, n], n, 2]^2)/8 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/32 + 
   (95*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/32 - 
   (361*Diff[S2[1, n], n, 5])/1440 + (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   (3*Diff[S2[-3, 1, n], n, 2])/8 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   Diff[S2[-2, 1, n], n, 3]/12 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 - 
   (15*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, n], n, 1]^2/4 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/16 - 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (31*Diff[S2[-1, 1, n], n, 4])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (3*Diff[S2[-3, 1, 1, n], n, 1])/2 - Diff[S2[-1, -2, -1, n], n, 2]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, n], n, 3]/2 + Diff[S2[1, 2, -1, n], n, 2] - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (3*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/4 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 + (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    16 + (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 + (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/4 + (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/8 - (29*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (39*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (77*Diff[S2[1, n], n, 4]*S2[1, n])/96 + 
   (5*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (19*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (3*Diff[S2[1, n], n, 3]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (15*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/8 + (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/
    4 + (79*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/32 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]^2)/4 + (949*S2[2, Infinity]^3)/560 + 
   (57*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 - 
   (75*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (3*S2[3, Infinity]^2)/2 - S2[-5, -1, Infinity] + 5*S2[-5, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/2 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity], 
 S2[-3, -1, 2, n] -> Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (11*Diff[Half[S2[1, n], n], n, 2]^2)/64 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 + 
   Diff[Half[S2[1, n], n], n, 5]/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/16 + Diff[Half[S2[4, 1, n], n], n, 1]/8 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (7*Diff[S2[1, n], n, 1]^3)/32 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (9*Diff[S2[1, n], n, 2]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/64 - 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (23*Diff[S2[1, n], n, 5])/960 + Diff[S2[-4, 1, n], n, 1]/2 + 
   (5*Diff[S2[-3, 1, n], n, 2])/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   Diff[S2[-2, 1, n], n, 3]/4 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (9*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, n], n, 1]^2/16 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   Diff[S2[-1, 1, n], n, 4]/12 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   Diff[S2[2, 1, n], n, 3]/8 - Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   Diff[S2[-2, 1, -1, n], n, 2]/4 + Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[1, 2, -1, n], n, 2]/4 + Diff[S2[2, 1, -2, n], n, 1]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 - (3*Diff[S2[2, 1, 1, n], n, 2])/4 - 
   2*Diff[S2[3, 1, 1, n], n, 1] + Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 + (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    24 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 - (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/8 + (15*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/16 - (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 + 
   (11*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/2 + (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (23*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (3*Half[S2[2, 1, n], n]^2)/64 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + S2[-1, Infinity]^6/480 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (37*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 - Diff[S2[2, 1, n], n, 2]*
    S2[1, n] - (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (21*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (31*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (S2[-1, Infinity]^5*S2[1, n])/160 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (11*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (13*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^4)/8 - (Half[S2[1, n], n]*S2[1, n]^5)/4 + 
   S2[1, n]^6/16 - (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (S2[1, n]^4*S2[2, Infinity])/16 - (399*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/320 + (511*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    320 + (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/64 + 
   (111*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (687*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (53*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (69*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (65*S2[1, n]^2*S2[2, Infinity]^2)/64 - (1051*S2[2, Infinity]^3)/1680 - 
   (115*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (3*S2[1, n]^3*S2[3, Infinity])/64 - 
   (171*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (81*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (219*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (1019*S2[3, Infinity]^2)/1024 + (375*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (21*S2[1, n]*S2[5, Infinity])/32 + (23*S2[-5, -1, Infinity])/8 + 
   6*S2[1, n]*S2[-4, 1, n] - (13*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/8 - (19*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-2, 1, n] - (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/
    4 - (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (S2[1, n]^3*S2[-2, 1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (3*S2[3, Infinity]*S2[-2, 1, n])/32 - (3*S2[-2, 1, n]^2)/4 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 + 
   (S2[1, n]^4*S2[-1, 1, n])/8 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (173*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (9*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 - (S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (3*S2[1, n]^3*S2[2, 1, n])/8 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[3, Infinity]*S2[2, 1, n])/32 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (3*S2[2, 1, n]^2)/4 + 
   6*S2[1, n]*S2[4, 1, n] - S2[-3, -2, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + (3*S2[-2, 2, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (3*S2[3, Infinity]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 - (S2[2, Infinity]*S2[2, 1, -1, n])/8 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 3*S2[4, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (27*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - (3*S2[-1, 1, -1, -1, -1, 1, n])/
    4 - (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   (3*S2[1, -1, 1, -1, -1, -1, n])/2 + 3*S2[1, 1, -1, -1, -1, -1, n], 
 S2[-3, 1, -2, n] -> -Diff[Half[S2[1, n], n], n, 2]^2/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 + 
   Diff[Half[S2[1, n], n], n, 5]/48 - Diff[Half[S2[2, 1, n], n], n, 3]/24 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/8 + 
   (3*Diff[S2[1, n], n, 2]^2)/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 - Diff[S2[1, n], n, 5]/96 - 
   Diff[S2[-4, 1, n], n, 1] - Diff[S2[-3, 1, n], n, 2]/2 - 
   Diff[S2[-2, 1, n], n, 3]/12 + Diff[S2[2, 1, n], n, 3]/12 - 
   Diff[S2[4, 1, n], n, 1]/2 - Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (599*S2[2, Infinity]^3)/2240 - (3*Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/16 + (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 - 
   (21*S2[3, Infinity]^2)/64 - (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - 
   (S2[2, Infinity]*S2[-3, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - S2[-2, 2, -2, n]/4, 
 S2[-3, 1, 2, n] -> (23*Diff[Half[S2[1, n], n], n, 5])/240 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 - 
   (5*Diff[S2[1, n], n, 1]^3)/4 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (3*Diff[S2[1, n], n, 2]^2)/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (23*Diff[S2[1, n], n, 5])/240 + Diff[S2[-3, 1, n], n, 2]/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   Diff[S2[-2, 1, n], n, 3]/6 - (3*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   Diff[S2[-1, 1, n], n, 4]/4 - Diff[S2[-3, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/4 + Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + Diff[S2[2, 1, -1, n], n, 2]/4 - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[1, n], n, 1]*
    Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/4 - (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/
    4 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/2 - (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    4 + (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (39*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 - 
   (1747*S2[2, Infinity]^3)/3360 + (Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/2 - (23*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (287*S2[3, Infinity]^2)/256 - 2*S2[-5, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + S2[2, Infinity]*S2[-3, 1, n] - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - 2*S2[-4, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - S2[3, 1, -2, n] - 
   S2[-3, 1, 1, 1, n] - (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + S2[2, -2, 1, 1, n]/2, 
 S2[3, -2, -1, n] -> (-5*Diff[Half[S2[1, n], n], n, 1]^3)/64 + 
   (73*Diff[Half[S2[1, n], n], n, 2]^2)/128 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/96 + 
   (391*Diff[Half[S2[1, n], n], n, 5])/384 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (29*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (9*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 - 
   (133*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (717*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (705*Diff[S2[1, n], n, 1]^3)/64 - (631*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (611*Diff[S2[1, n], n, 2]^2)/64 - 
   (2509*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/384 + 
   (5567*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/384 - 
   (2099*Diff[S2[1, n], n, 5])/1920 + (5*Diff[S2[-4, 1, n], n, 1])/2 + 
   (67*Diff[S2[-3, 1, n], n, 2])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (67*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (133*Diff[S2[-2, 1, n], n, 3])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (263*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (211*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (195*Diff[S2[-1, 1, n], n, 4])/64 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] + (15*Diff[S2[1, n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 - (3*Diff[S2[2, 1, n], n, 3])/16 + 
   (3*Diff[S2[4, 1, n], n, 1])/2 - (17*Diff[S2[-3, 1, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, -1, n], n, 2]/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/2 + (31*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1] + (53*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   Diff[S2[2, 1, 1, n], n, 2]/8 - 7*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/16 - (19*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/
    2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (29*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/192 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (51*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (417*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (701*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 + 
   (31*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (19*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    64 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    8 - (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 + 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (9*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   (3*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[4, 1, 1, n], n])/16 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    64 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 - S2[-1, Infinity]^6/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 - (517*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (577*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (1045*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (563*Diff[S2[1, n], n, 4]*S2[1, n])/128 + 
   (65*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 
   (45*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (109*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (371*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (11*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (33*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (69*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (119*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (257*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 - 
   (3*S2[-1, Infinity]^5*S2[1, n])/320 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (365*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 - 
   (135*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (77*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (1295*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 + 4*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (245*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 - 
   (21*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (9*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 + 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 + 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/2 - (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (3*Half[S2[1, n], n]*S2[1, n]^5)/
    16 - S2[1, n]^6/32 + (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 + (13*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (135*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (41*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (79*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (47*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   4*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (135*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 - (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (57*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (35*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 + 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 + (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    32 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (261*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (39*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (9*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (145*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (27*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (39*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 + 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (135*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (S2[1, n]^4*S2[2, Infinity])/4 - (1031*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/640 + (511*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    320 - (41*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 + 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (211*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 + 
   (143*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/64 + 
   (777*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (821*S2[1, n]^2*S2[2, Infinity]^2)/320 - (17*S2[2, Infinity]^3)/42 + 
   (499*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 - 
   (799*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (267*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (339*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (39*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (117*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (1609*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 + 
   (51*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (347*S2[1, n]^3*S2[3, Infinity])/256 - 
   (231*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (4275*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (33*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (5181*S2[3, Infinity]^2)/2048 + (375*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (1911*S2[1, n]*S2[5, Infinity])/128 + (3*S2[-5, -1, Infinity])/4 + 
   6*S2[-5, 1, n] + 6*S2[1, n]*S2[-4, 1, n] + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 - 
   (11*S2[1, n]^2*S2[-3, 1, n])/32 + (11*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (55*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[-2, 1, n] - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (115*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 - 
   (21*S2[1, n]^3*S2[-2, 1, n])/16 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (57*S2[3, Infinity]*S2[-2, 1, n])/64 - (3*S2[-2, 1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (101*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (253*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (3*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (9*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (929*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (15*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (189*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/32 - (S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (59*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (47*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (111*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (S2[1, n]^3*S2[2, 1, n])/32 + (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (81*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (207*S2[3, Infinity]*S2[2, 1, n])/64 - (3*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (3*S2[2, 1, n]^2)/8 + 
   3*S2[1, n]*S2[4, 1, n] - 6*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 
   3*S2[1, n]*S2[-3, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   S2[-2, 2, -2, n]/2 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    32 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/32 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (21*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - (3*S2[-1, 1, -1, n]^2)/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 3*Diff[S2[1, n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + 3*S2[3, Infinity]*S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (39*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 - (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 - (21*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (31*S2[1, n]^2*S2[2, 1, -1, n])/16 - (17*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[3, 1, -2, n])/2 - 9*S2[-3, 1, 1, 1, n] + 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (39*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (13*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (3*S2[2, -2, 1, 1, n])/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, 2, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 9*S2[1, 1, 1, 2, -1, n] - 
   (3*S2[1, 1, 2, -1, 1, n])/2 - 6*S2[1, 1, 2, 1, -1, n] - 
   3*S2[1, 2, 1, 1, -1, n] + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 + (9*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/8 + (15*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    4 + (15*S2[1, -1, -1, -1, -1, -1, n])/4 + (3*S2[1, -1, -1, -1, 1, -1, n])/
    8 + (3*S2[1, -1, -1, 1, -1, -1, n])/4 + (3*S2[1, -1, 1, -1, -1, -1, n])/
    4 + (3*S2[1, 1, -1, -1, -1, -1, n])/2, 
 S2[3, -2, 1, n] -> (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 + 
   Diff[S2[1, n], n, 1]^3 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 - 
   3*Diff[S2[-4, 1, n], n, 1] - Diff[S2[-3, 1, n], n, 2] + 
   Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] - 
   Diff[S2[-2, 1, n], n, 3]/6 + Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] + Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (39*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 - (69*S2[2, Infinity]^3)/140 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (171*S2[3, Infinity]^2)/128 - 3*S2[-5, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-3, 1, n] + (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    2 - Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] + S2[-4, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + Diff[S2[1, n], n, 1]*
    S2[2, 1, -1, n] + 2*S2[-3, 1, 1, 1, n] + Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/
    2 - S2[2, -2, 1, 1, n], S2[3, 2, -1, n] -> 
  (-19*Diff[Half[S2[1, n], n], n, 5])/24 + 
   (67*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (57*Diff[S2[1, n], n, 1]^3)/8 + (55*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (55*Diff[S2[1, n], n, 2]^2)/8 + 
   (223*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (491*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (19*Diff[S2[1, n], n, 5])/24 + 3*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/4 + (21*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 - (7*Diff[S2[-2, 1, n], n, 3])/4 + 
   (23*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (71*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (35*Diff[S2[-1, 1, n], n, 4])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (13*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-1, 1, 1, n], n, 3])/4 - 
   3*Diff[S2[1, 2, -1, n], n, 2] + Diff[S2[2, 1, -2, n], n, 1]/2 - 
   (5*Diff[S2[2, 1, -1, n], n, 2])/2 + (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/
    2 + (19*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (29*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + S2[-1, Infinity]^6/160 + 
   (25*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (187*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (79*Diff[S2[1, n], n, 4]*S2[1, n])/24 - Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] + (19*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (19*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 4*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + 4*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (31*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (61*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (S2[-1, Infinity]^5*S2[1, n])/80 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (57*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (89*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 - 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 3*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1]*S2[2, Infinity] + 
   (39*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (79*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   4*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (9*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 - 
   (347*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (227*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (6*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (771*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (15*S2[1, n]^2*S2[2, Infinity]^2)/8 + (571*S2[2, Infinity]^3)/210 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 + 
   (93*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (21*S2[1, n]^3*S2[3, Infinity])/16 + 3*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] - (477*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    32 - (3*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (1163*S2[3, Infinity]^2)/256 - (1779*S2[1, n]*S2[5, Infinity])/128 + 
   (9*S2[-5, -1, Infinity])/8 - 3*S2[1, n]*S2[-4, 1, n] - 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - (3*S2[1, n]^2*S2[-3, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-3, 1, n])/4 + 2*Diff[S2[1, n], n, 2]*S2[-2, 1, n] - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (3*S2[1, n]^3*S2[-2, 1, n])/2 - (3*S2[3, Infinity]*S2[-2, 1, n])/2 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (29*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   (27*S2[2, Infinity]^2*S2[-1, 1, n])/10 + 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 + 3*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (21*S2[3, Infinity]*S2[2, 1, n])/8 - (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/
    2 + 3*S2[-4, 1, 1, n] - 3*S2[1, n]*S2[-3, 1, 1, n] - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 3*Diff[S2[1, n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - 3*S2[3, Infinity]*S2[-1, 1, 1, n] + 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (13*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    4 - (9*S2[1, n]^2*S2[2, 1, -1, n])/4 + 
   (9*S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 + 6*S2[-3, 1, 1, 1, n] - (9*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 + (3*S2[-2, 2, 1, 1, n])/2 - (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - (3*S2[1, -1, 1, 1, 2, n])/
    2 + 9*S2[1, 1, 1, 2, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, 
 S2[3, 2, 1, n] -> -Diff[S2[1, n], n, 1]^3/6 + (5*Diff[S2[1, n], n, 2]^2)/
    16 + (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (23*Diff[S2[1, n], n, 5])/720 + (5*Diff[S2[2, 1, n], n, 3])/24 - 
   (3*Diff[S2[4, 1, n], n, 1])/2 - Diff[S2[2, 1, 1, n], n, 2]/2 - 
   2*Diff[S2[3, 1, 1, n], n, 1] + (62*S2[2, Infinity]^3)/105 + 
   (3*S2[3, Infinity]^2)/2 + (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - 
   3*S2[4, 1, 1, n], S2[3, -1, -2, n] -> Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (21*Diff[Half[S2[1, n], n], n, 2]^2)/64 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 - 
   (31*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/16 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (37*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (63*Diff[S2[1, n], n, 1]^3)/32 + (33*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (63*Diff[S2[1, n], n, 2]^2)/32 + 
   (221*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (179*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/64 + 
   (209*Diff[S2[1, n], n, 5])/960 - Diff[S2[-4, 1, n], n, 1]/2 - 
   Diff[S2[-3, 1, n], n, 2]/4 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 3]/3 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (25*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (53*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (25*Diff[S2[-1, 1, n], n, 4])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + Diff[S2[-2, 1, -1, n], n, 2]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, n], n, 3]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - Diff[S2[2, 1, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 - (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (73*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (17*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 - (9*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (3*Half[S2[2, 1, n], n]^2)/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 - S2[-1, Infinity]^6/480 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 + (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (109*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (173*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (31*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (33*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (17*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (67*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (S2[-1, Infinity]^5*S2[1, n])/160 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (35*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (23*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (29*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^4)/8 + (Half[S2[1, n], n]*S2[1, n]^5)/4 - 
   S2[1, n]^6/16 - (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/3 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    2 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    8 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (S2[1, n]^4*S2[2, Infinity])/16 + (327*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/320 - (51*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    64 - (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/64 - 
   (111*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (687*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (53*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (69*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (65*S2[1, n]^2*S2[2, Infinity]^2)/64 + (4783*S2[2, Infinity]^3)/6720 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (63*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (85*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (3*S2[1, n]^3*S2[3, Infinity])/64 + 
   (171*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (81*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (219*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (2363*S2[3, Infinity]^2)/1024 - (375*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (21*S2[1, n]*S2[5, Infinity])/32 - (23*S2[-5, -1, Infinity])/8 - 
   6*S2[1, n]*S2[-4, 1, n] + (15*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 - (15*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (7*S2[1, n]^2*S2[-3, 1, n])/8 + (23*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/4 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/
    4 - (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (S2[1, n]^3*S2[-2, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (3*S2[3, Infinity]*S2[-2, 1, n])/32 + (3*S2[-2, 1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 - 
   (S2[1, n]^4*S2[-1, 1, n])/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (173*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (9*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 + (S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 + Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/8 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    8 - (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (3*S2[1, n]^3*S2[2, 1, n])/8 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (3*S2[3, Infinity]*S2[2, 1, n])/32 + (3*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (3*S2[2, 1, n]^2)/4 - 
   6*S2[1, n]*S2[4, 1, n] + S2[-3, -2, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - S2[-2, 2, -2, n]/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (3*S2[3, Infinity]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 + (S2[2, Infinity]*S2[2, 1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 3*S2[4, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (27*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + (3*S2[-1, 1, -1, -1, -1, 1, n])/
    4 + (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 - (3*S2[1, -1, -1, 1, -1, -1, n])/2 - 
   (3*S2[1, -1, 1, -1, -1, -1, n])/2 - 3*S2[1, 1, -1, -1, -1, -1, n], 
 S2[3, -1, 2, n] -> -Diff[Half[S2[1, n], n], n, 5]/12 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   Diff[S2[1, n], n, 1]^3/2 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (3*Diff[S2[1, n], n, 2]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3] + Diff[S2[1, n], n, 5]/12 - 
   Diff[S2[-4, 1, n], n, 1]/2 + Diff[S2[-3, 1, n], n, 2]/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   Diff[S2[-2, 1, n], n, 3]/12 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (7*Diff[S2[-1, 1, n], n, 4])/24 + (3*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/2 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 - Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/12 - Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - (Diff[S2[1, n], n, 3]*S2[1, n]^2)/4 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 - 
   (13*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 - 
   (6059*S2[2, Infinity]^3)/3360 - (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/
    16 - (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (155*S2[3, Infinity]^2)/256 + S2[-5, -1, Infinity] - 3*S2[-5, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - S2[2, Infinity]*S2[-3, 1, n] + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   2*S2[-4, 1, 1, n] + S2[-3, 1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (13*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - S2[2, -2, 1, 1, n]/2, 
 S2[3, 1, 2, n] -> Diff[S2[1, n], n, 1]^3/6 - (5*Diff[S2[1, n], n, 2]^2)/16 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (23*Diff[S2[1, n], n, 5])/720 - (5*Diff[S2[2, 1, n], n, 3])/24 + 
   (3*Diff[S2[4, 1, n], n, 1])/2 + Diff[S2[2, 1, 1, n], n, 2]/2 + 
   Diff[S2[3, 1, 1, n], n, 1] - (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + (11*S2[2, Infinity]^3)/35 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2, S2[-2, -3, -1, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 1]^3)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 2]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 + 
   (917*Diff[Half[S2[1, n], n], n, 5])/960 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (221*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (309*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (305*Diff[S2[1, n], n, 1]^3)/32 - (277*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (135*Diff[S2[1, n], n, 2]^2)/16 - 
   (1087*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (2425*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (917*Diff[S2[1, n], n, 5])/960 + (5*Diff[S2[-4, 1, n], n, 1])/2 + 
   (15*Diff[S2[-3, 1, n], n, 2])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (65*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (31*Diff[S2[-2, 1, n], n, 3])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 - 
   (117*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 - 
   (93*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (43*Diff[S2[-1, 1, n], n, 4])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   9*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/8 + (13*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + 3*Diff[S2[2, 1, -1, n], n, 2] - 
   (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    8 - (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + Diff[S2[1, 1, -1, 2, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (173*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (97*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 - (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 - (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 - S2[-1, Infinity]^6/160 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 - (35*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (261*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (149*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (437*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (237*Diff[S2[1, n], n, 4]*S2[1, n])/64 + 
   (19*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (41*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (95*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (155*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (13*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (27*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (45*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (33*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (21*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (15*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (S2[-1, Infinity]^5*S2[1, n])/80 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (135*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (183*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 + 
   (27*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (109*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (57*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/8 + 
   (15*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/64 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (29*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/4 - (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    32 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 - (5*Half[S2[1, n], n]^2*S2[1, n]^4)/
    4 + (5*Half[S2[1, n], n]*S2[1, n]^5)/8 - S2[1, n]^6/8 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 3]*S2[2, Infinity])/2 + 
   (15*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (39*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (57*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (23*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (99*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (45*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    4 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (45*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (21*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (57*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (9*S2[1, n]^4*S2[2, Infinity])/16 - 
   (95*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 + 
   (31*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/32 - 
   (333*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 + 
   (93*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (417*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (1497*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (717*S2[1, n]^2*S2[2, Infinity]^2)/320 + (4007*S2[2, Infinity]^3)/1344 + 
   (255*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (321*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (237*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (21*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (551*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (33*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (173*S2[1, n]^3*S2[3, Infinity])/128 - 
   (369*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (1269*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (129*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (615*S2[3, Infinity]^2)/128 + (1959*S2[1, n]*S2[5, Infinity])/128 - 
   (5*S2[-5, -1, Infinity])/4 + 11*S2[-5, 1, n] + 3*S2[1, n]*S2[-4, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (9*S2[1, n]^2*S2[-3, 1, n])/16 + (57*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (27*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/8 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (3*S2[3, Infinity]*S2[-2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (23*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (39*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 - 
   (S2[1, n]^4*S2[-1, 1, n])/8 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (25*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (81*S2[2, Infinity]^2*S2[-1, 1, n])/40 - 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (45*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (7*S2[1, n]^3*S2[2, 1, n])/16 + (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (15*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (63*S2[3, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 9*S2[-4, 1, 1, n] + 
   3*S2[1, n]*S2[-3, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/16 + 
   (3*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (3*S2[3, Infinity]*S2[-1, 1, -1, n])/
    32 + (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   3*S2[3, Infinity]*S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   4*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + (9*S2[1, n]^2*S2[1, 2, -1, n])/
    4 - (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (3*S2[1, n]*S2[2, 1, -2, n])/
    2 - (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (15*S2[1, n]^2*S2[2, 1, -1, n])/8 - (15*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[3, 1, -2, n])/2 - 9*S2[-3, 1, 1, 1, n] + 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (21*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (33*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (3*S2[2, -2, 1, 1, n])/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + (3*S2[1, -1, 1, 1, 2, n])/2 - 
   9*S2[1, 1, 1, 2, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   6*S2[1, 1, 2, 1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] + 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/4 + (9*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/2 + (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    2 + (15*S2[1, -1, -1, -1, -1, -1, n])/2, 
 S2[-2, -3, 1, n] -> (3*Diff[Half[S2[1, n], n], n, 2]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 - 
   Diff[Half[S2[1, n], n], n, 5]/48 + Diff[Half[S2[2, 1, n], n], n, 3]/24 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   Diff[S2[1, n], n, 5]/480 + Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/2 + Diff[S2[-2, 1, n], n, 3]/12 - 
   Diff[S2[2, 1, n], n, 3]/24 + Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (79*S2[2, Infinity]^3)/320 - (3*Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/16 + (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (7*S2[3, Infinity]^2)/64 - (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - 
   (S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - S2[-3, -2, 1, n] + 
   S2[-2, 2, -2, n]/4, S2[-2, 3, -1, n] -> 
  (3*Diff[Half[S2[1, n], n], n, 1]^3)/64 - 
   (23*Diff[Half[S2[1, n], n], n, 2]^2)/128 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/96 - 
   (329*Diff[Half[S2[1, n], n], n, 5])/384 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/32 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    32 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 + 
   (317*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (583*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (579*Diff[S2[1, n], n, 1]^3)/64 + (499*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (481*Diff[S2[1, n], n, 2]^2)/64 + 
   (2003*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/384 - 
   (4445*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/384 + 
   (111*Diff[S2[1, n], n, 5])/128 - Diff[S2[-4, 1, n], n, 1] - 
   (43*Diff[S2[-3, 1, n], n, 2])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   (109*Diff[S2[-2, 1, n], n, 3])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (213*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (353*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (159*Diff[S2[-1, 1, n], n, 4])/64 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (7*Diff[S2[2, 1, n], n, 3])/48 - Diff[S2[4, 1, n], n, 1] + 
   8*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -1, n], n, 2]/8 - 
   Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/4 - (25*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (45*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   Diff[S2[2, 1, 1, n], n, 2]/8 - Diff[S2[3, 1, 1, n], n, 1] + 
   (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/
    16 + (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - Diff[S2[1, 1, -1, 2, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 - (3*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (35*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (319*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (539*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    16 - (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (9*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/4 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   (3*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (3*Half[S2[4, 1, 1, n], n])/16 - (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 + (7*S2[-1, Infinity]^6)/960 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (397*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (493*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (811*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (1327*Diff[S2[1, n], n, 4]*S2[1, n])/384 - 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 + 5*Diff[S2[-2, 1, n], n, 2]*
    S2[1, n] - (97*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/
    16 + (305*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (9*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (27*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (55*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (85*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (95*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 + 
   (27*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (S2[-1, Infinity]^5*S2[1, n])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (295*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (99*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (131*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (1063*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 - 
   (31*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (229*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 + 
   (19*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (39*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (75*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/32 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 - 
   (9*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 - 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (33*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (7*Half[S2[1, n], n]*S2[1, n]^5)/
    16 + (3*S2[1, n]^6)/32 - (7*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (13*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    96 - (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (151*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (69*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (59*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (99*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 - (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    8 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (225*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (51*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (11*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/8 + (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (149*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (33*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (27*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    64 - (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (123*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (5*S2[1, n]^4*S2[2, Infinity])/16 + 
   (1001*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (71*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (169*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (159*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (503*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (297*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (31*S2[1, n]^2*S2[2, Infinity]^2)/20 + (283*S2[2, Infinity]^3)/960 - 
   (485*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (675*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (255*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (235*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 - 
   (45*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (1269*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (335*S2[1, n]^3*S2[3, Infinity])/256 + 
   (291*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (4113*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (93*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (8883*S2[3, Infinity]^2)/2048 + (375*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (1827*S2[1, n]*S2[5, Infinity])/128 + (25*S2[-5, -1, Infinity])/8 - 
   6*S2[-5, 1, n] - (13*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/32 + 
   (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (17*S2[1, n]^2*S2[-3, 1, n])/32 - (13*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 + 
   (51*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (119*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 + 
   (17*S2[1, n]^3*S2[-2, 1, n])/16 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (51*S2[3, Infinity]*S2[-2, 1, n])/64 - (3*S2[-2, 1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (89*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (209*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (S2[1, n]^4*S2[-1, 1, n])/8 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (27*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (583*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (183*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/32 - (S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (23*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (33*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (13*S2[1, n]^3*S2[2, 1, n])/32 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 + (63*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (213*S2[3, Infinity]*S2[2, 1, n])/64 - (3*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (27*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (3*S2[2, 1, n]^2)/8 + 
   3*S2[1, n]*S2[4, 1, n] + 6*S2[-4, 1, 1, n] - 3*S2[1, n]*S2[-3, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/32 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (27*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - (3*S2[-1, 1, -1, n]^2)/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 3*Diff[S2[1, n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - 3*S2[3, Infinity]*S2[-1, 1, 1, n] + 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (33*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 + (35*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (35*S2[1, n]^2*S2[2, 1, -1, n])/16 + 2*S2[2, Infinity]*S2[2, 1, -1, n] - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[3, 1, -2, n])/2 - 3*S2[4, 1, 1, n] + 9*S2[-3, 1, 1, 1, n] - 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (27*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - (3*S2[2, -2, 1, 1, n])/2 + 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (15*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, -1, 1, 1, 2, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 9*S2[1, 1, 1, 2, -1, n] + 
   (3*S2[1, 1, 2, -1, 1, n])/2 + 6*S2[1, 1, 2, 1, -1, n] + 
   3*S2[1, 2, 1, 1, -1, n] - (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - (9*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/8 - (21*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    4 - (15*S2[1, -1, -1, -1, -1, -1, n])/4 + (3*S2[1, -1, -1, -1, 1, -1, n])/
    8 + (3*S2[1, -1, -1, 1, -1, -1, n])/4 + (3*S2[1, -1, 1, -1, -1, -1, n])/
    4 + (3*S2[1, 1, -1, -1, -1, -1, n])/2, 
 S2[-2, 3, 1, n] -> -Diff[Half[S2[1, n], n], n, 5]/120 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 - 
   (5*Diff[S2[1, n], n, 1]^3)/4 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - Diff[S2[1, n], n, 2]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/8 + 
   Diff[S2[1, n], n, 5]/120 + Diff[S2[-3, 1, n], n, 2]/2 - 
   Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] + 
   Diff[S2[-2, 1, n], n, 3]/6 - Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] + 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/2 - 
   (19*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 - (479*S2[2, Infinity]^3)/280 - 
   (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (15*S2[3, Infinity]^2)/128 - 2*S2[-5, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-3, 1, n] - (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    2 + Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] - S2[-4, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - Diff[S2[1, n], n, 1]*
    S2[2, 1, -1, n] - S2[3, 1, -2, n] - 2*S2[-3, 1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + S2[2, -2, 1, 1, n], 
 S2[-2, -2, -2, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/6 - 
   Diff[Half[S2[1, n], n], n, 5]/360 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   Diff[S2[1, n], n, 1]^3/6 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/12 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    12 + Diff[S2[1, n], n, 5]/360 - (Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/4 + (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     S2[2, Infinity])/2 - (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/40 + 
   (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 - 
   (109*S2[2, Infinity]^3)/560, S2[-2, -2, 2, n] -> 
  Diff[Half[S2[1, n], n], n, 2]^2/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 - 
   Diff[Half[S2[1, n], n], n, 5]/48 + Diff[Half[S2[2, 1, n], n], n, 3]/24 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   Diff[S2[1, n], n, 2]^2/4 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   Diff[S2[1, n], n, 5]/60 + Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/2 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   Diff[S2[-2, 1, n], n, 3]/12 - Diff[S2[2, 1, n], n, 3]/6 + 
   Diff[S2[4, 1, n], n, 1] + (Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/2 - Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
    S2[2, Infinity] + (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 - 
   (71*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (37*S2[2, Infinity]^3)/224 + (7*S2[3, Infinity]^2)/8 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-3, 1, n] + (S2[2, Infinity]*S2[-3, 1, n])/2 - 
   S2[-2, 2, -2, n]/2, S2[-2, 2, 2, n] -> -Diff[Half[S2[1, n], n], n, 5]/6 + 
   (4*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 + 
   2*Diff[S2[1, n], n, 1]^3 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/2 - (3*Diff[S2[1, n], n, 2]^2)/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3] - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 + Diff[S2[1, n], n, 5]/6 - 
   Diff[S2[-3, 1, n], n, 2]/2 + 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 3]/2 + 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 - 
   Diff[S2[-1, 1, n], n, 4]/2 + 2*Diff[S2[-3, 1, 1, n], n, 1] + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, 1, n], n, 3]/2 - Diff[S2[1, 2, -1, n], n, 2]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/2 + Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/4 - Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 1]*S2[1, n] - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 2]*S2[1, n] + 4*Diff[S2[1, n], n, 1]*
    Diff[S2[1, n], n, 2]*S2[1, n] - (Diff[S2[1, n], n, 4]*S2[1, n])/2 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 - Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] + (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/
    2 + Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 - 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 + (Diff[S2[1, n], n, 3]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/4 - Diff[S2[-2, 1, n], n, 1]*
    S2[2, Infinity] + (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
    S2[2, Infinity] + (3*S2[-1, Infinity]^4*S2[2, Infinity])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/10 + 
   (67*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 - 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 - (233*S2[2, Infinity]^3)/168 + 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (123*S2[3, Infinity]^2)/128 + Diff[S2[1, n], n, 1]*S2[-3, 1, n] - 
   2*S2[2, Infinity]*S2[-3, 1, n] + (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - Diff[S2[1, n], n, 1]^2*
    S2[-1, 1, n] + (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/2 + 
   4*S2[-4, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + 2*S2[-3, 1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - S2[2, -2, 1, 1, n], 
 S2[-2, -1, -3, n] -> (-7*Diff[Half[S2[1, n], n], n, 1]^3)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/16 + 
   (361*Diff[Half[S2[1, n], n], n, 5])/1440 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/16 - 
   (89*Diff[S2[1, n], n, 1]^3)/48 - (29*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (17*Diff[S2[1, n], n, 2]^2)/8 - 
   (125*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (305*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 - 
   (361*Diff[S2[1, n], n, 5])/1440 - (9*Diff[S2[-4, 1, n], n, 1])/2 - 
   (15*Diff[S2[-3, 1, n], n, 2])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, n], n, 3]/12 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 - 
   (11*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, n], n, 1]^2/4 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/16 - 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (31*Diff[S2[-1, 1, n], n, 4])/48 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] + Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] - 
   (3*Diff[S2[-3, 1, 1, n], n, 1])/2 - Diff[S2[-1, -2, -1, n], n, 2]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, n], n, 3]/2 + Diff[S2[1, 2, -1, n], n, 2] - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (3*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/4 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 + (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    16 + (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 + (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/4 + (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/8 - (29*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (39*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (77*Diff[S2[1, n], n, 4]*S2[1, n])/96 + 
   (5*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (19*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (3*Diff[S2[1, n], n, 3]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/8 + (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/
    4 + (111*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (57*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]^2)/2 - (365*S2[2, Infinity]^3)/336 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 - 
   (39*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 + 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (77*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (33*S2[3, Infinity]^2)/16 - S2[-5, -1, Infinity] - 5*S2[-5, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   Diff[S2[1, n], n, 2]*S2[-2, 1, n] - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (3*S2[3, Infinity]*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/2 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (3*S2[3, Infinity]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   2*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity], 
 S2[-2, -1, 3, n] -> Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/64 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 5])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/48 + Diff[Half[S2[4, 1, n], n], n, 1]/
    16 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (37*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (63*Diff[S2[1, n], n, 1]^3)/32 + (29*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (67*Diff[S2[1, n], n, 2]^2)/32 + 
   (253*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (601*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (229*Diff[S2[1, n], n, 5])/960 + (3*Diff[S2[-4, 1, n], n, 1])/2 + 
   (3*Diff[S2[-3, 1, n], n, 2])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 3]/6 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (17*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (69*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (25*Diff[S2[-1, 1, n], n, 4])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[2, 1, n], n, 3]/6 + Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + Diff[S2[-2, 1, -1, n], n, 2]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, n], n, 3]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - Diff[S2[2, 1, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 - (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (73*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (17*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 - (9*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (3*Half[S2[2, 1, n], n]^2)/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 - S2[-1, Infinity]^6/480 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 + (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (109*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (173*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (31*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (33*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (17*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (67*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (S2[-1, Infinity]^5*S2[1, n])/160 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (35*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (23*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (29*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^4)/8 + (Half[S2[1, n], n]*S2[1, n]^5)/4 - 
   S2[1, n]^6/16 - (13*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    2 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    8 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (S2[1, n]^4*S2[2, Infinity])/16 + (127*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/320 - (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    64 - (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/64 - 
   (111*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (607*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (53*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (69*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (65*S2[1, n]^2*S2[2, Infinity]^2)/64 + (121*S2[2, Infinity]^3)/2240 - 
   (71*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (35*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 - 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (67*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (149*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (3*S2[1, n]^3*S2[3, Infinity])/64 + 
   (171*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (273*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (219*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (1723*S2[3, Infinity]^2)/1024 - (375*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (21*S2[1, n]*S2[5, Infinity])/32 - (23*S2[-5, -1, Infinity])/8 - 
   6*S2[1, n]*S2[-4, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (7*S2[1, n]^2*S2[-3, 1, n])/8 + (15*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/4 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/
    4 - (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (S2[1, n]^3*S2[-2, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (67*S2[3, Infinity]*S2[-2, 1, n])/32 + (3*S2[-2, 1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 - 
   (S2[1, n]^4*S2[-1, 1, n])/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (173*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (9*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 + (S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 + Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/8 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    8 - (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (3*S2[1, n]^3*S2[2, 1, n])/8 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (35*S2[3, Infinity]*S2[2, 1, n])/32 + (3*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (3*S2[2, 1, n]^2)/4 - 
   6*S2[1, n]*S2[4, 1, n] + S2[-3, -2, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - S2[-2, 2, -2, n]/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (3*S2[3, Infinity]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 + (S2[2, Infinity]*S2[2, 1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 3*S2[4, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (19*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + (3*S2[-1, 1, -1, -1, -1, 1, n])/
    4 + (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 - (3*S2[1, -1, -1, 1, -1, -1, n])/2 - 
   (3*S2[1, -1, 1, -1, -1, -1, n])/2 - 3*S2[1, 1, -1, -1, -1, -1, n], 
 S2[-2, 1, -3, n] -> Diff[Half[S2[1, n], n], n, 2]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 - 
   Diff[Half[S2[1, n], n], n, 5]/48 + Diff[Half[S2[2, 1, n], n], n, 3]/24 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/8 - 
   (3*Diff[S2[1, n], n, 2]^2)/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 + Diff[S2[1, n], n, 5]/96 + 
   Diff[S2[-4, 1, n], n, 1] + Diff[S2[-3, 1, n], n, 2]/2 + 
   Diff[S2[-2, 1, n], n, 3]/12 - Diff[S2[2, 1, n], n, 3]/12 + 
   Diff[S2[4, 1, n], n, 1]/2 - Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (53*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (653*S2[2, Infinity]^3)/6720 + (3*Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/16 - (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (9*S2[3, Infinity]^2)/64 + (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - (3*S2[3, Infinity]*S2[-2, 1, n])/
    4 - S2[-2, 2, -2, n]/4, S2[-2, 1, 3, n] -> 
  Diff[Half[S2[1, n], n], n, 5]/120 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 + 
   Diff[S2[1, n], n, 1]^3/4 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + Diff[S2[1, n], n, 2]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   Diff[S2[1, n], n, 5]/120 - Diff[S2[-3, 1, n], n, 2]/2 - 
   Diff[S2[-2, 1, n], n, 3]/6 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/10 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 + 
   (359*S2[2, Infinity]^3)/420 + (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 - 
   (9*S2[3, Infinity]^2)/32 + 2*S2[-5, 1, n] + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 + S2[3, Infinity]*S2[-2, 1, n] + 
   S2[3, 1, -2, n], S2[2, -3, -1, n] -> 
  (3*Diff[Half[S2[1, n], n], n, 1]^3)/64 + 
   (19*Diff[Half[S2[1, n], n], n, 2]^2)/128 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/32 - 
   (123*Diff[Half[S2[1, n], n], n, 5])/128 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 + 
   (637*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (603*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (583*Diff[S2[1, n], n, 1]^3)/64 + (519*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (527*Diff[S2[1, n], n, 2]^2)/64 + 
   (721*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/128 - 
   (4781*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/384 + 
   (1813*Diff[S2[1, n], n, 5])/1920 + Diff[S2[-4, 1, n], n, 1] - 
   (17*Diff[S2[-3, 1, n], n, 2])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (53*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (107*Diff[S2[-2, 1, n], n, 3])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (221*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   Diff[S2[-1, 1, n], n, 1]^2/32 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 + 
   (359*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (169*Diff[S2[-1, 1, n], n, 4])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (7*Diff[S2[2, 1, n], n, 3])/48 + (3*Diff[S2[4, 1, n], n, 1])/2 + 
   8*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   Diff[S2[-2, 1, -1, n], n, 2]/8 - (3*Diff[S2[-1, -2, -1, n], n, 2])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/8 - (27*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (47*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   Diff[S2[2, 1, 1, n], n, 2]/8 + (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/16 + (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - Diff[S2[1, 1, -1, 2, n], n, 
    1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (3*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (303*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 + (539*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 + (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    16 - (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   (3*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (3*Half[S2[4, 1, 1, n], n])/16 - (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    96 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 + S2[-1, Infinity]^6/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 + 
   (415*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (445*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (147*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (827*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (1375*Diff[S2[1, n], n, 4]*S2[1, n])/384 - 
   (99*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 + 
   (37*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (309*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 + 
   (17*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (27*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (55*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (75*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (191*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 + 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (3*S2[-1, Infinity]^5*S2[1, n])/320 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (281*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (59*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (1055*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (221*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 + 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (9*Half[S2[1, n], n]^4*S2[1, n]^2)/32 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 - 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 - 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/2 + (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (3*Half[S2[1, n], n]*S2[1, n]^5)/
    16 + S2[1, n]^6/32 + (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 + (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/96 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (237*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (151*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (95*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (19*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (87*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/64 + (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*
     S2[2, Infinity])/64 - (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/64 + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (9*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (87*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 - (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    32 - (165*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    64 - (39*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    64 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/
    8 - (9*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/8 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (223*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (39*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (135*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (S2[1, n]^4*S2[2, Infinity])/4 + (317*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/128 - (59*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    16 + (41*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 - 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (243*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 - 
   (143*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/64 - 
   (777*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (821*S2[1, n]^2*S2[2, Infinity]^2)/320 + (6539*S2[2, Infinity]^3)/6720 - 
   (553*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (807*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (135*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (291*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 - 
   (39*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (105*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (1529*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (51*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 + 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (347*S2[1, n]^3*S2[3, Infinity])/256 + 
   (231*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (4275*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (33*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (7613*S2[3, Infinity]^2)/2048 - (375*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (1911*S2[1, n]*S2[5, Infinity])/128 + (5*S2[-5, -1, Infinity])/4 - 
   6*S2[-5, 1, n] - 6*S2[1, n]*S2[-4, 1, n] + 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/32 - 
   (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (11*S2[1, n]^2*S2[-3, 1, n])/32 - (15*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 + 
   (47*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (99*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 + 
   (21*S2[1, n]^3*S2[-2, 1, n])/16 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (57*S2[3, Infinity]*S2[-2, 1, n])/64 + (3*S2[-2, 1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (79*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (223*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (19*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (9*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (929*S2[2, Infinity]^2*S2[-1, 1, n])/320 + 
   (15*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (189*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/32 + (S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (49*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (99*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (S2[1, n]^3*S2[2, 1, n])/32 - (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (81*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (207*S2[3, Infinity]*S2[2, 1, n])/64 + (3*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (3*S2[2, 1, n]^2)/8 - 
   3*S2[1, n]*S2[4, 1, n] + 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - 
   3*S2[1, n]*S2[-3, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   S2[-2, 2, -2, n]/4 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    32 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/32 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (21*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + (3*S2[-1, 1, -1, n]^2)/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 3*Diff[S2[1, n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - 3*S2[3, Infinity]*S2[-1, 1, 1, n] + 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (33*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 + (35*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (31*S2[1, n]^2*S2[2, 1, -1, n])/16 + (17*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[3, 1, -2, n])/2 + 9*S2[-3, 1, 1, 1, n] - 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (39*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (21*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - (3*S2[2, -2, 1, 1, n])/2 + 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, -1, 1, 1, 2, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 9*S2[1, 1, 1, 2, -1, n] + 
   (3*S2[1, 1, 2, -1, 1, n])/2 + 6*S2[1, 1, 2, 1, -1, n] + 
   3*S2[1, 2, 1, 1, -1, n] - (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/8 - (15*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    4 - (15*S2[1, -1, -1, -1, -1, -1, n])/4 - (3*S2[1, -1, -1, -1, 1, -1, n])/
    8 - (3*S2[1, -1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, -1, -1, -1, n])/
    4 - (3*S2[1, 1, -1, -1, -1, -1, n])/2, 
 S2[2, -3, 1, n] -> 3*Diff[S2[-4, 1, n], n, 1] + Diff[S2[-3, 1, n], n, 2]/2 + 
   Diff[S2[-3, 1, 1, n], n, 1] + (S2[-1, Infinity]^4*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/4 + (281*S2[2, Infinity]^3)/210 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (145*S2[3, Infinity]^2)/64 + 7*S2[-5, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-3, 1, n] + 3*S2[-4, 1, 1, n] - 
   3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity], 
 S2[2, 3, -1, n] -> (103*Diff[Half[S2[1, n], n], n, 5])/120 - 
   (71*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 - 
   (61*Diff[S2[1, n], n, 1]^3)/8 - (59*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (59*Diff[S2[1, n], n, 2]^2)/8 - 
   (247*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (177*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 - 
   (103*Diff[S2[1, n], n, 5])/120 - (13*Diff[S2[-4, 1, n], n, 1])/2 - 
   (3*Diff[S2[-3, 1, n], n, 2])/2 - 5*Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + (5*Diff[S2[-2, 1, n], n, 3])/3 - 
   (25*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (77*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (39*Diff[S2[-1, 1, n], n, 4])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   8*Diff[S2[-3, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/4 + (13*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (11*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 + Diff[S2[1, 1, -1, 2, n], n, 1] - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (65*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (31*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 - S2[-1, Infinity]^6/160 - 
   (49*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   6*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (183*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (10*Diff[S2[1, n], n, 4]*S2[1, n])/3 + 2*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] - (9*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (19*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (27*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (61*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^5*S2[1, n])/80 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (49*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (85*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 + 4*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (29*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    4 - (51*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (67*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/8 + Diff[Half[S2[1, n], n], n, 2]*
    S2[1, n]*S2[2, Infinity] - (13*Diff[S2[1, n], n, 2]*S2[1, n]*
     S2[2, Infinity])/8 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/
    2 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    2 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    2 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (9*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 + 
   (439*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (177*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (6*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (771*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (15*S2[1, n]^2*S2[2, Infinity]^2)/8 - (14177*S2[2, Infinity]^3)/3360 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 - 
   (99*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/4 - 
   (21*S2[1, n]^3*S2[3, Infinity])/16 - 3*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] + (135*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    8 + (3*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (875*S2[3, Infinity]^2)/128 + (1779*S2[1, n]*S2[5, Infinity])/128 - 
   (25*S2[-5, -1, Infinity])/8 - 4*S2[-5, 1, n] + 3*S2[1, n]*S2[-4, 1, n] + 
   (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + (3*S2[1, n]^2*S2[-3, 1, n])/4 - 
   (3*S2[2, Infinity]*S2[-3, 1, n])/4 - 2*Diff[S2[1, n], n, 2]*S2[-2, 1, n] + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (3*S2[1, n]^3*S2[-2, 1, n])/2 + (3*S2[3, Infinity]*S2[-2, 1, n])/2 + 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (33*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (27*S2[2, Infinity]^2*S2[-1, 1, n])/10 - 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - 3*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (21*S2[3, Infinity]*S2[2, 1, n])/8 + (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/
    2 - 5*S2[-4, 1, 1, n] + 3*S2[1, n]*S2[-3, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 3*Diff[S2[1, n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + 3*S2[3, Infinity]*S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (13*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 - (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    4 + (9*S2[1, n]^2*S2[2, 1, -1, n])/4 - 
   (9*S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 - 7*S2[-3, 1, 1, 1, n] + (9*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - (3*S2[-2, 2, 1, 1, n])/2 + (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + S2[2, -2, 1, 1, n]/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 + (3*S2[1, -1, 1, 1, 2, n])/2 - 9*S2[1, 1, 1, 2, -1, n] - 
   (3*S2[1, 1, 2, -1, 1, n])/2 - 6*S2[1, 1, 2, 1, -1, n] - 
   3*S2[1, 2, 1, 1, -1, n] + (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, 
 S2[2, 3, 1, n] -> Diff[S2[1, n], n, 1]^3/4 + (3*Diff[S2[1, n], n, 2]^2)/16 - 
   Diff[S2[1, n], n, 5]/120 + (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/
    2 + Diff[S2[2, 1, n], n, 3]/24 - Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[3, 1, 1, n], n, 1] - (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/2 + 
   (23*S2[2, Infinity]^3)/210 - (3*S2[3, Infinity]^2)/2 + 3*S2[4, 1, 1, n], 
 S2[2, -2, -2, n] -> -Diff[Half[S2[1, n], n], n, 2]^2/8 + 
   Diff[Half[S2[1, n], n], n, 5]/48 - Diff[Half[S2[2, 1, n], n], n, 3]/24 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 - 
   Diff[S2[1, n], n, 1]^3/2 + Diff[S2[1, n], n, 2]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 - 
   Diff[S2[1, n], n, 5]/40 - Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, n], n, 3]/12 + Diff[S2[2, 1, n], n, 3]/6 - 
   Diff[S2[4, 1, n], n, 1] + (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    12 - (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    2 + (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 - 
   (23*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (631*S2[2, Infinity]^3)/1120 - (7*S2[3, Infinity]^2)/8 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-3, 1, n] - (S2[2, Infinity]*S2[-3, 1, n])/2 - 
   S2[-2, 2, -2, n]/2, S2[2, -2, 2, n] -> Diff[Half[S2[1, n], n], n, 5]/3 - 
   (8*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 - 
   4*Diff[S2[1, n], n, 1]^3 - 3*Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 2] + 3*Diff[S2[1, n], n, 2]^2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3] + 
   (14*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 - 
   Diff[S2[1, n], n, 5]/3 - 4*Diff[S2[-4, 1, n], n, 1] - 
   3*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] + 
   (5*Diff[S2[-2, 1, n], n, 3])/6 - 3*Diff[S2[1, n], n, 2]*
    Diff[S2[-1, 1, n], n, 1] - 5*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] + Diff[S2[-1, 1, n], n, 4] - 
   4*Diff[S2[-3, 1, 1, n], n, 1] - 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + Diff[S2[-1, 1, 1, n], n, 3] + 
   Diff[S2[1, 2, -1, n], n, 2] + Diff[S2[2, 1, -1, n], n, 2] - 
   2*Diff[S2[-2, 1, 1, 1, n], n, 1] + 4*Diff[S2[1, n], n, 1]*
    Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 - 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   8*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   Diff[S2[1, n], n, 4]*S2[1, n] - Diff[S2[-2, 1, n], n, 2]*S2[1, n] + 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   Diff[S2[-1, 1, n], n, 3]*S2[1, n] - 2*Diff[S2[1, n], n, 1]^2*
    Half[S2[1, n], n]*S2[1, n] + Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*
    S2[1, n] + 2*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - 
   Diff[S2[1, n], n, 3]*S2[1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/3 + Diff[S2[-2, 1, n], n, 1]*
    S2[2, Infinity] - (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*
     S2[2, Infinity])/2 - 2*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
    S2[2, Infinity] - (3*S2[-1, Infinity]^4*S2[2, Infinity])/8 + 
   3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity] - 
   (41*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]^2)/4 - (137*S2[2, Infinity]^3)/168 - 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/4 + 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (231*S2[3, Infinity]^2)/64 - 8*S2[-5, 1, n] + 
   2*S2[2, Infinity]*S2[-3, 1, n] - Diff[S2[1, n], n, 2]*S2[-2, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   2*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] - Diff[S2[1, n], n, 3]*
    S2[-1, 1, n] - 8*S2[-4, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*
    S2[1, 2, -1, n] - 2*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] - 
   4*S2[-3, 1, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 2*S2[2, -2, 1, 1, n], 
 S2[2, 2, -2, n] -> (-7*Diff[Half[S2[1, n], n], n, 5])/40 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   (5*Diff[S2[1, n], n, 1]^3)/2 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/2 - (3*Diff[S2[1, n], n, 2]^2)/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/12 - 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 + 
   (7*Diff[S2[1, n], n, 5])/40 + 4*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/2 + Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 3]/3 + 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 - 
   Diff[S2[-1, 1, n], n, 4]/2 + 2*Diff[S2[-3, 1, 1, n], n, 1] + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, 1, n], n, 3]/2 - Diff[S2[1, 2, -1, n], n, 2]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/2 + Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/4 - Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 1]*S2[1, n] - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 2]*S2[1, n] + 4*Diff[S2[1, n], n, 1]*
    Diff[S2[1, n], n, 2]*S2[1, n] - (Diff[S2[1, n], n, 4]*S2[1, n])/2 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 - Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] + (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/
    2 + Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 - 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 + (Diff[S2[1, n], n, 3]*S2[1, n]^2)/2 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] + 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 - 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 + (269*S2[2, Infinity]^3)/210 + 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (339*S2[3, Infinity]^2)/128 + 8*S2[-5, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-3, 1, n] + (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    2 - Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] + (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/
    2 + 4*S2[-4, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + 2*S2[-3, 1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - S2[2, -2, 1, 1, n], 
 S2[2, 2, 2, n] -> -Diff[S2[1, n], n, 1]^3/6 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 - 
   Diff[S2[1, n], n, 5]/360 + (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 + (31*S2[2, Infinity]^3)/70, 
 S2[2, -1, -3, n] -> Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]^2)/64 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 + 
   Diff[Half[S2[1, n], n], n, 5]/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/16 + Diff[Half[S2[4, 1, n], n], n, 1]/8 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (2*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (15*Diff[S2[1, n], n, 1]^3)/32 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (3*Diff[S2[1, n], n, 2]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/64 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   Diff[S2[1, n], n, 5]/320 + Diff[S2[-4, 1, n], n, 1]/2 + 
   (5*Diff[S2[-3, 1, n], n, 2])/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   Diff[S2[-2, 1, n], n, 3]/4 + (9*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, n], n, 1]^2/16 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   Diff[S2[-1, 1, n], n, 4]/12 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (7*Diff[S2[2, 1, n], n, 3])/24 - 2*Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   Diff[S2[-2, 1, -1, n], n, 2]/4 + Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[1, 2, -1, n], n, 2]/4 + Diff[S2[2, 1, -2, n], n, 1]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 - (3*Diff[S2[2, 1, 1, n], n, 2])/4 - 
   2*Diff[S2[3, 1, 1, n], n, 1] + Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 + (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    24 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 - (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/8 + (15*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/16 - (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 + 
   (11*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/2 + (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (23*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (3*Half[S2[2, 1, n], n]^2)/64 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + S2[-1, Infinity]^6/480 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (37*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 - Diff[S2[2, 1, n], n, 2]*
    S2[1, n] - (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (21*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (31*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (S2[-1, Infinity]^5*S2[1, n])/160 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (11*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (13*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^4)/8 - (Half[S2[1, n], n]*S2[1, n]^5)/4 + 
   S2[1, n]^6/16 - (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (19*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (S2[1, n]^4*S2[2, Infinity])/16 - (399*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/320 + (115*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    64 + (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/64 + 
   (111*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (847*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (53*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (69*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (65*S2[1, n]^2*S2[2, Infinity]^2)/64 - (1067*S2[2, Infinity]^3)/1680 - 
   (59*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 - 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (73*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (3*S2[1, n]^3*S2[3, Infinity])/64 - 
   (171*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (219*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (3003*S2[3, Infinity]^2)/1024 + (375*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (21*S2[1, n]*S2[5, Infinity])/32 + (23*S2[-5, -1, Infinity])/8 + 
   6*S2[1, n]*S2[-4, 1, n] - (13*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/8 - (19*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-2, 1, n] - (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/
    4 - (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (S2[1, n]^3*S2[-2, 1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (21*S2[3, Infinity]*S2[-2, 1, n])/32 - (3*S2[-2, 1, n]^2)/4 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 + 
   (S2[1, n]^4*S2[-1, 1, n])/8 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (173*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (9*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 - (S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (3*S2[1, n]^3*S2[2, 1, n])/8 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[3, Infinity]*S2[2, 1, n])/32 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (3*S2[2, 1, n]^2)/4 + 
   6*S2[1, n]*S2[4, 1, n] - S2[-3, -2, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + (3*S2[-2, 2, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (3*S2[3, Infinity]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 - (S2[2, Infinity]*S2[2, 1, -1, n])/8 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 3*S2[4, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (31*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (43*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - (3*S2[-1, 1, -1, -1, -1, 1, n])/
    4 - (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   (3*S2[1, -1, 1, -1, -1, -1, n])/2 + 3*S2[1, 1, -1, -1, -1, -1, n], 
 S2[2, -1, 3, n] -> -Diff[Half[S2[1, n], n], n, 5]/12 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   Diff[S2[1, n], n, 1]^3/2 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (3*Diff[S2[1, n], n, 2]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3] + Diff[S2[1, n], n, 5]/12 + 
   (7*Diff[S2[-4, 1, n], n, 1])/2 + (3*Diff[S2[-3, 1, n], n, 2])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   Diff[S2[-2, 1, n], n, 3]/12 + Diff[S2[1, n], n, 2]*
    Diff[S2[-1, 1, n], n, 1] + (3*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/4 - (7*Diff[S2[-1, 1, n], n, 4])/24 + 
   (3*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/2 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 - Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/12 - Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - (Diff[S2[1, n], n, 3]*S2[1, n]^2)/4 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/4 - 
   (4*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 - 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 + 
   (6281*S2[2, Infinity]^3)/3360 + (Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/2 + (Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 + 
   Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity] - Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[3, Infinity] + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (435*S2[3, Infinity]^2)/256 + S2[-5, -1, Infinity] + 7*S2[-5, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 + S2[3, Infinity]*S2[-2, 1, n] + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   2*S2[-4, 1, 1, n] + S2[-3, 1, 1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - S2[2, -2, 1, 1, n]/2, 
 S2[2, 1, -3, n] -> (7*Diff[Half[S2[1, n], n], n, 5])/80 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 - 
   (5*Diff[S2[1, n], n, 1]^3)/4 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (3*Diff[S2[1, n], n, 2]^2)/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (7*Diff[S2[1, n], n, 5])/80 - 2*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   Diff[S2[-2, 1, n], n, 3]/6 - (3*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   Diff[S2[-1, 1, n], n, 4]/4 - Diff[S2[-3, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/4 + Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + Diff[S2[2, 1, -1, n], n, 2]/4 - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[1, n], n, 1]*
    Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/4 - (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/
    4 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/2 - (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    4 + (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 - 
   (1689*S2[2, Infinity]^3)/1120 - (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/
    32 + (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (599*S2[3, Infinity]^2)/256 - 4*S2[-5, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 - (3*S2[3, Infinity]*S2[2, 1, n])/
    4 - 2*S2[-4, 1, 1, n] - (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - S2[3, 1, -2, n] - 
   S2[-3, 1, 1, 1, n] - (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + S2[2, -2, 1, 1, n]/2, 
 S2[2, 1, 3, n] -> -Diff[S2[1, n], n, 1]^3/12 - (3*Diff[S2[1, n], n, 2]^2)/
    16 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 + 
   Diff[S2[1, n], n, 5]/90 - (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/
    2 - Diff[S2[2, 1, n], n, 3]/24 + Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[2, 1, 1, n], n, 2]/2 + Diff[S2[3, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 + (17*S2[2, Infinity]^3)/42 - 
   (3*S2[3, Infinity]^2)/2 + S2[3, Infinity]*S2[2, 1, n], 
 S2[-1, -4, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/48 - 
   (13*Diff[Half[S2[1, n], n], n, 2]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/8 - 
   (667*Diff[Half[S2[1, n], n], n, 5])/1440 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 + 
   (169*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/16 + 
   (251*Diff[S2[1, n], n, 1]^3)/48 + (69*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (97*Diff[S2[1, n], n, 2]^2)/24 + 
   (93*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/32 - 
   (605*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (667*Diff[S2[1, n], n, 5])/1440 - 4*Diff[S2[-4, 1, n], n, 1] - 
   (5*Diff[S2[-3, 1, n], n, 2])/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (11*Diff[S2[-2, 1, n], n, 3])/6 - (2*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/3 + 
   (91*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   Diff[S2[-1, 1, n], n, 1]^2/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/16 + 
   (51*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (11*Diff[S2[-1, 1, n], n, 4])/8 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   5*Diff[S2[-3, 1, 1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/12 - (3*Diff[S2[1, 2, -1, n], n, 2])/2 - 
   (3*Diff[S2[2, 1, -1, n], n, 2])/2 + 4*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/4 + (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    2 - Diff[S2[1, -1, 1, 2, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 + 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/
    2 + (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/12 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 + (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (143*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (25*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/32 - 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 + (7*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 + 
   (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 + S2[-1, Infinity]^6/240 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    24 + (25*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 - 
   (75*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (121*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (117*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (61*Diff[S2[1, n], n, 4]*S2[1, n])/32 + 
   (5*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 + 
   (13*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (39*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 - 
   3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (19*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (S2[-1, Infinity]^5*S2[1, n])/120 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/2 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (49*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (53*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/12 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/96 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/6 + (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    48 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^4 + (5*Half[S2[1, n], n]^2*S2[1, n]^4)/6 - 
   (5*Half[S2[1, n], n]*S2[1, n]^5)/12 + S2[1, n]^6/12 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 + (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (13*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (23*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    2 + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 + 
   (19*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (3*S2[1, n]^4*S2[2, Infinity])/8 + 
   (147*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 + 
   (111*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/16 + 
   (89*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (139*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (439*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (239*S2[1, n]^2*S2[2, Infinity]^2)/160 - (9389*S2[2, Infinity]^3)/3360 - 
   (233*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (263*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 - 
   (73*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/192 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (113*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (173*S2[1, n]^3*S2[3, Infinity])/192 + 
   (179*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (423*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (99*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (127*S2[3, Infinity]^2)/64 - (93*Half[S2[1, n], n]*S2[5, Infinity])/32 - 
   (467*S2[1, n]*S2[5, Infinity])/64 - (3*S2[-5, -1, Infinity])/2 - 
   9*S2[-5, 1, n] - 2*Half[S2[1, n], n]*S2[-4, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 + 
   Diff[S2[1, n], n, 1]*S2[-3, 1, n] + (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/
    8 - (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (3*S2[1, n]^2*S2[-3, 1, n])/8 - (19*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (31*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (7*S2[1, n]^3*S2[-2, 1, n])/12 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (S2[3, Infinity]*S2[-2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (31*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/3 + 
   (S2[1, n]^4*S2[-1, 1, n])/12 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (27*S2[2, Infinity]^2*S2[-1, 1, n])/20 + 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (15*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (7*S2[1, n]^3*S2[2, 1, n])/24 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] + 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (21*S2[3, Infinity]*S2[2, 1, n])/8 - S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] - 
   Half[S2[1, n], n]*S2[4, 1, n] + S2[1, n]*S2[4, 1, n] + 6*S2[-4, 1, 1, n] - 
   2*S2[1, n]*S2[-3, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/2 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 - (S2[2, Infinity]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + (S2[3, Infinity]*S2[-1, 1, -1, n])/16 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   2*S2[3, Infinity]*S2[-1, 1, 1, n] + 2*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - (3*S2[1, n]^2*S2[1, 2, -1, n])/
    2 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 + S2[1, n]*S2[2, 1, -2, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/4 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] - 
   S2[-1, 1, n]*S2[2, 1, 1, n] + S2[3, 1, -2, n] + 6*S2[-3, 1, 1, 1, n] - 
   3*S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   3*S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, 1, 2, -1, n] - S2[2, -2, 1, 1, n] + 
   3*S2[-2, 1, 1, 1, 1, n] + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 3*Half[S2[1, n], n]*
    S2[1, -1, -1, -1, -1, n] - 3*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 
   S2[1, -1, 1, 1, 2, n] + 6*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n] + 
   4*S2[1, 1, 2, 1, -1, n] + 2*S2[1, 2, 1, 1, -1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/2 - (3*S2[-1, -1, 1, -1, -1, -1, n])/2 - 
   3*S2[-1, 1, -1, -1, -1, -1, n] - 3*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   5*S2[1, -1, -1, -1, -1, -1, n], S2[-1, -4, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/192 - 
   (103*Diff[Half[S2[1, n], n], n, 2]^2)/384 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (227*Diff[Half[S2[1, n], n], n, 5])/1152 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (89*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (361*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (365*Diff[S2[1, n], n, 1]^3)/192 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 + 
   (311*Diff[S2[1, n], n, 2]^2)/192 - 
   (1145*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (2891*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (349*Diff[S2[1, n], n, 5])/1920 - (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   (19*Diff[S2[-3, 1, n], n, 2])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (5*Diff[S2[-2, 1, n], n, 3])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (115*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   Diff[S2[-1, 1, n], n, 1]^2/32 - (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   (95*Diff[S2[-1, 1, n], n, 4])/192 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (11*Diff[S2[2, 1, n], n, 3])/48 - 2*Diff[S2[4, 1, n], n, 1] - 
   (5*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-2, 1, -1, n], n, 2]/8 - 
   Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, 1, n], n, 3]/4 + (5*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   (11*Diff[S2[2, 1, -1, n], n, 2])/16 + Diff[S2[2, 1, 1, n], n, 2]/8 - 
   2*Diff[S2[-2, 1, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, -1, n], n, 2]/16 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    8 - (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/12 - (23*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (47*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 - (233*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (37*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 - (25*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/4 + 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    12 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   Half[S2[2, 1, n], n]^2/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   Half[S2[4, 1, 1, n], n]/16 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - S2[-1, Infinity]^6/576 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (241*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (83*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (155*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (725*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (133*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (61*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (41*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/9 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 - (31*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (77*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (S2[-1, Infinity]^5*S2[1, n])/320 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (197*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (41*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (623*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (197*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (3*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 - (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/
    48 + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/6 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (Half[S2[1, n], n]*S2[1, n]^5)/
    16 - S2[1, n]^6/96 - (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 - (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/36 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (113*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (87*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/72 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/192 + 
   (53*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (95*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (137*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (13*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (3*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/8 - 
   (101*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (301*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (13*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 + 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (45*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (S2[1, n]^4*S2[2, Infinity])/12 - (713*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/640 + (293*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    192 - (41*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/240 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (49*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 + 
   (143*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/192 + 
   (259*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (821*S2[1, n]^2*S2[2, Infinity]^2)/960 + (727*S2[2, Infinity]^3)/3360 + 
   (647*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 - 
   (743*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (91*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (81*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/768 + 
   (13*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (483*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (347*S2[1, n]^3*S2[3, Infinity])/768 - 
   (77*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (1425*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (11*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (2463*S2[3, Infinity]^2)/2048 + (125*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (637*S2[1, n]*S2[5, Infinity])/128 - (7*S2[-5, -1, Infinity])/4 + 
   2*S2[-5, 1, n] + Half[S2[1, n], n]*S2[-4, 1, n] + S2[1, n]*S2[-4, 1, n] - 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (11*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (11*S2[1, n]^2*S2[-3, 1, n])/96 + (19*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 - 
   (31*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/16 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/12 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (19*S2[3, Infinity]*S2[-2, 1, n])/64 - S2[-2, 1, n]^2/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (19*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (121*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (929*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (63*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/96 - (S2[2, Infinity]*S2[-1, 1, n]^2)/24 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 + 
   (43*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/16 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/32 - (7*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (S2[1, n]^3*S2[2, 1, n])/96 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (27*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (69*S2[3, Infinity]*S2[2, 1, n])/64 - (S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - S2[2, 1, n]^2/8 + 
   S2[1, n]*S2[4, 1, n] - 2*S2[-4, 1, 1, n] + S2[1, n]*S2[-3, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/96 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - S2[-1, 1, -1, n]^2/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[3, Infinity]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 - (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 - (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (31*S2[1, n]^2*S2[2, 1, -1, n])/48 - (17*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 - 3*S2[-3, 1, 1, 1, n] + (3*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - S2[-2, 2, 1, 1, n]/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    48 - (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (13*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + (S2[1, n]*S2[1, 1, 2, -1, n])/
    2 + S2[2, -2, 1, 1, n]/2 - (3*S2[-2, 1, 1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + S2[1, -1, 1, 1, 2, n]/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 3*S2[1, 1, 1, 2, -1, n] - 
   S2[1, 1, 2, -1, 1, n]/2 - 2*S2[1, 1, 2, 1, -1, n] - 
   S2[1, 2, 1, 1, -1, n] + S2[-1, -1, -1, 1, -1, -1, n]/8 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/8 + (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, -1, 1, n]/8 + (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + S2[1, -1, -1, -1, 1, -1, n]/8 + 
   S2[1, -1, -1, 1, -1, -1, n]/4 + S2[1, -1, 1, -1, -1, -1, n]/4 + 
   S2[1, 1, -1, -1, -1, -1, n]/2, S2[-1, 4, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/96 + (71*Diff[Half[S2[1, n], n], n, 2]^2)/
    192 + (55*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    144 + (299*Diff[Half[S2[1, n], n], n, 5])/576 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/32 - Diff[Half[S2[4, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (583*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (557*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (545*Diff[S2[1, n], n, 1]^3)/96 - (157*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (419*Diff[S2[1, n], n, 2]^2)/96 - 
   (1945*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (4003*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (295*Diff[S2[1, n], n, 5])/576 + 4*Diff[S2[-4, 1, n], n, 1] + 
   (43*Diff[S2[-3, 1, n], n, 2])/16 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   (49*Diff[S2[-2, 1, n], n, 3])/24 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (211*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (57*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (51*Diff[S2[-1, 1, n], n, 4])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[2, 1, n], n, 3]/4 + (5*Diff[S2[4, 1, n], n, 1])/2 - 
   5*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -1, n], n, 2]/4 + 
   Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   Diff[S2[-1, 1, -1, n], n, 3]/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/4 + (7*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (13*Diff[S2[2, 1, -1, n], n, 2])/8 - Diff[S2[2, 1, 1, n], n, 2]/4 - 
   4*Diff[S2[-2, 1, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + Diff[S2[1, -1, 1, 2, n], n, 1] + 
   Diff[S2[1, 1, -1, 2, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + Diff[S2[1, -1, -1, -1, -1, n], n, 
    1] - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 - (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    288 - (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (95*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    96 - (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/8 + (349*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/48 - (553*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/
    576 + (67*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    3 - (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 + Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2 - 
   (9*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    24 + (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/64 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/64 + (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    96 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - (7*S2[-1, Infinity]^6)/1440 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    6 - (323*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (163*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (143*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (259*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (1237*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (67*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (23*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   4*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   (275*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (49*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/18 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 - (137*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (55*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/18 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (S2[-1, Infinity]^5*S2[1, n])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (343*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 - 
   (169*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (155*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (1063*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (229*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/64 - 
   (55*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 - Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^3 - (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^3)/12 + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/2 - (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    96 + (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (7*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - S2[1, n]^6/16 + (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    16 + (17*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/72 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (145*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/48 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (37*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/12 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (13*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    48 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    8 + (67*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    32 + (17*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    32 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 + 
   (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 + 
   (71*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (9*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (41*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (5*S2[1, n]^4*S2[2, Infinity])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (47*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 - 
   (169*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/480 + 
   (49*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (427*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (503*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 + 
   (87*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 - 
   (31*S2[1, n]^2*S2[2, Infinity]^2)/30 - S2[2, Infinity]^3/1120 + 
   (395*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (647*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (15*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/4 + 
   (303*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (335*S2[1, n]^3*S2[3, Infinity])/384 - 
   (153*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (1371*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (59*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (2449*S2[3, Infinity]^2)/1024 + (247*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (423*S2[1, n]*S2[5, Infinity])/64 + S2[-5, -1, Infinity]/4 + 
   4*S2[-5, 1, n] + Half[S2[1, n], n]*S2[-4, 1, n] - S2[1, n]*S2[-4, 1, n] + 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 - 
   (4*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/3 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   (17*S2[1, n]^2*S2[-3, 1, n])/48 + (13*S2[2, Infinity]*S2[-3, 1, n])/12 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (67*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (127*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (17*S2[1, n]^3*S2[-2, 1, n])/24 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/12 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 + 
   (17*S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/4 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/72 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (29*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (215*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (S2[1, n]^4*S2[-1, 1, n])/12 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (583*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (61*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/48 + (S2[2, Infinity]*S2[-1, 1, n]^2)/12 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (13*S2[1, n]^3*S2[2, 1, n])/48 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (71*S2[3, Infinity]*S2[2, 1, n])/32 + (S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2/4 - 
   2*S2[1, n]*S2[4, 1, n] - 4*S2[-4, 1, 1, n] + 2*S2[1, n]*S2[-3, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    12 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (9*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + S2[-1, 1, -1, n]^2/16 + 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   2*S2[3, Infinity]*S2[-1, 1, 1, n] - 2*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/2 - (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   S2[1, n]*S2[2, 1, -2, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/
    24 - (8*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (35*S2[1, n]^2*S2[2, 1, -1, n])/24 - (4*S2[2, Infinity]*S2[2, 1, -1, n])/
    3 + (S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] + 
   S2[-1, 1, n]*S2[2, 1, 1, n] - S2[3, 1, -2, n] + 2*S2[4, 1, 1, n] - 
   6*S2[-3, 1, 1, 1, n] + 3*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   S2[-2, 2, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/
    12 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 3*S2[2, Infinity]*
    S2[-1, 1, 1, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + S2[1, n]*S2[1, 1, 2, -1, n] + 
   S2[2, -2, 1, 1, n] - 3*S2[-2, 1, 1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, 2, n] + 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 6*S2[1, 1, 1, 2, -1, n] - 
   S2[1, 1, 2, -1, 1, n] - 4*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, 1, -1, n] + S2[-1, -1, -1, 1, -1, -1, n]/4 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + 
   S2[-1, 1, -1, -1, -1, 1, n]/4 + (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   (5*S2[1, -1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, -1, 1, -1, n]/4 - 
   S2[1, -1, -1, 1, -1, -1, n]/2 - S2[1, -1, 1, -1, -1, -1, n]/2 - 
   S2[1, 1, -1, -1, -1, -1, n], S2[-1, 4, 1, n] -> 
  (-47*Diff[Half[S2[1, n], n], n, 5])/240 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (17*Diff[S2[1, n], n, 1]^3)/8 + (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (13*Diff[S2[1, n], n, 2]^2)/8 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (131*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (47*Diff[S2[1, n], n, 5])/240 + 2*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/2 + (7*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 - (5*Diff[S2[-2, 1, n], n, 3])/12 + 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (29*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (5*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/3 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 2])/4 + 2*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/
    2 - (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 + S2[-1, Infinity]^6/480 + 
   (11*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, n], n, 4]*S2[1, n])/4 - Diff[S2[-3, 1, n], n, 1]*S2[1, n] + 
   Diff[S2[-2, 1, n], n, 2]*S2[1, n] - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (41*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (S2[-1, Infinity]^5*S2[1, n])/240 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (15*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (61*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (19*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] - (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/8 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/8 + (S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 + 
   (79*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (257*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (5*S2[1, n]^2*S2[2, Infinity]^2)/8 + (467*S2[2, Infinity]^3)/224 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (7*S2[1, n]^3*S2[3, Infinity])/16 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] - (69*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    16 - (S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (159*S2[3, Infinity]^2)/64 - (593*S2[1, n]*S2[5, Infinity])/128 + 
   (19*S2[-5, -1, Infinity])/8 + 3*S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - (S2[1, n]^2*S2[-3, 1, n])/4 + 
   (S2[2, Infinity]*S2[-3, 1, n])/4 + (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    4 - 2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (S2[1, n]^3*S2[-2, 1, n])/2 - (S2[3, Infinity]*S2[-2, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   (9*S2[2, Infinity]^2*S2[-1, 1, n])/10 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + (7*S2[3, Infinity]*S2[2, 1, n])/
    8 - (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 
   Half[S2[1, n], n]*S2[4, 1, n] - S2[1, n]*S2[4, 1, n] + 2*S2[-4, 1, 1, n] - 
   S2[1, n]*S2[-3, 1, 1, n] - (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   S2[3, Infinity]*S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[1, n]*S2[2, 1, -2, n])/2 + (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    4 - (3*S2[1, n]^2*S2[2, 1, -1, n])/4 + 
   (3*S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 + 3*S2[-3, 1, 1, 1, n] - (3*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 + S2[-2, 2, 1, 1, n]/2 - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - (S2[1, n]*S2[1, 1, 2, -1, n])/
    2 - S2[2, -2, 1, 1, n]/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - S2[1, -1, 1, 1, 2, n]/2 + 
   3*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n]/2 + 
   2*S2[1, 1, 2, 1, -1, n] + S2[1, 2, 1, 1, -1, n] - 
   (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, S2[-1, -3, -2, n] -> 
  (-3*Diff[Half[S2[1, n], n], n, 1]^3)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 + 
   (917*Diff[Half[S2[1, n], n], n, 5])/960 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (229*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (317*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (313*Diff[S2[1, n], n, 1]^3)/32 - (277*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (135*Diff[S2[1, n], n, 2]^2)/16 - 
   (365*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/64 + 
   (811*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/64 - 
   (917*Diff[S2[1, n], n, 5])/960 + (13*Diff[S2[-4, 1, n], n, 1])/2 + 
   (27*Diff[S2[-3, 1, n], n, 2])/8 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 
   (73*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (35*Diff[S2[-2, 1, n], n, 3])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 - 
   (117*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 + (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 - 
   (97*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (131*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   9*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/8 + (13*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + 3*Diff[S2[2, 1, -1, n], n, 2] - 
   (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    8 - (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + Diff[S2[1, 1, -1, 2, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/8 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (165*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (283*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (45*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 - (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 - (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   (3*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 - S2[-1, Infinity]^6/160 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 - (33*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (261*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (149*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (429*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (703*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (29*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (45*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (95*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (155*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (13*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (27*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (45*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (33*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (21*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (15*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (S2[-1, Infinity]^5*S2[1, n])/80 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (135*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (183*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 + 
   (27*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (109*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (57*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/8 + 
   (15*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/64 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (29*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/4 - (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    32 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 - (5*Half[S2[1, n], n]^2*S2[1, n]^4)/
    4 + (5*Half[S2[1, n], n]*S2[1, n]^5)/8 - S2[1, n]^6/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/2 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (73*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (47*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (57*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (77*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (99*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (45*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    4 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (45*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (21*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (57*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (9*S2[1, n]^4*S2[2, Infinity])/16 - 
   (283*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (59*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 - 
   (333*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 + 
   (133*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (417*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (1497*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (717*S2[1, n]^2*S2[2, Infinity]^2)/320 + (30803*S2[2, Infinity]^3)/6720 + 
   (255*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (321*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (237*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (21*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (551*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (33*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (173*S2[1, n]^3*S2[3, Infinity])/128 - 
   (705*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (1269*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (465*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (435*S2[3, Infinity]^2)/128 + (67*Half[S2[1, n], n]*S2[5, Infinity])/8 + 
   (887*S2[1, n]*S2[5, Infinity])/128 - S2[-5, -1, Infinity]/4 + 
   16*S2[-5, 1, n] + 6*Half[S2[1, n], n]*S2[-4, 1, n] - 
   3*S2[1, n]*S2[-4, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 - (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (9*S2[1, n]^2*S2[-3, 1, n])/16 + (57*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (27*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/8 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (3*S2[3, Infinity]*S2[-2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (23*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (39*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 - 
   (S2[1, n]^4*S2[-1, 1, n])/8 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (25*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (81*S2[2, Infinity]^2*S2[-1, 1, n])/40 - 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (45*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (7*S2[1, n]^3*S2[2, 1, n])/16 + (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (15*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (63*S2[3, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 3*Half[S2[1, n], n]*
    S2[4, 1, n] - 3*S2[1, n]*S2[4, 1, n] - 9*S2[-4, 1, 1, n] + 
   3*S2[1, n]*S2[-3, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/16 + 
   (3*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (3*S2[3, Infinity]*S2[-1, 1, -1, n])/
    32 + (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   3*S2[3, Infinity]*S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   4*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + (9*S2[1, n]^2*S2[1, 2, -1, n])/
    4 - (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (3*S2[1, n]*S2[2, 1, -2, n])/
    2 - (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (15*S2[1, n]^2*S2[2, 1, -1, n])/8 - (15*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[3, 1, -2, n])/2 - 9*S2[-3, 1, 1, 1, n] + 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (21*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (41*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (3*S2[2, -2, 1, 1, n])/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + (3*S2[1, -1, 1, 1, 2, n])/2 - 
   9*S2[1, 1, 1, 2, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   6*S2[1, 1, 2, 1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] + 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/4 + (9*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/2 + (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    2 + (15*S2[1, -1, -1, -1, -1, -1, n])/2, 
 S2[-1, -3, 2, n] -> (3*Diff[Half[S2[1, n], n], n, 1]^3)/64 + 
   (11*Diff[Half[S2[1, n], n], n, 2]^2)/128 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/96 - 
   (123*Diff[Half[S2[1, n], n], n, 5])/128 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/192 - Diff[Half[S2[4, 1, n], n], n, 1]/
    32 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 + 
   (661*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (603*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (599*Diff[S2[1, n], n, 1]^3)/64 + (519*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (539*Diff[S2[1, n], n, 2]^2)/64 + 
   (721*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/128 - 
   (4909*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/384 + 
   (1853*Diff[S2[1, n], n, 5])/1920 - (33*Diff[S2[-3, 1, n], n, 2])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (115*Diff[S2[-2, 1, n], n, 3])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (221*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   Diff[S2[-1, 1, n], n, 1]^2/32 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 + 
   (375*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (515*Diff[S2[-1, 1, n], n, 4])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (13*Diff[S2[2, 1, n], n, 3])/48 + 2*Diff[S2[4, 1, n], n, 1] + 
   8*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   Diff[S2[-2, 1, -1, n], n, 2]/8 - (3*Diff[S2[-1, -2, -1, n], n, 2])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/8 - (27*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (47*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   Diff[S2[2, 1, 1, n], n, 2]/8 + (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/16 + (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - Diff[S2[1, 1, -1, 2, n], n, 
    1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (3*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (319*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 + (185*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/128 - 
   (29*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 + (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    16 - (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   (3*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (3*Half[S2[4, 1, 1, n], n])/16 - (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 + S2[-1, Infinity]^6/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 + 
   (415*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (445*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (147*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (843*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (1391*Diff[S2[1, n], n, 4]*S2[1, n])/384 - 
   (67*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 + 
   (37*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (309*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 + 
   (17*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (27*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (55*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (75*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (191*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 + 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (3*S2[-1, Infinity]^5*S2[1, n])/320 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (281*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (59*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (1055*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (221*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 + 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (9*Half[S2[1, n], n]^4*S2[1, n]^2)/32 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 - 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 - 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/2 + (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (3*Half[S2[1, n], n]*S2[1, n]^5)/
    16 + S2[1, n]^6/32 + (15*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 - (23*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/96 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (237*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (135*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (33*Diff[S2[1, n], n, 3]*S2[2, Infinity])/32 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (87*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/64 + (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*
     S2[2, Infinity])/64 - (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/64 + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (43*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (69*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (87*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 - (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    32 - (165*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    64 - (39*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    64 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/
    8 - (9*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/8 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (223*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (39*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (135*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (S2[1, n]^4*S2[2, Infinity])/4 + (317*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/128 - (247*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    80 + (41*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 - 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (179*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 - 
   (143*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/64 - 
   (777*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (821*S2[1, n]^2*S2[2, Infinity]^2)/320 + (19*S2[2, Infinity]^3)/64 - 
   (553*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (807*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (135*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (291*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 - 
   (39*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (105*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (1529*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (51*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 + 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (347*S2[1, n]^3*S2[3, Infinity])/256 + 
   (287*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (4275*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (79*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (5565*S2[3, Infinity]^2)/2048 - (1703*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (1247*S2[1, n]*S2[5, Infinity])/128 + S2[-5, -1, Infinity]/4 - 
   6*S2[-5, 1, n] - 3*Half[S2[1, n], n]*S2[-4, 1, n] - 
   3*S2[1, n]*S2[-4, 1, n] + (35*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    32 - (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (11*S2[1, n]^2*S2[-3, 1, n])/32 - (15*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 + 
   (47*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (99*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 + 
   (21*S2[1, n]^3*S2[-2, 1, n])/16 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (57*S2[3, Infinity]*S2[-2, 1, n])/64 + (3*S2[-2, 1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (79*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (223*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (19*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (9*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (929*S2[2, Infinity]^2*S2[-1, 1, n])/320 + 
   (15*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (189*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/32 + (S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (49*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (99*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (S2[1, n]^3*S2[2, 1, n])/32 - (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (81*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (207*S2[3, Infinity]*S2[2, 1, n])/64 + (3*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (3*S2[2, 1, n]^2)/8 - 
   3*S2[1, n]*S2[4, 1, n] + 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - 
   3*S2[1, n]*S2[-3, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   S2[-2, 2, -2, n]/4 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    32 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/32 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (21*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + (3*S2[-1, 1, -1, n]^2)/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 3*Diff[S2[1, n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - 3*S2[3, Infinity]*S2[-1, 1, 1, n] + 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (33*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 + (35*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (31*S2[1, n]^2*S2[2, 1, -1, n])/16 + (17*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[3, 1, -2, n])/2 + 9*S2[-3, 1, 1, 1, n] - 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (39*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - (3*S2[2, -2, 1, 1, n])/2 + 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, -1, 1, 1, 2, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 9*S2[1, 1, 1, 2, -1, n] + 
   (3*S2[1, 1, 2, -1, 1, n])/2 + 6*S2[1, 1, 2, 1, -1, n] + 
   3*S2[1, 2, 1, 1, -1, n] - (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/8 - (15*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    4 - (15*S2[1, -1, -1, -1, -1, -1, n])/4 - (3*S2[1, -1, -1, -1, 1, -1, n])/
    8 - (3*S2[1, -1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, -1, -1, -1, n])/
    4 - (3*S2[1, 1, -1, -1, -1, -1, n])/2, 
 S2[-1, 3, -2, n] -> (3*Diff[Half[S2[1, n], n], n, 1]^3)/64 - 
   (63*Diff[Half[S2[1, n], n], n, 2]^2)/128 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/96 - 
   (313*Diff[Half[S2[1, n], n], n, 5])/384 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (25*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 + 
   (325*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (583*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (579*Diff[S2[1, n], n, 1]^3)/64 + (499*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (461*Diff[S2[1, n], n, 2]^2)/64 + 
   (2003*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/384 - 
   (1455*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/128 + 
   (325*Diff[S2[1, n], n, 5])/384 - 4*Diff[S2[-4, 1, n], n, 1] - 
   (91*Diff[S2[-3, 1, n], n, 2])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   (125*Diff[S2[-2, 1, n], n, 3])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (213*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (369*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (485*Diff[S2[-1, 1, n], n, 4])/192 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (17*Diff[S2[2, 1, n], n, 3])/48 - (5*Diff[S2[4, 1, n], n, 1])/2 + 
   8*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -1, n], n, 2]/8 - 
   Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/4 - (25*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (45*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   Diff[S2[2, 1, 1, n], n, 2]/8 - Diff[S2[3, 1, 1, n], n, 1] + 
   (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/
    16 + (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - Diff[S2[1, 1, -1, 2, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 - (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    192 + (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/32 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    64 + (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/8 - (319*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/32 + (539*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/
    384 - (61*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    16 - (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (9*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/4 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   (3*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (3*Half[S2[4, 1, 1, n], n])/16 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    32 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 + (7*S2[-1, Infinity]^6)/960 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (389*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (493*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (811*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (1327*Diff[S2[1, n], n, 4]*S2[1, n])/384 + 
   (61*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 + 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 - 
   (97*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (305*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (9*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (27*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (55*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (85*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (95*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 + 
   (27*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (S2[-1, Infinity]^5*S2[1, n])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (295*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (99*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (131*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (1063*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 - 
   (31*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (229*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 + 
   (19*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (39*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (75*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/32 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 - 
   (9*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 - 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (33*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (7*Half[S2[1, n], n]*S2[1, n]^5)/
    16 + (3*S2[1, n]^6)/32 - (7*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (13*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    96 - (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (151*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (69*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (59*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (99*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (27*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (19*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 - (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    8 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (225*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (51*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (11*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/8 + (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (149*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (33*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (27*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    64 - (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (123*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (5*S2[1, n]^4*S2[2, Infinity])/16 + 
   (377*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (4*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 + 
   (169*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (319*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (503*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (297*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (31*S2[1, n]^2*S2[2, Infinity]^2)/20 + (1793*S2[2, Infinity]^3)/6720 - 
   (485*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (675*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (255*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (235*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 - 
   (45*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (1269*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (335*S2[1, n]^3*S2[3, Infinity])/256 + 
   (515*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (4113*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (205*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (10419*S2[3, Infinity]^2)/2048 - (1449*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (915*S2[1, n]*S2[5, Infinity])/128 + (17*S2[-5, -1, Infinity])/8 - 
   6*S2[-5, 1, n] - 3*Half[S2[1, n], n]*S2[-4, 1, n] + 
   3*S2[1, n]*S2[-4, 1, n] - (45*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    32 + (21*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (17*S2[1, n]^2*S2[-3, 1, n])/32 - (17*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 + 
   (51*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (119*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 + 
   (17*S2[1, n]^3*S2[-2, 1, n])/16 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (51*S2[3, Infinity]*S2[-2, 1, n])/64 - (3*S2[-2, 1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (89*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (209*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (S2[1, n]^4*S2[-1, 1, n])/8 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (27*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (583*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (183*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/32 - (S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (23*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (33*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (13*S2[1, n]^3*S2[2, 1, n])/32 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 + (63*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (213*S2[3, Infinity]*S2[2, 1, n])/64 - (3*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (27*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (3*S2[2, 1, n]^2)/8 + 
   3*S2[1, n]*S2[4, 1, n] + 6*S2[-4, 1, 1, n] - 3*S2[1, n]*S2[-3, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/32 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (27*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - (3*S2[-1, 1, -1, n]^2)/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 3*Diff[S2[1, n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - 3*S2[3, Infinity]*S2[-1, 1, 1, n] + 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (33*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 + (35*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (35*S2[1, n]^2*S2[2, 1, -1, n])/16 + 2*S2[2, Infinity]*S2[2, 1, -1, n] - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[3, 1, -2, n])/2 - 3*S2[4, 1, 1, n] + 9*S2[-3, 1, 1, 1, n] - 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (27*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - (3*S2[2, -2, 1, 1, n])/2 + 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (15*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, -1, 1, 1, 2, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 9*S2[1, 1, 1, 2, -1, n] + 
   (3*S2[1, 1, 2, -1, 1, n])/2 + 6*S2[1, 1, 2, 1, -1, n] + 
   3*S2[1, 2, 1, 1, -1, n] - (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - (9*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/8 - (21*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    4 - (15*S2[1, -1, -1, -1, -1, -1, n])/4 + (3*S2[1, -1, -1, -1, 1, -1, n])/
    8 + (3*S2[1, -1, -1, 1, -1, -1, n])/4 + (3*S2[1, -1, 1, -1, -1, -1, n])/
    4 + (3*S2[1, 1, -1, -1, -1, -1, n])/2, 
 S2[-1, 3, 2, n] -> (13*Diff[Half[S2[1, n], n], n, 5])/15 - 
   (73*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 - 
   (61*Diff[S2[1, n], n, 1]^3)/8 - (59*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (59*Diff[S2[1, n], n, 2]^2)/8 - 
   (247*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (539*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (13*Diff[S2[1, n], n, 5])/15 - (13*Diff[S2[-4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, n], n, 2] - 6*Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + (11*Diff[S2[-2, 1, n], n, 3])/6 - 
   (25*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (81*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (119*Diff[S2[-1, 1, n], n, 4])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   8*Diff[S2[-3, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/4 + (13*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (11*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 + Diff[S2[1, 1, -1, 2, n], n, 1] - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (73*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (11*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 - S2[-1, Infinity]^6/160 - 
   (49*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   6*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (191*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (41*Diff[S2[1, n], n, 4]*S2[1, n])/12 + 2*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] - (9*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (19*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (27*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (61*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^5*S2[1, n])/80 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (49*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (85*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 + 4*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (29*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    4 - (51*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (67*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/24 + Diff[Half[S2[1, n], n], n, 2]*
    S2[1, n]*S2[2, Infinity] - (13*Diff[S2[1, n], n, 2]*S2[1, n]*
     S2[2, Infinity])/8 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/
    2 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    2 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    2 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (9*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 + 
   (361*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (97*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (6*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (771*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (15*S2[1, n]^2*S2[2, Infinity]^2)/8 - (4687*S2[2, Infinity]^3)/1120 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 - 
   (99*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/4 - 
   (21*S2[1, n]^3*S2[3, Infinity])/16 - 3*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] + (135*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    8 + (3*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (911*S2[3, Infinity]^2)/128 + (9*Half[S2[1, n], n]*S2[5, Infinity])/2 + 
   (1203*S2[1, n]*S2[5, Infinity])/128 - (17*S2[-5, -1, Infinity])/8 - 
   7*S2[-5, 1, n] + 3*S2[1, n]*S2[-4, 1, n] + 
   (9*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + (3*S2[1, n]^2*S2[-3, 1, n])/4 + 
   (S2[2, Infinity]*S2[-3, 1, n])/4 - 2*Diff[S2[1, n], n, 2]*S2[-2, 1, n] + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (3*S2[1, n]^3*S2[-2, 1, n])/2 + (3*S2[3, Infinity]*S2[-2, 1, n])/2 + 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (33*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (27*S2[2, Infinity]^2*S2[-1, 1, n])/10 - 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - 3*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (21*S2[3, Infinity]*S2[2, 1, n])/8 + (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/
    2 - 3*Half[S2[1, n], n]*S2[4, 1, n] + 3*S2[1, n]*S2[4, 1, n] - 
   5*S2[-4, 1, 1, n] + 3*S2[1, n]*S2[-3, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 3*Diff[S2[1, n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + 3*S2[3, Infinity]*S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (13*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 - (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    4 + (9*S2[1, n]^2*S2[2, 1, -1, n])/4 - 
   (9*S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 - 7*S2[-3, 1, 1, 1, n] + (9*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - (3*S2[-2, 2, 1, 1, n])/2 + (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + S2[2, -2, 1, 1, n]/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 + (3*S2[1, -1, 1, 1, 2, n])/2 - 9*S2[1, 1, 1, 2, -1, n] - 
   (3*S2[1, 1, 2, -1, 1, n])/2 - 6*S2[1, 1, 2, 1, -1, n] - 
   3*S2[1, 2, 1, 1, -1, n] + (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, 
 S2[-1, -2, -3, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/96 + 
   (3*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 - 
   (3497*Diff[Half[S2[1, n], n], n, 5])/2880 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (281*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (363*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (1093*Diff[S2[1, n], n, 1]^3)/96 + 
   (343*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 - 
   (173*Diff[S2[1, n], n, 2]^2)/16 + (1337*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/192 - (3035*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/192 + (3497*Diff[S2[1, n], n, 5])/2880 - 
   4*Diff[S2[-4, 1, n], n, 1] - (3*Diff[S2[-3, 1, n], n, 2])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (69*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (8*Diff[S2[-2, 1, n], n, 3])/3 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 + 
   (139*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 + 
   (227*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (10*Diff[S2[-1, 1, n], n, 4])/3 + (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (21*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (15*Diff[S2[-1, 1, 1, n], n, 3])/8 - (17*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1] - (15*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   7*Diff[S2[-2, 1, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/16 - (9*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (187*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (341*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (51*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 - (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 + 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 - 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   (3*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 + S2[-1, Infinity]^6/160 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (21*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (297*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (177*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (507*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (857*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (19*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (49*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (103*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (193*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 - 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (17*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (33*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (33*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (37*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (15*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (S2[-1, Infinity]^5*S2[1, n])/80 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (123*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (207*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 - 
   (27*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (113*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 + 
   (19*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (75*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/8 - 
   (15*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/64 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (27*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    32 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 + (5*Half[S2[1, n], n]^2*S2[1, n]^4)/
    4 - (5*Half[S2[1, n], n]*S2[1, n]^5)/8 + S2[1, n]^6/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 + Diff[S2[1, n], n, 1]^2*S2[2, Infinity] + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/4 - 
   (15*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (51*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   4*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (63*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (85*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + 3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (135*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (45*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (5*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/8 - (51*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/16 + (15*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/8 + (45*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 + (21*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 - (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (57*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (9*S2[1, n]^4*S2[2, Infinity])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (333*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 - 
   (173*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (417*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1497*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (717*S2[1, n]^2*S2[2, Infinity]^2)/320 - (34927*S2[2, Infinity]^3)/6720 - 
   (297*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (351*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 - 
   (303*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (163*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (763*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (33*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (173*S2[1, n]^3*S2[3, Infinity])/128 + 
   (753*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (1341*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (513*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (603*S2[3, Infinity]^2)/128 - (59*Half[S2[1, n], n]*S2[5, Infinity])/8 - 
   (1015*S2[1, n]*S2[5, Infinity])/128 + (9*S2[-5, -1, Infinity])/4 - 
   16*S2[-5, 1, n] - 6*Half[S2[1, n], n]*S2[-4, 1, n] + 
   3*S2[1, n]*S2[-4, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (9*S2[1, n]^2*S2[-3, 1, n])/16 - (57*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (7*S2[1, n]^3*S2[-2, 1, n])/8 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (27*S2[3, Infinity]*S2[-2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (25*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (47*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + Diff[S2[2, 1, n], n, 1]*
    S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/16 + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    16 + (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (27*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 + 
   (S2[1, n]^4*S2[-1, 1, n])/8 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (23*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (81*S2[2, Infinity]^2*S2[-1, 1, n])/40 + 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (45*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (7*S2[1, n]^3*S2[2, 1, n])/16 - (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (15*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (51*S2[3, Infinity]*S2[2, 1, n])/16 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 3*Half[S2[1, n], n]*
    S2[4, 1, n] + 3*S2[1, n]*S2[4, 1, n] + 9*S2[-4, 1, 1, n] - 
   3*S2[1, n]*S2[-3, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/16 - 
   (3*S2[2, Infinity]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (3*S2[3, Infinity]*S2[-1, 1, -1, n])/
    32 - (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   3*S2[3, Infinity]*S2[-1, 1, 1, n] + 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - (9*S2[1, n]^2*S2[1, 2, -1, n])/
    4 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 + (3*S2[1, n]*S2[2, 1, -2, n])/
    2 - (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (15*S2[1, n]^2*S2[2, 1, -1, n])/8 + (15*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[3, 1, -2, n])/2 + 9*S2[-3, 1, 1, 1, n] - 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (21*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (49*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - (3*S2[2, -2, 1, 1, n])/2 + 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - (3*S2[1, -1, 1, 1, 2, n])/2 + 
   9*S2[1, 1, 1, 2, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/4 - (9*S2[-1, -1, 1, -1, -1, -1, n])/4 - 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/2 - (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    2 - (15*S2[1, -1, -1, -1, -1, -1, n])/2, 
 S2[-1, -2, 3, n] -> (-5*Diff[Half[S2[1, n], n], n, 1]^3)/64 + 
   (65*Diff[Half[S2[1, n], n], n, 2]^2)/128 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/32 + 
   (391*Diff[Half[S2[1, n], n], n, 5])/384 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (25*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 - 
   (133*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (717*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (705*Diff[S2[1, n], n, 1]^3)/64 - (615*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (607*Diff[S2[1, n], n, 2]^2)/64 - 
   (2509*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/384 + 
   (1861*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/128 - 
   (2099*Diff[S2[1, n], n, 5])/1920 + (3*Diff[S2[-4, 1, n], n, 1])/2 + 
   (51*Diff[S2[-3, 1, n], n, 2])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (67*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (125*Diff[S2[-2, 1, n], n, 3])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (247*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (211*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (577*Diff[S2[-1, 1, n], n, 4])/192 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] + (15*Diff[S2[1, n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 - (7*Diff[S2[2, 1, n], n, 3])/48 + 
   Diff[S2[4, 1, n], n, 1] - (17*Diff[S2[-3, 1, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, -1, n], n, 2]/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/2 + (31*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1] + (53*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   Diff[S2[2, 1, 1, n], n, 2]/8 - 7*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/16 - (19*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/
    2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (29*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/192 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (51*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (401*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (685*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 + 
   (95*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (9*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (19*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    64 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    8 - (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 + 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   (3*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[4, 1, 1, n], n])/16 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    64 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 - S2[-1, Infinity]^6/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 - (517*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (577*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (1029*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (1673*Diff[S2[1, n], n, 4]*S2[1, n])/384 + 
   (Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 
   (49*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (109*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (371*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (11*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (33*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (69*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (119*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (257*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 - 
   (3*S2[-1, Infinity]^5*S2[1, n])/320 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (365*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 - 
   (135*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (77*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (1295*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 + 4*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (245*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 - 
   (21*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (9*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 + 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 + 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/2 - (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (3*Half[S2[1, n], n]*S2[1, n]^5)/
    16 - S2[1, n]^6/32 + (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 + (13*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (135*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (41*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (79*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (47*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   4*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (87*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 - (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (57*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (35*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 + 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 + (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    32 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (261*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (39*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (9*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (145*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (27*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (39*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 + 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (135*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (S2[1, n]^4*S2[2, Infinity])/4 - (1031*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/640 + (511*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    320 - (41*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 + 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (211*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 + 
   (143*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/64 + 
   (777*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (821*S2[1, n]^2*S2[2, Infinity]^2)/320 - (61*S2[2, Infinity]^3)/210 + 
   (627*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 - 
   (687*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (331*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (51*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (339*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 - 
   (89*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (1609*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 + 
   (51*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (347*S2[1, n]^3*S2[3, Infinity])/256 - 
   (375*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (4659*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (255*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (7997*S2[3, Infinity]^2)/2048 + (1959*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (1119*S2[1, n]*S2[5, Infinity])/128 - S2[-5, -1, Infinity]/4 + 
   6*S2[-5, 1, n] + 3*Half[S2[1, n], n]*S2[-4, 1, n] + 
   3*S2[1, n]*S2[-4, 1, n] + (15*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    32 - (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 - 
   (11*S2[1, n]^2*S2[-3, 1, n])/32 + (11*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (39*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[-2, 1, n] - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (115*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 - 
   (21*S2[1, n]^3*S2[-2, 1, n])/16 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (185*S2[3, Infinity]*S2[-2, 1, n])/64 - (3*S2[-2, 1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (101*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (253*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (3*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (9*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (929*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (15*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (189*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/32 - (S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (59*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (63*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (111*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (S2[1, n]^3*S2[2, 1, n])/32 + (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (81*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (143*S2[3, Infinity]*S2[2, 1, n])/64 - (3*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (3*S2[2, 1, n]^2)/8 + 
   3*S2[1, n]*S2[4, 1, n] - 6*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 
   3*S2[1, n]*S2[-3, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   S2[-2, 2, -2, n]/2 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    32 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/32 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (21*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - (3*S2[-1, 1, -1, n]^2)/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 3*Diff[S2[1, n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + 3*S2[3, Infinity]*S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (39*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 - (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 - (21*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (31*S2[1, n]^2*S2[2, 1, -1, n])/16 - (17*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[3, 1, -2, n])/2 - 9*S2[-3, 1, 1, 1, n] + 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (39*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (13*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (3*S2[2, -2, 1, 1, n])/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, 2, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 9*S2[1, 1, 1, 2, -1, n] - 
   (3*S2[1, 1, 2, -1, 1, n])/2 - 6*S2[1, 1, 2, 1, -1, n] - 
   3*S2[1, 2, 1, 1, -1, n] + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 + (9*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/8 + (15*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    4 + (15*S2[1, -1, -1, -1, -1, -1, n])/4 + (3*S2[1, -1, -1, -1, 1, -1, n])/
    8 + (3*S2[1, -1, -1, 1, -1, -1, n])/4 + (3*S2[1, -1, 1, -1, -1, -1, n])/
    4 + (3*S2[1, 1, -1, -1, -1, -1, n])/2, 
 S2[-1, 2, -3, n] -> (-5*Diff[Half[S2[1, n], n], n, 1]^3)/64 + 
   (3*Diff[Half[S2[1, n], n], n, 2]^2)/128 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/96 + 
   (367*Diff[Half[S2[1, n], n], n, 5])/384 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/32 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 - 
   (701*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (609*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (613*Diff[S2[1, n], n, 1]^3)/64 - (543*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (545*Diff[S2[1, n], n, 2]^2)/64 - 
   (719*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/128 + 
   (1653*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/128 - 
   (125*Diff[S2[1, n], n, 5])/128 - (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   (3*Diff[S2[-3, 1, n], n, 2])/32 - (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/16 - 7*Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + (95*Diff[S2[-2, 1, n], n, 3])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (223*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   Diff[S2[-1, 1, n], n, 1]^2/32 - (15*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 - 
   (97*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (523*Diff[S2[-1, 1, n], n, 4])/192 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   Diff[S2[2, 1, n], n, 3]/48 - Diff[S2[4, 1, n], n, 1]/2 - 
   (17*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-2, 1, -1, n], n, 2]/8 - 
   Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/8 + (29*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1] + (51*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (5*Diff[S2[2, 1, 1, n], n, 2])/8 + 2*Diff[S2[3, 1, 1, n], n, 1] - 
   7*Diff[S2[-2, 1, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, -1, n], n, 2]/16 - 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (3*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (289*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 - (175*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/128 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (9*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (15*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (11*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/8 + (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    64 - (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   (3*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[4, 1, 1, n], n])/16 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    64 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 - (7*S2[-1, Infinity]^6)/960 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 - 
   (443*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (497*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (141*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (845*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (1417*Diff[S2[1, n], n, 4]*S2[1, n])/384 - 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 5*Diff[S2[-2, 1, n], n, 2]*
    S2[1, n] + (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     S2[1, n])/2 + (49*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     S2[1, n])/8 - (335*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 + 
   (15*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (33*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (61*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (2*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (33*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (10*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (25*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 - 
   (73*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (S2[-1, Infinity]^5*S2[1, n])/64 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (247*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 - 
   (9*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (107*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (1063*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 + 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (229*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 - 
   (41*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (129*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 + 
   (9*S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 - (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 - (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (7*Half[S2[1, n], n]*S2[1, n]^5)/
    16 - (3*S2[1, n]^6)/32 - (7*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    24 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (221*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (123*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (103*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   4*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity] - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (87*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (57*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (23*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (39*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (123*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 + (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    8 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (249*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (51*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (11*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/8 - (87*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (227*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (33*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 - (27*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    64 + (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (123*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (5*S2[1, n]^4*S2[2, Infinity])/16 - 
   (787*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (477*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 - 
   (169*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (479*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (503*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (297*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 - 
   (31*S2[1, n]^2*S2[2, Infinity]^2)/20 + (3233*S2[2, Infinity]^3)/6720 + 
   (575*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 - 
   (703*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (81*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (371*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (45*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (1629*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (335*S2[1, n]^3*S2[3, Infinity])/256 - 
   (499*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (4401*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (197*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (12147*S2[3, Infinity]^2)/2048 + (713*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (1283*S2[1, n]*S2[5, Infinity])/128 - (33*S2[-5, -1, Infinity])/8 + 
   6*S2[-5, 1, n] + 3*Half[S2[1, n], n]*S2[-4, 1, n] - 
   3*S2[1, n]*S2[-4, 1, n] - (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    32 + (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (17*S2[1, n]^2*S2[-3, 1, n])/32 + (17*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (35*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (111*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 - 
   (17*S2[1, n]^3*S2[-2, 1, n])/16 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (99*S2[3, Infinity]*S2[-2, 1, n])/64 + (3*S2[-2, 1, n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (91*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (227*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 - 
   (S2[1, n]^4*S2[-1, 1, n])/8 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (27*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (583*S2[2, Infinity]^2*S2[-1, 1, n])/320 + 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (183*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/32 + (S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (45*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (59*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (103*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (33*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (13*S2[1, n]^3*S2[2, 1, n])/32 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 - (63*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (213*S2[3, Infinity]*S2[2, 1, n])/64 + (3*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (27*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (3*S2[2, 1, n]^2)/8 - 
   3*S2[1, n]*S2[4, 1, n] - 6*S2[-4, 1, 1, n] + 3*S2[1, n]*S2[-3, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - S2[-2, 2, -2, n]/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/32 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (27*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + (3*S2[-1, 1, -1, n]^2)/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 3*Diff[S2[1, n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + 3*S2[3, Infinity]*S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (39*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 - (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 - (19*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (35*S2[1, n]^2*S2[2, 1, -1, n])/16 - 2*S2[2, Infinity]*S2[2, 1, -1, n] + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[3, 1, -2, n])/2 + 3*S2[4, 1, 1, n] - 9*S2[-3, 1, 1, 1, n] + 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (27*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (3*S2[2, -2, 1, 1, n])/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (15*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, 2, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 9*S2[1, 1, 1, 2, -1, n] - 
   (3*S2[1, 1, 2, -1, 1, n])/2 - 6*S2[1, 1, 2, 1, -1, n] - 
   3*S2[1, 2, 1, 1, -1, n] + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 + (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/8 + (21*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    4 + (15*S2[1, -1, -1, -1, -1, -1, n])/4 - (3*S2[1, -1, -1, -1, 1, -1, n])/
    8 - (3*S2[1, -1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, -1, -1, -1, n])/
    4 - (3*S2[1, 1, -1, -1, -1, -1, n])/2, 
 S2[-1, 2, 3, n] -> (-47*Diff[Half[S2[1, n], n], n, 5])/60 + 
   (67*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (57*Diff[S2[1, n], n, 1]^3)/8 + (53*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (53*Diff[S2[1, n], n, 2]^2)/8 + 
   (223*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (491*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (47*Diff[S2[1, n], n, 5])/60 + 7*Diff[S2[-4, 1, n], n, 1] + 
   (5*Diff[S2[-3, 1, n], n, 2])/4 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (19*Diff[S2[-2, 1, n], n, 3])/12 + 
   (21*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (71*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (103*Diff[S2[-1, 1, n], n, 4])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (13*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-1, 1, 1, n], n, 3])/4 - 
   3*Diff[S2[1, 2, -1, n], n, 2] + Diff[S2[2, 1, -2, n], n, 1]/2 - 
   (5*Diff[S2[2, 1, -1, n], n, 2])/2 + (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/
    2 + (19*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (67*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + S2[-1, Infinity]^6/160 + 
   (25*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (191*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (10*Diff[S2[1, n], n, 4]*S2[1, n])/3 - Diff[S2[-3, 1, n], n, 1]*S2[1, n] + 
   (19*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 5*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (19*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 4*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + 4*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (31*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (61*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (S2[-1, Infinity]^5*S2[1, n])/80 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (57*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (89*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 - 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 3*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1]*S2[2, Infinity] + 
   (39*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (79*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   4*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (9*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 - 
   (347*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (227*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (6*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (771*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (15*S2[1, n]^2*S2[2, Infinity]^2)/8 + (2027*S2[2, Infinity]^3)/420 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 + 
   (79*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (21*S2[1, n]^3*S2[3, Infinity])/16 + 4*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] - (525*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    32 - (19*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (2011*S2[3, Infinity]^2)/256 - (7*Half[S2[1, n], n]*S2[5, Infinity])/2 - 
   (1331*S2[1, n]*S2[5, Infinity])/128 + (17*S2[-5, -1, Infinity])/8 + 
   7*S2[-5, 1, n] - 3*S2[1, n]*S2[-4, 1, n] - 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - (3*S2[1, n]^2*S2[-3, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-3, 1, n])/4 + (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    2 - (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (3*S2[1, n]^3*S2[-2, 1, n])/2 - (5*S2[3, Infinity]*S2[-2, 1, n])/2 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (29*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   (27*S2[2, Infinity]^2*S2[-1, 1, n])/10 + 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 + 3*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (21*S2[3, Infinity]*S2[2, 1, n])/8 - (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/
    2 + 3*Half[S2[1, n], n]*S2[4, 1, n] - 3*S2[1, n]*S2[4, 1, n] + 
   3*S2[-4, 1, 1, n] - 3*S2[1, n]*S2[-3, 1, 1, n] - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 3*Diff[S2[1, n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - 3*S2[3, Infinity]*S2[-1, 1, 1, n] + 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (13*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    4 - (9*S2[1, n]^2*S2[2, 1, -1, n])/4 + 
   (9*S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 + 6*S2[-3, 1, 1, 1, n] - (9*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 + (3*S2[-2, 2, 1, 1, n])/2 - (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - (3*S2[1, -1, 1, 1, 2, n])/
    2 + 9*S2[1, 1, 1, 2, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, S2[-1, -1, -4, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/96 + (13*Diff[Half[S2[1, n], n], n, 2]^2)/
    96 + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 + 
   (131*Diff[Half[S2[1, n], n], n, 5])/576 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (161*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (251*Diff[S2[1, n], n, 1]^3)/96 - (69*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (97*Diff[S2[1, n], n, 2]^2)/48 - 
   (93*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/64 + 
   (589*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (131*Diff[S2[1, n], n, 5])/576 + 3*Diff[S2[-4, 1, n], n, 1] + 
   (3*Diff[S2[-3, 1, n], n, 2])/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   Diff[S2[-2, 1, n], n, 3] + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/3 - 
   (91*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 - 
   (51*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (17*Diff[S2[-1, 1, n], n, 4])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/24 + (3*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 2])/4 - 2*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (143*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (25*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 + 
   (13*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 - (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 + (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 - S2[-1, Infinity]^6/480 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (13*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (75*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (121*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (117*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (61*Diff[S2[1, n], n, 4]*S2[1, n])/64 - 
   (13*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (15*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (125*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (19*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (S2[-1, Infinity]^5*S2[1, n])/240 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (49*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (53*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - (5*Half[S2[1, n], n]^2*S2[1, n]^4)/
    12 + (5*Half[S2[1, n], n]*S2[1, n]^5)/24 - S2[1, n]^6/24 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (23*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (19*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (3*S2[1, n]^4*S2[2, Infinity])/16 - 
   (147*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 - 
   (167*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 - 
   (89*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (39*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (379*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (59*S2[1, n]^2*S2[2, Infinity]^2)/64 + (827*S2[2, Infinity]^3)/448 + 
   (233*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (263*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (73*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (113*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (173*S2[1, n]^3*S2[3, Infinity])/384 - 
   (235*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (423*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (155*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (49*S2[3, Infinity]^2)/128 + (125*Half[S2[1, n], n]*S2[5, Infinity])/32 + 
   (153*S2[1, n]*S2[5, Infinity])/128 + (5*S2[-5, -1, Infinity])/4 + 
   7*S2[-5, 1, n] + 2*Half[S2[1, n], n]*S2[-4, 1, n] - 
   S2[1, n]*S2[-4, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 - (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (3*S2[1, n]^2*S2[-3, 1, n])/16 + (19*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (31*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/24 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (S2[3, Infinity]*S2[-2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (31*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (27*S2[2, Infinity]^2*S2[-1, 1, n])/40 - 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (15*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (7*S2[1, n]^3*S2[2, 1, n])/48 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (21*S2[3, Infinity]*S2[2, 1, n])/16 + (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/
    2 + Half[S2[1, n], n]*S2[4, 1, n] - S2[1, n]*S2[4, 1, n] - 
   3*S2[-4, 1, 1, n] + S2[1, n]*S2[-3, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/16 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 - (S2[3, Infinity]*S2[-1, 1, -1, n])/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[3, Infinity]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + (3*S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/8 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 - 3*S2[-3, 1, 1, 1, n] + (3*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - S2[-2, 2, 1, 1, n]/2 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    8 + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 + S2[2, -2, 1, 1, n]/2 - 
   (3*S2[-2, 1, 1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    4 + (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + S2[1, -1, 1, 1, 2, n]/2 - 
   3*S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, -1, 1, n]/2 - 
   2*S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, 1, -1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n]/4 + (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    2 + (5*S2[1, -1, -1, -1, -1, -1, n])/2, 
 S2[-1, -1, 4, n] -> Diff[Half[S2[1, n], n], n, 1]^3/192 - 
   (83*Diff[Half[S2[1, n], n], n, 2]^2)/384 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 - 
   (299*Diff[Half[S2[1, n], n], n, 5])/1152 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (583*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (557*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (545*Diff[S2[1, n], n, 1]^3)/192 + 
   (157*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 - 
   (389*Diff[S2[1, n], n, 2]^2)/192 + 
   (1945*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (3787*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (1391*Diff[S2[1, n], n, 5])/5760 - (5*Diff[S2[-4, 1, n], n, 1])/2 - 
   (51*Diff[S2[-3, 1, n], n, 2])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 - 
   (53*Diff[S2[-2, 1, n], n, 3])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (211*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (57*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (157*Diff[S2[-1, 1, n], n, 4])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (11*Diff[S2[2, 1, n], n, 3])/48 - 2*Diff[S2[4, 1, n], n, 1] + 
   (5*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-2, 1, -1, n], n, 2]/8 - 
   Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/8 - (7*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   (13*Diff[S2[2, 1, -1, n], n, 2])/16 + Diff[S2[2, 1, 1, n], n, 2]/8 + 
   2*Diff[S2[-2, 1, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, -1, n], n, 2]/16 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    8 - (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (13*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (95*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (349*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (553*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (115*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (2*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    6 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 - (9*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 + 
   (9*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   Half[S2[2, 1, n], n]^2/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   Half[S2[4, 1, 1, n], n]/16 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 - (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + (7*S2[-1, Infinity]^6)/2880 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    12 + (311*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (163*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (143*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (259*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (1237*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (115*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (13*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (97*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (49*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (137*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (55*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (S2[-1, Infinity]^5*S2[1, n])/192 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (343*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (169*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (155*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (1063*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (229*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 + 
   (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (55*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    192 - (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (7*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + S2[1, n]^6/32 - (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 - (17*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/144 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (145*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (37*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (13*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    96 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    16 - (67*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    64 - (17*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    64 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 - 
   (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/24 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (71*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (9*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (41*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (5*S2[1, n]^4*S2[2, Infinity])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (239*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (361*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (109*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (427*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (887*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (75*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (43*S2[1, n]^2*S2[2, Infinity]^2)/60 + (3139*S2[2, Infinity]^3)/6720 - 
   (395*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (647*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (15*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (303*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (335*S2[1, n]^3*S2[3, Infinity])/768 + 
   (209*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (1371*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (87*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (3473*S2[3, Infinity]^2)/2048 - (859*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (117*S2[1, n]*S2[5, Infinity])/128 - (5*S2[-5, -1, Infinity])/8 - 
   2*S2[-5, 1, n] - Half[S2[1, n], n]*S2[-4, 1, n] + S2[1, n]*S2[-4, 1, n] - 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (2*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/3 + 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (17*S2[1, n]^2*S2[-3, 1, n])/96 - (13*S2[2, Infinity]*S2[-3, 1, n])/24 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (67*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (127*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (17*S2[1, n]^3*S2[-2, 1, n])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/6 - 
   (17*S2[3, Infinity]*S2[-2, 1, n])/64 - S2[-2, 1, n]^2/8 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (29*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (215*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (583*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (61*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/96 - (S2[2, Infinity]*S2[-1, 1, n]^2)/24 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (13*S2[1, n]^3*S2[2, 1, n])/96 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (71*S2[3, Infinity]*S2[2, 1, n])/64 - (S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - S2[2, 1, n]^2/8 + 
   S2[1, n]*S2[4, 1, n] + 2*S2[-4, 1, 1, n] - S2[1, n]*S2[-3, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/96 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (9*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - S2[-1, 1, -1, n]^2/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   S2[3, Infinity]*S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 + (4*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (35*S2[1, n]^2*S2[2, 1, -1, n])/48 + (2*S2[2, Infinity]*S2[2, 1, -1, n])/
    3 - (S2[-1, 1, n]*S2[2, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 - S2[4, 1, 1, n] + 3*S2[-3, 1, 1, 1, n] - 
   (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + S2[-2, 2, 1, 1, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - (S2[1, n]*S2[1, 1, 2, -1, n])/
    2 - S2[2, -2, 1, 1, n]/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, 2, n]/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 3*S2[1, 1, 1, 2, -1, n] + 
   S2[1, 1, 2, -1, 1, n]/2 + 2*S2[1, 1, 2, 1, -1, n] + 
   S2[1, 2, 1, 1, -1, n] - S2[-1, -1, -1, 1, -1, -1, n]/8 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/8 - (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, -1, 1, n]/8 - (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + S2[1, -1, -1, -1, 1, -1, n]/8 + 
   S2[1, -1, -1, 1, -1, -1, n]/4 + S2[1, -1, 1, -1, -1, -1, n]/4 + 
   S2[1, 1, -1, -1, -1, -1, n]/2, S2[-1, 1, -4, n] -> 
  (7*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (49*Diff[Half[S2[1, n], n], n, 2]^2)/384 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 - 
   (461*Diff[Half[S2[1, n], n], n, 5])/1152 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 3])/64 - Diff[Half[S2[4, 1, n], n], n, 1]/
    32 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (41*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (95*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/36 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (635*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (647*Diff[S2[1, n], n, 1]^3)/192 + 
   (209*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 - 
   (665*Diff[S2[1, n], n, 2]^2)/192 + 
   (2503*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (5809*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (445*Diff[S2[1, n], n, 5])/1152 + 2*Diff[S2[-4, 1, n], n, 1] + 
   (27*Diff[S2[-3, 1, n], n, 2])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 - 
   (31*Diff[S2[-2, 1, n], n, 3])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (265*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   Diff[S2[-1, 1, n], n, 1]^2/32 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 + 
   (141*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (203*Diff[S2[-1, 1, n], n, 4])/192 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (3*Diff[S2[2, 1, n], n, 3])/16 + Diff[S2[4, 1, n], n, 1] + 
   3*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   Diff[S2[-2, 1, -1, n], n, 2]/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, 1, n], n, 3]/2 - (11*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (19*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (3*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[3, 1, 1, n], n, 1] + 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    16 + (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    8 + (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + Diff[S2[1, -1, -1, -1, -1, n], 
    n, 1] - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 + (67*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (85*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    4 - (259*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (511*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (47*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    3 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 + (19*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (15*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 - (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    64 + (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 + 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   Half[S2[2, 1, n], n]^2/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   Half[S2[4, 1, 1, n], n]/16 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + (7*S2[-1, Infinity]^6)/2880 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 + (449*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (167*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (293*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (1507*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (47*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 - 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (365*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (7*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (13*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (67*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (19*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (65*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 + 
   (119*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (S2[-1, Infinity]^5*S2[1, n])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (199*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (83*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (1063*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (229*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (21*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (77*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    192 + (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (7*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + S2[1, n]^6/32 + (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 - (19*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (59*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/18 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (25*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (59*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (181*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    24 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (91*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (17*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 + (145*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (305*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (9*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (41*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (5*S2[1, n]^4*S2[2, Infinity])/48 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/128 - 
   (173*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/240 + 
   (169*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (27*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (503*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (99*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (31*S2[1, n]^2*S2[2, Infinity]^2)/60 - (1009*S2[2, Infinity]^3)/3360 - 
   (809*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (875*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (99*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (169*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (15*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (663*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (335*S2[1, n]^3*S2[3, Infinity])/768 + 
   (97*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (1371*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (31*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (2833*S2[3, Infinity]^2)/2048 - (115*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (489*S2[1, n]*S2[5, Infinity])/128 + (7*S2[-5, -1, Infinity])/8 - 
   2*S2[-5, 1, n] - Half[S2[1, n], n]*S2[-4, 1, n] + S2[1, n]*S2[-4, 1, n] + 
   (47*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 - 
   (25*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (17*S2[1, n]^2*S2[-3, 1, n])/96 - (19*S2[2, Infinity]*S2[-3, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (31*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (103*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (17*S2[1, n]^3*S2[-2, 1, n])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/6 - 
   (17*S2[3, Infinity]*S2[-2, 1, n])/64 - S2[-2, 1, n]^2/8 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (293*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (S2[1, n]^4*S2[-1, 1, n])/24 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (247*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (61*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/96 - (S2[2, Infinity]*S2[-1, 1, n]^2)/24 + 
   (67*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 - 
   (67*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/16 - (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/32 + (7*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (13*S2[1, n]^3*S2[2, 1, n])/96 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (71*S2[3, Infinity]*S2[2, 1, n])/64 - (S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - S2[2, 1, n]^2/8 + 
   S2[1, n]*S2[4, 1, n] + 2*S2[-4, 1, 1, n] - S2[1, n]*S2[-3, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + S2[-2, 2, -2, n]/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/96 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (9*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - S2[-1, 1, -1, n]^2/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   S2[3, Infinity]*S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[1, n]*S2[2, 1, -2, n])/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 + (41*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (35*S2[1, n]^2*S2[2, 1, -1, n])/48 + (2*S2[2, Infinity]*S2[2, 1, -1, n])/
    3 - (S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 - S2[4, 1, 1, n] + 3*S2[-3, 1, 1, 1, n] - 
   (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + S2[-2, 2, 1, 1, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - (S2[1, n]*S2[1, 1, 2, -1, n])/
    2 - S2[2, -2, 1, 1, n]/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, 2, n]/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 3*S2[1, 1, 1, 2, -1, n] + 
   S2[1, 1, 2, -1, 1, n]/2 + 2*S2[1, 1, 2, 1, -1, n] + 
   S2[1, 2, 1, 1, -1, n] - S2[-1, -1, -1, 1, -1, -1, n]/8 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/8 - (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, -1, 1, n]/8 - (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + S2[1, -1, -1, -1, 1, -1, n]/8 + 
   S2[1, -1, -1, 1, -1, -1, n]/4 + S2[1, -1, 1, -1, -1, -1, n]/4 + 
   S2[1, 1, -1, -1, -1, -1, n]/2, S2[-1, 1, 4, n] -> 
  (67*Diff[Half[S2[1, n], n], n, 5])/240 - 2*Diff[Half[S2[1, n], n], n, 3]*
    Diff[S2[1, n], n, 1] + (21*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]^2)/8 - (21*Diff[S2[1, n], n, 1]^3)/8 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/8 + 
   (19*Diff[S2[1, n], n, 2]^2)/8 - (83*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/48 + (179*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/48 - (67*Diff[S2[1, n], n, 5])/240 - 
   (5*Diff[S2[-4, 1, n], n, 1])/2 - Diff[S2[-3, 1, n], n, 2]/4 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] + 
   (2*Diff[S2[-2, 1, n], n, 3])/3 - 2*Diff[S2[1, n], n, 2]*
    Diff[S2[-1, 1, n], n, 1] - (25*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/8 + (37*Diff[S2[-1, 1, n], n, 4])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   2*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-1, 1, 1, n], n, 3]/6 + 
   Diff[S2[1, 2, -1, n], n, 2] + Diff[S2[2, 1, -1, n], n, 2] - 
   2*Diff[S2[-2, 1, 1, 1, n], n, 1] - (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 - (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/
    2 + (23*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^6/480 - 
   (3*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (69*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[1, n], n, 4]*S2[1, n])/6 - 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] - (5*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/
    3 + (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (65*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^5*S2[1, n])/240 + 
   (2*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (23*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (97*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (43*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/10 + 
   (49*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 - 
   (149*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (257*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (5*S2[1, n]^2*S2[2, Infinity]^2)/8 - (1679*S2[2, Infinity]^3)/840 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 - 
   (15*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (7*S2[1, n]^3*S2[3, Infinity])/16 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] + (159*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    32 + (S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (553*S2[3, Infinity]^2)/256 + Half[S2[1, n], n]*S2[5, Infinity] + 
   (465*S2[1, n]*S2[5, Infinity])/128 + S2[-5, -1, Infinity]/8 - 
   3*S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + (S2[1, n]^2*S2[-3, 1, n])/4 - 
   (S2[2, Infinity]*S2[-3, 1, n])/4 - (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    4 + 2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (S2[1, n]^3*S2[-2, 1, n])/2 + (S2[3, Infinity]*S2[-2, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (37*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[2, Infinity]^2*S2[-1, 1, n])/2 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - (7*S2[3, Infinity]*S2[2, 1, n])/
    8 + (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 
   Half[S2[1, n], n]*S2[4, 1, n] + S2[1, n]*S2[4, 1, n] - S2[-4, 1, 1, n] + 
   S2[1, n]*S2[-3, 1, 1, n] + (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[3, Infinity]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 - (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    4 + (3*S2[1, n]^2*S2[2, 1, -1, n])/4 - 
   (3*S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 - 2*S2[-3, 1, 1, 1, n] + (3*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - S2[-2, 2, 1, 1, n]/2 + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 - (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + S2[1, -1, 1, 1, 2, n]/2 - 
   3*S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, -1, 1, n]/2 - 
   2*S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, 1, -1, n] + 
   (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, S2[1, -4, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/192 - (79*Diff[Half[S2[1, n], n], n, 2]^2)/
    384 - (67*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    288 + (227*Diff[Half[S2[1, n], n], n, 5])/1152 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (89*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (361*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (365*Diff[S2[1, n], n, 1]^3)/192 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 + 
   (287*Diff[S2[1, n], n, 2]^2)/192 - 
   (1145*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (2795*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (349*Diff[S2[1, n], n, 5])/1920 - Diff[S2[-4, 1, n], n, 1]/2 - 
   (3*Diff[S2[-3, 1, n], n, 2])/32 - (17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/48 - 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (23*Diff[S2[-2, 1, n], n, 3])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (115*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   Diff[S2[-1, 1, n], n, 1]^2/32 - (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   (103*Diff[S2[-1, 1, n], n, 4])/192 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (7*Diff[S2[2, 1, n], n, 3])/48 - Diff[S2[4, 1, n], n, 1] - 
   (5*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-2, 1, -1, n], n, 2]/8 - 
   Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, 1, n], n, 3]/4 + (5*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   (11*Diff[S2[2, 1, -1, n], n, 2])/16 + Diff[S2[2, 1, 1, n], n, 2]/8 - 
   2*Diff[S2[-2, 1, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, -1, n], n, 2]/16 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    8 - (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/12 - (23*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (47*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 - (281*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (37*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 - (25*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/4 + 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    12 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   Half[S2[2, 1, n], n]^2/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   Half[S2[4, 1, 1, n], n]/16 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - S2[-1, Infinity]^6/576 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (265*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (83*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (155*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (821*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (37*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (29*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (215*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (41*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/9 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 - (31*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (101*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (S2[-1, Infinity]^5*S2[1, n])/320 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (197*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (41*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (719*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (197*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (3*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 - (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/
    48 + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/6 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (Half[S2[1, n], n]*S2[1, n]^5)/
    16 - S2[1, n]^6/96 - (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 - (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/36 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (113*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (87*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/72 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/192 + 
   (53*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (95*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (137*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (13*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (3*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/8 - 
   (101*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (301*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (13*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 + 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (45*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (S2[1, n]^4*S2[2, Infinity])/12 - (713*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/640 + (293*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    192 - (41*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/240 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (49*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 + 
   (143*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/192 + 
   (199*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (821*S2[1, n]^2*S2[2, Infinity]^2)/960 - (617*S2[2, Infinity]^3)/3360 + 
   (647*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 - 
   (743*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (91*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (81*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/768 + 
   (13*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (483*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (347*S2[1, n]^3*S2[3, Infinity])/768 - 
   (77*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (1425*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (101*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (3487*S2[3, Infinity]^2)/2048 + (125*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (265*S2[1, n]*S2[5, Infinity])/128 - (3*S2[-5, -1, Infinity])/4 + 
   2*S2[-5, 1, n] - (85*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (11*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (11*S2[1, n]^2*S2[-3, 1, n])/96 + (19*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 - 
   (31*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/16 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/12 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (19*S2[3, Infinity]*S2[-2, 1, n])/64 - S2[-2, 1, n]^2/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (19*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (121*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (929*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (63*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/96 - (S2[2, Infinity]*S2[-1, 1, n]^2)/24 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 + 
   (43*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/16 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/32 - (7*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (S2[1, n]^3*S2[2, 1, n])/96 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (27*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (69*S2[3, Infinity]*S2[2, 1, n])/64 - (S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - S2[2, 1, n]^2/8 - 
   2*S2[-4, 1, 1, n] + S2[1, n]*S2[-3, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/96 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - S2[-1, 1, -1, n]^2/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[3, Infinity]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 - (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 - (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (31*S2[1, n]^2*S2[2, 1, -1, n])/48 - (17*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 - 3*S2[-3, 1, 1, 1, n] + (3*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - S2[-2, 2, 1, 1, n]/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    48 - (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (13*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + (S2[1, n]*S2[1, 1, 2, -1, n])/
    2 + S2[2, -2, 1, 1, n]/2 - (3*S2[-2, 1, 1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + S2[1, -1, 1, 1, 2, n]/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 3*S2[1, 1, 1, 2, -1, n] - 
   S2[1, 1, 2, -1, 1, n]/2 - 2*S2[1, 1, 2, 1, -1, n] - 
   S2[1, 2, 1, 1, -1, n] + S2[-1, -1, -1, 1, -1, -1, n]/8 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/8 + (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, -1, 1, n]/8 + (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + S2[1, -1, -1, -1, 1, -1, n]/8 + 
   S2[1, -1, -1, 1, -1, -1, n]/4 + S2[1, -1, 1, -1, -1, -1, n]/4 + 
   S2[1, 1, -1, -1, -1, -1, n]/2, S2[1, -4, 1, n] -> 
  -Diff[S2[-4, 1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    6 + (Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 - 
   (221*S2[2, Infinity]^3)/168 + (3*S2[3, Infinity]^2)/4 - 3*S2[-5, 1, n] + 
   S2[1, n]*S2[-4, 1, n] - 2*S2[-4, 1, 1, n], 
 S2[1, 4, -1, n] -> (-49*Diff[Half[S2[1, n], n], n, 5])/240 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (17*Diff[S2[1, n], n, 1]^3)/8 + (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (13*Diff[S2[1, n], n, 2]^2)/8 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (131*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (49*Diff[S2[1, n], n, 5])/240 + Diff[S2[-4, 1, n], n, 1] + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (7*Diff[S2[-2, 1, n], n, 3])/12 + 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (31*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (5*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/3 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 2])/4 + 2*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/
    2 - (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/3 + S2[-1, Infinity]^6/480 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/6 + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (4*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/3 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (49*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (S2[-1, Infinity]^5*S2[1, n])/240 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (15*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (23*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (19*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] - (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/8 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/8 + (S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 + 
   (79*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (197*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (5*S2[1, n]^2*S2[2, Infinity]^2)/8 + (383*S2[2, Infinity]^3)/224 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (7*S2[1, n]^3*S2[3, Infinity])/16 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] - (69*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    16 - (15*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (129*S2[3, Infinity]^2)/64 - (221*S2[1, n]*S2[5, Infinity])/128 + 
   (11*S2[-5, -1, Infinity])/8 + S2[-5, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - (S2[1, n]^2*S2[-3, 1, n])/4 + 
   (S2[2, Infinity]*S2[-3, 1, n])/4 + (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    4 - 2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (S2[1, n]^3*S2[-2, 1, n])/2 - (S2[3, Infinity]*S2[-2, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   (9*S2[2, Infinity]^2*S2[-1, 1, n])/10 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + (7*S2[3, Infinity]*S2[2, 1, n])/
    8 - (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 2*S2[-4, 1, 1, n] - 
   S2[1, n]*S2[-3, 1, 1, n] - (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   S2[3, Infinity]*S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[1, n]*S2[2, 1, -2, n])/2 + (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    4 - (3*S2[1, n]^2*S2[2, 1, -1, n])/4 + 
   (3*S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 + 3*S2[-3, 1, 1, 1, n] - (3*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 + S2[-2, 2, 1, 1, n]/2 - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - (S2[1, n]*S2[1, 1, 2, -1, n])/
    2 - S2[2, -2, 1, 1, n]/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - S2[1, -1, 1, 1, 2, n]/2 + 
   3*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n]/2 + 
   2*S2[1, 1, 2, 1, -1, n] + S2[1, 2, 1, 1, -1, n] - 
   (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, 
 S2[1, 4, 1, n] -> (-3*Diff[S2[1, n], n, 2]^2)/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/8 + Diff[S2[1, n], n, 5]/80 - 
   Diff[S2[2, 1, n], n, 3]/8 + Diff[S2[4, 1, n], n, 1]/2 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 + (34*S2[2, Infinity]^3)/105 + 
   S2[3, Infinity]^2/2 + S2[1, n]*S2[4, 1, n] - 2*S2[4, 1, 1, n], 
 S2[1, -3, -2, n] -> -Diff[Half[S2[1, n], n], n, 2]^2/16 + 
   Diff[Half[S2[1, n], n], n, 5]/48 - Diff[Half[S2[2, 1, n], n], n, 3]/24 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/8 + 
   (3*Diff[S2[1, n], n, 2]^2)/16 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/6 + (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    4 - (3*Diff[S2[1, n], n, 5])/160 - Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/2 - Diff[S2[-2, 1, n], n, 3]/12 + 
   Diff[S2[2, 1, n], n, 3]/12 - Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[-2, 1, -2, n], n, 1]/4 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/12 + 3*Diff[S2[-3, 1, n], n, 1]*S2[1, n] + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 - (Diff[S2[2, 1, n], n, 2]*S2[1, n])/
    2 - (3*Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (2059*S2[2, Infinity]^3)/6720 - (3*Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/16 + (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 - 
   (21*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (9*S2[3, Infinity]^2)/64 + (67*S2[1, n]*S2[5, Infinity])/8 + 
   6*S2[1, n]*S2[-4, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + (S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 3*S2[1, n]*S2[4, 1, n] - 
   S2[-3, -2, 1, n] + S2[-2, 2, -2, n]/4, S2[1, -3, 2, n] -> 
  2*Diff[S2[-4, 1, n], n, 1] + Diff[S2[-3, 1, n], n, 2]/2 + 
   Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/4 + (19*S2[2, Infinity]^3)/840 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (97*S2[3, Infinity]^2)/64 - (83*S2[1, n]*S2[5, Infinity])/16 + 
   2*S2[-5, 1, n] - 3*S2[1, n]*S2[-4, 1, n] - S2[2, Infinity]*S2[-3, 1, n] + 
   3*S2[-4, 1, 1, n] - 3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity], 
 S2[1, 3, -2, n] -> -Diff[Half[S2[1, n], n], n, 5]/60 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 - 
   Diff[S2[1, n], n, 1]^3 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - Diff[S2[1, n], n, 2]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + Diff[S2[1, n], n, 5]/60 + 
   3*Diff[S2[-4, 1, n], n, 1] + (3*Diff[S2[-3, 1, n], n, 2])/2 - 
   Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] + 
   Diff[S2[-2, 1, n], n, 3]/3 - Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] - Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 - 2*Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] - Diff[S2[1, n], n, 1]^2*
    Half[S2[1, n], n]*S2[1, n] + Diff[S2[1, n], n, 1]^2*S2[1, n]^2 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 - Diff[S2[1, n], n, 1]*
    S2[-1, Infinity]^2*S2[2, Infinity] + (S2[-1, Infinity]^4*S2[2, Infinity])/
    16 - (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (39*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 - (8*S2[2, Infinity]^3)/15 - 
   (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/4 - 
   (135*S2[3, Infinity]^2)/128 - (57*S2[1, n]*S2[5, Infinity])/8 + 
   S2[-5, 1, n] - 3*S2[1, n]*S2[-4, 1, n] - Diff[S2[1, n], n, 1]*
    S2[-3, 1, n] - (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + Diff[S2[1, n], n, 1]^2*
    S2[-1, 1, n] - S2[-4, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 
   Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] - S2[3, 1, -2, n] - 
   2*S2[-3, 1, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + S2[2, -2, 1, 1, n], 
 S2[1, 3, 2, n] -> -Diff[S2[1, n], n, 2]^2/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + Diff[S2[1, n], n, 5]/80 - 
   Diff[S2[2, 1, n], n, 3]/6 + Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[3, 1, 1, n], n, 1] + (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     S2[1, n])/2 - (Diff[S2[1, n], n, 4]*S2[1, n])/24 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (13*S2[2, Infinity]^3)/15 + (9*S2[1, n]*S2[5, Infinity])/2 - 
   3*S2[1, n]*S2[4, 1, n] + 3*S2[4, 1, 1, n], 
 S2[1, -2, -3, n] -> Diff[Half[S2[1, n], n], n, 2]^2/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/4 + 
   Diff[S2[1, n], n, 2]^2/16 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    24 - Diff[S2[2, 1, n], n, 3]/24 + Diff[S2[4, 1, n], n, 1]/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 - 3*Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + (Diff[S2[2, 1, n], n, 2]*S2[1, n])/
    2 + (3*Half[S2[4, 1, n], n]*S2[1, n])/8 - (2*S2[2, Infinity]^3)/7 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/4 + 
   3*S2[1, n]*S2[2, Infinity]*S2[3, Infinity] + (25*S2[3, Infinity]^2)/32 - 
   (59*S2[1, n]*S2[5, Infinity])/8 - 6*S2[1, n]*S2[-4, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 + (3*S2[3, Infinity]*S2[-2, 1, n])/
    4 - 3*S2[1, n]*S2[4, 1, n] + S2[-3, -2, 1, n], 
 S2[1, -2, 3, n] -> (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 + 
   Diff[S2[1, n], n, 1]^3 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 - 
   Diff[S2[-3, 1, n], n, 2]/2 + Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 3]/6 + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   2*Diff[S2[-3, 1, n], n, 1]*S2[1, n] + (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/
    2 - Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (39*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 + (347*S2[2, Infinity]^3)/280 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[3, Infinity] + (Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[3, Infinity])/8 + (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/16 - (9*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/4 - 
   (81*S2[3, Infinity]^2)/128 + (99*S2[1, n]*S2[5, Infinity])/16 + 
   2*S2[-5, 1, n] + 3*S2[1, n]*S2[-4, 1, n] + Diff[S2[1, n], n, 1]*
    S2[-3, 1, n] - Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   S2[3, Infinity]*S2[-2, 1, n] - Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] + 
   S2[-4, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + 2*S2[-3, 1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - S2[2, -2, 1, 1, n], 
 S2[1, 2, -3, n] -> (-5*Diff[Half[S2[1, n], n], n, 5])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 + 
   (5*Diff[S2[1, n], n, 1]^3)/4 + Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 2] - Diff[S2[1, n], n, 2]^2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (5*Diff[S2[1, n], n, 5])/48 - 3*Diff[S2[-4, 1, n], n, 1] - 
   (3*Diff[S2[-3, 1, n], n, 2])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, n], n, 3]/6 + (3*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, n], n, 4]/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - Diff[S2[2, 1, -1, n], n, 2]/4 + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - Diff[S2[1, n], n, 1]*
    Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/6 - Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 1]*S2[1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (7*Diff[S2[1, n], n, 4]*S2[1, n])/24 + Diff[S2[-3, 1, n], n, 1]*S2[1, n] + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/2 + (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    4 - (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (39*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 - 
   (499*S2[2, Infinity]^3)/480 - (5*Diff[S2[1, n], n, 2]*S2[3, Infinity])/
    32 + (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (101*S2[3, Infinity]^2)/256 + (17*S2[1, n]*S2[5, Infinity])/4 - 
   5*S2[-5, 1, n] + 3*S2[1, n]*S2[-4, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 + (3*S2[3, Infinity]*S2[2, 1, n])/
    4 - S2[-4, 1, 1, n] + (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + S2[3, 1, -2, n] + 
   S2[-3, 1, 1, 1, n] + (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - S2[2, -2, 1, 1, n]/2, 
 S2[1, 2, 3, n] -> -Diff[S2[1, n], n, 1]^3/6 + (3*Diff[S2[1, n], n, 2]^2)/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 - 
   (23*Diff[S2[1, n], n, 5])/720 + Diff[S2[2, 1, n], n, 3]/6 - 
   Diff[S2[4, 1, n], n, 1] - Diff[S2[2, 1, 1, n], n, 2]/2 - 
   2*Diff[S2[3, 1, 1, n], n, 1] - Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
    S2[1, n] + (Diff[S2[1, n], n, 4]*S2[1, n])/12 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + (32*S2[2, Infinity]^3)/105 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[3, Infinity] + S2[1, n]*S2[2, Infinity]*S2[3, Infinity] + 
   (5*S2[3, Infinity]^2)/2 - (7*S2[1, n]*S2[5, Infinity])/2 - 
   S2[3, Infinity]*S2[2, 1, n] + 3*S2[1, n]*S2[4, 1, n] - 3*S2[4, 1, 1, n], 
 S2[1, -1, -4, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/32 + 
   (21*Diff[Half[S2[1, n], n], n, 2]^2)/64 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (31*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 3])/48 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/16 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (113*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (47*Diff[S2[1, n], n, 1]^3)/32 - (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (53*Diff[S2[1, n], n, 2]^2)/32 - 
   (679*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (1387*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (553*Diff[S2[1, n], n, 5])/2880 + Diff[S2[-4, 1, n], n, 1]/2 + 
   Diff[S2[-3, 1, n], n, 2]/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   Diff[S2[-2, 1, n], n, 3]/3 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (25*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, n], n, 1]^2/16 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 - 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (25*Diff[S2[-1, 1, n], n, 4])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[2, 1, n], n, 3]/6 + (3*Diff[S2[4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   Diff[S2[-2, 1, -1, n], n, 2]/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, n], n, 3]/4 + (3*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + Diff[S2[2, 1, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/3 - (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (59*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (139*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 + (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 - (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/24 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/12 + 
   Half[S2[2, 1, n], n]^2/64 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - S2[-1, Infinity]^6/1440 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/36 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (69*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (391*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (5*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (25*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (13*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (25*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (53*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (S2[-1, Infinity]^5*S2[1, n])/480 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (49*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (55*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/6 - 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/96 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/12 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    48 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    8 + (Half[S2[1, n], n]*S2[1, n]^5)/12 - S2[1, n]^6/48 + 
   (59*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (29*Diff[S2[1, n], n, 3]*S2[2, Infinity])/72 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (19*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    3 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    24 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/48 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    16 + (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    16 + (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (S2[1, n]^4*S2[2, Infinity])/48 + (271*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/320 - (1109*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    960 - (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/192 - 
   (37*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (109*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (137*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 + 
   (97*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (661*S2[1, n]^2*S2[2, Infinity]^2)/960 + (431*S2[2, Infinity]^3)/1680 + 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (11*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (45*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (S2[1, n]^3*S2[3, Infinity])/64 + (57*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/128 - (27*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/128 - (39*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/
    128 + (953*S2[3, Infinity]^2)/1024 - 
   (125*Half[S2[1, n], n]*S2[5, Infinity])/128 + 
   (59*S2[1, n]*S2[5, Infinity])/16 - S2[-5, -1, Infinity]/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 - 
   (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (7*S2[1, n]^2*S2[-3, 1, n])/24 + (19*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 + 
   (S2[1, n]^3*S2[-2, 1, n])/12 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/4 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (43*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (341*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + (7*S2[-3, 1, n]*S2[-1, 1, n])/
    24 - (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/48 + (S2[2, Infinity]*S2[-1, 1, n]^2)/12 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (S2[1, n]^3*S2[2, 1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (S2[3, Infinity]*S2[2, 1, n])/32 + (S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2/4 - 
   S2[1, n]*S2[4, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/
    4 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - S2[-2, 2, -2, n]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + S2[-1, 1, -1, n]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/12 + (S2[2, Infinity]*S2[2, 1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + S2[4, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + S2[-1, 1, -1, -1, -1, 1, n]/4 + 
   S2[-1, 1, 1, 1, 1, 1, Infinity]/2 - S2[1, -1, -1, -1, 1, -1, n]/4 - 
   S2[1, -1, -1, 1, -1, -1, n]/2 - S2[1, -1, 1, -1, -1, -1, n]/2 - 
   S2[1, 1, -1, -1, -1, -1, n], S2[1, -1, 4, n] -> 
  -Diff[Half[S2[1, n], n], n, 5]/12 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   Diff[S2[1, n], n, 1]^3/2 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (3*Diff[S2[1, n], n, 2]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3] + Diff[S2[1, n], n, 5]/12 - 
   (3*Diff[S2[-4, 1, n], n, 1])/2 - (3*Diff[S2[-3, 1, n], n, 2])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   Diff[S2[-2, 1, n], n, 3]/4 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, n], n, 4]/8 - Diff[S2[-3, 1, 1, n], n, 1]/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/6 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/12 + (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/
    4 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/3 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 + (3*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    4 - (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 + 
   (23*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/4 - 
   (2*S2[1, n]^2*S2[2, Infinity]^2)/5 - (41*S2[2, Infinity]^3)/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (203*S2[3, Infinity]^2)/256 - (123*S2[1, n]*S2[5, Infinity])/32 - 
   (3*S2[-5, -1, Infinity])/2 - 3*S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (2*S2[2, Infinity]^2*S2[-1, 1, n])/5 - S2[-4, 1, 1, n] - 
   S2[-3, 1, 1, 1, n] + (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + S2[2, -2, 1, 1, n]/2, 
 S2[1, 1, -4, n] -> -Diff[Half[S2[1, n], n], n, 5]/120 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 + 
   Diff[S2[1, n], n, 5]/120 + Diff[S2[-4, 1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 - 
   (7*S2[1, n]^2*S2[2, Infinity]^2)/40 + (193*S2[2, Infinity]^3)/210 - 
   (3*S2[3, Infinity]^2)/4 - (15*S2[1, n]*S2[5, Infinity])/16 + 
   3*S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] + S2[-4, 1, 1, n], 
 S2[1, 1, 4, n] -> (3*Diff[S2[1, n], n, 2]^2)/16 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   Diff[S2[1, n], n, 5]/48 + Diff[S2[2, 1, n], n, 3]/8 - 
   Diff[S2[4, 1, n], n, 1]/2 + (Diff[S2[1, n], n, 4]*S2[1, n])/24 - 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/12 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 + 
   (S2[1, n]^2*S2[2, Infinity]^2)/5 + (11*S2[2, Infinity]^3)/105 - 
   S2[3, Infinity]^2/2 + S2[1, n]*S2[5, Infinity] - S2[1, n]*S2[4, 1, n] + 
   S2[4, 1, 1, n], S2[-3, -1, -1, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/64 - (17*Diff[Half[S2[1, n], n], n, 2]^2)/
    32 - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/2 + 
   (97*Diff[Half[S2[1, n], n], n, 5])/128 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/8 + Diff[Half[S2[4, 1, n], n], n, 1]/4 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   (29*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 - 
   (93*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (681*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (1931*Diff[S2[1, n], n, 1]^3)/192 - 
   (45*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/8 + 
   (581*Diff[S2[1, n], n, 2]^2)/96 - (1597*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/384 + (3923*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/384 - (2003*Diff[S2[1, n], n, 5])/2880 - 
   Diff[S2[-4, 1, n], n, 1] + (7*Diff[S2[-3, 1, n], n, 2])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 + 
   (15*Diff[S2[-2, 1, n], n, 3])/8 + (9*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/32 - 
   (165*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (395*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (49*Diff[S2[-1, 1, n], n, 4])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[2, 1, n], n, 3])/16 - (3*Diff[S2[4, 1, n], n, 1])/2 - 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   Diff[S2[-2, 1, -1, n], n, 2]/4 + Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (11*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (91*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (17*Diff[S2[-1, 1, 1, n], n, 3])/16 + (5*Diff[S2[1, 2, -1, n], n, 2])/2 + 
   (19*Diff[S2[2, 1, -1, n], n, 2])/8 + Diff[S2[2, 1, 1, n], n, 2] + 
   Diff[S2[3, 1, 1, n], n, 1] - 6*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 - 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - Diff[S2[1, 1, -2, -1, n], n, 
    1] + (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 + 
   (7*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (13*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 - (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (775*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (127*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/128 - 
   (37*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (9*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (19*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 + (25*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    64 - (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (21*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 - 
   (17*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    64 + (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   Half[S2[2, 1, n], n]^2/32 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[4, 1, 1, n], n])/16 + (73*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    24 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/192 - (59*S2[-1, Infinity]^6)/
    2880 - (21*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     S2[1, n])/32 - (155*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (443*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 - 
   (2269*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (359*Diff[S2[1, n], n, 4]*S2[1, n])/128 + 
   (109*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 
   (57*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (785*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (9*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (21*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (41*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 - 
   (19*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (29*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (265*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (389*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (35*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (17*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (139*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (59*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (73*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/8 + 
   (3*S2[-1, Infinity]^5*S2[1, n])/64 + 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (791*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (491*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (1025*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (2795*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (41*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/12 + 
   (281*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 + 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (95*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (115*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (19*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (101*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (19*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (283*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   (69*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 - 
   (59*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (23*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (43*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (205*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (25*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - S2[1, n]^6/12 - (57*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 + (715*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 + 
   (409*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 + (245*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 - 
   (877*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (43*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (115*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (11*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity] + 
   (105*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (77*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 + (79*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (55*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (123*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (63*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (63*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (133*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (121*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (373*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (281*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/12 + (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 + (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (543*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (73*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/8 + (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/2 - (293*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (97*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (7*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/4 + (31*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (89*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    64 + (43*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 - 
   (233*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (13*S2[1, n]^4*S2[2, Infinity])/32 - 
   (1629*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (2477*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (1399*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (135*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/64 + 
   (171*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 + 
   (241*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/96 - 
   (91*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/64 - 
   (1999*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (92101*S2[2, Infinity]^3)/
    13440 + (537*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 - 
   (361*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (377*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (797*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (343*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (55*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (1865*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (253*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (253*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (247*S2[1, n]^3*S2[3, Infinity])/768 - 
   (479*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (1653*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (5305*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (4075*S2[3, Infinity]^2)/768 - (689*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (6761*S2[1, n]*S2[5, Infinity])/256 - (19*S2[-5, -1, Infinity])/4 + 
   6*S2[-5, 1, n] + (9*S2[1, n]*S2[-4, 1, n])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   (79*S2[1, n]^2*S2[-3, 1, n])/96 + (205*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (25*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (129*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 + 
   (73*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (101*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (29*S2[1, n]^3*S2[-2, 1, n])/48 + (55*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (121*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (7*S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/2 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (179*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 + 
   (515*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/96 - 
   (31*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/18 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 + 
   (9*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (77*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (185*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 + 
   (S2[1, n]^4*S2[-1, 1, n])/48 - (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (47*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (13*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (45*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (85*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (23*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (13*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3239*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (29*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (43*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (35*S2[-3, 1, n]*S2[-1, 1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (65*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/12 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/6 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/12 - (25*S2[2, Infinity]*S2[-1, 1, n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (33*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (5*S2[1, n]^3*S2[2, 1, n])/32 + (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (157*S2[3, Infinity]*S2[2, 1, n])/32 + 2*S2[-2, 1, n]*S2[2, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (27*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (3*S2[2, 1, n]^2)/2 - 
   (S2[1, n]*S2[4, 1, n])/2 - 6*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 + 
   3*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (5*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - (5*S2[-2, 2, -2, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/96 + (37*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (11*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (213*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - 3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (53*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (3*S2[-1, 1, 1, n]^2)/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (47*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (11*S2[1, n]^2*S2[1, 2, -1, n])/4 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - (3*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 + 
   (133*S2[1, n]^2*S2[2, 1, -1, n])/48 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (17*S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (9*S2[1, n]^2*S2[2, 1, 1, n])/4 - (13*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - (3*S2[3, 1, -2, n])/2 + 
   (5*S2[4, 1, 1, n])/2 - 9*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n]/2 + 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (2*S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 + 
   (5*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (49*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (19*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   (27*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (3*S2[2, -2, 1, 1, n])/2 - (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (45*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (7*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, -1, 1, 1, -2, n])/2 + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, -1, 1, 2, -1, n] - 
   S2[1, 1, -2, -1, 1, n]/2 - S2[1, 1, -2, 1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 2*S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] - 4*S2[1, 1, 1, -2, -1, n] - 
   4*S2[1, 1, 1, -1, -2, n] - 9*S2[1, 1, 1, 2, -1, n] - 
   2*S2[1, 1, 2, -1, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   6*S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, -1, -1, n] - 
   3*S2[1, 2, 1, 1, -1, n] + (3*S2[2, 1, 1, 1, 1, n])/2 + 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + (9*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + (7*S2[-1, 1, -1, -1, -1, 1, n])/8 + 
   S2[-1, 1, -1, 1, -1, -1, n]/4 + (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + 
   S2[-1, 1, 1, -1, -1, -1, n]/2 - (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   (59*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + (15*S2[1, -1, -1, -1, -1, -1, n])/
    4 - (5*S2[1, -1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, -1, -1, n] - 
   S2[1, -1, 1, -1, -1, -1, n]/4 - S2[1, 1, -1, -1, -1, -1, n] - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-3, -1, -1, 1, n] -> (3*Diff[Half[S2[1, n], n], n, 1]^3)/16 + 
   Diff[Half[S2[1, n], n], n, 2]^2/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 - 
   (47*Diff[Half[S2[1, n], n], n, 5])/480 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/48 - 
   (97*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 - 
   (7*Diff[S2[1, n], n, 1]^3)/48 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (17*Diff[S2[1, n], n, 2]^2)/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/96 - 
   (101*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (47*Diff[S2[1, n], n, 5])/480 + 2*Diff[S2[-4, 1, n], n, 1] - 
   (11*Diff[S2[-3, 1, n], n, 2])/24 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 - 
   (5*Diff[S2[-2, 1, n], n, 3])/12 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 + 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   Diff[S2[-1, 1, n], n, 1]^2/4 + (61*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/48 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (11*Diff[S2[-1, 1, n], n, 4])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - Diff[S2[-1, -2, -1, n], n, 2]/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   Diff[S2[1, 2, -1, n], n, 2]/4 - Diff[S2[2, 1, -1, n], n, 2]/3 + 
   Diff[S2[-2, 1, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, -1, n], n, 2]/6 + 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 + Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/
    2 - Diff[S2[1, -1, 1, -1, -1, n], n, 1]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 + (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/24 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (79*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (8*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    3 + (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/32 + 
   (9*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    6 - (41*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 + (53*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (2*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/3 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/12 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 + S2[-1, Infinity]^6/1440 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (29*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (13*Diff[S2[1, n], n, 4]*S2[1, n])/24 - 
   (5*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (5*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/8 + 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + Diff[S2[2, 1, -1, n], n, 1]*
    S2[1, n] + (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (2*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (13*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (15*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (7*Diff[S2[1, n], n, 3]*S2[1, n]^2)/6 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (2*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/3 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - (5*S2[-1, Infinity]^4*S2[1, n]^2)/
    96 + (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/24 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 - (Half[S2[1, n], n]^2*S2[1, n]^4)/8 + 
   (Half[S2[1, n], n]*S2[1, n]^5)/8 - S2[1, n]^6/24 + 
   (53*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    6 + (107*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 + 
   (17*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity] - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/8 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 - 
   (17*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (S2[1, n]^4*S2[2, Infinity])/24 + (87*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/32 - (301*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    160 + (3*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/16 - 
   (113*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (31*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (63*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (71*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (61*S2[1, n]^2*S2[2, Infinity]^2)/32 + (8627*S2[2, Infinity]^3)/3360 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (9*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/4 - 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (S2[1, n]^3*S2[3, Infinity])/192 - (155*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/384 - (49*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/16 + (1079*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/
    384 - (941*S2[3, Infinity]^2)/384 + (Half[S2[1, n], n]*S2[5, Infinity])/
    64 - (949*S2[1, n]*S2[5, Infinity])/128 - (9*S2[-5, -1, Infinity])/8 + 
   6*S2[-5, 1, n] - (5*S2[1, n]*S2[-4, 1, n])/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (5*S2[1, n]^2*S2[-3, 1, n])/2 - (3*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/3 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/6 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (13*S2[3, Infinity]*S2[-2, 1, n])/48 + 
   (35*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 + 
   (125*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (11*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/32 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/6 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 - 
   (S2[1, n]^4*S2[-1, 1, n])/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (41*S2[2, Infinity]^2*S2[-1, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (47*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (9*S2[-3, 1, n]*S2[-1, 1, n])/8 + (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/4 - (S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   S2[-1, 1, n]^3/24 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (S2[1, n]^3*S2[2, 1, n])/2 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (7*S2[3, Infinity]*S2[2, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 2*S2[-4, 1, 1, n] - 
   (7*S2[1, n]*S2[-3, 1, 1, n])/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/2 + (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] - 
   S2[1, n]^2*S2[-2, 1, -1, n] - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/4 + (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (7*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (9*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (15*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + (S2[2, 1, n]*S2[-1, 1, 1, n])/
    2 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   S2[2, Infinity]*S2[1, 2, -1, n] + (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   S2[1, n]*S2[2, 1, -2, n] + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/4 - (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/8 + 
   (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (3*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   S2[-1, 1, n]*S2[2, 1, 1, n] + S2[3, 1, -2, n]/2 + 2*S2[-3, 1, 1, 1, n] - 
   S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 2, 1, 1, n]/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    8 - (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 + (S2[1, n]*S2[1, 1, 2, -1, n])/2 - S2[2, -2, 1, 1, n]/2 + 
   S2[-2, 1, 1, 1, 1, n]/2 - (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + (13*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    4 + (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, 2, n]/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[1, 1, -1, 1, 2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + S2[1, 1, 1, -1, 2, n] - 
   S2[1, 1, 2, -1, 1, n]/2 - S2[-1, 1, 1, -1, -1, 1, n]/2 - 
   S2[-1, 1, 1, 1, 1, 1, Infinity]/2 + S2[1, -1, -1, 1, 1, -1, n]/2 - 
   S2[1, -1, 1, 1, -1, -1, n]/2 - S2[1, 1, -1, -1, 1, -1, n]/2 - 
   S2[1, 1, -1, 1, -1, -1, n] - (3*S2[1, 1, 1, -1, -1, -1, n])/2, 
 S2[-3, -1, 1, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/48 - 
   Diff[Half[S2[1, n], n], n, 2]^2/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/12 - 
   (1039*Diff[Half[S2[1, n], n], n, 5])/1440 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/48 + 
   (43*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (87*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/24 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (413*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 + 
   (123*Diff[S2[1, n], n, 1]^3)/16 + (53*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (155*Diff[S2[1, n], n, 2]^2)/24 + 
   (445*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/96 - 
   (309*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/32 + 
   (1039*Diff[S2[1, n], n, 5])/1440 - Diff[S2[-4, 1, n], n, 1] - 
   (2*Diff[S2[-3, 1, n], n, 2])/3 - (17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/12 + 
   (20*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (7*Diff[S2[-2, 1, n], n, 3])/4 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 + 
   (35*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 - 
   Diff[S2[-1, 1, n], n, 1]^2/4 - (43*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/48 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 - 
   (25*Diff[S2[-1, 1, n], n, 4])/12 + (13*Diff[S2[-3, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, -2, -1, n], n, 2]/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/4 - (5*Diff[S2[1, 2, -1, n], n, 2])/2 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (13*Diff[S2[2, 1, -1, n], n, 2])/6 + 
   (9*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/
    6 + 3*Diff[S2[-1, 1, 1, 1, n], n, 2] - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 - (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - Diff[S2[1, 1, 2, -1, n], n, 
    1] + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 + 
   (7*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/6 - (25*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/24 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 + (29*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (145*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (149*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/96 - 
   (9*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (4*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 + (31*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (59*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 + 
   (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/2 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/6 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 + S2[-1, Infinity]^6/480 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    12 + (47*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/24 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/12 - 
   (233*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   23*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (287*Diff[S2[1, n], n, 4]*S2[1, n])/96 + 
   (Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 + 
   (55*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (215*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (11*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (105*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (421*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n] - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/12 + 
   (S2[-1, Infinity]^5*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (127*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (157*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 - 
   (21*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/6 + 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + Diff[S2[-1, 1, -1, n], n, 1]*
    S2[1, n]^2 + (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (77*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/12 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/4 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + 
   (11*S2[-1, Infinity]^4*S2[1, n]^2)/96 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (29*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   Half[S2[1, n], n]^3*S2[1, n]^3 + (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/3 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 + (4*Half[S2[1, n], n]^2*S2[1, n]^4)/
    3 - (11*Half[S2[1, n], n]*S2[1, n]^5)/12 + S2[1, n]^6/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    24 + (55*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 + 
   (67*Diff[S2[1, n], n, 3]*S2[2, Infinity])/64 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (85*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (21*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (41*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    8 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (39*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (4*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    3 - (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity] - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (23*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (53*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (7*S2[1, n]^4*S2[2, Infinity])/24 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/8 + 
   (121*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 + 
   (53*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (21*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (163*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 - 
   (257*S2[1, n]^2*S2[2, Infinity]^2)/160 - (383*S2[2, Infinity]^3)/1120 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 + 
   (35*Diff[S2[1, n], n, 2]*S2[3, Infinity])/24 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/192 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (117*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/8 + 
   (89*S2[1, n]^3*S2[3, Infinity])/64 + 
   (715*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (73*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (1675*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (529*S2[3, Infinity]^2)/768 - (Half[S2[1, n], n]*S2[5, Infinity])/64 - 
   (391*S2[1, n]*S2[5, Infinity])/128 - (3*S2[-5, -1, Infinity])/8 - 
   8*S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   2*S2[1, n]^2*S2[-3, 1, n] - (21*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (2*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/3 + 
   (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[-2, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (7*S2[1, n]^3*S2[-2, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (35*S2[3, Infinity]*S2[-2, 1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 - 
   (197*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 + 
   (229*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (59*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/6 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (89*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] - 
   (4*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/3 + 
   (7*S2[1, n]^4*S2[-1, 1, n])/12 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (33*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (57*S2[2, Infinity]^2*S2[-1, 1, n])/80 - 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (61*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (9*S2[-3, 1, n]*S2[-1, 1, n])/8 - (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/8 + (3*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   S2[-1, 1, n]^3/24 + (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 - 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/24 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (2*S2[1, n]^3*S2[2, 1, n])/3 - (15*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (19*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (35*S2[3, Infinity]*S2[2, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 5*S2[-4, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/2 + (S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/4 - (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (5*S2[3, Infinity]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (47*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/2 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (13*S2[1, n]^2*S2[1, 2, -1, n])/4 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/
    2 - (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 + (3*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (9*S2[1, n]^2*S2[2, 1, -1, n])/4 + (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - (S2[2, Infinity]*S2[2, 1, 1, n])/
    4 + S2[3, 1, -2, n]/2 + 5*S2[-3, 1, 1, 1, n] - 
   (7*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    8 + (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (11*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - (S2[1, n]*S2[1, 1, 2, -1, n])/
    2 - S2[2, -2, 1, 1, n] + (7*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 + 3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] - (3*S2[1, -1, 1, 1, 2, n])/2 - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - S2[1, 1, -1, 1, 2, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (5*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 - S2[1, 1, 1, -1, 2, n] + 
   4*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n]/2 + 
   3*S2[1, 1, 2, 1, -1, n] + 2*S2[1, 2, 1, 1, -1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/2 - (3*S2[-1, -1, 1, -1, -1, -1, n])/2 - 
   3*S2[-1, 1, -1, -1, -1, -1, n] + S2[-1, 1, 1, -1, -1, 1, n]/2 - 
   S2[-1, 1, 1, 1, -1, -1, n] - (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   5*S2[1, -1, -1, -1, -1, -1, n] - S2[1, -1, -1, 1, 1, -1, n]/2 - 
   S2[1, -1, 1, 1, -1, -1, n]/2 + S2[1, 1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, 1, 1, -1, -1, -1, n])/2, S2[-3, -1, 1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 2]^2/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 + 
   Diff[Half[S2[1, n], n], n, 5]/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/48 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    8 + (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 - 
   (53*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/3 - 
   Diff[S2[1, n], n, 1]^3/2 - (23*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (67*Diff[S2[1, n], n, 2]^2)/48 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/72 + 
   (247*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 - 
   (109*Diff[S2[1, n], n, 5])/720 + (3*Diff[S2[-3, 1, n], n, 2])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (5*Diff[S2[-2, 1, n], n, 3])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (9*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (19*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   Diff[S2[2, 1, n], n, 3]/24 - Diff[S2[4, 1, n], n, 1]/2 - 
   Diff[S2[-2, 1, -1, n], n, 2]/2 + Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, -1, n], n, 3]/6 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/4 + Diff[S2[1, 2, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, -1, n], n, 2]/4 - Diff[S2[2, 1, 1, n], n, 2] - 
   Diff[S2[3, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, 1, n], n, 2]/4 - 
   Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 + 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/6 - (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (4*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (17*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/72 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    3 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/12 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/6 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/24 - 
   Half[S2[2, 1, n], n]^2/32 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/24 + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 + S2[-1, Infinity]^6/1440 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 - (203*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (39*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 - 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (269*Diff[S2[1, n], n, 4]*S2[1, n])/288 + 
   (25*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/24 - 
   (4*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (79*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] - (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 2*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (17*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/12 + 
   Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/6 - (85*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (403*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (13*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (143*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/6 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/6 + 
   (139*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (589*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 + 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (83*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/12 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/3 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - (3*S2[-1, Infinity]^4*S2[1, n]^2)/
    32 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/24 - (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    48 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/3 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    6 + (7*Half[S2[1, n], n]*S2[1, n]^5)/24 - S2[1, n]^6/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 - 
   (29*Diff[S2[1, n], n, 3]*S2[2, Infinity])/72 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/2 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/3 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/12 - (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    6 + (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    6 + (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/6 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 - 
   (11*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (S2[1, n]^4*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/40 + 
   (23*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 + 
   (13*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/96 - 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (73*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 - 
   (277*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 + 
   (173*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (377*S2[1, n]^2*S2[2, Infinity]^2)/480 - (673*S2[2, Infinity]^3)/1120 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 - 
   (161*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/24 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/24 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (149*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (129*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (67*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/12 - 
   (221*S2[1, n]^3*S2[3, Infinity])/192 - 
   (245*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (69*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (365*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (1609*S2[3, Infinity]^2)/1536 + (47*Half[S2[1, n], n]*S2[5, Infinity])/
    32 + (237*S2[1, n]*S2[5, Infinity])/32 + (17*S2[-5, -1, Infinity])/8 + 
   4*S2[1, n]*S2[-4, 1, n] - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    12 + (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (5*S2[1, n]^2*S2[-3, 1, n])/24 - (19*S2[2, Infinity]*S2[-3, 1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/3 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/12 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/12 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/12 + 
   (S2[3, Infinity]*S2[-2, 1, n])/16 - S2[-2, 1, n]^2/2 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/72 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 - 
   (31*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/24 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/6 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (S2[1, n]^4*S2[-1, 1, n])/3 + (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (17*S2[2, Infinity]^2*S2[-1, 1, n])/48 + 
   (23*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/96 - 
   (5*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/24 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/6 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/6 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/12 + (S2[2, Infinity]*S2[-1, 1, n]^2)/3 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (19*S2[1, n]^3*S2[2, 1, n])/24 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (19*S2[3, Infinity]*S2[2, 1, n])/48 - S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - S2[2, 1, n]^2/2 + 
   2*S2[1, n]*S2[4, 1, n] + S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/2 + (Half[S2[1, n], n]*S2[1, n]*
     S2[-2, 1, -1, n])/2 - (S2[1, n]^2*S2[-2, 1, -1, n])/2 + 
   S2[-2, 2, -2, n]/2 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    12 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/6 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/24 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 + 
   (2*S2[3, Infinity]*S2[-1, 1, -1, n])/3 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 - S2[-1, 1, -1, n]^2/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (13*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 
   S2[-1, 1, 1, n]^2/2 - (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/2 + S2[1, n]*S2[2, 1, -2, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (13*S2[1, n]^2*S2[2, 1, -1, n])/12 - (S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (S2[-1, 1, n]*S2[2, 1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   S2[1, n]^2*S2[2, 1, 1, n] + (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   S2[1, n]*S2[3, 1, 1, n] - S2[4, 1, 1, n] + S2[1, n]*S2[-2, 1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   2*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]*S2[1, 1, -1, 2, n] + S2[1, n]*S2[2, 1, 1, 1, n] + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/
    4 + (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (13*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - Half[S2[1, n], n]*
    S2[1, 1, -1, -1, -1, n] - (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 
   S2[1, 1, 1, -1, -2, n] - S2[2, 1, 1, 1, 1, n] - 
   S2[-1, 1, -1, -1, -1, 1, n]/2 - S2[-1, 1, -1, 1, 1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 - S2[-1, 1, 1, 1, 1, 1, Infinity]/2 + 
   S2[1, -1, -1, -1, 1, -1, n]/2 + S2[1, -1, -1, 1, -1, -1, n] + 
   S2[1, -1, 1, -1, -1, -1, n] + 2*S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, 1, -1, 1, -1, n]/2 + 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-3, 1, -1, -1, n] -> (-9*Diff[Half[S2[1, n], n], n, 1]^3)/64 + 
   (49*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (1207*Diff[Half[S2[1, n], n], n, 5])/1920 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 + 
   (139*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (1417*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 - 
   (663*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (863*Diff[S2[1, n], n, 1]^3)/96 + (293*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (493*Diff[S2[1, n], n, 2]^2)/96 + 
   (4073*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (5009*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (1117*Diff[S2[1, n], n, 5])/1920 + Diff[S2[-4, 1, n], n, 1]/2 + 
   (7*Diff[S2[-3, 1, n], n, 2])/96 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/48 + 
   (335*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (67*Diff[S2[-2, 1, n], n, 3])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (199*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (687*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (317*Diff[S2[-1, 1, n], n, 4])/192 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[2, 1, n], n, 3])/12 + 2*Diff[S2[4, 1, n], n, 1] + 
   6*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/32 - (57*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/4 - (17*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   (33*Diff[S2[2, 1, -1, n], n, 2])/16 - (9*Diff[S2[2, 1, 1, n], n, 2])/8 - 
   Diff[S2[3, 1, 1, n], n, 1] + 5*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/16 - Diff[S2[-1, 1, -1, 1, n], n, 2]/4 + 
   (27*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 + Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1] + 
   Diff[S2[1, 1, 2, -1, n], n, 1] - 2*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/4 - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   (7*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (37*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (35*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (217*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 + (929*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (121*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (2*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (23*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (19*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 + 
   (67*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 - 
   (35*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 - 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (215*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 - (425*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 + (13*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (7*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/48 + (17*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (19*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (5*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (11*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/48 - (53*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    96 + (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (31*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   Half[S2[2, 1, n], n]^2/64 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   Half[S2[4, 1, 1, n], n]/16 + Half[S2[2, 2, 1, 1, n], n]/16 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/192 + (19*S2[-1, Infinity]^6)/
    1440 + (91*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     S2[1, n])/96 + (751*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (281*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 - 
   (157*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (1907*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (2657*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (337*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (65*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (637*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 + 
   (219*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 + 
   (35*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (19*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (101*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (17*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 + (227*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (641*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (23*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (145*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (33*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (17*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (41*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 - 
   (605*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (29*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 + 
   (403*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (1711*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 + 
   (4621*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 - 
   (47*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/6 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (51*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (95*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (19*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (181*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (79*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/32 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/6 + (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + 
   (25*Half[S2[1, n], n]^2*S2[1, n]^4)/24 - (7*Half[S2[1, n], n]*S2[1, n]^5)/
    12 + (11*S2[1, n]^6)/96 + (57*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (913*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (19*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 - (3*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 - (31*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/64 - 
   (439*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 + 
   (895*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 - 
   (77*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   2*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (109*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (91*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (67*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 - (203*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 + 
   (61*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (95*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (227*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (143*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (347*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (293*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (179*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (55*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (123*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 - (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/2 - (5*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 + (389*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (71*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (43*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 - (17*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    16 - (181*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (125*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (61*S2[1, n]^4*S2[2, Infinity])/96 + 
   (1149*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (523*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 + 
   (271*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/8 - 
   (177*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 - 
   (161*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/192 + 
   (147*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (1513*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (40921*S2[2, Infinity]^3)/
    4480 - (349*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (821*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (1381*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/384 + 
   (327*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (11*Half[S2[1, n], n]^3*S2[3, Infinity])/96 - 
   (51*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (165*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity] + 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (341*S2[1, n]^3*S2[3, Infinity])/384 + 
   (1363*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (259*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (6587*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (9677*S2[3, Infinity]^2)/3072 + (1093*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (14909*S2[1, n]*S2[5, Infinity])/512 + (17*S2[-5, -1, Infinity])/
    16 - 8*S2[-5, 1, n] - (7*S2[1, n]*S2[-4, 1, n])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (121*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 + 
   (13*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (53*S2[1, n]^2*S2[-3, 1, n])/48 - (89*S2[2, Infinity]*S2[-3, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/6 + 
   (41*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    8 - (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n] + (19*S2[1, n]^3*S2[-2, 1, n])/
    24 - (61*Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (121*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (41*S2[3, Infinity]*S2[-2, 1, n])/96 - S2[-2, 1, n]^2/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (283*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 - 
   (131*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 + 
   (271*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 - 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (73*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (169*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (35*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (5*S2[1, n]^4*S2[-1, 1, n])/48 + (79*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (101*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (57*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (79*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (2549*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (125*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (271*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (5*S2[-3, 1, n]*S2[-1, 1, n])/8 + (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 - (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (9*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (5*S2[-1, 1, n]^3)/48 + (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    96 + (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (5*S2[1, n]^3*S2[2, 1, n])/48 - (35*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (153*S2[3, Infinity]*S2[2, 1, n])/32 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - (5*S2[2, 1, n]^2)/4 + 
   (S2[1, n]*S2[4, 1, n])/2 + 3*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   2*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/8 + (5*S2[2, Infinity]*S2[-2, 1, -1, n])/
    2 + (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 + (5*S2[-2, 2, -2, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (55*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/48 - 
   (5*S2[2, Infinity]*S2[-1, -2, -1, n])/6 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/
    8 - (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (175*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (39*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (29*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (157*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (11*S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 + (3*S2[-1, 1, 1, n]^2)/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (11*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (21*S2[1, n]^2*S2[1, 2, -1, n])/8 - 
   (7*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (3*S2[-1, 1, n]*S2[1, 2, -1, n])/
    4 + (3*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (211*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 - 
   (59*S2[1, n]^2*S2[2, 1, -1, n])/24 - (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/
    8 + Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] - 
   (15*S2[1, n]^2*S2[2, 1, 1, n])/8 + (15*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   (5*S2[-1, 1, n]*S2[2, 1, 1, n])/4 + (3*S2[3, 1, -2, n])/2 - 
   (5*S2[4, 1, 1, n])/2 + 7*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n]/2 - 
   (7*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (41*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (19*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   10*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 
   (19*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - (5*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   S2[2, -2, 1, 1, n] + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   (7*S2[-2, 1, 1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    8 - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (17*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (7*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/2 - 
   (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, -1, 1, 2, -1, n] + 
   (3*S2[1, 1, -2, -1, 1, n])/2 + 2*S2[1, 1, -2, 1, -1, n] + 
   S2[1, 1, -1, -2, -1, n] + S2[1, 1, -1, -1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 2*S2[1, 1, -1, 1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 + S2[1, 1, -1, 2, -1, n] + 
   7*S2[1, 1, 1, -2, -1, n] + 4*S2[1, 1, 1, -1, -2, n] - 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + 11*S2[1, 1, 1, 2, -1, n] + 
   2*S2[1, 1, 2, -1, -1, n] + (5*S2[1, 1, 2, -1, 1, n])/2 + 
   7*S2[1, 1, 2, 1, -1, n] + S2[1, 2, 1, -1, -1, n] + 
   3*S2[1, 2, 1, 1, -1, n] - (3*S2[2, 1, 1, 1, 1, n])/2 - 
   S2[-1, -1, -1, 1, -1, -1, n]/8 - (5*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   S2[-1, -1, 1, 1, -1, -1, n]/4 - (7*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 - S2[-1, 1, -1, -1, 1, 1, n]/4 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + S2[-1, 1, 1, -1, -1, -1, n]/4 + 
   S2[-1, 1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - 
   (19*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - (15*S2[1, -1, -1, -1, -1, -1, n])/
    4 + (3*S2[1, -1, -1, -1, 1, -1, n])/8 + (3*S2[1, -1, -1, 1, -1, -1, n])/
    4 - S2[1, -1, -1, 1, 1, -1, n]/4 + S2[1, -1, 1, -1, -1, -1, n]/2 + 
   S2[1, -1, 1, 1, -1, -1, n] + (3*S2[1, 1, -1, -1, -1, -1, n])/2 - 
   S2[1, 1, -1, -1, 1, -1, n]/4 + (3*S2[1, 1, -1, 1, -1, -1, n])/4 + 
   (9*S2[1, 1, 1, -1, -1, -1, n])/4 + (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[-3, 1, -1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/32 + (17*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 + (37*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    288 + (55*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 3])/64 - 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (619*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (199*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (55*Diff[S2[1, n], n, 1]^3)/24 - (169*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (149*Diff[S2[1, n], n, 2]^2)/64 - 
   (977*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (253*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/72 - 
   (1571*Diff[S2[1, n], n, 5])/5760 + (9*Diff[S2[-3, 1, n], n, 2])/32 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (9*Diff[S2[-2, 1, n], n, 3])/16 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/32 - 
   (29*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (101*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (51*Diff[S2[-1, 1, n], n, 4])/64 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (7*Diff[S2[2, 1, n], n, 3])/24 + (3*Diff[S2[4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (5*Diff[S2[-2, 1, -1, n], n, 2])/8 + (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 - (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (9*Diff[S2[-1, 1, -1, n], n, 3])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/16 + (9*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (11*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (3*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - Diff[S2[-1, 1, -1, 1, n], n, 2]/16 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, -1, 1, -2, n], n, 1]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    4 + Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    4 + (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (43*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (109*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (221*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 + 
   (23*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (23*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (15*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 + (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    192 + (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   (5*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/96 + S2[-1, Infinity]^6/1440 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 - (2*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/9 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (19*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (23*Diff[S2[1, n], n, 4]*S2[1, n])/36 - 
   (11*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/3 - 
   (71*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (11*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 + 
   (45*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/3 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/6 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 + 
   (67*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 + (83*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 + (331*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 - 
   (2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (65*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/12 + 
   (7*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/64 + 
   (37*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (67*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (139*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 - 
   (107*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (131*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (41*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (37*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (3*S2[-1, Infinity]^4*S2[1, n]^2)/
    64 + (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (25*Half[S2[1, n], n]^3*S2[1, n]^3)/48 + 
   (13*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + (15*Half[S2[1, n], n]^2*S2[1, n]^4)/
    16 - (37*Half[S2[1, n], n]*S2[1, n]^5)/48 + (23*S2[1, n]^6)/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 + 
   (335*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (51*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (283*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (43*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (143*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 - (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 - 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (27*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (53*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (217*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (47*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (169*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    3 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    6 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (53*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/192 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity] + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/16 + 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (161*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (S2[1, n]^4*S2[2, Infinity])/3 + (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/16 - (2443*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    960 - (809*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (75*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/64 + 
   (977*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (71*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 - 
   (1539*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (331*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (18071*S2[2, Infinity]^3)/
    13440 - (69*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (61*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (127*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (67*S2[1, n]^3*S2[3, Infinity])/64 + 
   (207*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (243*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (103*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (1481*S2[3, Infinity]^2)/2048 - (Half[S2[1, n], n]*S2[5, Infinity])/4 - 
   (299*S2[1, n]*S2[5, Infinity])/128 - 6*S2[1, n]*S2[-4, 1, n] + 
   (65*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 - 
   (23*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (91*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 + 
   (25*S2[1, n]^2*S2[-3, 1, n])/12 + (59*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (S2[1, n]^3*S2[-2, 1, n])/3 + (23*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (95*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (5*S2[3, Infinity]*S2[-2, 1, n])/64 + (5*S2[-2, 1, n]^2)/8 + 
   (29*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (209*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/48 + 
   (65*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 + 
   (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (61*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n] + (13*S2[1, n]^4*S2[-1, 1, n])/
    24 - (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (23*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (89*S2[2, Infinity]^2*S2[-1, 1, n])/120 - 
   (55*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (13*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (19*S2[-3, 1, n]*S2[-1, 1, n])/12 + 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (11*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/24 - 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/12 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/96 - (25*S2[2, Infinity]*S2[-1, 1, n]^2)/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (5*S2[1, n]^3*S2[2, 1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (37*S2[3, Infinity]*S2[2, 1, n])/64 + (5*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/8 - 
   (11*S2[1, n]*S2[4, 1, n])/2 + S2[-3, -2, 1, n]/2 - 
   (S2[1, n]*S2[-3, 1, 1, n])/2 - (3*S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (3*S2[-2, 2, -2, n])/8 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    48 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 + (11*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/3 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/96 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 + (29*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    96 - (65*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/32 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   S2[1, n]^3*S2[-1, 1, 1, n] + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (27*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (3*S2[-1, 1, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/2 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 - 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/6 + (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (S2[-1, 1, n]*S2[2, 1, -1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/4 - (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   S2[1, n]*S2[3, 1, 1, n] - (3*S2[4, 1, 1, n])/2 - S2[-2, -2, 1, 1, n]/2 - 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/6 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (17*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 - (S2[1, n]*S2[1, 1, -1, 2, n])/2 - 
   (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + S2[2, 2, 1, 1, n] - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] - (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (37*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + S2[1, -1, 1, 1, -2, n]/2 - 
   S2[1, 1, -2, -1, 1, n]/2 - (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (5*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + S2[1, 1, -1, 1, -2, n] + 
   (3*S2[2, 1, 1, 1, 1, n])/2 + S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   S2[-1, 1, -1, -1, -1, 1, n]/4 + S2[-1, 1, -1, 1, -1, -1, n]/4 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + S2[-1, 1, 1, -1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - S2[-1, 1, 1, 1, 1, 1, Infinity]/2 - 
   S2[1, -1, -1, -1, 1, -1, n]/2 - (3*S2[1, -1, -1, 1, -1, -1, n])/4 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 - S2[1, 1, -1, -1, -1, -1, n]/2 - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-3, 1, 1, -1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/96 - 
   (41*Diff[Half[S2[1, n], n], n, 2]^2)/384 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (191*Diff[Half[S2[1, n], n], n, 5])/576 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 3])/64 + 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   (37*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/9 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (493*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (109*Diff[S2[1, n], n, 1]^3)/24 - (181*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (201*Diff[S2[1, n], n, 2]^2)/64 - 
   (1175*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (1423*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (2033*Diff[S2[1, n], n, 5])/5760 - Diff[S2[-4, 1, n], n, 1]/2 - 
   Diff[S2[-3, 1, n], n, 2]/32 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/6 - 
   (8*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   (41*Diff[S2[-2, 1, n], n, 3])/48 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (133*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   Diff[S2[-1, 1, n], n, 1]^2/32 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/16 - 
   (83*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (61*Diff[S2[-1, 1, n], n, 4])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (3*Diff[S2[2, 1, n], n, 3])/8 - (3*Diff[S2[4, 1, n], n, 1])/2 - 
   5*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (7*Diff[S2[-2, 1, -1, n], n, 2])/8 - (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 + (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (11*Diff[S2[-1, 1, -1, n], n, 3])/32 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/16 + (9*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   (21*Diff[S2[2, 1, -1, n], n, 2])/16 + (9*Diff[S2[2, 1, 1, n], n, 2])/8 + 
   Diff[S2[3, 1, 1, n], n, 1] - 4*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + (5*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    16 - (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[1, -1, 1, 2, n], n, 1] - 
   Diff[S2[1, 1, -2, -1, n], n, 1] + Diff[S2[1, 1, -1, 2, n], n, 1] + 
   Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    4 - (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - Diff[S2[1, -1, -1, -1, -1, n], n, 1]/
    4 - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (59*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (223*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (335*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (37*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (31*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    48 - (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 + (13*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/6 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 - 
   (3*Half[S2[2, 1, n], n]^2)/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/96 - (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 - (7*S2[-1, Infinity]^6)/1440 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    96 - (671*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (145*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 - 
   (119*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (1013*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (145*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (95*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (247*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (49*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (41*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (43*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (131*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (227*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (617*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (19*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (S2[-1, Infinity]^5*S2[1, n])/60 + 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (329*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/3 + 
   (89*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/12 - 
   (1945*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (157*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (9*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/3 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    192 - (107*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (163*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (17*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/8 + (13*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - (13*S2[1, n]^6)/96 - (31*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (121*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    48 - (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (121*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/36 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (35*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (209*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 + (51*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (47*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/12 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (59*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (161*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (73*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (337*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (17*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (29*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (25*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (25*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 - (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 + 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (37*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (57*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (17*S2[1, n]^4*S2[2, Infinity])/96 - 
   (75*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/32 + 
   (347*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/96 - 
   (107*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (163*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (219*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (887*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (2107*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (1409*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (1189*S2[2, Infinity]^3)/
    13440 + (749*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (1073*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (359*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (223*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (77*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/96 + 
   (25*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (125*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (297*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (59*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/24 - 
   (367*S2[1, n]^3*S2[3, Infinity])/384 - 
   (1489*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (2817*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (1115*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (1987*S2[3, Infinity]^2)/6144 - (31*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (1631*S2[1, n]*S2[5, Infinity])/256 + (7*S2[-5, -1, Infinity])/8 + 
   4*S2[-5, 1, n] + (9*S2[1, n]*S2[-4, 1, n])/2 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 + 
   (109*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/4 + 
   (43*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (25*S2[1, n]^2*S2[-3, 1, n])/24 - (7*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (65*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/12 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (65*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/8 - (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (43*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (39*S2[3, Infinity]*S2[-2, 1, n])/64 - (3*S2[-2, 1, n]^2)/8 - 
   (49*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (33*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (215*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 + 
   (43*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (83*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 - 
   (13*S2[1, n]^4*S2[-1, 1, n])/48 - (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (29*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (13*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (5*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (743*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (43*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (319*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (31*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/24 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (5*S2[2, Infinity]*S2[-1, 1, n]^2)/48 - 
   (71*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 + 
   (37*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/12 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (2*S2[1, n]^3*S2[2, 1, n])/3 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - (57*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (379*S2[3, Infinity]*S2[2, 1, n])/192 - (3*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - (3*S2[2, 1, n]^2)/8 + 
   (7*S2[1, n]*S2[4, 1, n])/2 - 4*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 + 
   2*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   S2[-2, 2, -2, n]/8 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    48 + (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 - (7*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 - 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 + 
   (3*S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (19*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (23*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/32 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (65*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - 2*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, 1, n]^2/4 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (9*S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   (7*S2[2, Infinity]*S2[1, 2, -1, n])/4 + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   S2[1, n]*S2[2, 1, -2, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/
    24 - (53*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (23*S2[1, n]^2*S2[2, 1, -1, n])/12 - (31*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + S2[2, Infinity]*S2[2, 1, 1, n] + 
   S2[-1, 1, n]*S2[2, 1, 1, n] - S2[3, 1, -2, n] + 
   2*S2[1, n]*S2[3, 1, 1, n] + (5*S2[4, 1, 1, n])/2 - 6*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n]/2 + 3*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   S2[-2, 2, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/
    12 - (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (21*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 + S2[1, n]*S2[1, 1, 2, -1, n] + 
   S2[2, -2, 1, 1, n] + (S2[1, n]*S2[2, 1, 1, 1, n])/2 - S2[2, 2, 1, 1, n] - 
   3*S2[-2, 1, 1, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, -2, n]/2 + 
   S2[1, -1, 1, 1, 2, n] - S2[1, 1, -2, -1, 1, n]/2 - 
   S2[1, 1, -2, 1, -1, n] + Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] - S2[1, 1, -1, 1, -2, n] - 
   3*S2[1, 1, 1, -2, -1, n] - S2[1, 1, 1, -1, -2, n] - 
   6*S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, -1, 1, n] - 
   4*S2[1, 1, 2, 1, -1, n] - 2*S2[1, 2, 1, 1, -1, n] - 
   S2[2, 1, 1, 1, 1, n]/2 + S2[-1, -1, -1, 1, -1, -1, n]/4 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/4 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 - S2[-1, 1, -1, 1, -1, -1, n]/4 - 
   S2[-1, 1, -1, 1, 1, 1, n]/4 - S2[-1, 1, 1, -1, -1, -1, n] + 
   S2[-1, 1, 1, 1, -1, 1, n]/4 + (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   (5*S2[1, -1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, -1, 1, -1, n]/4 + 
   S2[1, -1, -1, 1, -1, -1, n]/4 - S2[1, 1, -1, -1, -1, -1, n]/2 + 
   S2[1, 1, 1, -1, 1, -1, n]/4 + S2[1, 1, 1, 1, -1, -1, n], 
 S2[3, -1, -1, -1, n] -> (-23*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (47*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (4237*Diff[Half[S2[1, n], n], n, 5])/5760 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 + 
   (121*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (539*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 - 
   (2129*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (949*Diff[S2[1, n], n, 1]^3)/96 + (353*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (581*Diff[S2[1, n], n, 2]^2)/96 + 
   (4877*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (1937*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (3967*Diff[S2[1, n], n, 5])/5760 - (49*Diff[S2[-3, 1, n], n, 2])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (133*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (29*Diff[S2[-2, 1, n], n, 3])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 + 
   (241*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (771*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (127*Diff[S2[-1, 1, n], n, 4])/64 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[2, 1, n], n, 3])/12 + 2*Diff[S2[4, 1, n], n, 1] + 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/32 - (53*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (13*Diff[S2[-1, 1, 1, n], n, 3])/12 - (19*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   (37*Diff[S2[2, 1, -1, n], n, 2])/16 - (9*Diff[S2[2, 1, 1, n], n, 2])/8 - 
   Diff[S2[3, 1, 1, n], n, 1] + 6*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    4 + (29*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 + 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] - (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 
   Diff[S2[1, 1, 2, -1, n], n, 1] - 2*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/4 - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (107*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 - (743*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (1085*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (157*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (31*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (9*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (11*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (31*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 - 
   (47*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 - 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (223*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 - (505*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 + (67*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/48 + (19*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/48 + (21*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (19*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (3*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/24 - (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    96 + (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/32 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (35*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/48 - 
   (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   Half[S2[2, 1, n], n]^2/64 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   Half[S2[4, 1, 1, n], n]/16 + Half[S2[2, 2, 1, 1, n], n]/16 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + 
   (7*S2[-1, Infinity]^6)/360 + (131*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 + 
   (871*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (337*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (2263*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (3197*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (373*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (77*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (749*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 + 
   (757*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (43*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (19*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (113*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (21*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (27*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/3 + (67*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    12 - (23*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/9 - 
   (55*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (197*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (41*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (125*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (15*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 - (Half[S2[3, 1, 1, n], n]*S2[1, n])/
    8 + (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (61*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (85*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 - 
   (769*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 + 
   (587*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (2099*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 + 
   (5561*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 - 
   (137*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 - 
   (203*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (23*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (39*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (123*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (49*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (35*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (151*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (209*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (233*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/6 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    4 - (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (109*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (29*Half[S2[1, n], n]^2*S2[1, n]^4)/24 - (13*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + (7*S2[1, n]^6)/96 + (15*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/8 - (677*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    576 - (29*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (469*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 - (133*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 + 
   (197*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (35*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 - 
   (105*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (13*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (103*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (157*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (49*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 - (223*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (35*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (7*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (107*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (263*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/12 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (89*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (119*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (265*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (271*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (31*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (115*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 - (27*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/3 + (277*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (151*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (51*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 - (11*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    8 - (161*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (99*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (35*S2[1, n]^4*S2[2, Infinity])/96 + 
   (1813*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (1327*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (1583*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (207*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (661*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (619*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/192 + 
   (201*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (3653*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (35909*S2[2, Infinity]^3)/
    4480 - (289*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (553*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (363*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (315*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 - (133*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (35*Half[S2[1, n], n]^3*S2[3, Infinity])/192 - 
   (57*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (41*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (193*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (7*S2[1, n]^3*S2[3, Infinity])/384 + 
   (545*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (483*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (6013*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (11497*S2[3, Infinity]^2)/3072 + (663*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (13639*S2[1, n]*S2[5, Infinity])/512 + (61*S2[-5, -1, Infinity])/
    16 - 9*S2[-5, 1, n] - (9*S2[1, n]*S2[-4, 1, n])/2 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (39*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/32 + 
   (41*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 - 
   (35*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/48 - (191*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (143*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (22*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (3*S2[1, n]^3*S2[-2, 1, n])/8 - (35*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (83*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (9*S2[3, Infinity]*S2[-2, 1, n])/32 - S2[-2, 1, n]^2/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (211*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 - 
   (81*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (313*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 - 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (25*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (209*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/48 + (91*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (83*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (21*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (79*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (35*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (4141*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (119*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (157*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (S2[-3, 1, n]*S2[-1, 1, n])/4 + (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 - (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (17*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 - (5*S2[-1, 1, n]^3)/48 + (23*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/96 + (19*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (13*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (7*S2[1, n]^3*S2[2, 1, n])/48 - 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (159*S2[3, Infinity]*S2[2, 1, n])/32 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (13*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/4 + 
   (S2[1, n]*S2[4, 1, n])/2 + 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   3*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - (S2[1, n]^2*S2[-2, 1, -1, n])/
    8 + (7*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 + (5*S2[-2, 2, -2, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/32 + 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/48 - 
   (23*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 + 
   (187*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (45*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (47*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (95*S2[3, Infinity]*S2[-1, 1, 1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (13*S2[2, 1, n]*S2[-1, 1, 1, n])/4 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 + (3*S2[-1, 1, 1, n]^2)/4 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (11*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (21*S2[1, n]^2*S2[1, 2, -1, n])/8 - (S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/4 + (3*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (69*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (61*S2[1, n]^2*S2[2, 1, -1, n])/24 + (7*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (S2[-1, 1, n]*S2[2, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (19*S2[1, n]^2*S2[2, 1, 1, n])/8 + 3*S2[2, Infinity]*S2[2, 1, 1, n] - 
   (7*S2[-1, 1, n]*S2[2, 1, 1, n])/4 + (3*S2[3, 1, -2, n])/2 - 
   (5*S2[4, 1, 1, n])/2 + 9*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n]/2 - 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (7*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (49*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (35*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (29*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (39*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - (5*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   (3*S2[2, -2, 1, 1, n])/2 + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (5*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (13*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] - (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (7*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (19*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (61*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (11*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (11*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/2 - 
   (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, -1, 1, 2, -1, n] + 
   (3*S2[1, 1, -2, -1, 1, n])/2 + 2*S2[1, 1, -2, 1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 2*S2[1, 1, -1, 1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 + S2[1, 1, -1, 2, -1, n] + 
   7*S2[1, 1, 1, -2, -1, n] + 4*S2[1, 1, 1, -1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + 12*S2[1, 1, 1, 2, -1, n] + 
   2*S2[1, 1, 2, -1, -1, n] + (5*S2[1, 1, 2, -1, 1, n])/2 + 
   7*S2[1, 1, 2, 1, -1, n] + S2[1, 2, 1, -1, -1, n] + 
   3*S2[1, 2, 1, 1, -1, n] - (3*S2[2, 1, 1, 1, 1, n])/2 - 
   (5*S2[-1, -1, -1, 1, -1, -1, n])/8 - (13*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   S2[-1, -1, 1, 1, -1, -1, n]/4 - (11*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 + S2[-1, 1, -1, -1, 1, 1, n]/4 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + S2[-1, 1, 1, -1, -1, -1, n]/4 + 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - 14*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 + (3*S2[1, -1, -1, -1, 1, -1, n])/8 + 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 + S2[1, -1, -1, 1, 1, -1, n]/4 + 
   S2[1, -1, 1, -1, -1, -1, n]/2 + (3*S2[1, 1, -1, -1, -1, -1, n])/2 + 
   S2[1, 1, -1, -1, 1, -1, n]/4 + S2[1, 1, -1, 1, -1, -1, n]/4 + 
   (3*S2[1, 1, 1, -1, -1, -1, n])/4 + (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[3, -1, -1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/32 + (19*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    96 + (43*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 - 
   (119*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (29*Diff[S2[1, n], n, 1]^3)/48 - (139*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (413*Diff[S2[1, n], n, 2]^2)/192 - 
   (247*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (251*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 - 
   (1369*Diff[S2[1, n], n, 5])/5760 - Diff[S2[-4, 1, n], n, 1] - 
   (13*Diff[S2[-3, 1, n], n, 2])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 + 
   (13*Diff[S2[-2, 1, n], n, 3])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (25*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (115*Diff[S2[-1, 1, n], n, 4])/192 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   Diff[S2[2, 1, n], n, 3]/24 - Diff[S2[-3, 1, 1, n], n, 1]/2 - 
   (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + 
   Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (13*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/16 + (7*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (9*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (3*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    16 - Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    4 + Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (9*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (35*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (11*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (29*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 - (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 - (37*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (23*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   Half[S2[2, 1, n], n]^2/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + (11*S2[-1, Infinity]^6)/
    1440 + (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     S2[1, n])/16 - (13*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 - 
   (21*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (95*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (19*Diff[S2[1, n], n, 4]*S2[1, n])/32 - 
   (Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (17*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 + 
   (39*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 + 
   (55*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] + (135*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 - 
   (65*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/192 + 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (107*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (9*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (7*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/16 - 
   (79*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 - 
   (11*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (61*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (83*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (15*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    64 + (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (133*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/16 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/16 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (103*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (53*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (37*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (19*S2[1, n]^6)/96 + (9*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (13*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    192 + (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (9*Diff[S2[1, n], n, 3]*S2[2, Infinity])/32 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 + 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    2 - 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/8 - 
   (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/64 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (23*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/32 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (63*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (45*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (65*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (9*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (17*S2[1, n]^4*S2[2, Infinity])/24 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 + 
   (53*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/64 + 
   (103*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (413*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (117*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (151*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (201*S2[1, n]^2*S2[2, Infinity]^2)/128 - (8871*S2[2, Infinity]^3)/4480 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (33*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (233*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (185*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (77*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 + 
   (157*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 - 
   (167*S2[1, n]^3*S2[3, Infinity])/192 + 
   (655*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (153*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (1775*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (3377*S2[3, Infinity]^2)/6144 - (47*Half[S2[1, n], n]*S2[5, Infinity])/
    64 + (899*S2[1, n]*S2[5, Infinity])/128 + (11*S2[-5, -1, Infinity])/4 - 
   2*S2[1, n]*S2[-4, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/16 - 
   (3*S2[1, n]^2*S2[-3, 1, n])/2 - (3*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    16 + Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (S2[1, n]^3*S2[-2, 1, n])/2 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (17*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (S2[3, Infinity]*S2[-2, 1, n])/64 - S2[-2, 1, n]^2/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (17*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (41*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/12 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/4 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (7*S2[1, n]^4*S2[-1, 1, n])/24 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (27*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (9*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (107*S2[2, Infinity]^2*S2[-1, 1, n])/80 - 
   (55*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (59*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   S2[-3, 1, n]*S2[-1, 1, n] - (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - (S2[1, n]^2*S2[-1, 1, n]^2)/32 - 
   (5*S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (85*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 + (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    16 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (31*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (7*S2[1, n]^3*S2[2, 1, n])/6 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - (29*S2[3, Infinity]*S2[2, 1, n])/
    192 - (S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - S2[2, 1, n]^2/8 - 
   (7*S2[1, n]*S2[4, 1, n])/2 + S2[-3, -2, 1, n]/2 + 
   (S2[1, n]*S2[-3, 1, 1, n])/2 - (S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (3*S2[-2, 2, -2, n])/8 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    16 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/16 - 
   (3*S2[2, Infinity]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (125*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[-1, 1, 1, n]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 + 
   (S2[1, n]^2*S2[1, 2, -1, n])/2 - (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + (S2[1, n]*S2[2, 1, -2, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/8 - 
   (3*S2[2, Infinity]*S2[2, 1, -1, n])/8 - (S2[-1, 1, n]*S2[2, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/4 + (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   2*S2[1, n]*S2[3, 1, 1, n] - S2[4, 1, 1, n]/2 - S2[-2, -2, 1, 1, n]/2 + 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, -1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 + (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + (S2[1, n]*S2[1, 1, -2, -1, n])/
    2 + (S2[1, n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n]/2 + (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/
    8 - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (7*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (7*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + S2[1, -1, 1, 1, -2, n]/2 - 
   S2[1, 1, -2, -1, 1, n]/2 + (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    2 - (9*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, 1, -1, -2, n] + S2[2, 1, 1, 1, 1, n]/2 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 + S2[-1, 1, -1, -1, -1, 1, n]/4 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 + S2[-1, 1, -1, 1, 1, 1, n]/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] - S2[-1, 1, 1, 1, -1, 1, n]/4 - 
   (11*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - S2[1, -1, -1, 1, -1, -1, n]/4 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 - (3*S2[1, 1, -1, -1, -1, -1, n])/2 - 
   S2[1, 1, 1, -1, 1, -1, n]/4 - S2[1, 1, 1, 1, -1, -1, n], 
 S2[3, -1, 1, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/48 - 
   (89*Diff[Half[S2[1, n], n], n, 2]^2)/384 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (61*Diff[Half[S2[1, n], n], n, 5])/288 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (71*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (305*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/6 - 
   (449*Diff[S2[1, n], n, 1]^3)/96 - (95*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (299*Diff[S2[1, n], n, 2]^2)/192 - 
   (203*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/144 + 
   (1997*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (25*Diff[S2[1, n], n, 5])/128 + Diff[S2[-4, 1, n], n, 1] + 
   (29*Diff[S2[-3, 1, n], n, 2])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (121*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (43*Diff[S2[-2, 1, n], n, 3])/48 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (11*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (181*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (121*Diff[S2[-1, 1, n], n, 4])/192 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (5*Diff[S2[2, 1, n], n, 3])/24 - Diff[S2[4, 1, n], n, 1]/2 - 
   (9*Diff[S2[-3, 1, 1, n], n, 1])/2 + (5*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (7*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (29*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/16 + (5*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (15*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 - (7*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/4 + (7*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    16 - 2*Diff[S2[-1, 1, 1, 1, n], n, 2] - Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 + Diff[S2[1, -1, 1, 2, n], n, 1] - Diff[S2[1, 1, -2, -1, n], n, 1] + 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 2*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 - 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - Diff[S2[1, -1, -1, -1, -1, n], n, 1]/
    4 - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, 1, -1, -1, n], n, 1]/2 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (101*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (65*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (37*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/72 - 
   (Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (33*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 + 
   (7*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 + (29*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (43*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (59*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/12 + 
   (5*Half[S2[2, 1, n], n]^2)/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 + (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/192 + (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    96 + (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 - 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - 
   (23*S2[-1, Infinity]^6)/1440 - (119*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 - 
   (521*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (21*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (155*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (653*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (385*Diff[S2[1, n], n, 4]*S2[1, n])/288 + 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/3 - 
   (95*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (25*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 - 
   (55*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 - 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] - 
   (4*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/3 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (27*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (85*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (203*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (383*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (677*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (65*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (59*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (31*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/2 + 
   (175*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 - 
   (181*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (485*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (1891*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (83*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (73*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/48 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (23*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (173*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (217*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/24 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    32 + (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    24 - (Half[S2[1, n], n]*S2[1, n]^5)/8 + (7*S2[1, n]^6)/96 - 
   (33*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 + 
   (215*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/36 + 
   (23*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (41*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (137*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 + (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (67*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 + (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (7*Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (29*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (89*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (81*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (79*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (229*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (115*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (67*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (23*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (71*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (215*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (7*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/8 + (25*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/48 - (19*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/48 - (29*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (17*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/16 + (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    4 + (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (87*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (13*S2[1, n]^4*S2[2, Infinity])/32 - 
   (393*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (121*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (1667*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (453*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (3129*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (401*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (209*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (1579*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (62513*S2[2, Infinity]^3)/
    13440 + (19*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/12 - 
   (355*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (369*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (335*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (155*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/192 + 
   (33*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (277*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (745*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (89*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (57*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (75*S2[1, n]^3*S2[3, Infinity])/128 + 
   (875*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (2889*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (4361*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (20059*S2[3, Infinity]^2)/6144 - (7*Half[S2[1, n], n]*S2[5, Infinity])/
    32 + (3647*S2[1, n]*S2[5, Infinity])/256 - (35*S2[-5, -1, Infinity])/8 + 
   4*S2[-5, 1, n] + (9*S2[1, n]*S2[-4, 1, n])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/24 - 
   (31*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (5*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/3 + (35*S2[1, n]^2*S2[-3, 1, n])/
    24 + (13*S2[2, Infinity]*S2[-3, 1, n])/6 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (107*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/3 - 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (131*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/12 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/8 + (29*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (53*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (31*S2[3, Infinity]*S2[-2, 1, n])/64 + (5*S2[-2, 1, n]^2)/8 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (49*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (161*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 + 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/16 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 + 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (53*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 + (125*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (91*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (5*S2[1, n]^4*S2[-1, 1, n])/16 - (47*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (13*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (113*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (25*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (11*S2[2, Infinity]^2*S2[-1, 1, n])/12 + 
   (69*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (313*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (19*S2[-3, 1, n]*S2[-1, 1, n])/12 + 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (41*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (49*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 - 
   (73*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/24 - 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (5*S2[1, n]^3*S2[2, 1, n])/12 + (21*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (33*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (177*S2[3, Infinity]*S2[2, 1, n])/64 + (5*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/8 + 
   (3*S2[1, n]*S2[4, 1, n])/2 - 4*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 + 
   2*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   S2[-2, 2, -2, n]/8 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    24 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 + (7*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/6 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (79*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/32 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (41*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - 2*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (3*S2[-1, 1, 1, n]^2)/4 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    2 - (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + (7*S2[1, n]^2*S2[1, 2, -1, n])/
    4 - (S2[2, Infinity]*S2[1, 2, -1, n])/4 + (S2[-1, 1, n]*S2[1, 2, -1, n])/
    2 - S2[1, n]*S2[2, 1, -2, n] - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/12 - (25*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (23*S2[1, n]^2*S2[2, 1, -1, n])/12 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 + (2*S2[-1, 1, n]*S2[2, 1, -1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/
    4 - (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   2*S2[1, n]^2*S2[2, 1, 1, n] - (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   S2[-1, 1, n]*S2[2, 1, 1, n] - S2[3, 1, -2, n] + S2[4, 1, 1, n]/2 - 
   6*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n]/2 + 
   3*S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (21*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (23*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 + S2[1, n]*S2[1, 1, 2, -1, n] + 
   S2[2, -2, 1, 1, n] - (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   3*S2[-2, 1, 1, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (17*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (31*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - S2[1, -1, 1, 1, -2, n]/2 + 
   S2[1, -1, 1, 1, 2, n] - S2[1, 1, -2, -1, 1, n]/2 - 
   S2[1, 1, -2, 1, -1, n] - (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 2*S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] - 2*S2[1, 1, 1, -2, -1, n] - 
   2*S2[1, 1, 1, -1, -2, n] - 6*S2[1, 1, 1, 2, -1, n] - 
   S2[1, 1, 2, -1, 1, n] - 4*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, 1, -1, n] + (3*S2[2, 1, 1, 1, 1, n])/2 + 
   S2[-1, -1, -1, 1, -1, -1, n]/4 + (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   S2[-1, -1, 1, 1, -1, -1, n]/2 + (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + 
   S2[-1, 1, -1, -1, -1, 1, n]/4 + S2[-1, 1, -1, 1, -1, -1, n]/4 - 
   S2[-1, 1, -1, 1, 1, 1, n]/4 + S2[-1, 1, 1, -1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + (23*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   (5*S2[1, -1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, -1, -1, -1, n]/2 - 
   S2[1, 1, -1, -1, -1, -1, n]/2 - (7*S2[1, 1, 1, -1, 1, -1, n])/4 - 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[3, -1, 1, 1, n] -> 
  (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   Diff[S2[1, n], n, 1]^3/2 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, n], n, 4]/24 + Diff[S2[-3, 1, 1, n], n, 1] + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, 1, n], n, 3]/3 - Diff[S2[-1, 1, 1, 1, n], n, 2] - 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   S2[-1, Infinity]^6/720 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 + (Diff[S2[1, n], n, 3]*S2[1, n]^2)/6 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (S2[1, n]^4*S2[2, Infinity])/3 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/2 + (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 - 
   (41*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/4 - 
   (73*S2[1, n]^2*S2[2, Infinity]^2)/80 - (367*S2[2, Infinity]^3)/336 + 
   (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (5*S2[1, n]^3*S2[3, Infinity])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/3 - 
   (17*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (37*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 - 
   (145*S2[3, Infinity]^2)/192 + S2[-5, -1, Infinity]/2 + S2[-5, 1, n] - 
   S2[1, n]^2*S2[-3, 1, n] - S2[2, Infinity]*S2[-3, 1, n] + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (S2[1, n]^3*S2[-2, 1, n])/6 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (S2[3, Infinity]*S2[-2, 1, n])/3 - (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[2, Infinity]^2*S2[-1, 1, n])/2 + 3*S2[-4, 1, 1, n] + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - (S2[1, n]^2*S2[1, 2, -1, n])/
    2 - (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - (S2[1, n]^2*S2[2, 1, -1, n])/
    2 - (S2[2, Infinity]*S2[2, 1, -1, n])/2 + 2*S2[-3, 1, 1, 1, n] + 
   S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 4*S2[2, Infinity]*
    S2[-1, 1, 1, 1, Infinity] - S2[1, n]*S2[1, 1, -1, 2, n] - 
   S2[2, -2, 1, 1, n] - S2[-2, 1, 1, 1, 1, n] + S2[1, 1, 1, -1, 2, n] - 
   S2[-1, 1, 1, 1, 1, 1, Infinity], S2[3, 1, -1, -1, n] -> 
  (-3*Diff[Half[S2[1, n], n], n, 1]^3)/64 - 
   (23*Diff[Half[S2[1, n], n], n, 2]^2)/64 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (329*Diff[Half[S2[1, n], n], n, 5])/384 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 3])/96 + Diff[Half[S2[4, 1, n], n], n, 1]/
    8 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (107*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (473*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (2101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (1951*Diff[S2[1, n], n, 1]^3)/192 - 
   (221*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 + 
   (359*Diff[S2[1, n], n, 2]^2)/48 - (5717*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 + (13517*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 - (487*Diff[S2[1, n], n, 5])/576 - 
   (3*Diff[S2[-4, 1, n], n, 1])/2 - (35*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/48 - 
   (22*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   (23*Diff[S2[-2, 1, n], n, 3])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (189*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/4 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (395*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (227*Diff[S2[-1, 1, n], n, 4])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (5*Diff[S2[2, 1, n], n, 3])/16 - (3*Diff[S2[4, 1, n], n, 1])/2 - 
   8*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-2, 1, -2, n], n, 1]/8 + 
   Diff[S2[-2, 1, -1, n], n, 2]/4 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   Diff[S2[-1, 1, -1, n], n, 3]/96 + (33*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (67*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (19*Diff[S2[-1, 1, 1, n], n, 3])/16 + 3*Diff[S2[1, 2, -1, n], n, 2] - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (11*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, 1, n], n, 2] + 2*Diff[S2[3, 1, 1, n], n, 1] - 
   (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/16 - 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - Diff[S2[1, 1, -2, -1, n], n, 
    1] + Diff[S2[1, 1, -1, 2, n], n, 1] + Diff[S2[2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (97*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (283*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 - (1373*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (121*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (35*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    64 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (19*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (19*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (23*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 - (33*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (19*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (37*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   Half[S2[2, 1, n], n]^2/64 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (3*Half[S2[4, 1, 1, n], n])/16 + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 + (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    64 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - 
   (7*S2[-1, Infinity]^6)/960 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 - 
   (289*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 + 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (457*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 - 
   (849*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (3869*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (337*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (187*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (105*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (305*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (15*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (27*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (149*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (29*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    6 + (949*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (37*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (43*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (23*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (145*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (155*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (59*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (97*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (55*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (29*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (905*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 - 
   (407*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (463*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (197*Diff[S2[1, n], n, 3]*S2[1, n]^2)/36 + 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (905*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (105*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (19*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (83*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (55*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (233*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   (69*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 - 
   (107*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (23*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (37*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (145*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (55*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (11*Half[S2[1, n], n]*S2[1, n]^5)/
    16 - S2[1, n]^6/6 - (23*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    16 + (445*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (195*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (11*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (49*Diff[S2[1, n], n, 3]*S2[2, Infinity])/36 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 + 
   (89*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (11*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (99*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (115*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 + (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (3*Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (31*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (81*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (21*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (123*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (35*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (43*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (155*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (269*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (151*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 + (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (293*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (67*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/4 + (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/3 - (401*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (361*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity] + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (95*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 + 
   (37*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 - 
   (203*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (59*S2[1, n]^4*S2[2, Infinity])/96 - 
   (1991*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (47*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 - 
   (253*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (247*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (263*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (211*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/96 + 
   (1553*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (3001*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (2207*S2[2, Infinity]^3)/896 + 
   (517*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 - 
   (45*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 + 
   (365*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (835*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (701*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (57*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (13*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (199*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (729*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 + 
   (1285*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 - 
   (1517*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 - 
   (95*S2[1, n]^3*S2[3, Infinity])/256 - 
   (3767*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (819*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (309*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (6163*S2[3, Infinity]^2)/3072 - (195*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (4245*S2[1, n]*S2[5, Infinity])/256 + (7*S2[-5, -1, Infinity])/4 + 
   6*S2[-5, 1, n] + (9*S2[1, n]*S2[-4, 1, n])/2 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (15*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   (13*S2[1, n]^2*S2[-3, 1, n])/96 + (127*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (329*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (43*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (59*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (47*S2[1, n]^3*S2[-2, 1, n])/48 + (31*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (61*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (S2[3, Infinity]*S2[-2, 1, n])/8 - S2[-2, 1, n]^2/4 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (145*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (145*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/12 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (41*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (65*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/16 - (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (85*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (11*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (2933*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (265*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (61*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (29*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/12 - 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/24 + (7*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 - (17*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (29*S2[1, n]^3*S2[2, 1, n])/96 + 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] - (33*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (199*S2[3, Infinity]*S2[2, 1, n])/48 + (S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (3*S2[2, 1, n]^2)/4 + 
   (3*S2[1, n]*S2[4, 1, n])/2 - 6*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 + 
   3*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (5*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (3*S2[-2, 2, -2, n])/8 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/96 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/96 + 
   (19*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (117*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    8 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (89*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] + S2[-1, 1, 1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + 3*S2[1, n]^2*S2[1, 2, -1, n] - 
   (S2[2, Infinity]*S2[1, 2, -1, n])/2 + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 - (59*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 + 
   (127*S2[1, n]^2*S2[2, 1, -1, n])/48 - (23*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (11*S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] - 
   S2[2, Infinity]*S2[2, 1, 1, n] + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[3, 1, -2, n])/2 + 2*S2[1, n]*S2[3, 1, 1, n] + (9*S2[4, 1, 1, n])/2 - 
   9*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n]/2 + 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (49*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (51*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (27*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (55*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (3*S2[2, -2, 1, 1, n])/2 + (S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   S2[2, 2, 1, 1, n] - (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] - (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (29*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (29*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, -1, 1, 1, -2, n])/2 + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, -1, 1, 2, -1, n] - 
   S2[1, 1, -2, -1, 1, n]/2 - S2[1, 1, -2, 1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - S2[1, 1, -1, 1, -2, n] - 
   5*S2[1, 1, 1, -2, -1, n] - 3*S2[1, 1, 1, -1, -2, n] - 
   9*S2[1, 1, 1, 2, -1, n] - 2*S2[1, 1, 2, -1, -1, n] - 
   (3*S2[1, 1, 2, -1, 1, n])/2 - 6*S2[1, 1, 2, 1, -1, n] - 
   S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] - 
   S2[2, 1, 1, 1, 1, n]/2 + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + S2[-1, 1, -1, -1, -1, 1, n]/8 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 + (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] + S2[-1, 1, 1, 1, -1, 1, n]/4 + 
   (21*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + (15*S2[1, -1, -1, -1, -1, -1, n])/
    4 + S2[1, -1, -1, -1, 1, -1, n]/8 - S2[1, -1, 1, -1, -1, -1, n]/4 - 
   S2[1, 1, -1, -1, -1, -1, n] + (5*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   S2[1, 1, 1, 1, -1, -1, n], S2[3, 1, -1, 1, n] -> 
  (-59*Diff[Half[S2[1, n], n], n, 5])/240 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (23*Diff[S2[1, n], n, 1]^3)/8 + (17*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (17*Diff[S2[1, n], n, 2]^2)/8 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 + 
   (59*Diff[S2[1, n], n, 5])/240 - Diff[S2[-3, 1, n], n, 2] + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, n], n, 3])/4 + 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (29*Diff[S2[-1, 1, n], n, 4])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (3*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/6 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 2])/4 + 2*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/
    2 - (23*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 - S2[-1, Infinity]^6/288 + 
   (47*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (89*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (65*Diff[S2[1, n], n, 4]*S2[1, n])/48 + 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + 2*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (25*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (27*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^5*S2[1, n])/120 - Diff[Half[S2[1, n], n], n, 3]*
    S2[1, n]^2 + (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     S2[1, n]^2)/4 - (43*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (43*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 - (15*Diff[S2[1, n], n, 2]*S2[1, n]^3)/
    8 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (15*Diff[S2[1, n], n, 3]*S2[2, Infinity])/32 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] + (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/8 + (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/8 + (11*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (S2[1, n]^4*S2[2, Infinity])/4 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/20 + (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]^2)/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (61*S2[1, n]^2*S2[2, Infinity]^2)/80 + (2419*S2[2, Infinity]^3)/3360 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (63*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 + 
   (29*S2[1, n]^3*S2[3, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/2 - 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (41*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (11*S2[3, Infinity]^2)/32 - (291*S2[1, n]*S2[5, Infinity])/32 - 
   (15*S2[-5, -1, Infinity])/8 + S2[-5, 1, n] - (5*S2[1, n]*S2[-4, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + (7*S2[1, n]^2*S2[-3, 1, n])/4 - 
   (3*S2[2, Infinity]*S2[-3, 1, n])/4 + (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    4 - (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (S2[1, n]^3*S2[-2, 1, n])/4 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (S2[3, Infinity]*S2[-2, 1, n])/2 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (35*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (3*S2[2, Infinity]^2*S2[-1, 1, n])/5 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (S2[1, n]^3*S2[2, 1, n])/2 - (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 3*S2[-4, 1, 1, n] - 
   (7*S2[1, n]*S2[-3, 1, 1, n])/2 - Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - (S2[1, n]^2*S2[1, 2, -1, n])/
    4 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - S2[1, n]*S2[2, 1, -2, n] + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - (S2[1, n]^2*S2[2, 1, -1, n])/
    4 + (3*S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 + 3*S2[-3, 1, 1, 1, n] - S2[1, n]*S2[-2, 1, 1, 1, n] - 
   S2[-2, 2, 1, 1, n]/2 - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   2*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 
   (S2[1, n]*S2[1, 1, -1, 2, n])/2 + (S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   S2[2, -2, 1, 1, n]/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + S2[1, -1, 1, 1, 2, n]/2 + 
   S2[1, 1, -1, 1, 2, n] - S2[1, 1, 2, -1, 1, n]/2 + 
   (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, S2[3, 1, 1, -1, n] -> 
  (-5*Diff[Half[S2[1, n], n], n, 5])/12 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/4 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (25*Diff[S2[1, n], n, 1]^3)/8 + (29*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (29*Diff[S2[1, n], n, 2]^2)/8 + 
   (115*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (247*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (5*Diff[S2[1, n], n, 5])/12 + (3*Diff[S2[-4, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, n], n, 2] + 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] - (2*Diff[S2[-2, 1, n], n, 3])/3 + 
   (37*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (19*Diff[S2[-1, 1, n], n, 4])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   3*Diff[S2[-3, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/12 - (7*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (5*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + (11*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - Diff[S2[1, 1, -1, 2, n], n, 
    1] - Diff[S2[1, 1, 2, -1, n], n, 1] + 
   (5*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + S2[-1, Infinity]^6/160 + 
   (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/6 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (73*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (35*Diff[S2[1, n], n, 4]*S2[1, n])/24 - Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] + 2*Diff[S2[-2, 1, n], n, 2]*S2[1, n] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (23*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (25*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (S2[-1, Infinity]^5*S2[1, n])/80 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (9*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (33*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 - 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 - (11*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/2 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^3 + Diff[S2[1, n], n, 1]*S2[1, n]^4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (37*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (29*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/3 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 + 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (S2[1, n]^4*S2[2, Infinity])/6 + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/10 - (73*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 + 
   (377*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (441*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (23*S2[1, n]^2*S2[2, Infinity]^2)/80 + (7579*S2[2, Infinity]^3)/3360 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 + 
   (175*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/6 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 + 
   (5*S2[1, n]^3*S2[3, Infinity])/48 + 
   (11*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 - 
   (41*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (175*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 - 
   (143*S2[3, Infinity]^2)/192 - (49*S2[1, n]*S2[5, Infinity])/128 - 
   (3*S2[-5, -1, Infinity])/8 - 3*S2[-5, 1, n] - 
   (9*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - (7*S2[1, n]^2*S2[-3, 1, n])/4 + 
   (7*S2[2, Infinity]*S2[-3, 1, n])/4 + (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    6 - (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/6 - (5*S2[3, Infinity]*S2[-2, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (17*S2[2, Infinity]^2*S2[-1, 1, n])/10 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 + Diff[Half[S2[1, n], n], n, 2]*
    S2[2, 1, n] - Diff[S2[1, n], n, 2]*S2[2, 1, n] + 
   2*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n] - Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[2, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
     S2[2, 1, n])/2 + (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (S2[1, n]^3*S2[2, 1, n])/2 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] + 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (7*S2[3, Infinity]*S2[2, 1, n])/4 - (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/
    2 - 2*S2[-4, 1, 1, n] + S2[1, n]*S2[-3, 1, 1, n] - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   2*S2[3, Infinity]*S2[-1, 1, 1, n] + 2*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/4 + (5*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    4 - (5*S2[1, n]^2*S2[2, 1, -1, n])/4 + 
   (5*S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + S2[3, 1, -2, n]/2 + 
   S2[-3, 1, 1, 1, n] - (5*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   (3*S2[-2, 2, 1, 1, n])/2 - (5*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (19*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 + S2[2, -2, 1, 1, n]/2 + 
   (5*S2[-2, 1, 1, 1, 1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 - (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, 1, -1, 1, 2, n] - 
   S2[1, 1, 1, -1, 2, n] + 3*S2[1, 1, 1, 2, -1, n] + 
   S2[1, 1, 2, -1, 1, n]/2 + 3*S2[1, 1, 2, 1, -1, n] + 
   2*S2[1, 2, 1, 1, -1, n] - (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, 
 S2[3, 1, 1, 1, n] -> -Diff[S2[1, n], n, 1]^3/12 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   Diff[S2[1, n], n, 5]/720 - Diff[S2[2, 1, 1, n], n, 2]/4 - 
   Diff[S2[3, 1, 1, n], n, 1] - Diff[S2[2, 1, 1, 1, n], n, 1]/2 + 
   (31*S2[2, Infinity]^3)/105 + S2[3, Infinity]^2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 2*S2[4, 1, 1, n] + 
   S2[2, 2, 1, 1, n]/2, S2[-2, -2, -1, -1, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 1]^3)/96 - 
   (259*Diff[Half[S2[1, n], n], n, 2]^2)/192 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/8 + 
   (125*Diff[Half[S2[1, n], n], n, 5])/576 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (35*Diff[Half[S2[2, 1, n], n], n, 3])/96 + 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/4 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (163*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (255*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (215*Diff[S2[1, n], n, 1]^3)/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/4 + 
   (55*Diff[S2[1, n], n, 2]^2)/96 - (31*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/64 + (511*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/192 - (7*Diff[S2[1, n], n, 5])/160 - 
   5*Diff[S2[-4, 1, n], n, 1] - (29*Diff[S2[-3, 1, n], n, 2])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (51*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   Diff[S2[-2, 1, n], n, 3]/8 + (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 - 
   (43*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (129*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (25*Diff[S2[-1, 1, n], n, 4])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (7*Diff[S2[2, 1, n], n, 3])/8 - (9*Diff[S2[4, 1, n], n, 1])/2 - 
   4*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1] - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 + (47*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (75*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, n], n, 3]/4 + Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -2, n], n, 1] + (5*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   3*Diff[S2[-2, 1, 1, 1, n], n, 1] + (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    8 + (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/8 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - Diff[S2[1, -1, 1, -2, n], n, 1] + 
   Diff[S2[1, -1, 1, 2, n], n, 1] - 3*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   2*Diff[S2[1, 1, -1, 2, n], n, 1] - Diff[S2[1, 2, -1, -1, n], n, 1] + 
   5*Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (9*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 - (41*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/8 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (143*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (31*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (59*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (65*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (9*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (15*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (7*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 - 3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2 + 
   (39*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (19*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (23*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (59*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (55*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n] + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (5*Half[S2[2, 1, n], n]^2)/64 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 + (27*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/64 + (25*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    96 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 - S2[-1, Infinity]^6/90 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    6 + (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/32 + 
   (3*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (113*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (437*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (15*Diff[S2[1, n], n, 4]*S2[1, n])/64 + 
   (89*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (145*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (25*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 - 
   (39*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (23*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (21*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 + 
   3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (27*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   6*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (121*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (191*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (15*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (13*S2[-1, Infinity]^5*S2[1, n])/120 + 
   (37*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 - 
   (9*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (47*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (49*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (135*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 + 
   (33*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 + 
   6*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (121*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (81*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (19*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (83*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (29*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (169*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/6 - 
   (35*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^4)/12 + (17*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - (5*S2[1, n]^6)/48 - (27*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/8 + (71*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    32 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (31*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 + 
   (45*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (179*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (25*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (31*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (65*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (359*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (91*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    16 + (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/2 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 + 
   (121*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (29*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
    S2[2, Infinity] - (81*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (47*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (27*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (181*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (101*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (69*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 + (7*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (447*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (45*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (37*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (113*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (119*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (145*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (11*S2[1, n]^4*S2[2, Infinity])/24 - 
   (987*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (1079*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 - 
   (123*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/5 + 
   (2469*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (181*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (313*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   S2[1, n]^2*S2[2, Infinity]^2 + (10009*S2[2, Infinity]^3)/840 + 
   (665*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (473*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (455*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (833*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (83*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (173*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 - 
   (1103*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (225*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (243*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (147*S2[1, n]^3*S2[3, Infinity])/128 + 
   (599*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (483*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (337*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/24 + 
   (8291*S2[3, Infinity]^2)/3072 - (407*Half[S2[1, n], n]*S2[5, Infinity])/
    64 + (4241*S2[1, n]*S2[5, Infinity])/128 + S2[-5, -1, Infinity]/8 + 
   4*S2[-5, 1, n] + 3*S2[1, n]*S2[-4, 1, n] - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   (23*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (29*S2[1, n]^2*S2[-3, 1, n])/16 + (117*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (13*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - 4*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-2, 1, n] - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/
    8 - (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (11*S2[1, n]^3*S2[-2, 1, n])/24 + 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-2, 1, n] + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] - 
   (51*S2[3, Infinity]*S2[-2, 1, n])/32 + (5*S2[-2, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/3 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 + 
   (59*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (73*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (13*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (S2[1, n]^4*S2[-1, 1, n])/12 - (55*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] - 
   (45*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (21*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (259*S2[2, Infinity]^2*S2[-1, 1, n])/80 - 
   (109*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (47*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/4 - (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/16 - 2*S2[2, Infinity]*S2[-1, 1, n]^2 + 
   (83*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 - 
   (125*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/8 - (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    16 - (7*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (9*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (87*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (7*S2[1, n]^3*S2[2, 1, n])/48 + (33*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (175*S2[3, Infinity]*S2[2, 1, n])/32 + (9*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + (13*S2[2, 1, n]^2)/4 - 
   3*S2[1, n]*S2[4, 1, n] - 4*S2[-4, 1, 1, n] + 2*S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + (17*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   5*S2[2, Infinity]*S2[-2, 1, -1, n] - (7*S2[-2, 2, -2, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/16 + 
   (23*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (25*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/12 + 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (225*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (9*S2[-1, 1, -1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - 4*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (11*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 2*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (3*S2[-1, 1, 1, n]^2)/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/4 - (23*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] + 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/2 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   S2[-1, 1, n]*S2[1, 2, -1, n] - S2[1, n]*S2[2, 1, -2, n] - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (23*S2[1, n]^2*S2[2, 1, -1, n])/8 + (19*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (3*S2[-1, 1, n]*S2[2, 1, -1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (5*S2[1, n]^2*S2[2, 1, 1, n])/2 - 
   (13*S2[2, Infinity]*S2[2, 1, 1, n])/2 + S2[-1, 1, n]*S2[2, 1, 1, n] - 
   S2[3, 1, -2, n] + 4*S2[4, 1, 1, n] - 6*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] + 3*S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/4 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (25*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (81*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (25*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (107*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]*S2[1, 1, -2, -1, n] + S2[1, n]*S2[1, 1, 2, -1, n] + 
   S2[2, -2, 1, 1, n] - 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   3*S2[-2, 1, 1, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - 13*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 2*Half[S2[1, n], n]*
    S2[1, -1, -1, 1, -1, n] - 2*S2[1, n]*S2[1, -1, -1, 1, -1, n] - 
   2*S2[1, -1, -1, 1, 2, n] + (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    2 - (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 - 3*S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 1, 2, n] - 2*S2[1, -1, 1, 2, -1, n] - 
   S2[1, 1, -2, -1, 1, n] - 2*S2[1, 1, -2, 1, -1, n] + 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 4*S2[1, 1, -1, 1, -2, n] - 
   2*S2[1, 1, -1, 2, -1, n] - 8*S2[1, 1, 1, -2, -1, n] - 
   8*S2[1, 1, 1, -1, -2, n] - 6*S2[1, 1, 1, 2, -1, n] - 
   4*S2[1, 1, 2, -1, -1, n] - S2[1, 1, 2, -1, 1, n] - 
   4*S2[1, 1, 2, 1, -1, n] - 2*S2[1, 2, 1, -1, -1, n] - 
   2*S2[1, 2, 1, 1, -1, n] + 3*S2[2, 1, 1, 1, 1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n]/4 + (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + 2*S2[-1, 1, -1, -1, -1, 1, n] + 
   S2[-1, 1, -1, 1, -1, -1, n]/2 + (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   S2[-1, 1, 1, -1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 
   8*S2[-1, 1, 1, 1, 1, 1, Infinity] + (5*S2[1, -1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/2 - (5*S2[1, -1, -1, 1, -1, -1, n])/2 - 
   S2[1, -1, 1, -1, -1, -1, n] - 3*S2[1, 1, -1, -1, -1, -1, n] - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-2, -2, -1, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/16 - 
   Diff[Half[S2[1, n], n], n, 2]^2/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/12 + 
   (19*Diff[Half[S2[1, n], n], n, 5])/160 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/48 + 
   (67*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/24 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 - 
   (5*Diff[S2[1, n], n, 1]^3)/48 - (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (23*Diff[S2[1, n], n, 2]^2)/24 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (125*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 - 
   (19*Diff[S2[1, n], n, 5])/160 - (3*Diff[S2[-4, 1, n], n, 1])/2 + 
   (5*Diff[S2[-3, 1, n], n, 2])/24 - (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/12 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   (5*Diff[S2[-2, 1, n], n, 3])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 - 
   (17*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   Diff[S2[-1, 1, n], n, 1]^2/4 - (49*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/48 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (17*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (3*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-1, -2, -1, n], n, 2]/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, n], n, 3]/4 + Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -1, n], n, 2]/3 - Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/12 - Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 - 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/
    2 - Diff[S2[1, -1, 1, -1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n] - 
   (19*Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/6 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    12 + (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/12 - (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/8 + (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/32 - 
   (9*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 + (4*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/3 - (47*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    48 + (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 - (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/20 + S2[-1, Infinity]^6/360 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 + (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/6 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/32 + 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 + 
   (29*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 - 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 - 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/12 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 2*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (17*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n] - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (17*S2[-1, Infinity]^5*S2[1, n])/240 + Diff[Half[S2[1, n], n], n, 1]^2*
    S2[1, n]^2 - (25*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/2 + (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    6 - (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (47*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 + 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/2 + (3*S2[-1, Infinity]^4*S2[1, n]^2)/
    16 - (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 - 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/4 - (5*Half[S2[1, n], n]*S2[1, n]^5)/
    4 + (5*S2[1, n]^6)/12 - (19*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/48 - (13*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    48 + (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     S2[2, Infinity])/12 - (85*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (29*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + 3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, Infinity]*S2[2, Infinity] + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity] - 
   (15*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 + 
   (23*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (7*S2[1, n]^4*S2[2, Infinity])/6 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/32 + 
   (447*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/10 + 
   (87*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (99*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/8 - 
   (4*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (151*S2[1, n]^2*S2[2, Infinity]^2)/80 - (5297*S2[2, Infinity]^3)/3360 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/96 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/8 + 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (105*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/8 - 
   (117*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (281*S2[1, n]^3*S2[3, Infinity])/96 + 
   (197*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (145*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (139*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (923*S2[3, Infinity]^2)/768 + (215*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (649*S2[1, n]*S2[5, Infinity])/128 + (3*S2[-5, -1, Infinity])/4 - 
   3*S2[-5, 1, n] - (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/2 - 
   (S2[1, n]^2*S2[-3, 1, n])/2 + (5*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + Half[S2[1, n], n]^2*S2[1, n]*
    S2[-2, 1, n] - (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (2*S2[1, n]^3*S2[-2, 1, n])/3 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (13*S2[3, Infinity]*S2[-2, 1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/3 - 
   (37*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] - (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 + 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n] + 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n] + S2[1, n]^4*S2[-1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n] - 
   (49*S2[2, Infinity]^2*S2[-1, 1, n])/20 - 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (19*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/4 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 + (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, n]^2 + S2[1, n]^2*S2[-1, 1, n]^2 + 
   (3*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + (5*S2[-1, 1, n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   2*S2[1, n]^3*S2[2, 1, n] + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (7*S2[3, Infinity]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 3*S2[-4, 1, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + 2*S2[1, n]^2*S2[-2, 1, -1, n] + 
   (S2[2, Infinity]*S2[-2, 1, -1, n])/2 + S2[-1, 1, n]*S2[-2, 1, -1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/2 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/2 - (S2[2, Infinity]*S2[-1, -2, -1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (5*S2[1, n]^2*S2[1, 2, -1, n])/2 - 
   S2[2, Infinity]*S2[1, 2, -1, n] - S2[-1, 1, n]*S2[1, 2, -1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] - (3*S2[1, n]^2*S2[2, 1, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[2, 1, -1, n])/4 - (S2[-1, 1, n]*S2[2, 1, -1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + 2*S2[1, n]^2*S2[2, 1, 1, n] + 
   (S2[2, Infinity]*S2[2, 1, 1, n])/2 + S2[-1, 1, n]*S2[2, 1, 1, n] - 
   2*S2[-3, 1, 1, 1, n] + S2[-2, 2, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 + S2[2, Infinity]*
    S2[-1, 1, 1, 1, n] - (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/4 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, n]*S2[1, 1, -1, 2, n] + 
   S2[2, -2, 1, 1, n]/2 - S2[-2, 1, 1, 1, 1, n] + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 6*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (17*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 + S2[1, n]*S2[1, -1, -1, 1, -1, n] + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + 3*Half[S2[1, n], n]*
    S2[1, 1, 1, -1, -1, n] - 3*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 
   S2[1, 1, 1, -1, 2, n] - S2[-1, 1, -1, -1, 1, 1, n] - 
   2*S2[-1, 1, 1, 1, 1, 1, Infinity] - S2[1, -1, -1, 1, 1, -1, n] - 
   S2[1, 1, -1, -1, 1, -1, n] - S2[1, 1, -1, 1, -1, -1, n] - 
   3*S2[1, 1, 1, -1, -1, -1, n], S2[-2, -2, 1, -1, n] -> 
  (83*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 - 
   (23*Diff[Half[S2[1, n], n], n, 5])/480 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 - Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (63*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (119*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (203*Diff[S2[1, n], n, 1]^3)/32 - (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (5*Diff[S2[1, n], n, 2]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/4 - 
   (355*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   Diff[S2[1, n], n, 5]/40 + Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2] + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 + 
   (39*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 3]/12 - (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 - 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, n], n, 1]^2 - (39*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/16 + 7*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] + (23*Diff[S2[1, n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - (23*Diff[S2[2, 1, n], n, 3])/24 + 
   4*Diff[S2[4, 1, n], n, 1] + 3*Diff[S2[-3, 1, 1, n], n, 1] - 
   (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (77*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, n], n, 3]/24 - Diff[S2[2, 1, -2, n], n, 1]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 - (13*Diff[S2[2, 1, 1, n], n, 2])/4 - 
   3*Diff[S2[3, 1, 1, n], n, 1] + (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/4 - Diff[S2[-1, 1, -1, 1, n], n, 2]/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 2] + Diff[S2[1, -1, 1, -2, n], n, 1] - 
   Diff[S2[1, -1, 1, 2, n], n, 1] + 4*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   2*Diff[S2[1, 1, -1, 2, n], n, 1] + Diff[S2[1, 1, 2, -1, n], n, 1] + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - 5*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 + 
   (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 + 
   3*Diff[S2[1, 1, -1, -1, -1, n], n, 1] + Diff[S2[1, 1, -1, 1, -1, n], n, 1]/
    2 + Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 + (17*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/4 - (55*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/3 + 
   (27*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   2*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n] + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 + (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    16 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (15*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 + (55*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    32 - (155*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (15*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 - 
   Half[S2[2, 1, n], n]^2/32 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/4 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/8 + Half[S2[2, 2, 1, 1, n], n]/8 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (37*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + 
   (7*S2[-1, Infinity]^6)/1440 + (71*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/2 - 
   2*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (133*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (3*Diff[S2[1, n], n, 4]*S2[1, n])/16 - 
   (55*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (51*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 + 3*Diff[S2[2, 1, n], n, 2]*
    S2[1, n] + Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n] - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 + 
   Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n] + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   6*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (81*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (109*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (45*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (29*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (55*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/6 - 
   (47*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (81*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/4 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (63*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (319*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 + 
   (109*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - 
   (53*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (89*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (19*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/192 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/8 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/6 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    3 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/4 + 
   (85*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]^4)/12 - (17*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + (5*S2[1, n]^6)/48 + (123*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (43*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    16 + (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (151*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (211*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 - 
   (37*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (195*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (27*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (33*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (353*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (17*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (103*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (33*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/4 + 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (63*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   6*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + 3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (171*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 - (21*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 + (17*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (11*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 + (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/8 + (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/
    4 + (27*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (25*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (115*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (69*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (5*S2[1, n]^4*S2[2, Infinity])/8 + 
   (523*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (1749*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (87*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (161*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (1059*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (61*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (1187*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (17*S2[1, n]^2*S2[2, Infinity]^2)/320 - (31853*S2[2, Infinity]^3)/2240 - 
   (791*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (833*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/24 + 
   (895*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 - (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/24 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/96 - 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/8 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (553*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (135*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (53*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (167*S2[1, n]^3*S2[3, Infinity])/192 - 
   (23*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (65*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (1101*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (1163*S2[3, Infinity]^2)/512 + (439*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (4645*S2[1, n]*S2[5, Infinity])/128 - (41*S2[-5, -1, Infinity])/8 - 
   8*S2[-5, 1, n] - 4*S2[1, n]*S2[-4, 1, n] + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (9*S2[1, n]^2*S2[-3, 1, n])/8 - (93*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (47*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 - Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] + (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/4 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/
    4 + (Half[S2[1, n], n]^3*S2[-2, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/12 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   4*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] + 
   (11*S2[3, Infinity]*S2[-2, 1, n])/6 - S2[-2, 1, n]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (27*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] - (19*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 - 
   (29*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (67*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (13*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (S2[1, n]^4*S2[-1, 1, n])/12 + (15*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (43*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] + 
   (17*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (611*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (59*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (45*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 + Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] - S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 + (35*S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 + 
   (49*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/12 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n] + (S2[1, n]^3*S2[2, 1, n])/24 - 
   (33*Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (27*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (43*S2[3, Infinity]*S2[2, 1, n])/8 - 3*S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/2 + 
   S2[1, n]*S2[4, 1, n] + S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - 
   S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n] - 
   (11*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (17*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (5*S2[-2, 2, -2, n])/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/8 + (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 - (19*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (31*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/3 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (177*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/8 - 
   Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n] + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 3*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (11*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/4 - (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/
    4 - (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/4 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 2*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*S2[-1, 1, 1, n]^2)/2 + (21*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 - (21*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 - S2[-1, 1, n]*S2[1, 2, -1, n] + S2[1, n]*S2[2, 1, -2, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/4 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (9*S2[1, n]^2*S2[2, 1, -1, n])/4 - (27*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (9*S2[1, n]^2*S2[2, 1, 1, n])/4 + (27*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   S2[-1, 1, n]*S2[2, 1, 1, n] + 2*S2[3, 1, -2, n] - 5*S2[4, 1, 1, n] + 
   6*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n] - 
   2*S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] + 
   S2[1, n]^2*S2[-1, 1, -1, -1, n] - (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/
    8 + S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (7*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (21*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (37*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   4*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (29*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (29*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   3*S2[1, n]*S2[1, 1, -2, -1, n] - 3*S2[1, n]*S2[1, 1, 2, -1, n] - 
   (3*S2[2, -2, 1, 1, n])/2 + 3*S2[1, n]*S2[2, 1, 1, 1, n] + 
   2*S2[-2, 1, 1, 1, 1, n] + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 - (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (47*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 2*S2[1, -1, -1, 1, 2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 3*S2[1, -1, 1, 1, -2, n] - 
   S2[1, -1, 1, 1, 2, n] + 2*S2[1, -1, 1, 2, -1, n] + 
   3*S2[1, 1, -2, -1, 1, n] + 4*S2[1, 1, -2, 1, -1, n] + 
   S2[1, 1, -1, -2, -1, n] + S2[1, 1, -1, -1, -2, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 4*S2[1, 1, -1, 1, -2, n] + 
   2*S2[1, 1, -1, 2, -1, n] + 14*S2[1, 1, 1, -2, -1, n] + 
   8*S2[1, 1, 1, -1, -2, n] - Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   S2[1, n]*S2[1, 1, 1, -1, -1, n] + 11*S2[1, 1, 1, 2, -1, n] + 
   4*S2[1, 1, 2, -1, -1, n] + 3*S2[1, 1, 2, -1, 1, n] + 
   6*S2[1, 1, 2, 1, -1, n] + 2*S2[1, 2, 1, -1, -1, n] + 
   2*S2[1, 2, 1, 1, -1, n] - 3*S2[2, 1, 1, 1, 1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/4 - (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, -1, -1, -1, n])/2 - 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/4 - (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   S2[-1, 1, 1, -1, -1, -1, n]/2 + S2[-1, 1, 1, 1, -1, -1, n] + 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/2 + (3*S2[1, -1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, -1, -1, 1, -1, -1, n])/2 + S2[1, -1, 1, -1, -1, -1, n] + 
   S2[1, -1, 1, 1, -1, -1, n] + 3*S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, -1, 1, -1, -1, n] + 3*S2[1, 1, 1, -1, -1, -1, n] + 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-2, 2, -1, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/96 + 
   (41*Diff[Half[S2[1, n], n], n, 2]^2)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/12 - 
   (227*Diff[Half[S2[1, n], n], n, 5])/576 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 - Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/3 + 
   (263*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/24 - 
   (357*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (113*Diff[S2[1, n], n, 1]^3)/12 + (17*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (49*Diff[S2[1, n], n, 2]^2)/16 + 
   (427*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (913*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 + 
   (185*Diff[S2[1, n], n, 5])/576 - Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/8 + (19*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   Diff[S2[-2, 1, n], n, 3] - (23*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 + 
   (31*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (211*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 + 
   (175*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (23*Diff[S2[-1, 1, n], n, 4])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (23*Diff[S2[2, 1, n], n, 3])/24 + 4*Diff[S2[4, 1, n], n, 1] + 
   6*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/4 - Diff[S2[1, 2, -1, n], n, 2] - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (4*Diff[S2[2, 1, -1, n], n, 2])/3 - 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 - 3*Diff[S2[3, 1, 1, n], n, 1] + 
   (9*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 + (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, -2, n], n, 
    1] - Diff[S2[1, -1, 1, 2, n], n, 1] + 4*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   2*Diff[S2[1, 1, -1, 2, n], n, 1] + Diff[S2[1, 1, 2, -1, n], n, 1] + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - 5*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (7*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (7*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/16 + (13*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (89*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    6 - (187*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (23*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (57*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (53*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (11*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (49*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (2*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/288 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/24 + (205*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/96 - (607*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    576 + (31*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (53*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (37*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/3 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/96 - 
   (13*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   Half[S2[2, 1, n], n]^2/32 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/8 + Half[S2[2, 2, 1, 1, n], n]/8 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + S2[-1, Infinity]^6/120 + 
   (163*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 + (3*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 - 
   (31*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 - 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (509*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 + 
   (249*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (69*Diff[S2[1, n], n, 4]*S2[1, n])/64 - 
   (113*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (433*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (119*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 3*Diff[S2[2, 1, n], n, 2]*
    S2[1, n] + (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/6 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (25*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (37*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    6 + (53*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (14*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (61*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   6*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (63*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (103*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Half[S2[1, n], n]^5*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (25*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - (Half[S2[3, 1, 1, n], n]*S2[1, n])/
    4 + (9*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (23*S2[-1, Infinity]^5*S2[1, n])/160 - 
   (95*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (85*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/6 - 
   (1241*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 + 
   (1259*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/12 - 
   (331*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (39*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - 
   (47*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (91*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (13*Half[S2[1, n], n]^4*S2[1, n]^2)/16 - 
   (35*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    12 + (241*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (79*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (155*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (23*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (43*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 + 2*Half[S2[1, n], n]^2*
    S2[1, n]^4 - (7*Half[S2[1, n], n]*S2[1, n]^5)/8 + (5*S2[1, n]^6)/48 + 
   (193*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/48 - 
   (22*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/9 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   (197*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (205*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (125*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (539*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 + 
   (25*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (67*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (10*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/6 - 
   (143*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/3 - 
   (7*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (31*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (19*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (123*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (21*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/6 - 
   (101*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (311*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/6 + (101*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 - (19*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 + (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (383*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (93*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity] + 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (91*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (41*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (107*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (133*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (107*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (13*S2[1, n]^4*S2[2, Infinity])/24 + 
   (235*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 + 
   (1141*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 + 
   (125*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/96 - 
   (813*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (567*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (1051*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 + 
   (2443*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (71*S2[1, n]^2*S2[2, Infinity]^2)/60 - (50369*S2[2, Infinity]^3)/3360 - 
   (293*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (445*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (431*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (1217*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (121*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (25*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (137*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (1475*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (317*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (383*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (221*S2[1, n]^3*S2[3, Infinity])/128 - 
   (61*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/24 - 
   (555*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (3107*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (3557*S2[3, Infinity]^2)/1536 + (663*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (8775*S2[1, n]*S2[5, Infinity])/256 - (13*S2[-5, -1, Infinity])/4 - 
   13*S2[-5, 1, n] - 5*S2[1, n]*S2[-4, 1, n] + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 + 
   (77*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (61*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 - 
   (49*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (13*S2[1, n]^2*S2[-3, 1, n])/48 - (361*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (17*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (13*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (143*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (35*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (25*S2[1, n]^3*S2[-2, 1, n])/24 - (4*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/3 + (10*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 + 
   (17*S2[3, Infinity]*S2[-2, 1, n])/8 - S2[-2, 1, n]^2/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 - 
   (115*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (79*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 - 
   3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 - 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (127*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 - 
   (S2[1, n]^4*S2[-1, 1, n])/4 + (65*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (29*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (21*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (73*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (4*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/3 + 
   (2521*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (117*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (31*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (S2[-3, 1, n]*S2[-1, 1, n])/2 + (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/16 + (17*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (5*S2[-1, 1, n]^3)/24 - (19*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    24 + (49*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (19*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (71*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (31*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (7*S2[1, n]^3*S2[2, 1, n])/48 - (31*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (21*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   6*S2[3, Infinity]*S2[2, 1, n] - 3*S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - (5*S2[2, 1, n]^2)/2 + 
   S2[1, n]*S2[4, 1, n] + 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - 
   2*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - (S2[1, n]^2*S2[-2, 1, -1, n])/
    4 + (7*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 + (5*S2[-2, 2, -2, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (7*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/48 - 
   (43*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/6 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/6 + 
   (185*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 3*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/4 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/4 + (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   S2[1, n]^3*S2[-1, 1, 1, n] - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (45*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (31*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (33*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (5*S2[2, 1, n]*S2[-1, 1, 1, n])/2 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 + 
   (3*S2[-1, 1, 1, n]^2)/2 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    4 + (13*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (9*S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   4*S2[2, Infinity]*S2[1, 2, -1, n] - (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   S2[1, n]*S2[2, 1, -2, n] + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/8 + (47*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (53*S2[1, n]^2*S2[2, 1, -1, n])/24 - (55*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - S2[-1, 1, n]*S2[2, 1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (11*S2[1, n]^2*S2[2, 1, 1, n])/4 + 
   6*S2[2, Infinity]*S2[2, 1, 1, n] - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   2*S2[3, 1, -2, n] - 5*S2[4, 1, 1, n] + 9*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n] - 3*S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (7*S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (25*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (33*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (27*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (111*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (39*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   3*S2[1, n]*S2[1, 1, -2, -1, n] - 3*S2[1, n]*S2[1, 1, 2, -1, n] - 
   (5*S2[2, -2, 1, 1, n])/2 + 3*S2[1, n]*S2[2, 1, 1, 1, n] + 
   3*S2[-2, 1, 1, 1, 1, n] + Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n] - 
   S2[1, n]*S2[-1, -1, 1, -1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (5*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (7*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (19*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (69*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   4*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   4*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 2*S2[1, -1, -1, 1, 2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 3*S2[1, -1, 1, 1, -2, n] - 
   S2[1, -1, 1, 1, 2, n] + 2*S2[1, -1, 1, 2, -1, n] + 
   3*S2[1, 1, -2, -1, 1, n] + 4*S2[1, 1, -2, 1, -1, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 4*S2[1, 1, -1, 1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 + 2*S2[1, 1, -1, 2, -1, n] + 
   14*S2[1, 1, 1, -2, -1, n] + 8*S2[1, 1, 1, -1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + 12*S2[1, 1, 1, 2, -1, n] + 
   4*S2[1, 1, 2, -1, -1, n] + 3*S2[1, 1, 2, -1, 1, n] + 
   6*S2[1, 1, 2, 1, -1, n] + 2*S2[1, 2, 1, -1, -1, n] + 
   2*S2[1, 2, 1, 1, -1, n] - 3*S2[2, 1, 1, 1, 1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n] - (5*S2[-1, -1, 1, -1, -1, -1, n])/2 + 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - 4*S2[-1, 1, -1, -1, -1, -1, n] - 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + S2[-1, 1, -1, -1, 1, 1, n]/2 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + S2[-1, 1, 1, -1, -1, -1, n]/2 + 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 6*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   5*S2[1, -1, -1, -1, -1, -1, n] + (3*S2[1, -1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, -1, -1, 1, -1, -1, n])/2 + S2[1, -1, -1, 1, 1, -1, n]/2 + 
   S2[1, -1, 1, -1, -1, -1, n] + 3*S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, -1, -1, 1, -1, n]/2 + S2[1, 1, -1, 1, -1, -1, n]/2 + 
   (3*S2[1, 1, 1, -1, -1, -1, n])/2 + (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-2, 2, -1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/32 + Diff[Half[S2[1, n], n], n, 2]^2/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 + 
   (23*Diff[Half[S2[1, n], n], n, 5])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/96 - Diff[Half[S2[4, 1, n], n], n, 1]/
    16 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/8 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (29*Diff[S2[1, n], n, 1]^3)/96 - (39*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (17*Diff[S2[1, n], n, 2]^2)/12 - 
   (113*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (85*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/64 - 
   (211*Diff[S2[1, n], n, 5])/1440 - (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   (15*Diff[S2[-3, 1, n], n, 2])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 3]/24 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 - 
   (13*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (31*Diff[S2[-1, 1, n], n, 4])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   Diff[S2[2, 1, n], n, 3]/8 - Diff[S2[4, 1, n], n, 1]/2 - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, n], n, 3]/12 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, n], n, 3]/8 + Diff[S2[1, 2, -1, n], n, 2]/2 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (3*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/8 - Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/4 + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/
    4 + (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + Diff[S2[1, 1, 1, -1, -1, n], 
    n, 1] - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (7*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 - 
   (11*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 - 
   Half[S2[2, 1, n], n]^2/16 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + (7*S2[-1, Infinity]^6)/1440 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n] - 
   (9*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (191*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (45*Diff[S2[1, n], n, 4]*S2[1, n])/64 + 
   (65*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (121*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (9*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (45*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (95*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 - 
   (7*S2[-1, Infinity]^5*S2[1, n])/240 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (47*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (7*Diff[S2[1, n], n, 3]*S2[1, n]^2)/8 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 - 
   (23*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (85*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/4 + 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    48 + (15*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (9*Half[S2[1, n], n]^3*S2[1, n]^3)/8 - (9*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (47*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (109*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]^4)/12 + (35*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - (5*S2[1, n]^6)/12 - (7*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 - (29*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    48 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (45*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 - 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (39*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/4 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (21*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (39*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (35*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (59*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (13*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (77*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (49*S2[1, n]^4*S2[2, Infinity])/48 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 + 
   (1227*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (47*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 - 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (29*S2[-1, Infinity]^2*S2[2, Infinity]^2)/10 + 
   (111*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (217*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (333*S2[1, n]^2*S2[2, Infinity]^2)/160 - (2741*S2[2, Infinity]^3)/840 + 
   (51*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (81*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/24 - 
   (181*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/64 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (247*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (389*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (53*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 + 
   (263*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/192 - 
   (371*S2[1, n]^3*S2[3, Infinity])/192 - 
   (77*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (119*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 - 
   (431*S2[3, Infinity]^2)/192 + (63*Half[S2[1, n], n]*S2[5, Infinity])/128 + 
   (613*S2[1, n]*S2[5, Infinity])/64 + (25*S2[-5, -1, Infinity])/8 + 
   6*S2[1, n]*S2[-4, 1, n] - (39*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (57*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/2 - 
   (31*S2[1, n]^2*S2[-3, 1, n])/8 - (37*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/4 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    2 + Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (3*S2[1, n]^3*S2[-2, 1, n])/4 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-2, 1, n] - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (13*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (S2[3, Infinity]*S2[-2, 1, n])/8 - S2[-2, 1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/6 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (3*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (43*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (19*S2[1, n]^4*S2[-1, 1, n])/24 - (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (29*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (153*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (23*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/96 - 
   (13*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/48 - 
   (23*S2[-3, 1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 + 
   (47*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/8 + (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    2 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (55*S2[1, n]^3*S2[2, 1, n])/24 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (25*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (11*S2[3, Infinity]*S2[2, 1, n])/24 - 2*S2[-2, 1, n]*S2[2, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - S2[2, 1, n]^2 + 
   4*S2[1, n]*S2[4, 1, n] + S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   S2[1, n]^2*S2[-2, 1, -1, n] + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + 
   (3*S2[-2, 2, -2, n])/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/16 + (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - (S2[1, n]^2*S2[-1, -2, -1, n])/
    8 - (7*S2[2, Infinity]*S2[-1, -2, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (11*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (83*S2[3, Infinity]*S2[-1, 1, -1, n])/192 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - (S2[2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   S2[1, n]^3*S2[-1, 1, 1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[-1, 1, 1, n]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   2*S2[1, n]^2*S2[1, 2, -1, n] - (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   S2[1, n]*S2[2, 1, -2, n] + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/8 - (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 + (3*S2[1, n]^2*S2[2, 1, -1, n])/
    4 - (7*S2[2, Infinity]*S2[2, 1, -1, n])/8 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + 2*S2[2, Infinity]*S2[2, 1, 1, n] - 
   S2[1, n]*S2[3, 1, 1, n] + S2[4, 1, 1, n] + S2[-2, -2, 1, 1, n] + 
   S2[1, n]*S2[-2, 1, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    8 - (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] - S2[1, n]^2*S2[-1, 1, 1, 1, n] - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (33*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + S2[1, n]*S2[1, 1, -1, 2, n] + 
   S2[1, n]*S2[2, 1, 1, 1, n] - S2[2, 2, 1, 1, n]/2 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    2 + Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n] - 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (7*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   S2[1, n]*S2[1, -1, 1, -1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + S2[1, 1, 1, -1, -2, n] - 
   S2[2, 1, 1, 1, 1, n] - S2[-1, -1, 1, 1, -1, -1, n] - 
   S2[-1, 1, -1, -1, -1, 1, n]/4 - S2[-1, 1, -1, 1, -1, -1, n]/2 - 
   S2[-1, 1, -1, 1, 1, 1, n]/2 - 2*S2[-1, 1, 1, -1, -1, -1, n] + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 - (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + S2[1, -1, -1, 1, -1, -1, n] + 
   S2[1, -1, 1, -1, -1, -1, n]/2 + S2[1, 1, 1, -1, 1, -1, n]/2 + 
   2*S2[1, 1, 1, 1, -1, -1, n], S2[-2, 2, 1, -1, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 1]^3)/96 - 
   (199*Diff[Half[S2[1, n], n], n, 2]^2)/192 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 + 
   (125*Diff[Half[S2[1, n], n], n, 5])/576 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (31*Diff[Half[S2[2, 1, n], n], n, 3])/96 + 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/8 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   (33*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (43*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (237*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (599*Diff[S2[1, n], n, 1]^3)/96 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (31*Diff[S2[1, n], n, 2]^2)/32 - 
   (51*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/64 + 
   (575*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (259*Diff[S2[1, n], n, 5])/2880 - 3*Diff[S2[-4, 1, n], n, 1] - 
   (13*Diff[S2[-3, 1, n], n, 2])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   (11*Diff[S2[-2, 1, n], n, 3])/24 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (49*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (119*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (11*Diff[S2[-1, 1, n], n, 4])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (19*Diff[S2[2, 1, n], n, 3])/24 - (7*Diff[S2[4, 1, n], n, 1])/2 - 
   4*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, n], n, 3]/4 + Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -2, n], n, 1] + (5*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   (11*Diff[S2[2, 1, 1, n], n, 2])/4 + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   3*Diff[S2[-2, 1, 1, 1, n], n, 1] + (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    8 + Diff[S2[-1, 1, -1, 1, n], n, 2]/4 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - Diff[S2[1, -1, 1, -2, n], n, 1] + 
   Diff[S2[1, -1, 1, 2, n], n, 1] - 3*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   2*Diff[S2[1, 1, -1, 2, n], n, 1] - Diff[S2[1, 2, -1, -1, n], n, 1] + 
   4*Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + Diff[S2[-1, 1, -1, 1, 1, n], 
    n, 1] + Diff[S2[-1, 1, 1, 1, -1, n], n, 1] - 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/3 - (19*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/8 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (17*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (37*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 - (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 - (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (7*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   4*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2 + 
   (49*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/3 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (3*Half[S2[2, 1, n], n]^2)/64 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 + (21*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/64 + (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    48 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - S2[-1, Infinity]^6/240 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    24 - (19*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (143*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (189*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (121*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (61*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (65*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (109*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (39*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (15*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] - Diff[S2[-1, 1, 1, 1, n], n, 1]*
    S2[1, n] - (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/
    24 - (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (59*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   6*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 + 
   (17*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/32 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 - 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/16 + 
   (103*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (79*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (147*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 + 
   (35*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/16 + 
   6*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (211*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (27*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (13*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/64 - 
   (93*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   5*Diff[S2[1, n], n, 2]*S2[1, n]^3 - 
   (95*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (2*Half[S2[1, n], n]^3*S2[1, n]^3)/3 - 
   (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (69*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^4)/4 + (3*Half[S2[1, n], n]*S2[1, n]^5)/
    8 - S2[1, n]^6/16 - (43*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    16 + (95*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/32 + 
   (113*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] + 
   (79*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   2*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (245*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/2 + 
   Half[S2[2, 1, 1, n], n]*S2[2, Infinity] + 
   (85*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (31*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (139*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 + (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (303*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (21*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 - (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (67*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (129*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (25*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (81*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (123*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (77*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (145*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (7*S2[1, n]^4*S2[2, Infinity])/24 - 
   (921*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (427*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (31*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 + 
   (61*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (1069*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (181*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (827*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (121*S2[1, n]^2*S2[2, Infinity]^2)/80 + (3915*S2[2, Infinity]^3)/448 + 
   (425*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (875*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/12 + 
   (1333*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (81*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/24 - 
   (541*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (875*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 - 
   (1225*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (545*S2[1, n]^3*S2[3, Infinity])/384 - 
   (227*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/96 + 
   (489*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (949*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (1949*S2[3, Infinity]^2)/3072 - (317*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (2733*S2[1, n]*S2[5, Infinity])/128 + (29*S2[-5, -1, Infinity])/8 + 
   4*S2[-5, 1, n] + 3*S2[1, n]*S2[-4, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   (25*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-3, 1, n] + (47*S2[1, n]^2*S2[-3, 1, n])/16 + 
   (49*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (55*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (13*S2[1, n]^3*S2[-2, 1, n])/24 + 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-2, 1, n] + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (49*S2[3, Infinity]*S2[-2, 1, n])/32 + (3*S2[-2, 1, n]^2)/4 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (103*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/24 - (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/8 + (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, n])/4 + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*
     S2[-1, 1, n])/8 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*
     S2[-1, 1, n])/16 - (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 + (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (39*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (25*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (63*S2[2, Infinity]^2*S2[-1, 1, n])/32 - 
   (427*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (187*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (23*S2[-3, 1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (9*S2[1, n]^2*S2[-1, 1, n]^2)/16 - (3*S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 - 
   (115*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (7*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (87*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (31*S2[1, n]^3*S2[2, 1, n])/48 + (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (455*S2[3, Infinity]*S2[2, 1, n])/96 + (7*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (11*S2[2, 1, n]^2)/4 - 
   S2[1, n]*S2[4, 1, n] - 4*S2[-4, 1, 1, n] + 2*S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + (13*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   4*S2[2, Infinity]*S2[-2, 1, -1, n] - (3*S2[-2, 2, -2, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/16 + (9*S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/3 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    16 - (73*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   S2[2, 1, n]*S2[-1, 1, -1, n] + (3*S2[-1, 1, -1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/2 - 2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (13*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - 2*S2[2, 1, n]*S2[-1, 1, 1, n] - S2[-1, 1, 1, n]^2/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (5*S2[1, n]^2*S2[1, 2, -1, n])/2 + 
   (7*S2[2, Infinity]*S2[1, 2, -1, n])/2 + S2[-1, 1, n]*S2[1, 2, -1, n] - 
   S2[1, n]*S2[2, 1, -2, n] - (15*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/8 - (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] + (21*S2[1, n]^2*S2[2, 1, -1, n])/8 + 
   (7*S2[2, Infinity]*S2[2, 1, -1, n])/4 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/
    4 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - 
   (9*S2[2, Infinity]*S2[2, 1, 1, n])/2 + S2[-1, 1, n]*S2[2, 1, 1, n] - 
   S2[3, 1, -2, n] + 2*S2[1, n]*S2[3, 1, 1, n] + 6*S2[4, 1, 1, n] - 
   6*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n] + 
   3*S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   4*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] - 
   4*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 4*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] + 4*S2[1, n]^2*S2[-1, 1, 1, 1, n] + 
   (25*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   (63*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (19*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]*S2[1, 1, -2, -1, n] + S2[1, n]*S2[1, 1, 2, -1, n] + 
   S2[2, -2, 1, 1, n] - S2[1, n]*S2[2, 1, 1, 1, n] - S2[2, 2, 1, 1, n] - 
   3*S2[-2, 1, 1, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (11*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (17*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 2*S2[1, -1, -1, 1, 2, n] + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 3*S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 1, 2, n] - 2*S2[1, -1, 1, 2, -1, n] - 
   S2[1, 1, -2, -1, 1, n] - 2*S2[1, 1, -2, 1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 3*S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] - 9*S2[1, 1, 1, -2, -1, n] - 
   7*S2[1, 1, 1, -1, -2, n] - 6*S2[1, 1, 1, 2, -1, n] - 
   4*S2[1, 1, 2, -1, -1, n] - S2[1, 1, 2, -1, 1, n] - 
   4*S2[1, 1, 2, 1, -1, n] - 2*S2[1, 2, 1, -1, -1, n] - 
   2*S2[1, 2, 1, 1, -1, n] + S2[2, 1, 1, 1, 1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n]/4 + (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + (3*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - S2[-1, 1, 1, 1, -1, 1, n]/2 + 
   3*S2[-1, 1, 1, 1, 1, 1, Infinity] + (5*S2[1, -1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 - (3*S2[1, -1, -1, 1, -1, -1, n])/2 - 
   (3*S2[1, -1, 1, -1, -1, -1, n])/2 - 3*S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, 1, -1, 1, -1, n]/2 - 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-2, -1, -2, -1, n] -> (-5*Diff[Half[S2[1, n], n], n, 1]^3)/96 + 
   (251*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (367*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (905*Diff[Half[S2[1, n], n], n, 5])/576 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (71*Diff[Half[S2[2, 1, n], n], n, 3])/96 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/2 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/8 - 
   (3*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 + 
   (203*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (3439*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (2683*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (2431*Diff[S2[1, n], n, 1]^3)/96 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/2 - 
   11*Diff[S2[1, n], n, 2]^2 + (4535*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/576 - (11843*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/576 + (3529*Diff[S2[1, n], n, 5])/2880 + 
   (17*Diff[S2[-4, 1, n], n, 1])/2 + (27*Diff[S2[-3, 1, n], n, 2])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (275*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (27*Diff[S2[-2, 1, n], n, 3])/8 - (79*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 + 
   (487*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (113*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (983*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (121*Diff[S2[-1, 1, n], n, 4])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[2, 1, n], n, 3])/3 + 8*Diff[S2[4, 1, n], n, 1] + 
   (37*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/2 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/2 - (3*Diff[S2[-1, -2, -1, n], n, 2])/
    16 - (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/48 - 
   (93*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (165*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (17*Diff[S2[-1, 1, 1, n], n, 3])/8 - (9*Diff[S2[1, 2, -1, n], n, 2])/2 - 
   (3*Diff[S2[2, 1, -2, n], n, 1])/2 - (39*Diff[S2[2, 1, -1, n], n, 2])/8 - 
   (13*Diff[S2[2, 1, 1, n], n, 2])/2 - 7*Diff[S2[3, 1, 1, n], n, 1] + 
   (29*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/4 + 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + 
   2*Diff[S2[1, -1, 1, -2, n], n, 1] - 4*Diff[S2[1, -1, 1, 2, n], n, 1] + 
   6*Diff[S2[1, 1, -2, -1, n], n, 1] - (11*Diff[S2[1, 1, -1, 2, n], n, 1])/
    2 + 2*Diff[S2[1, 2, -1, -1, n], n, 1] - 
   10*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/4 + 
   (5*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 - 
   (7*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - 
   3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1] - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 + 
   12*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   (17*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   (7*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (21*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (21*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + Diff[S2[1, 1, -1, 1, -1, n], 
    n, 1] + 2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (239*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (39*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (691*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (707*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 + 
   (385*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/3 - (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (91*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 - (17*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (67*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (25*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (67*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (7*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (95*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 - (115*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    48 + (16*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/3 + 
   (47*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (37*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (131*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/6 - 
   (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (109*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (2*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/3 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    24 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    24 - (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/24 - 
   Half[S2[2, 1, n], n]^2/16 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (33*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/2 - (173*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/192 - (107*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/80 + (23*S2[-1, Infinity]^6)/720 + 
   (223*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 + (733*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (17*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 - 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (269*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (743*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (2455*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (2855*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (529*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 - 
   (403*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (737*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (73*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (67*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (19*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (89*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (47*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] - 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (37*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (31*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 + (44*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    3 - (97*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 - 
   (79*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (79*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (35*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (37*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   12*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (139*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (413*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (193*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 + 
   (211*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Half[S2[1, n], n]^5*S2[1, n])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 + 
   (31*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (47*S2[-1, Infinity]^5*S2[1, n])/240 - 
   (79*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (421*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 + 
   (47*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/24 + 
   (941*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 - 
   (413*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/12 + 
   (373*Diff[S2[1, n], n, 3]*S2[1, n]^2)/36 - 8*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 - (317*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 - 
   (57*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (35*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   12*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - 
   (107*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (97*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (203*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/4 - 
   (47*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/24 + 
   (295*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (149*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (425*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (10*Half[S2[1, n], n]^3*S2[1, n]^3)/3 + 
   (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/8 - 
   (107*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (101*Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 + 
   (47*Half[S2[1, n], n]^2*S2[1, n]^4)/12 - 2*Half[S2[1, n], n]*S2[1, n]^5 + 
   S2[1, n]^6/3 + (109*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 - 
   (1351*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 - 
   (31*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/4 - 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (195*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (955*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (38*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 - 
   (199*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (25*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (83*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (347*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (185*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    24 - (195*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 + 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/24 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/2 - 
   (241*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity] + 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + 4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, Infinity]*S2[2, Infinity] + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (431*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/2 - 
   (61*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (91*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (385*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (331*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 - 
   (641*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (515*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (17*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/12 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    24 + (35*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - 31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] - (31*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (17*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (2*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   (677*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 + 
   (161*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 + 
   6*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity] - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (13*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (93*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (4*S2[1, n]^4*S2[2, Infinity])/3 + 
   (2757*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (2069*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 + 
   (269*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/120 - 
   (293*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (1111*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (1589*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 + 
   (757*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (S2[1, n]^2*S2[2, Infinity]^2)/15 - (5235*S2[2, Infinity]^3)/224 - 
   (2087*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (181*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 - 
   (349*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (919*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/6 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/96 - 
   (63*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (247*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/48 - 
   (115*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (121*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (53*S2[1, n]^3*S2[3, Infinity])/96 - 
   (77*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/24 - 
   (885*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (1255*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 - 
   (7429*S2[3, Infinity]^2)/768 + (939*Half[S2[1, n], n]*S2[5, Infinity])/
    64 - (5459*S2[1, n]*S2[5, Infinity])/64 + (13*S2[-5, -1, Infinity])/4 - 
   16*S2[-5, 1, n] - 6*S2[1, n]*S2[-4, 1, n] + 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 + 
   (275*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (13*S2[1, n]^2*S2[-3, 1, n])/3 - (391*S2[2, Infinity]*S2[-3, 1, n])/24 - 
   (73*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (95*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/6 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (67*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (31*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 + 
   (47*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 + 
   (S2[1, n]^3*S2[-2, 1, n])/2 - (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/6 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (32*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 + 
   (31*S2[3, Infinity]*S2[-2, 1, n])/8 - S2[-2, 1, n]^2 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/72 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/16 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (295*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (547*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 - 
   (49*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/2 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/6 - 
   (2*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/3 - 
   (25*S2[-1, Infinity]^4*S2[-1, 1, n])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (79*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (127*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (3*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/2 + 
   (2*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/3 - 
   (181*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (539*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   2*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n] - 
   (47*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (77*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (11*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (2137*S2[2, Infinity]^2*S2[-1, 1, n])/240 + 
   (27*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/8 + 
   (27*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/8 - 
   (49*S2[-3, 1, n]*S2[-1, 1, n])/12 + 
   (8*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/3 - 
   (8*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/3 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (149*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/12 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/6 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/12 + (23*S2[2, Infinity]*S2[-1, 1, n]^2)/6 - 
   (89*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 + 
   (191*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/12 + 2*Half[S2[2, 1, n], n]*
    S2[2, 1, n] - (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (63*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n] + 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (5*S2[1, n]^3*S2[2, 1, n])/6 - (49*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + 6*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (65*S2[3, Infinity]*S2[2, 1, n])/4 - 8*S2[-2, 1, n]*S2[2, 1, n] + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - (13*S2[2, 1, n]^2)/2 + 
   10*S2[1, n]*S2[4, 1, n] + 16*S2[-4, 1, 1, n] - 
   8*S2[1, n]*S2[-3, 1, 1, n] - S2[1, n]*S2[-2, 1, -2, n] - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (33*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   10*S2[2, Infinity]*S2[-2, 1, -1, n] + 3*S2[-2, 2, -2, n] + 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (89*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/3 - (73*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (7*S2[-1, 1, n]*S2[-1, -2, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (55*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/6 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (95*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/3 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/6 + 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/6 - 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/3 + 
   (243*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/2 - (5*S2[-1, 1, -1, n]^2)/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   6*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   3*S2[1, n]^3*S2[-1, 1, 1, n] - 3*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + 10*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (21*S2[3, Infinity]*S2[-1, 1, 1, n])/8 + 8*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   3*S2[-1, 1, 1, n]^2 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    4 + (67*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   2*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] - 
   8*S2[1, n]^2*S2[1, 2, -1, n] - 6*S2[2, Infinity]*S2[1, 2, -1, n] - 
   2*S2[-1, 1, n]*S2[1, 2, -1, n] + 4*S2[1, n]*S2[2, 1, -2, n] + 
   (91*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 + 
   (245*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/2 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 - 
   (26*S2[1, n]^2*S2[2, 1, -1, n])/3 - (25*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (19*S2[-1, 1, n]*S2[2, 1, -1, n])/6 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - 7*S2[1, n]^2*S2[2, 1, 1, n] + 
   13*S2[2, Infinity]*S2[2, 1, 1, n] - 4*S2[-1, 1, n]*S2[2, 1, 1, n] + 
   4*S2[3, 1, -2, n] - 12*S2[4, 1, 1, n] + 24*S2[-3, 1, 1, 1, n] - 
   2*S2[-2, -2, 1, 1, n] - 12*S2[1, n]*S2[-2, 1, 1, 1, n] + 
   4*S2[-2, 2, 1, 1, n] + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/6 - (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    24 - (10*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (10*S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 + 
   (10*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   6*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   6*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (37*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    2 - 6*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (173*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (107*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (111*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (25*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   2*S2[1, n]*S2[1, 1, -2, -1, n] - 4*S2[1, n]*S2[1, 1, 2, -1, n] - 
   4*S2[2, -2, 1, 1, n] + 6*S2[1, n]*S2[2, 1, 1, 1, n] + 
   12*S2[-2, 1, 1, 1, 1, n] + Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n] - 
   S2[1, n]*S2[-1, -1, 1, -1, -1, n] + 3*Half[S2[1, n], n]*
    S2[-1, 1, -1, -1, -1, n] + (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   3*S2[1, n]*S2[-1, 1, -1, 1, 1, n] - 3*S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (47*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   6*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   6*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (9*S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + 4*S2[1, -1, -1, 1, 2, n] - 
   (7*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 + 
   (7*S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + 6*S2[1, -1, 1, 1, -2, n] - 
   4*S2[1, -1, 1, 1, 2, n] + 4*S2[1, -1, 1, 2, -1, n] + 
   2*S2[1, 1, -2, -1, 1, n] + 4*S2[1, 1, -2, 1, -1, n] - 
   7*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   7*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 8*S2[1, 1, -1, 1, -2, n] + 
   4*S2[1, 1, -1, 2, -1, n] + 16*S2[1, 1, 1, -2, -1, n] + 
   16*S2[1, 1, 1, -1, -2, n] + 24*S2[1, 1, 1, 2, -1, n] + 
   8*S2[1, 1, 2, -1, -1, n] + 4*S2[1, 1, 2, -1, 1, n] + 
   16*S2[1, 1, 2, 1, -1, n] + 4*S2[1, 2, 1, -1, -1, n] + 
   8*S2[1, 2, 1, 1, -1, n] - 6*S2[2, 1, 1, 1, 1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n] - 3*S2[-1, -1, 1, -1, -1, -1, n] - 
   6*S2[-1, 1, -1, -1, -1, -1, n] - (9*S2[-1, 1, -1, -1, -1, 1, n])/2 - 
   S2[-1, 1, -1, 1, -1, -1, n] - 3*S2[-1, 1, -1, 1, 1, 1, n] - 
   2*S2[-1, 1, 1, -1, -1, -1, n] + 3*S2[-1, 1, 1, 1, -1, 1, n] - 
   23*S2[-1, 1, 1, 1, 1, 1, Infinity] - 10*S2[1, -1, -1, -1, -1, -1, n] + 
   (7*S2[1, -1, -1, -1, 1, -1, n])/2 + 6*S2[1, -1, -1, 1, -1, -1, n] + 
   3*S2[1, -1, 1, -1, -1, -1, n] + 8*S2[1, 1, -1, -1, -1, -1, n] + 
   3*S2[1, 1, 1, -1, 1, -1, n] + 12*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-2, -1, -2, 1, n] -> (-13*Diff[Half[S2[1, n], n], n, 1]^3)/32 - 
   Diff[Half[S2[1, n], n], n, 2]^2 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 3])/6 - (29*Diff[Half[S2[1, n], n], n, 5])/
    320 + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 + 
   (91*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (773*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (359*Diff[S2[1, n], n, 1]^3)/48 + (45*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (83*Diff[S2[1, n], n, 2]^2)/48 + 
   (239*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (73*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (157*Diff[S2[1, n], n, 5])/960 - (31*Diff[S2[-3, 1, n], n, 2])/24 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (16*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   Diff[S2[-2, 1, n], n, 3]/4 + (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, n], n, 1]^2/8 + (169*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/96 - 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (7*Diff[S2[-1, 1, n], n, 4])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (23*Diff[S2[2, 1, n], n, 3])/24 - 4*Diff[S2[4, 1, n], n, 1] - 
   (11*Diff[S2[-3, 1, 1, n], n, 1])/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - (5*Diff[S2[-1, -2, -1, n], n, 2])/
    24 - (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (53*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/12 + Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + Diff[S2[2, 1, -1, n], n, 2]/12 + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   (7*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/
    24 + Diff[S2[-1, 1, -1, 1, n], n, 2]/2 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1] + 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 4*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 2*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   Diff[S2[1, 2, -1, -1, n], n, 1] + 5*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] + (13*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 - 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (7*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (181*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/16 + (41*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (13*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (19*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (161*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (221*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (13*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (59*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (31*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (45*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - (115*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (47*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (53*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (89*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/32 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (101*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 + 
   (73*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - S2[-1, Infinity]^6/80 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 + (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 - 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (85*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (131*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (107*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (99*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (23*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 + 
   (521*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (47*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 - Diff[S2[2, 1, n], n, 2]*
    S2[1, n] + (13*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (47*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 - 
   (21*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (13*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (67*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (121*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (15*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (41*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   4*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (45*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (455*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (247*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (55*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/2 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (11*S2[-1, Infinity]^5*S2[1, n])/96 - 
   (47*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 - 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (15*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (201*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 + 
   (37*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (721*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (39*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 + 
   (77*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (445*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (97*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (221*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (27*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (17*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 - 
   (63*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (29*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (85*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (119*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/3 + (41*Half[S2[1, n], n]*S2[1, n]^5)/
    12 - (47*S2[1, n]^6)/48 - (425*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/96 + (121*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/48 - (11*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/16 + (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/
    16 + (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     S2[2, Infinity])/24 + (457*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 - 
   (41*Diff[S2[1, n], n, 3]*S2[2, Infinity])/64 + 
   5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] + 
   (137*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/24 - 
   (25*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (27*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (27*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (147*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 - 
   (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (13*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (69*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (25*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (51*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 - (357*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (27*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (91*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (43*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (79*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - 11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] + (19*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 - 
   (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (783*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (87*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (31*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 - 
   (63*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (81*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (101*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (441*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (93*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (439*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (381*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (191*S2[1, n]^4*S2[2, Infinity])/48 - 
   (123*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 - 
   (2623*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 - 
   (243*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 - 
   (401*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (1293*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (229*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (371*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (441*S2[1, n]^2*S2[2, Infinity]^2)/160 + (22987*S2[2, Infinity]^3)/1680 + 
   (661*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (17*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (385*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/6 - 
   (2479*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (33*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (265*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (4429*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (151*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (1257*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (981*S2[1, n]^3*S2[3, Infinity])/128 - 
   (493*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (419*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (6281*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (25*S2[3, Infinity]^2)/1536 - (1307*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (2759*S2[1, n]*S2[5, Infinity])/64 - (29*S2[-5, -1, Infinity])/8 + 
   6*S2[-5, 1, n] + 2*S2[1, n]*S2[-4, 1, n] - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   2*Diff[S2[1, n], n, 1]*S2[-3, 1, n] - 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/2 + 
   (15*S2[1, n]^2*S2[-3, 1, n])/16 + (25*S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 - 
   (17*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (77*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (61*S2[1, n]^3*S2[-2, 1, n])/24 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (27*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (33*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (43*S2[3, Infinity]*S2[-2, 1, n])/48 + S2[-2, 1, n]^2/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/6 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/12 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 + 
   (287*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/3 + 
   (15*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (53*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n] + 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n] - 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/2 - 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/32 - Diff[Half[S2[1, n], n], n, 2]*
    S2[1, n]*S2[-1, 1, n] + (9*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/
    4 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (29*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (119*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (47*S2[1, n]^4*S2[-1, 1, n])/24 - (65*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (41*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n] + 
   (39*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (21*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (393*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (15*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (41*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (19*S2[-3, 1, n]*S2[-1, 1, n])/8 + Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] - 3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (41*S2[1, n]^2*S2[-1, 1, n]^2)/16 - (51*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 - (4*S2[-1, 1, n]^3)/3 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    24 - (29*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (71*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (197*S2[1, n]^3*S2[2, 1, n])/48 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (29*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (27*S2[3, Infinity]*S2[2, 1, n])/16 + 4*S2[-2, 1, n]*S2[2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (17*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/2 - 
   S2[1, n]*S2[4, 1, n] - 7*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 
   2*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   4*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (21*S2[1, n]^2*S2[-2, 1, -1, n])/4 - (15*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - 3*S2[-1, 1, n]*S2[-2, 1, -1, n] - (5*S2[-2, 2, -2, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, -2, -1, n] + (17*S2[1, n]^2*S2[-1, -2, -1, n])/16 + 
   S2[2, Infinity]*S2[-1, -2, -1, n] + (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/3 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, -1, n] + (7*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, -1, n])/8 + (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/
    8 - (7*S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (17*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (45*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (25*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (19*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   2*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n] - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - Half[S2[2, 1, n], n]*
    S2[-1, 1, 1, n] - 3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (13*S2[1, n]^3*S2[-1, 1, 1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (21*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (21*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 4*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   2*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] - 
   2*S2[-1, 1, -1, n]*S2[-1, 1, 1, n] - (3*S2[-1, 1, 1, n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   7*S2[1, n]^2*S2[1, 2, -1, n] + (13*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   3*S2[-1, 1, n]*S2[1, 2, -1, n] - (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (25*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] + (39*S2[1, n]^2*S2[2, 1, -1, n])/8 + 
   (21*S2[2, Infinity]*S2[2, 1, -1, n])/4 + (9*S2[-1, 1, n]*S2[2, 1, -1, n])/
    4 - (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (9*S2[1, n]^2*S2[2, 1, 1, n])/4 - 
   (25*S2[2, Infinity]*S2[2, 1, 1, n])/4 - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/
    2 - (7*S2[3, 1, -2, n])/2 + 5*S2[4, 1, 1, n] - 11*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] + (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[-2, 1, 1, 2, n] - (5*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] - 
   (15*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   2*S2[-1, 1, n]*S2[-1, 1, -1, 1, n] + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (11*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (101*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (21*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (171*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (39*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, n]*S2[1, 1, -2, -1, n] + 2*S2[1, n]*S2[1, 1, -1, 2, n] + 
   (7*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 5*S2[2, -2, 1, 1, n] - 
   3*S2[1, n]*S2[2, 1, 1, 1, n] + S2[-2, 1, 1, 1, 1, n]/2 - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   3*S2[1, n]*S2[-1, 1, -1, -1, 1, n] - 2*Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] + (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (5*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + 6*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] - (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (73*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (55*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + S2[1, -2, -1, 1, -1, n] - 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 2*S2[1, -1, -1, 1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (13*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 2*S2[1, -1, -1, 1, 2, n] - 
   S2[1, -1, 1, -2, -1, n] + (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 - (17*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 3*S2[1, -1, 1, 1, -2, n] - 
   S2[1, -1, 1, 1, 2, n]/2 - 2*S2[1, -1, 1, 2, -1, n] - 
   3*S2[1, 1, -2, -1, 1, n] - 4*S2[1, 1, -2, 1, -1, n] - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] + 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   9*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 4*S2[1, 1, -1, 1, -2, n] - 
   4*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] + 
   4*S2[1, n]*S2[1, 1, -1, 1, -1, n] - 2*S2[1, 1, -1, 1, 2, n] - 
   2*S2[1, 1, -1, 2, -1, n] - 14*S2[1, 1, 1, -2, -1, n] - 
   8*S2[1, 1, 1, -1, -2, n] - 7*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   7*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 6*S2[1, 1, 1, -1, 2, n] - 
   16*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   (7*S2[1, 1, 2, -1, 1, n])/2 - 8*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] + 
   3*S2[2, 1, 1, 1, 1, n] + S2[-1, -1, -1, 1, -1, -1, n]/2 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/2 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   3*S2[-1, 1, -1, -1, -1, -1, n] + (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   4*S2[-1, 1, -1, -1, 1, 1, n] + (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 
   S2[-1, 1, 1, -1, -1, -1, n]/2 + 2*S2[-1, 1, 1, -1, -1, 1, n] + 
   S2[-1, 1, 1, 1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 
   9*S2[-1, 1, 1, 1, 1, 1, Infinity] + 5*S2[1, -1, -1, -1, -1, -1, n] - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 - (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   4*S2[1, -1, -1, 1, 1, -1, n] - S2[1, -1, 1, -1, -1, -1, n] + 
   S2[1, -1, 1, 1, -1, -1, n] - 3*S2[1, 1, -1, -1, -1, -1, n] + 
   4*S2[1, 1, -1, -1, 1, -1, n] + 3*S2[1, 1, -1, 1, -1, -1, n] + 
   9*S2[1, 1, 1, -1, -1, -1, n] - (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-2, -1, 2, -1, n] -> 
  (-23*Diff[Half[S2[1, n], n], n, 1]^3)/96 - 
   (175*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 + 
   (4169*Diff[Half[S2[1, n], n], n, 5])/2880 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/4 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/24 + Diff[Half[S2[4, 1, n], n], n, 
    1] + Diff[Half[S2[2, 1, 1, n], n], n, 2]/8 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   (103*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (397*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 + 
   (67*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (2657*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (2519*Diff[S2[1, n], n, 1]^3)/96 - 
   (301*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 + 
   (547*Diff[S2[1, n], n, 2]^2)/48 - (1465*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/192 + (1383*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/64 - (3749*Diff[S2[1, n], n, 5])/2880 + 
   (3*Diff[S2[-4, 1, n], n, 1])/2 + (17*Diff[S2[-3, 1, n], n, 2])/24 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (515*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (47*Diff[S2[-2, 1, n], n, 3])/12 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (475*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (17*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (283*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 - 
   (257*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (191*Diff[S2[-1, 1, n], n, 4])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (23*Diff[S2[2, 1, n], n, 3])/12 - 8*Diff[S2[4, 1, n], n, 1] - 
   21*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/2 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/2 + Diff[S2[-1, -2, -1, n], n, 2]/24 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (187*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (59*Diff[S2[-1, 1, 1, n], n, 3])/24 + 5*Diff[S2[1, 2, -1, n], n, 2] + 
   Diff[S2[2, 1, -2, n], n, 1] + (61*Diff[S2[2, 1, -1, n], n, 2])/12 + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/2 + 6*Diff[S2[3, 1, 1, n], n, 1] - 
   16*Diff[S2[-2, 1, 1, 1, n], n, 1] + (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    24 + Diff[S2[-1, 1, -1, 1, n], n, 2] - 
   (31*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   2*Diff[S2[1, -1, 1, -2, n], n, 1] + (7*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 
   8*Diff[S2[1, 1, -2, -1, n], n, 1] + 5*Diff[S2[1, 1, -1, 2, n], n, 1] - 
   2*Diff[S2[1, 1, 2, -1, n], n, 1] - 2*Diff[S2[1, 2, -1, -1, n], n, 1] + 
   10*Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1] - 
   2*Diff[S2[-1, 1, -1, -1, -1, n], n, 1] + 
   (11*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1] + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 - 
   (21*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   6*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - Diff[S2[1, 1, -1, 1, -1, n], 
    n, 1] - 2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/6 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (163*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (267*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (103*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 - 
   (81*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (71*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (77*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (71*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (37*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (21*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (89*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   2*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2 - 
   (31*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (119*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (31*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (101*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (49*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (77*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (79*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (53*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (41*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 + (29*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/16 - (15*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   Half[S2[4, 1, 1, n], n]/4 - Half[S2[2, 2, 1, 1, n], n]/4 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (47*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (13*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 - 
   (23*S2[-1, Infinity]^6)/1440 - (205*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/48 - 
   (33*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/4 + 
   (31*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 + 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (1237*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 + 
   (185*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (2185*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (865*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (177*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (127*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (139*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (1043*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (643*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (19*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (15*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (17*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (39*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (113*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    8 + (73*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (349*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (41*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   16*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (511*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (413*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (95*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (87*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (7*Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (37*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 - Half[S2[1, n], n]*
    Half[S2[2, 1, 1, n], n]*S2[1, n] + (Half[S2[3, 1, 1, n], n]*S2[1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (S2[-1, Infinity]^5*S2[1, n])/12 + 
   (59*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (35*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/16 - 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (129*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (229*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (401*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   (67*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (1285*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (29*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 + 
   (59*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (131*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 + 
   (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (267*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/6 + 
   (57*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - 
   (17*S2[-1, Infinity]^4*S2[1, n]^2)/64 - 
   (439*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (229*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (457*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (19*Half[S2[1, n], n]^3*S2[1, n]^3)/4 - 
   (89*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (161*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - 
   (71*Half[S2[1, n], n]^2*S2[1, n]^4)/12 + (83*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - (3*S2[1, n]^6)/4 - (103*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/12 + (127*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/24 - (7*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/8 + (5*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 + (335*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/48 + 
   (17*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/3 - 
   (91*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 + 
   (93*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (1259*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (27*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (53*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (85*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (181*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (125*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (15*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (7*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 + 
   (209*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (161*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (249*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (41*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (57*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (127*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (29*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (91*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (61*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (91*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (49*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 - (59*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (11*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    8 + (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   (117*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (1005*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (75*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (41*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 - (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/2 + (23*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/16 - (15*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/2 + (345*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 + (177*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (73*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    8 - (547*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (137*S2[1, n]^4*S2[2, Infinity])/48 - 
   (3441*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (137*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 - 
   (993*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (833*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (2671*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (743*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (571*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (719*S2[1, n]^2*S2[2, Infinity]^2)/320 + (27019*S2[2, Infinity]^3)/960 + 
   (723*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (63*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (351*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (1403*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 - (263*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (247*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (77*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (167*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (1523*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (351*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (269*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (1429*S2[1, n]^3*S2[3, Infinity])/384 - 
   (583*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (2121*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (8981*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (71*S2[3, Infinity]^2)/384 - (41*Half[S2[1, n], n]*S2[5, Infinity])/4 + 
   (9647*S2[1, n]*S2[5, Infinity])/128 + (19*S2[-5, -1, Infinity])/4 + 
   29*S2[-5, 1, n] + 8*S2[1, n]*S2[-4, 1, n] - 
   (57*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   (35*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (43*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (81*S2[1, n]^2*S2[-3, 1, n])/16 + (255*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (203*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (29*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (171*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (25*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (103*S2[1, n]^3*S2[-2, 1, n])/24 + (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] - 
   (67*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (37*S2[3, Infinity]*S2[-2, 1, n])/16 + S2[-2, 1, n]^2 - 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 + 
   (55*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 + 
   (64*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/3 - 
   (35*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + 
   (21*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (41*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n] - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   8*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] - 
   (103*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (59*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 + 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n] - 
   (7*Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/48 - 
   (149*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (221*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (23*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   4*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n] - 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] + 
   (53*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (25*S2[1, n]^4*S2[-1, 1, n])/24 - (117*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (35*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (81*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (43*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (387*S2[2, Infinity]^2*S2[-1, 1, n])/80 - 
   (47*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (75*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   4*S2[-3, 1, n]*S2[-1, 1, n] + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 - (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (77*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 - 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/8 - 5*S2[2, Infinity]*S2[-1, 1, n]^2 - 
   (7*S2[-1, 1, n]^3)/12 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/3 - 
   (13*Diff[S2[1, n], n, 2]*S2[2, 1, n])/6 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (43*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/2 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (63*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (43*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (67*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (67*S2[1, n]^3*S2[2, 1, n])/48 + (81*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - 6*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] + 
   (19*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (225*S2[3, Infinity]*S2[2, 1, n])/16 + 7*S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 
   4*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] + 5*S2[2, 1, n]^2 - 
   2*S2[1, n]*S2[4, 1, n] - 22*S2[-4, 1, 1, n] - 2*S2[-3, -2, 1, n] + 
   3*S2[1, n]*S2[-3, 1, 1, n] + S2[1, n]*S2[-2, 1, -2, n] + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (19*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + 5*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (9*S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (15*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 
   4*S2[-1, 1, n]*S2[-2, 1, -1, n] - (5*S2[-2, 2, -2, n])/2 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (11*S2[1, n]^2*S2[-1, -2, -1, n])/16 + 
   (37*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   S2[-1, 1, n]*S2[-1, -2, -1, n] - (Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, -1, n])/16 - (21*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/2 - 
   (7*Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/24 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, -1, n] + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 - 2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n] - 
   (29*S2[3, Infinity]*S2[-1, 1, -1, n])/8 + (S2[-2, 1, n]*S2[-1, 1, -1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/2 + (3*S2[-1, 1, -1, n]^2)/4 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 4*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/2 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/2 - (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   3*S2[1, n]^3*S2[-1, 1, 1, n] + (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (33*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (41*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (27*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 3*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   6*S2[2, 1, n]*S2[-1, 1, 1, n] - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - 
   3*S2[-1, 1, 1, n]^2 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    4 - (35*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 6*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (43*S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   (27*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 5*S2[-1, 1, n]*S2[1, 2, -1, n] - 
   (9*S2[1, n]*S2[2, 1, -2, n])/2 - (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/8 - 14*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] - 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (69*S2[1, n]^2*S2[2, 1, -1, n])/8 + (35*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + 4*S2[-1, 1, n]*S2[2, 1, -1, n] + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   4*S2[1, n]^2*S2[2, 1, 1, n] - (23*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - (11*S2[3, 1, -2, n])/2 + 
   10*S2[4, 1, 1, n] - 28*S2[-3, 1, 1, 1, n] + 2*S2[-2, -2, 1, 1, n] + 
   (21*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + S2[-2, 1, 1, 2, n] - 
   (9*S2[-2, 2, 1, 1, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/2 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    8 + 2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] - 
   S2[1, n]^2*S2[-1, 1, -1, -1, n] - (3*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/
    4 - 2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, -1, 1, n] + (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - 
   S2[2, Infinity]*S2[-1, 1, -1, 1, n] + (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/
    2 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   6*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   6*S2[1, n]^2*S2[-1, 1, 1, 1, n] + 17*S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 
   6*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (159*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (47*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (13*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (51*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (249*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   6*S2[1, n]*S2[1, 1, -2, -1, n] + (15*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   8*S2[2, -2, 1, 1, n] - 6*S2[1, n]*S2[2, 1, 1, 1, n] - 
   (21*S2[-2, 1, 1, 1, 1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (7*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (21*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (11*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   2*S2[1, n]*S2[-1, 1, -1, -1, 1, n] - Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] - 2*S2[1, n]*S2[-1, 1, -1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n] - 
   2*S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] - (13*Half[S2[1, n], n]*
     S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   10*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + S2[1, -2, -1, 1, -1, n] - 
   (21*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (21*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 2*S2[1, -1, -1, 1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 4*S2[1, -1, -1, 1, 2, n] - 
   S2[1, -1, 1, -2, -1, n] + (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    2 - (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 - 6*S2[1, -1, 1, 1, -2, n] + 
   (7*S2[1, -1, 1, 1, 2, n])/2 - 4*S2[1, -1, 1, 2, -1, n] - 
   6*S2[1, 1, -2, -1, 1, n] - 8*S2[1, 1, -2, 1, -1, n] + 
   6*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   6*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 8*S2[1, 1, -1, 1, -2, n] - 
   2*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] + 
   2*S2[1, n]*S2[1, 1, -1, 1, -1, n] - 4*S2[1, 1, -1, 2, -1, n] - 
   28*S2[1, 1, 1, -2, -1, n] - 16*S2[1, 1, 1, -1, -2, n] - 
   5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   5*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 2*S2[1, 1, 1, -1, 2, n] - 
   35*S2[1, 1, 1, 2, -1, n] - 8*S2[1, 1, 2, -1, -1, n] - 
   (15*S2[1, 1, 2, -1, 1, n])/2 - 20*S2[1, 1, 2, 1, -1, n] - 
   4*S2[1, 2, 1, -1, -1, n] - 9*S2[1, 2, 1, 1, -1, n] + 
   6*S2[2, 1, 1, 1, 1, n] + (7*S2[-1, -1, -1, 1, -1, -1, n])/4 + 
   (21*S2[-1, -1, 1, -1, -1, -1, n])/4 - S2[-1, -1, 1, 1, -1, -1, n] + 
   (21*S2[-1, 1, -1, -1, -1, -1, n])/2 + (5*S2[-1, 1, -1, -1, -1, 1, n])/2 + 
   2*S2[-1, 1, -1, -1, 1, 1, n] + 3*S2[-1, 1, -1, 1, 1, 1, n] - 
   S2[-1, 1, 1, -1, -1, -1, n] + S2[-1, 1, 1, -1, -1, 1, n] + 
   2*S2[-1, 1, 1, 1, -1, -1, n] - 3*S2[-1, 1, 1, 1, -1, 1, n] + 
   (23*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + (35*S2[1, -1, -1, -1, -1, -1, n])/
    2 - (3*S2[1, -1, -1, -1, 1, -1, n])/2 - 3*S2[1, -1, -1, 1, -1, -1, n] + 
   3*S2[1, -1, -1, 1, 1, -1, n] - 2*S2[1, -1, 1, -1, -1, -1, n] + 
   S2[1, -1, 1, 1, -1, -1, n] - 6*S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, -1, -1, 1, -1, n] + 3*S2[1, 1, 1, -1, -1, -1, n] - 
   3*S2[1, 1, 1, -1, 1, -1, n] - 12*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-2, -1, 2, 1, n] -> (5*Diff[Half[S2[1, n], n], n, 1]^3)/64 - 
   (51*Diff[Half[S2[1, n], n], n, 2]^2)/128 - 
   (151*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 - 
   (391*Diff[Half[S2[1, n], n], n, 5])/384 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 3])/64 - Diff[Half[S2[4, 1, n], n], n, 1]/
    32 + (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   (151*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (2287*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (2243*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (2071*Diff[S2[1, n], n, 1]^3)/192 + 
   (631*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 - 
   (637*Diff[S2[1, n], n, 2]^2)/64 + (7495*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 - (16669*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 + (2087*Diff[S2[1, n], n, 5])/1920 + 
   (5*Diff[S2[-4, 1, n], n, 1])/2 + (19*Diff[S2[-3, 1, n], n, 2])/32 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (20*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (33*Diff[S2[-2, 1, n], n, 3])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (263*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (25*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (97*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (539*Diff[S2[-1, 1, n], n, 4])/192 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (7*Diff[S2[2, 1, n], n, 3])/16 + (3*Diff[S2[4, 1, n], n, 1])/2 + 
   (17*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   Diff[S2[-2, 1, -1, n], n, 2]/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   Diff[S2[-1, 1, -1, n], n, 3]/6 + (31*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/8 - (29*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1] - (51*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 - 3*Diff[S2[3, 1, 1, n], n, 1] + 
   7*Diff[S2[-2, 1, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, -1, n], n, 2]/16 + 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/4 + (19*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[1, 2, -1, -1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    2 + (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - Diff[S2[1, 1, -1, 1, -1, n], 
    n, 1] - 2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (77*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (181*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (1163*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (1879*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (37*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    6 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    2 + (25*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   (5*Half[S2[2, 1, n], n]^2)/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (3*Half[S2[4, 1, 1, n], n])/16 + (53*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (65*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (43*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - 
   (5*S2[-1, Infinity]^6)/576 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 + 
   (1709*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 - 
   (15*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (809*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (221*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (1229*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (5539*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (419*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (31*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (79*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (423*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 + 
   (33*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (17*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (49*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (271*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (9*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (17*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (35*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (473*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (835*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (53*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (89*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (71*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (11*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (67*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (2077*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (871*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (809*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (5161*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (45*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (1447*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (49*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (65*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (307*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/6 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (25*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (73*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + 
   (85*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (325*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (47*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 + 
   (65*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (2*Half[S2[1, n], n]^3*S2[1, n]^3)/3 + 
   (77*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (227*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (53*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (37*S2[1, n]^6)/96 - (17*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (49*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    72 + (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (45*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (457*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   2*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   4*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (83*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/192 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (4*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (111*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (65*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/6 + 
   (235*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (61*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (31*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    96 + (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (361*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (11*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (31*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (49*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 - (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (343*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (25*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (47*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 - (157*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/64 - (61*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    96 + (283*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (13*S2[1, n]^4*S2[2, Infinity])/48 + 
   (1007*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (97*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (31*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (293*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (233*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 - 
   (89*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (1427*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1081*S2[1, n]^2*S2[2, Infinity]^2)/480 - (11*S2[2, Infinity]^3)/40 - 
   (543*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (1861*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (77*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (299*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 - 
   (37*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (69*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (1661*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (251*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (2365*S2[1, n]^3*S2[3, Infinity])/768 + 
   (2881*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (4497*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (395*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (12727*S2[3, Infinity]^2)/6144 - (245*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (1137*S2[1, n]*S2[5, Infinity])/64 - 7*S2[-5, -1, Infinity] - 
   6*S2[-5, 1, n] - 8*S2[1, n]*S2[-4, 1, n] + 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 - 
   (17*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (11*S2[1, n]^2*S2[-3, 1, n])/96 - (19*S2[2, Infinity]*S2[-3, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 + 
   (39*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (277*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (91*S2[1, n]^3*S2[-2, 1, n])/48 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 - 
   (59*S2[3, Infinity]*S2[-2, 1, n])/64 + (5*S2[-2, 1, n]^2)/8 - 
   (73*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (139*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (857*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/12 + (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/12 - (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, n])/24 + (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*
     S2[-1, 1, n])/48 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*
     S2[-1, 1, n])/32 + (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (17*S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (205*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (23*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (23*S2[1, n]^4*S2[-1, 1, n])/24 - (29*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (13*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (91*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (25*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (133*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (21*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (95*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (35*S2[-3, 1, n]*S2[-1, 1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (19*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (73*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (67*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (43*S2[2, Infinity]*S2[-1, 1, n]^2)/
    24 + (49*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (29*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (127*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (69*S2[1, n]^3*S2[2, 1, n])/32 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (63*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (149*S2[3, Infinity]*S2[2, 1, n])/64 - (3*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (35*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (7*S2[2, 1, n]^2)/8 - 
   4*S2[1, n]*S2[4, 1, n] + 6*S2[-4, 1, 1, n] - 5*S2[1, n]*S2[-3, 1, 1, n] - 
   S2[1, n]*S2[-2, 1, -2, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] + 
   S2[1, n]^2*S2[-2, 1, -1, n] - S2[-2, 2, -2, n]/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/6 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/96 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 + (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/96 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    96 - (143*S2[3, Infinity]*S2[-1, 1, -1, n])/192 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (5*S2[-1, 1, -1, n]^2)/32 + (Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, 1, n])/2 - 2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 
   Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (85*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (3*S2[-1, 1, 1, n]^2)/2 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    8 + (39*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] - 
   (21*S2[1, n]^2*S2[1, 2, -1, n])/4 + (7*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 - (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (61*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (257*S2[1, n]^2*S2[2, 1, -1, n])/48 + (7*S2[2, Infinity]*S2[2, 1, -1, n])/
    6 - (19*S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   S2[1, n]^2*S2[2, 1, 1, n] - (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (3*S2[3, 1, -2, n])/2 - 
   2*S2[1, n]*S2[3, 1, 1, n] - 6*S2[4, 1, 1, n] + 9*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n] - (13*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   (3*S2[-2, 2, 1, 1, n])/2 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 + (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    48 + (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (5*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (5*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + 2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (65*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (85*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   (51*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   S2[1, n]*S2[1, 1, -2, -1, n] - 2*S2[1, n]*S2[1, 1, -1, 2, n] - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - (3*S2[2, -2, 1, 1, n])/2 - 
   3*S2[1, n]*S2[2, 1, 1, 1, n] + 2*S2[2, 2, 1, 1, n] + 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    2 + (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (43*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (67*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (7*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + S2[1, -1, 1, 1, -2, n] - 
   (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, 1, n] + 2*S2[1, 1, -2, 1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (7*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, -1, n] + 7*S2[1, 1, 1, -2, -1, n] + 
   S2[1, 1, 1, -1, -2, n] + 9*S2[1, 1, 1, 2, -1, n] + 
   4*S2[1, 1, 2, -1, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] + S2[1, 2, -1, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] + 
   3*S2[2, 1, 1, 1, 1, n] - (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 + S2[-1, 1, -1, 1, 1, 1, n]/2 - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + (25*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 - (5*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   (5*S2[1, -1, -1, 1, -1, -1, n])/4 - (5*S2[1, -1, 1, -1, -1, -1, n])/4 - 
   (5*S2[1, 1, -1, -1, -1, -1, n])/2 - (5*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-2, -1, -1, -2, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/32 - (21*Diff[Half[S2[1, n], n], n, 2]^2)/
    64 - (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    48 - (35*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/16 + Diff[Half[S2[4, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (37*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (63*Diff[S2[1, n], n, 1]^3)/32 + (33*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (67*Diff[S2[1, n], n, 2]^2)/32 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/64 - 
   (569*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (221*Diff[S2[1, n], n, 5])/960 + Diff[S2[-4, 1, n], n, 1]/2 + 
   Diff[S2[-3, 1, n], n, 2]/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 3]/4 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (25*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (25*Diff[S2[-1, 1, n], n, 4])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[2, 1, n], n, 3]/12 + Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + Diff[S2[-2, 1, -1, n], n, 2]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, n], n, 3]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - Diff[S2[2, 1, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 - (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 - (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (73*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (17*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 - (9*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 - (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 - 
   (5*Half[S2[2, 1, n], n]^2)/64 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 - S2[-1, Infinity]^6/480 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 + (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (109*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (173*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (31*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (33*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (17*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (67*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (S2[-1, Infinity]^5*S2[1, n])/160 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (35*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (23*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (29*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^4)/8 + (Half[S2[1, n], n]*S2[1, n]^5)/4 - 
   S2[1, n]^6/16 - (3*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    2 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    8 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 + 
   (9*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (S2[1, n]^4*S2[2, Infinity])/16 + (227*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/320 - (31*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    64 - (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/64 - 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (287*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (53*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (129*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (65*S2[1, n]^2*S2[2, Infinity]^2)/64 + (2189*S2[2, Infinity]^3)/6720 - 
   (127*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (63*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 - 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (59*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (123*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (177*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (3*S2[1, n]^3*S2[3, Infinity])/64 + 
   (199*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (441*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (191*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (947*S2[3, Infinity]^2)/1024 - (375*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (21*S2[1, n]*S2[5, Infinity])/32 - (23*S2[-5, -1, Infinity])/8 - 
   6*S2[1, n]*S2[-4, 1, n] + (7*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 - (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (7*S2[1, n]^2*S2[-3, 1, n])/8 + (19*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/4 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/4 + (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (S2[1, n]^3*S2[-2, 1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (123*S2[3, Infinity]*S2[-2, 1, n])/32 - (5*S2[-2, 1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 - 
   (S2[1, n]^4*S2[-1, 1, n])/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (173*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (9*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 + (S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (3*S2[1, n]^3*S2[2, 1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (63*S2[3, Infinity]*S2[2, 1, n])/32 - (S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2/4 - 
   6*S2[1, n]*S2[4, 1, n] + S2[-3, -2, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 + (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (3*S2[3, Infinity]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 + (S2[2, Infinity]*S2[2, 1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 3*S2[4, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (23*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + (3*S2[-1, 1, -1, -1, -1, 1, n])/
    4 + (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 - (3*S2[1, -1, -1, 1, -1, -1, n])/2 - 
   (3*S2[1, -1, 1, -1, -1, -1, n])/2 - 3*S2[1, 1, -1, -1, -1, -1, n], 
 S2[-2, -1, -1, 2, n] -> (7*Diff[Half[S2[1, n], n], n, 1]^3)/32 + 
   (47*Diff[Half[S2[1, n], n], n, 2]^2)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 + 
   (127*Diff[Half[S2[1, n], n], n, 5])/320 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 - Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/2 - 
   (23*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (117*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (15*Diff[S2[1, n], n, 1]^3)/4 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/2 + (71*Diff[S2[1, n], n, 2]^2)/16 - 
   (589*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (169*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (451*Diff[S2[1, n], n, 5])/960 - (11*Diff[S2[-4, 1, n], n, 1])/2 - 
   (3*Diff[S2[-3, 1, n], n, 2])/4 + (21*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   Diff[S2[-2, 1, n], n, 3]/6 - (17*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 - 
   (13*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (81*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (23*Diff[S2[-1, 1, n], n, 4])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (23*Diff[S2[2, 1, n], n, 3])/24 + 4*Diff[S2[4, 1, n], n, 1] + 
   3*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   12*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, 1, n], n, 3]/6 + Diff[S2[1, 2, -1, n], n, 2] - 
   (3*Diff[S2[2, 1, -2, n], n, 1])/2 + (3*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 - 3*Diff[S2[3, 1, 1, n], n, 1] + 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    8 - Diff[S2[-1, 1, -1, 1, n], n, 2]/2 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, -2, n], n, 1] - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 4*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   2*Diff[S2[1, 1, -1, 2, n], n, 1] + 2*Diff[S2[1, 1, 2, -1, n], n, 1] + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - 5*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] - (11*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 + 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (109*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/3 - (7*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (97*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (43*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 + 
   (21*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/2 + (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (45*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (7*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (25*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (97*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + (103*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (55*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 + 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (79*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 - 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   Half[S2[2, 1, n], n]^2/32 + (9*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/8 + Half[S2[2, 2, 1, 1, n], n]/8 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (35*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 - S2[-1, Infinity]^6/120 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (49*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (205*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (235*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (727*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (521*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (29*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (19*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (313*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (13*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (11*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (35*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (13*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (9*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (39*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (107*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (15*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (29*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (23*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (45*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (383*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (181*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (51*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (47*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (133*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (17*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 - 
   (805*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 - 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 - (111*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - 
   (77*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (253*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (103*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (143*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (17*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (17*S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (67*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (25*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (37*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (10*Half[S2[1, n], n]^2*S2[1, n]^4)/3 - (29*Half[S2[1, n], n]*S2[1, n]^5)/
    12 + (31*S2[1, n]^6)/48 + (143*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (37*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    12 + (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/8 - 
   (167*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (139*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (51*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (25*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (33*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (27*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (445*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (17*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (15*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (249*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (97*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (67*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (103*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + 8*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (11*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (483*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (63*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   6*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (73*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (441*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (53*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (319*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (357*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (131*S2[1, n]^4*S2[2, Infinity])/48 + 
   (1073*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (2337*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (167*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 + 
   (159*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (439*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 + 
   (519*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (1961*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (749*S2[1, n]^2*S2[2, Infinity]^2)/160 - (19833*S2[2, Infinity]^3)/1120 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/3 - 
   (257*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (53*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 + 
   (257*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (1195*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (19*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/12 - 
   (1081*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (905*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (605*S2[1, n]^3*S2[3, Infinity])/128 + 
   (241*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (389*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (4013*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (9307*S2[3, Infinity]^2)/1536 + (17*Half[S2[1, n], n]*S2[5, Infinity])/2 - 
   (2971*S2[1, n]*S2[5, Infinity])/128 - (35*S2[-5, -1, Infinity])/8 - 
   15*S2[-5, 1, n] + 3*S2[1, n]*S2[-4, 1, n] + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 + 
   (27*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/2 - 
   (87*S2[1, n]^2*S2[-3, 1, n])/16 - 8*S2[2, Infinity]*S2[-3, 1, n] - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (29*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (41*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (85*S2[1, n]^3*S2[-2, 1, n])/24 - (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (45*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (113*S2[3, Infinity]*S2[-2, 1, n])/48 - S2[-2, 1, n]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/2 - 
   (37*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (93*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 - 
   (21*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (77*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   2*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n] - 
   (21*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (59*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 - 
   Half[S2[2, 1, 1, n], n]*S2[-1, 1, n] + 
   (17*S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (61*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (25*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (95*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (35*S2[1, n]^4*S2[-1, 1, n])/24 + (47*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (71*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (51*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (33*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (821*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (13*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (55*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (31*S2[-3, 1, n]*S2[-1, 1, n])/8 - 2*Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] + 6*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (33*S2[1, n]^2*S2[-1, 1, n]^2)/16 + (47*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + S2[-1, 1, n]^3 - (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/6 + 
   (25*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (53*S2[1, n]^3*S2[2, 1, n])/48 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (15*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (53*S2[3, Infinity]*S2[2, 1, n])/16 - 4*S2[-2, 1, n]*S2[2, 1, n] - 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/2 + 
   S2[1, n]*S2[4, 1, n] + 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] + 
   5*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (21*S2[1, n]^2*S2[-2, 1, -1, n])/4 + (19*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + 5*S2[-1, 1, n]*S2[-2, 1, -1, n] + (5*S2[-2, 2, -2, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, -2, -1, n] - (17*S2[1, n]^2*S2[-1, -2, -1, n])/16 - 
   (7*S2[2, Infinity]*S2[-1, -2, -1, n])/4 - 
   (9*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (2*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 - (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (45*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (19*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 + (19*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/8 - 
   2*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + Half[S2[2, 1, n], n]*
    S2[-1, 1, 1, n] + 4*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (9*S2[1, n]^3*S2[-1, 1, 1, n])/4 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (9*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (5*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 4*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] + (3*S2[-1, 1, 1, n]^2)/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   5*S2[1, n]^2*S2[1, 2, -1, n] - (15*S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   5*S2[-1, 1, n]*S2[1, 2, -1, n] + (5*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] - (23*S2[1, n]^2*S2[2, 1, -1, n])/8 - 
   (23*S2[2, Infinity]*S2[2, 1, -1, n])/4 - (13*S2[-1, 1, n]*S2[2, 1, -1, n])/
    4 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/
    4 - 3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/4 + (29*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (5*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (5*S2[3, 1, -2, n])/2 - 
   5*S2[4, 1, 1, n] + 9*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 - S2[-2, 1, 1, 2, n] + 
   (5*S2[-2, 2, 1, 1, n])/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/4 - (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    8 - Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (11*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   S2[-1, 1, n]*S2[-1, 1, -1, 1, n] - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (11*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (35*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (17*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (185*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (51*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   3*S2[1, n]*S2[1, 1, -2, -1, n] - (9*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   (9*S2[2, -2, 1, 1, n])/2 + 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   S2[-2, 1, 1, 1, 1, n]/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   3*S2[1, n]*S2[-1, 1, -1, -1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   3*S2[1, n]*S2[-1, 1, 1, 1, -1, n] + 
   (57*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (47*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - S2[1, -2, -1, 1, -1, n] + 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 2*S2[1, -1, -1, 1, -2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 2*S2[1, -1, -1, 1, 2, n] + 
   S2[1, -1, 1, -2, -1, n] - (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 + (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 3*S2[1, -1, 1, 1, -2, n] - 
   S2[1, -1, 1, 1, 2, n]/2 + 2*S2[1, -1, 1, 2, -1, n] + 
   3*S2[1, 1, -2, -1, 1, n] + 4*S2[1, 1, -2, 1, -1, n] + 
   S2[1, 1, -1, -2, -1, n] + S2[1, 1, -1, -1, -2, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 4*S2[1, 1, -1, 1, -2, n] + 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (7*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + 2*S2[1, 1, -1, 2, -1, n] + 
   14*S2[1, 1, 1, -2, -1, n] + 8*S2[1, 1, 1, -1, -2, n] + 
   7*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] - 
   7*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 3*S2[1, 1, 1, -1, 2, n] + 
   16*S2[1, 1, 1, 2, -1, n] + 4*S2[1, 1, 2, -1, -1, n] + 
   (9*S2[1, 1, 2, -1, 1, n])/2 + 8*S2[1, 1, 2, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   3*S2[2, 1, 1, 1, 1, n] - S2[-1, -1, -1, 1, -1, -1, n]/2 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/2 + S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   3*S2[-1, 1, -1, -1, -1, -1, n] - (5*S2[-1, 1, -1, -1, -1, 1, n])/4 - 
   3*S2[-1, 1, -1, -1, 1, 1, n] - (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   S2[-1, 1, 1, -1, -1, -1, n]/2 - S2[-1, 1, 1, -1, -1, 1, n] - 
   S2[-1, 1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 
   6*S2[-1, 1, 1, 1, 1, 1, Infinity] - 5*S2[1, -1, -1, -1, -1, -1, n] + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, -1, 1, -1, -1, n])/2 - 
   4*S2[1, -1, -1, 1, 1, -1, n] + S2[1, -1, 1, -1, -1, -1, n] + 
   3*S2[1, 1, -1, -1, -1, -1, n] - 2*S2[1, 1, -1, -1, 1, -1, n] - 
   3*S2[1, 1, 1, -1, -1, -1, n] + (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-2, -1, 1, -2, n] -> 
  (13*Diff[Half[S2[1, n], n], n, 1]^3)/96 + 
   (35*Diff[Half[S2[1, n], n], n, 2]^2)/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 5])/576 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 - Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/4 - 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (245*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (85*Diff[S2[1, n], n, 1]^3)/12 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (15*Diff[S2[1, n], n, 2]^2)/16 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (71*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (49*Diff[S2[1, n], n, 5])/576 - Diff[S2[-3, 1, n], n, 2]/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (7*Diff[S2[-2, 1, n], n, 3])/12 - (53*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (141*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   Diff[S2[-1, 1, n], n, 4]/24 - (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (23*Diff[S2[2, 1, n], n, 3])/24 + 4*Diff[S2[4, 1, n], n, 1] + 
   (13*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   12*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] - 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/12 - Diff[S2[2, 1, -2, n], n, 1] - 
   Diff[S2[2, 1, -1, n], n, 2]/4 - (13*Diff[S2[2, 1, 1, n], n, 2])/4 - 
   3*Diff[S2[3, 1, 1, n], n, 1] + 4*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 + Diff[S2[-1, 1, 1, 1, n], n, 2]/4 + Diff[S2[1, -1, 1, -2, n], n, 1] - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 4*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 2*Diff[S2[1, 1, 2, -1, n], n, 1] + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - 5*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] - (11*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (73*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/6 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (145*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (65*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (45*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/2 + (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + (71*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (55*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 + 
   (17*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (55*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 - 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   Half[S2[2, 1, n], n]^2/32 + (9*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/8 + Half[S2[2, 2, 1, 1, n], n]/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (43*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^5)/96 + S2[-1, Infinity]^6/144 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (19*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (101*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (121*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (85*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (131*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (41*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (21*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (15*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (21*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (9*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (27*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (71*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (51*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (17*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (37*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (191*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (157*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (13*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (33*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (15*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/32 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/8 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   (257*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 - 
   (101*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (119*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (35*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - 
   (61*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (37*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (87*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    16 + (53*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 + 
   (185*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (19*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (13*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^4)/6 - (11*Half[S2[1, n], n]*S2[1, n]^5)/
    12 + (7*S2[1, n]^6)/48 + (139*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (8*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    3 + (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 - (119*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (179*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 - 
   (23*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (23*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (31*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (409*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (13*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (37*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (177*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (113*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (43*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (43*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (11*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 - (555*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    6 + 6*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (61*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (177*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (93*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (77*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (197*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (79*S2[1, n]^4*S2[2, Infinity])/48 + 
   (1497*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (349*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/64 + 
   (211*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 - 
   (71*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 - 
   (55*S2[-1, Infinity]^2*S2[2, Infinity]^2)/4 - 
   (451*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (2411*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (163*S2[1, n]^2*S2[2, Infinity]^2)/160 - (49381*S2[2, Infinity]^3)/3360 - 
   (149*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/48 + 
   (5*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 - 
   (85*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (305*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (451*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (19*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/48 - 
   (1345*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (73*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (321*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (695*S2[1, n]^3*S2[3, Infinity])/384 - 
   (379*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (1053*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (6145*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (901*S2[3, Infinity]^2)/1536 + (877*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (1055*S2[1, n]*S2[5, Infinity])/32 - (3*S2[-5, -1, Infinity])/8 - 
   5*S2[-5, 1, n] - 2*S2[1, n]*S2[-4, 1, n] + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 + 
   (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/2 + (S2[1, n]^2*S2[-3, 1, n])/
    16 - (33*S2[2, Infinity]*S2[-3, 1, n])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (23*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (77*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (29*S2[1, n]^3*S2[-2, 1, n])/24 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (41*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (27*S2[3, Infinity]*S2[-2, 1, n])/16 - S2[-2, 1, n]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (73*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (29*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (23*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 + (63*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (15*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (35*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] + 
   (13*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (391*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/4 + 
   (11*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/8 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 + 2*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (9*S2[1, n]^2*S2[-1, 1, n]^2)/16 + (39*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + S2[-1, 1, n]^3/2 - (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/6 + 
   (25*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (71*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (5*S2[1, n]^3*S2[2, 1, n])/48 - (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (67*S2[3, Infinity]*S2[2, 1, n])/16 - 4*S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/2 + 
   S2[1, n]*S2[4, 1, n] + 11*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - 
   2*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (5*S2[1, n]^2*S2[-2, 1, -1, n])/4 + (15*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + S2[-1, 1, n]*S2[-2, 1, -1, n] + (5*S2[-2, 2, -2, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/16 - S2[2, Infinity]*S2[-1, -2, -1, n] - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, -1, n] - (7*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, -1, n])/8 - (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/
    8 + (7*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (9*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (75*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/2 + 4*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (19*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/4 + (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (9*S2[1, n]^3*S2[-1, 1, 1, n])/4 - (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (15*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (19*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 2*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] + (3*S2[-1, 1, 1, n]^2)/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (27*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   2*S2[1, n]^2*S2[1, 2, -1, n] - (11*S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   S2[-1, 1, n]*S2[1, 2, -1, n] + (S2[1, n]*S2[2, 1, -2, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] - (15*S2[1, n]^2*S2[2, 1, -1, n])/8 - 
   (17*S2[2, Infinity]*S2[2, 1, -1, n])/4 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/
    4 - (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - (7*S2[1, n]^2*S2[2, 1, 1, n])/4 + 
   (23*S2[2, Infinity]*S2[2, 1, 1, n])/4 - (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   (5*S2[3, 1, -2, n])/2 - 5*S2[4, 1, 1, n] + 12*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n] - (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   S2[-2, 1, 1, 2, n] + S2[-2, 2, 1, 1, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] + 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   S2[-1, 1, n]*S2[-1, 1, -1, 1, n] - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (19*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (75*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (43*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (205*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   3*S2[1, n]*S2[1, 1, -2, -1, n] - (7*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   (9*S2[2, -2, 1, 1, n])/2 + 3*S2[1, n]*S2[2, 1, 1, 1, n] + 
   (3*S2[-2, 1, 1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    2 - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   2*S2[1, n]*S2[-1, 1, -1, -1, 1, n] + Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] + (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (5*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] + (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (25*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (13*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - S2[1, -2, -1, 1, -1, n] + 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 2*S2[1, -1, -1, 1, -2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 2*S2[1, -1, -1, 1, 2, n] + 
   S2[1, -1, 1, -2, -1, n] - (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 + (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 3*S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 1, 2, n]/2 + 2*S2[1, -1, 1, 2, -1, n] + 
   3*S2[1, 1, -2, -1, 1, n] + 4*S2[1, 1, -2, 1, -1, n] + 
   S2[1, 1, -1, -2, -1, n] + S2[1, 1, -1, -1, -2, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 4*S2[1, 1, -1, 1, -2, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] - 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] + 2*S2[1, 1, -1, 1, 2, n] + 
   2*S2[1, 1, -1, 2, -1, n] + 14*S2[1, 1, 1, -2, -1, n] + 
   8*S2[1, 1, 1, -1, -2, n] + Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] - 
   S2[1, n]*S2[1, 1, 1, -1, -1, n] + 4*S2[1, 1, 1, -1, 2, n] + 
   16*S2[1, 1, 1, 2, -1, n] + 4*S2[1, 1, 2, -1, -1, n] + 
   (7*S2[1, 1, 2, -1, 1, n])/2 + 8*S2[1, 1, 2, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   3*S2[2, 1, 1, 1, 1, n] - S2[-1, -1, -1, 1, -1, -1, n]/2 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/2 + S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   3*S2[-1, 1, -1, -1, -1, -1, n] - (5*S2[-1, 1, -1, -1, -1, 1, n])/4 - 
   2*S2[-1, 1, -1, -1, 1, 1, n] - (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   S2[-1, 1, 1, -1, -1, -1, n]/2 - 2*S2[-1, 1, 1, -1, -1, 1, n] - 
   S2[-1, 1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   5*S2[-1, 1, 1, 1, 1, 1, Infinity] - 5*S2[1, -1, -1, -1, -1, -1, n] + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, -1, 1, -1, -1, n])/2 - 
   2*S2[1, -1, -1, 1, 1, -1, n] + S2[1, -1, 1, -1, -1, -1, n] - 
   S2[1, -1, 1, 1, -1, -1, n] + 3*S2[1, 1, -1, -1, -1, -1, n] - 
   2*S2[1, 1, -1, -1, 1, -1, n] - S2[1, 1, -1, 1, -1, -1, n] - 
   3*S2[1, 1, 1, -1, -1, -1, n] + (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-2, -1, 1, 2, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/64 + (3*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    96 + (299*Diff[Half[S2[1, n], n], n, 5])/384 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   (49*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 - 
   (601*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (693*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (1843*Diff[S2[1, n], n, 1]^3)/192 - 
   (451*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 + 
   (1319*Diff[S2[1, n], n, 2]^2)/192 - 
   (1849*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/384 + 
   (1369*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/128 - 
   (4337*Diff[S2[1, n], n, 5])/5760 - Diff[S2[-4, 1, n], n, 1]/2 + 
   (25*Diff[S2[-3, 1, n], n, 2])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 + 
   (95*Diff[S2[-2, 1, n], n, 3])/48 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (203*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (25*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (181*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (407*Diff[S2[-1, 1, n], n, 4])/192 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (13*Diff[S2[2, 1, n], n, 3])/48 - (3*Diff[S2[4, 1, n], n, 1])/2 - 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   Diff[S2[-2, 1, -1, n], n, 2]/8 + (3*Diff[S2[-1, -2, -1, n], n, 2])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (9*Diff[S2[-1, 1, 1, n], n, 3])/8 + (21*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   (39*Diff[S2[2, 1, -1, n], n, 2])/16 + (9*Diff[S2[2, 1, 1, n], n, 2])/8 + 
   3*Diff[S2[3, 1, 1, n], n, 1] - 6*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    4 - (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 2*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - Diff[S2[1, 2, -1, -1, n], n, 1] + 
   Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (29*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/192 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (815*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (131*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/128 - 
   (37*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (95*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (9*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    8 + (21*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (17*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 + 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (21*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    64 + (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   (3*Half[S2[2, 1, n], n]^2)/128 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[4, 1, 1, n], n])/16 + (31*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (55*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/192 + S2[-1, Infinity]^6/576 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 - (295*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (489*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (367*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (2347*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (1109*Diff[S2[1, n], n, 4]*S2[1, n])/384 + 
   (37*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 4*Diff[S2[-2, 1, n], n, 2]*
    S2[1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     S2[1, n])/4 + (61*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     S2[1, n])/8 - (697*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (29*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (15*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (21*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (41*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (109*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (35*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (9*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (27*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 - 
   (127*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (S2[-1, Infinity]^5*S2[1, n])/64 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (275*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (157*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (181*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (317*Diff[S2[1, n], n, 3]*S2[1, n]^2)/64 + 
   (27*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (269*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (119*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (69*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 - 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (95*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 + 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 - 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 - (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (199*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (41*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (25*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (13*S2[1, n]^6)/96 + (Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (65*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    48 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (149*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (53*Diff[S2[1, n], n, 3]*S2[2, Infinity])/32 + 
   (23*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 - 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/2 + 
   (81*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (123*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (103*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (105*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (69*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (13*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    32 + (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (489*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (51*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (17*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (3*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/8 - (79*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (109*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (41*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (133*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/64 + (125*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    96 - (195*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (7*S2[1, n]^4*S2[2, Infinity])/16 - 
   (891*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (973*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 - 
   (97*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 + 
   (335*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 + 
   (399*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (27*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (109*S2[1, n]^2*S2[2, Infinity]^2)/160 + (1303*S2[2, Infinity]^3)/336 + 
   (323*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 - 
   (841*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (97*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 - 
   (103*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (647*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (173*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (2519*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (557*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 - 
   (655*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 - 
   (199*S2[1, n]^3*S2[3, Infinity])/256 - 
   (1733*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (3561*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (235*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (4369*S2[3, Infinity]^2)/6144 - (507*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (189*S2[1, n]*S2[5, Infinity])/64 + (7*S2[-5, -1, Infinity])/2 + 
   6*S2[-5, 1, n] - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/32 - 
   (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (17*S2[1, n]^2*S2[-3, 1, n])/32 + (31*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (59*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (151*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 - 
   (17*S2[1, n]^3*S2[-2, 1, n])/16 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (77*S2[3, Infinity]*S2[-2, 1, n])/64 + (3*S2[-2, 1, n]^2)/8 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (75*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (179*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (227*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (41*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (9*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (29*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (7*S2[1, n]^4*S2[-1, 1, n])/24 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (27*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (27*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (15*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (271*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (247*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (125*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (39*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (17*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (9*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (53*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (11*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (33*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (55*S2[1, n]^3*S2[2, 1, n])/96 + 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] - (39*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (25*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (791*S2[3, Infinity]*S2[2, 1, n])/192 + (11*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (27*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (15*S2[2, 1, n]^2)/8 - 
   6*S2[-4, 1, 1, n] + 3*S2[1, n]*S2[-3, 1, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   2*S2[2, Infinity]*S2[-2, 1, -1, n] - (3*S2[-2, 2, -2, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/32 + (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (113*S2[3, Infinity]*S2[-1, 1, -1, n])/192 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + (3*S2[-1, 1, -1, n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 + 
   2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (59*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] + S2[-1, 1, 1, n]^2/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 + (S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 - (9*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (51*S2[1, n]^2*S2[2, 1, -1, n])/16 + (9*S2[-1, 1, n]*S2[2, 1, -1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   S2[1, n]^2*S2[2, 1, 1, n] - (S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - (3*S2[3, 1, -2, n])/2 + 
   4*S2[1, n]*S2[3, 1, 1, n] + 8*S2[4, 1, 1, n] - 9*S2[-3, 1, 1, 1, n] + 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - 2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (21*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - 2*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (55*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (13*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (27*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   S2[1, n]*S2[1, 1, -2, -1, n] + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (3*S2[2, -2, 1, 1, n])/2 + S2[1, n]*S2[2, 1, 1, 1, n] - 
   2*S2[2, 2, 1, 1, n] - (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (35*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (15*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, -2, n] + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, -1, 1, 2, -1, n] - 
   S2[1, 1, -2, -1, 1, n] - 2*S2[1, 1, -2, 1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] - 7*S2[1, 1, 1, -2, -1, n] - 
   3*S2[1, 1, 1, -1, -2, n] - 9*S2[1, 1, 1, 2, -1, n] - 
   4*S2[1, 1, 2, -1, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   6*S2[1, 1, 2, 1, -1, n] - S2[1, 2, -1, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] - 
   S2[2, 1, 1, 1, 1, n] + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 + (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/8 + S2[-1, 1, -1, 1, 1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 - (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 - (3*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, 1, -1, -1, -1, -1, n])/2 + (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 
   2*S2[1, 1, 1, 1, -1, -1, n], S2[-2, 1, -2, -1, n] -> 
  (17*Diff[Half[S2[1, n], n], n, 1]^3)/48 - 
   (15*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 + 
   (391*Diff[Half[S2[1, n], n], n, 5])/360 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (189*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (865*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (371*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/16 - 
   (1687*Diff[S2[1, n], n, 1]^3)/96 - 
   (277*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 + 
   (221*Diff[S2[1, n], n, 2]^2)/24 - (245*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/32 + (3053*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/192 - (1459*Diff[S2[1, n], n, 5])/1440 + 
   (3*Diff[S2[-4, 1, n], n, 1])/2 + (3*Diff[S2[-3, 1, n], n, 2])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (117*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (11*Diff[S2[-2, 1, n], n, 3])/4 + (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (343*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/4 + 5*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] - (153*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/8 + (131*Diff[S2[-1, 1, n], n, 4])/48 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1] - 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (23*Diff[S2[2, 1, n], n, 3])/24 - 4*Diff[S2[4, 1, n], n, 1] - 
   9*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + Diff[S2[-1, -2, -1, n], n, 2]/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   8*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] - 
   (75*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (17*Diff[S2[-1, 1, 1, n], n, 3])/24 + (13*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 2])/2 + (13*Diff[S2[2, 1, 1, n], n, 2])/4 + 
   3*Diff[S2[3, 1, 1, n], n, 1] - 9*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/2 + Diff[S2[-1, 1, -1, 1, n], n, 2]/2 - 
   (29*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1] + 
   (7*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 4*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   4*Diff[S2[1, 1, -1, 2, n], n, 1] - Diff[S2[1, 2, -1, -1, n], n, 1] + 
   5*Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/
    2 + (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (17*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   2*Diff[S2[1, -1, -1, 1, -1, n], n, 1] - 
   3*Diff[S2[1, -1, 1, -1, -1, n], n, 1] - 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + 2*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
    Half[S2[1, n], n] - (29*Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    48 - (7*Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/16 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 - (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/48 + (325*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/24 - (125*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/
    96 - (9*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (9*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n] + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n] - 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   2*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (21*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 - (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    32 + (127*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (25*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/2 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/4 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (21*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/8 + Half[S2[2, 1, n], n]^2/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/8 + 
   (49*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 - S2[-1, Infinity]^6/90 - 
   6*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n] - 
   (25*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 + 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (227*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (851*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (1009*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (415*Diff[S2[1, n], n, 4]*S2[1, n])/96 + 9*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] - (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   14*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   (125*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 - 4*Diff[S2[2, 1, n], n, 2]*
    S2[1, n] - (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n] - 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 3*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (15*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 - 
   (9*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (23*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (33*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 - (263*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (413*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (23*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (21*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n] + 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 + 
   (Half[S2[1, n], n]^5*S2[1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (11*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 + 
   (73*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (153*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (269*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (167*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (831*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 - 
   (1661*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 + 
   (35*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (123*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 + 
   (21*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 + 
   (45*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (13*Half[S2[1, n], n]^4*S2[1, n]^2)/16 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/4 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (47*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (75*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 + 
   (121*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 - 
   (125*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (20*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   2*Half[S2[1, n], n]^3*S2[1, n]^3 - (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 + (55*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 - 
   (163*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^4)/4 + (9*Half[S2[1, n], n]*S2[1, n]^5)/
    8 - (3*S2[1, n]^6)/16 - (95*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (173*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/48 + (5*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/16 + (7*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 - (43*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/16 + 
   (201*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (617*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 + 
   (51*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (281*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   4*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] - 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (55*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (99*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    16 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 - 
   Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity] + 
   (25*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (117*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (43*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity] - 
   (57*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (49*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (93*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (455*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 - 
   (81*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (13*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    3 - (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (41*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (83*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity] - 
   (S2[1, n]^4*S2[2, Infinity])/6 - (187*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/80 - (1849*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    320 - (17*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/64 + 
   (519*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (59*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (259*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (313*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (557*S2[1, n]^2*S2[2, Infinity]^2)/320 + (112271*S2[2, Infinity]^3)/6720 + 
   (439*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (587*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (473*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/96 - 
   (1177*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (1069*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/64 + 
   (53*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (173*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (323*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (125*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 - 
   (377*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (169*S2[1, n]^3*S2[3, Infinity])/96 - 
   (341*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (751*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (1769*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/96 + 
   (371*S2[3, Infinity]^2)/1536 - (Half[S2[1, n], n]*S2[5, Infinity])/128 + 
   (3811*S2[1, n]*S2[5, Infinity])/64 + (35*S2[-5, -1, Infinity])/4 + 
   23*S2[-5, 1, n] + 10*S2[1, n]*S2[-4, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/4 - 
   (37*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (9*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   2*S2[1, n]^2*S2[-3, 1, n] + (119*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (113*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/2 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    4 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (2*S2[1, n]^3*S2[-2, 1, n])/3 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/2 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (19*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (11*S2[3, Infinity]*S2[-2, 1, n])/3 - (3*S2[-2, 1, n]^2)/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (73*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (45*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (51*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (51*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] - 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (1299*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (81*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (107*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 - 2*Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] + 4*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/16 - (31*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + S2[-1, 1, n]^3/2 + (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[2, 1, n] - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]^3*S2[2, 1, n])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 3*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, 1, n] + (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (S2[1, n]^3*S2[2, 1, n])/4 + (83*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (33*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (97*S2[3, Infinity]*S2[2, 1, n])/8 + S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (29*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/2 - 
   S2[1, n]*S2[4, 1, n] - S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 
   4*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (17*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/4 - (23*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + S2[-1, 1, n]*S2[-2, 1, -1, n] - (5*S2[-2, 2, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (29*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/2 - 
   (19*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, -1, n] + (23*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, -1, n])/8 + (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/
    4 - (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (27*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 - (285*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (5*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/2 - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (13*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/4 + (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/
    4 - (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (27*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (81*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 2*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - 7*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] - (3*S2[-1, 1, 1, n]^2)/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 - 
   10*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (11*S2[1, n]^2*S2[1, 2, -1, n])/2 + 3*S2[2, Infinity]*S2[1, 2, -1, n] + 
   S2[-1, 1, n]*S2[1, 2, -1, n] - (7*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (21*S2[1, n]^2*S2[2, 1, -1, n])/4 + (3*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (19*S2[1, n]^2*S2[2, 1, 1, n])/4 - 
   (33*S2[2, Infinity]*S2[2, 1, 1, n])/4 + (7*S2[-1, 1, n]*S2[2, 1, 1, n])/
    2 - (7*S2[3, 1, -2, n])/2 + 5*S2[4, 1, 1, n] - 11*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] + (17*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   S2[-2, 1, 1, 2, n] - (7*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] - 
   2*S2[1, n]^2*S2[-1, 1, -1, -1, n] + 
   (9*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (11*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   S2[-1, 1, n]*S2[-1, 1, -1, 1, n] + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (47*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 9*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - (49*Diff[S2[1, n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (47*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (27*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (57*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, n]*S2[1, 1, -2, -1, n] + (9*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   3*S2[1, n]*S2[2, 1, 1, 1, n] - (17*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] + 2*S2[1, n]*S2[-1, 1, -1, -1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n] - 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] + (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (39*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (73*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - S2[1, -2, -1, 1, -1, n] - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 2*S2[1, -1, -1, 1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 2*S2[1, -1, -1, 1, 2, n] + 
   S2[1, -1, 1, -2, -1, n] + (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 - (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 3*S2[1, -1, 1, 1, -2, n] + 
   (9*S2[1, -1, 1, 1, 2, n])/2 - 2*S2[1, -1, 1, 2, -1, n] - 
   3*S2[1, 1, -2, -1, 1, n] - 4*S2[1, 1, -2, 1, -1, n] - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] + 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 4*S2[1, 1, -1, 1, -2, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] - 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] + 2*S2[1, 1, -1, 1, 2, n] - 
   2*S2[1, 1, -1, 2, -1, n] - 14*S2[1, 1, 1, -2, -1, n] - 
   8*S2[1, 1, 1, -1, -2, n] + 3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] - 
   3*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 4*S2[1, 1, 1, -1, 2, n] - 
   18*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   (9*S2[1, 1, 2, -1, 1, n])/2 - 12*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 5*S2[1, 2, 1, 1, -1, n] + 
   3*S2[2, 1, 1, 1, 1, n] + (3*S2[-1, -1, -1, 1, -1, -1, n])/4 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/4 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/2 + (5*S2[-1, 1, -1, -1, -1, 1, n])/4 - 
   2*S2[-1, 1, -1, -1, 1, 1, n] + (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 
   S2[-1, 1, 1, -1, -1, -1, n]/2 - 2*S2[-1, 1, 1, -1, -1, 1, n] - 
   3*S2[-1, 1, 1, 1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 
   8*S2[-1, 1, 1, 1, 1, 1, Infinity] + (15*S2[1, -1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 - (3*S2[1, -1, -1, 1, -1, -1, n])/2 - 
   2*S2[1, -1, -1, 1, 1, -1, n] - S2[1, -1, 1, -1, -1, -1, n] - 
   3*S2[1, -1, 1, 1, -1, -1, n] - 3*S2[1, 1, -1, -1, -1, -1, n] - 
   2*S2[1, 1, -1, -1, 1, -1, n] - 3*S2[1, 1, -1, 1, -1, -1, n] - 
   9*S2[1, 1, 1, -1, -1, -1, n] - (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-2, 1, -2, 1, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 2]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/3 - 
   Diff[Half[S2[1, n], n], n, 5]/24 + Diff[Half[S2[2, 1, n], n], n, 3]/12 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/8 - 
   Diff[S2[1, n], n, 2]^2/8 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/8 + 
   Diff[S2[1, n], n, 5]/96 + 2*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2] + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   Diff[S2[-2, 1, n], n, 3]/6 - Diff[S2[2, 1, n], n, 3]/8 + 
   Diff[S2[4, 1, n], n, 1]/2 + Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/32 - 
   (29*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/32 + 
   (605*S2[2, Infinity]^3)/1344 - (3*Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/16 + (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (31*S2[3, Infinity]^2)/64 + (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + S2[-2, 1, n]^2/2 - 
   S2[-3, -2, 1, n] - S2[-2, 2, -2, n]/4 + S2[4, 1, 1, n] - 
   2*S2[-2, -2, 1, 1, n], S2[-2, 1, 2, -1, n] -> 
  (25*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (4*Diff[Half[S2[1, n], n], n, 5])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (43*Diff[Half[S2[2, 1, n], n], n, 3])/96 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/4 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/8 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (149*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (2927*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (515*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 + 
   (887*Diff[S2[1, n], n, 1]^3)/48 + (21*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/2 - (139*Diff[S2[1, n], n, 2]^2)/12 + 
   (295*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/36 - 
   (2725*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 + 
   (409*Diff[S2[1, n], n, 5])/320 + (7*Diff[S2[-4, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, n], n, 2]/16 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/12 + 
   (169*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (79*Diff[S2[-2, 1, n], n, 3])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (75*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, n], n, 1]^2/2 - (39*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/16 + 
   (673*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (331*Diff[S2[-1, 1, n], n, 4])/96 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (17*Diff[S2[2, 1, n], n, 3])/12 + (11*Diff[S2[4, 1, n], n, 1])/2 + 
   (29*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   Diff[S2[-2, 1, -1, n], n, 2] - Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, n], n, 3]/4 - (19*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/4 + 9*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - (7*Diff[S2[-1, 1, 1, n], n, 3])/4 - 
   4*Diff[S2[1, 2, -1, n], n, 2] - Diff[S2[2, 1, -2, n], n, 1]/2 - 
   (33*Diff[S2[2, 1, -1, n], n, 2])/8 - (7*Diff[S2[2, 1, 1, n], n, 2])/2 - 
   4*Diff[S2[3, 1, 1, n], n, 1] + (23*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/2 - (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    8 + 7*Diff[S2[-1, 1, 1, 1, n], n, 2] + Diff[S2[1, -1, 1, -2, n], n, 1] - 
   3*Diff[S2[1, -1, 1, 2, n], n, 1] + 4*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   (7*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + Diff[S2[1, 2, -1, -1, n], n, 1] - 
   5*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/
    2 - Diff[S2[-1, 1, -1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   2*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + Diff[S2[1, -1, -1, 1, -1, n], n, 
    1] + (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/2 + 
   3*Diff[S2[1, 1, -1, -1, -1, n], n, 1] - Diff[S2[1, 1, -1, 1, -1, n], n, 1]/
    2 - Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/3 + (25*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/4 + (121*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (199*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (265*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 + 
   (67*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (37*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (17*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (9*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   (13*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/2 - 
   2*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n] + 
   Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (13*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (23*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (17*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (41*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (3*Half[S2[4, 1, 1, n], n])/8 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/3 - (49*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/32 + S2[-1, Infinity]^6/120 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    4 + (869*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/12 - 
   (21*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 - 
   (499*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (863*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (1189*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (787*Diff[S2[1, n], n, 4]*S2[1, n])/144 - 
   (211*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/24 + 
   (143*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (257*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (29*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 + 
   (73*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] - (13*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/24 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 + 
   (9*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (53*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/12 + 
   3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] - 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (47*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (209*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (211*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    12 - (905*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (8*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (23*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (119*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (107*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (Half[S2[1, n], n]^5*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (61*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (59*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/6 - 
   (S2[-1, Infinity]^5*S2[1, n])/480 - 
   (55*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (1063*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 + 
   (229*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/12 - 
   (659*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 + 
   (95*Diff[S2[1, n], n, 3]*S2[1, n]^2)/9 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (1009*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/12 - 
   (29*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (75*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (101*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (89*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/6 - 
   (91*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - (7*S2[-1, Infinity]^4*S2[1, n]^2)/
    192 + (439*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (91*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (299*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (25*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (41*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (319*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/2 - (35*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + S2[1, n]^6/3 + (51*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    16 - (319*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    4 - Diff[S2[1, n], n, 1]^2*S2[2, Infinity] + 
   (641*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 - 
   (45*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (91*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (67*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (73*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (77*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/3 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (29*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity] + 
   (39*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (21*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (229*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (223*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (235*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (137*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 + (211*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 - (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 + (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (409*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (71*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/8 - (7*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/6 + (131*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/48 + (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/12 + (15*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/8 - (65*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 - (131*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (19*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    8 + (259*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (31*S2[1, n]^4*S2[2, Infinity])/48 + 
   (237*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/40 + 
   (563*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (479*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (65*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 - 
   (189*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (143*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/48 - 
   (453*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (43*S2[1, n]^2*S2[2, Infinity]^2)/960 - (17639*S2[2, Infinity]^3)/2240 - 
   (189*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 - 
   (17*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 - 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 + 
   (883*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 - (989*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (57*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (53*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (379*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (331*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (355*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (63*S2[1, n]^3*S2[3, Infinity])/128 + 
   (799*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (1593*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (261*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (25*S2[3, Infinity]^2)/128 + (379*Half[S2[1, n], n]*S2[5, Infinity])/128 - 
   (1091*S2[1, n]*S2[5, Infinity])/32 - (51*S2[-5, -1, Infinity])/8 - 
   12*S2[-5, 1, n] - 12*S2[1, n]*S2[-4, 1, n] + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/24 + 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (15*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (41*S2[1, n]^2*S2[-3, 1, n])/48 - (67*S2[2, Infinity]*S2[-3, 1, n])/12 - 
   Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n] + 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (301*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 + 
   (67*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (43*S2[1, n]^3*S2[-2, 1, n])/24 - (29*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (65*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (19*S2[3, Infinity]*S2[-2, 1, n])/16 + S2[-2, 1, n]^2/2 - 
   (89*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 - 
   (43*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (521*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 - 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (47*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/24 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (109*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (235*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 - (149*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 + 
   (91*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   2*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/4 + 
   (13*S2[1, n]^4*S2[-1, 1, n])/24 + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (45*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (71*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (7*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (2431*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 2*Half[S2[1, n], n]*
    S2[3, Infinity]*S2[-1, 1, n] + (11*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/
    16 - (7*S2[-3, 1, n]*S2[-1, 1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/6 - 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (47*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/24 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/12 + 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/24 + (13*S2[2, Infinity]*S2[-1, 1, n]^2)/
    24 + (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 + 
   (15*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 + 4*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/4 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    16 + (5*Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (27*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (11*S2[1, n]^3*S2[2, 1, n])/16 - (31*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (23*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (139*S2[3, Infinity]*S2[2, 1, n])/16 - 2*S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (23*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 2*S2[2, 1, n]^2 - 
   6*S2[1, n]*S2[4, 1, n] + 12*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - 
   6*S2[1, n]*S2[-3, 1, 1, n] - S2[1, n]*S2[-2, 1, -2, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (S2[1, n]^2*S2[-2, 1, -1, n])/2 + 
   (5*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + (3*S2[-2, 2, -2, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (25*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 - (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    6 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (35*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (17*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (415*S2[3, Infinity]*S2[-1, 1, -1, n])/192 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - S2[-1, 1, -1, n]^2/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + (5*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/2 - (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (39*S2[3, Infinity]*S2[-1, 1, 1, n])/8 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 6*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (19*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - 7*S2[1, n]^2*S2[1, 2, -1, n] - 
   2*S2[-1, 1, n]*S2[1, 2, -1, n] + 3*S2[1, n]*S2[2, 1, -2, n] + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/12 + 
   (193*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 - 
   (155*S2[1, n]^2*S2[2, 1, -1, n])/24 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    6 - (25*S2[-1, 1, n]*S2[2, 1, -1, n])/12 - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (5*S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (5*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 3*S2[-1, 1, n]*S2[2, 1, 1, n] + 
   3*S2[3, 1, -2, n] - 6*S2[1, n]*S2[3, 1, 1, n] - 11*S2[4, 1, 1, n] + 
   18*S2[-3, 1, 1, 1, n] - 2*S2[-2, -2, 1, 1, n] - 
   9*S2[1, n]*S2[-2, 1, 1, 1, n] + 3*S2[-2, 2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (2*S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   (2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (23*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    2 + S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 8*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + (49*Diff[S2[1, n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   4*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (27*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   2*S2[1, n]*S2[1, 1, -2, -1, n] - 3*S2[1, n]*S2[1, 1, 2, -1, n] - 
   3*S2[2, -2, 1, 1, n] + 3*S2[2, 2, 1, 1, n] + 9*S2[-2, 1, 1, 1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   S2[1, n]*S2[-1, 1, -1, 1, 1, n] - Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] + S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (15*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 2*S2[1, -1, -1, 1, 2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 4*S2[1, -1, 1, 1, -2, n] - 
   3*S2[1, -1, 1, 1, 2, n] + 2*S2[1, -1, 1, 2, -1, n] + 
   2*S2[1, 1, -2, -1, 1, n] + 4*S2[1, 1, -2, 1, -1, n] - 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (7*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 5*S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, -1, n] + 15*S2[1, 1, 1, -2, -1, n] + 
   9*S2[1, 1, 1, -1, -2, n] + 18*S2[1, 1, 1, 2, -1, n] + 
   4*S2[1, 1, 2, -1, -1, n] + 3*S2[1, 1, 2, -1, 1, n] + 
   12*S2[1, 1, 2, 1, -1, n] + 2*S2[1, 2, 1, -1, -1, n] + 
   6*S2[1, 2, 1, 1, -1, n] - (3*S2[-1, -1, -1, 1, -1, -1, n])/4 - 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/4 + S2[-1, -1, 1, 1, -1, -1, n] - 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/2 - (3*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   S2[-1, 1, -1, 1, -1, -1, n]/2 - S2[-1, 1, -1, 1, 1, 1, n] + 
   2*S2[-1, 1, 1, -1, -1, -1, n] - 6*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   (15*S2[1, -1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, -1, 1, -1, n]/4 + 
   S2[1, -1, -1, 1, -1, -1, n] + (3*S2[1, -1, 1, -1, -1, -1, n])/2 + 
   4*S2[1, 1, -1, -1, -1, -1, n] - S2[1, 1, 1, -1, 1, -1, n], 
 S2[-2, 1, 2, 1, n] -> -Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]^2*S2[2, Infinity] + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/3 - Diff[S2[-2, 1, n], n, 1]*
    S2[2, Infinity] - Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 - 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 - 
   (769*S2[2, Infinity]^3)/420 - (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/16 + (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (51*S2[3, Infinity]^2)/128 - S2[2, Infinity]*S2[-3, 1, n] + 
   S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] + S2[3, Infinity]*S2[-2, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   S2[2, Infinity]*S2[1, 2, -1, n] - S2[2, Infinity]*S2[2, 1, -1, n] - 
   2*S2[-3, 1, 1, 1, n] - S2[-2, 1, 1, 2, n] - S2[-2, 2, 1, 1, n] - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2, 
 S2[-2, 1, -1, -2, n] -> (-19*Diff[Half[S2[1, n], n], n, 1]^3)/96 - 
   (25*Diff[Half[S2[1, n], n], n, 2]^2)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/3 + 
   (703*Diff[Half[S2[1, n], n], n, 5])/2880 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (27*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/8 + 
   (21*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (179*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (337*Diff[S2[1, n], n, 1]^3)/48 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (23*Diff[S2[1, n], n, 2]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (379*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 - 
   (493*Diff[S2[1, n], n, 5])/2880 - (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   (9*Diff[S2[-3, 1, n], n, 2])/8 - (31*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 + 
   Diff[S2[-2, 1, n], n, 3]/2 + (17*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 - 
   (37*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (77*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (11*Diff[S2[-1, 1, n], n, 4])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (23*Diff[S2[2, 1, n], n, 3])/24 - 4*Diff[S2[4, 1, n], n, 1] - 
   8*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/12 + Diff[S2[1, 2, -1, n], n, 2] + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + Diff[S2[2, 1, -1, n], n, 2] + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   (9*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    8 + Diff[S2[-1, 1, -1, 1, n], n, 2]/2 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1] + 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 4*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   Diff[S2[1, 1, -1, 2, n], n, 1] - 2*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   Diff[S2[1, 2, -1, -1, n], n, 1] + 5*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] + (9*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (85*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (205*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (91*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (7*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (39*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 - (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (19*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (43*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - (91*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (63*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/12 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n] - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/32 - (15*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (29*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^5)/96 - S2[-1, Infinity]^6/144 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 + (11*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (239*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (11*Diff[S2[1, n], n, 4]*S2[1, n])/64 + 
   (95*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (107*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (73*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (9*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (9*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (19*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (35*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (35*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   4*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] + 
   (17*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (37*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (215*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (187*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (13*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/32 - 
   (9*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (169*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 - 
   (43*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (123*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 + 
   (21*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 + 
   (61*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (105*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    16 - (45*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 - 
   (173*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (19*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (13*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/3 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^4)/6 + (11*Half[S2[1, n], n]*S2[1, n]^5)/
    12 - (7*S2[1, n]^6)/48 - (151*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (107*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/48 - (11*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/16 + (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/
    16 + (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     S2[2, Infinity])/8 + (55*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (53*Diff[S2[1, n], n, 3]*S2[2, Infinity])/64 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (29*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (31*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (397*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (9*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (55*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/2 - (165*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (53*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (43*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (47*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 - 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - 9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] + (11*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (471*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    6 - (51*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (61*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (177*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (93*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (77*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (197*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (79*S2[1, n]^4*S2[2, Infinity])/48 - 
   (415*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 - 
   (979*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 - 
   (211*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 + 
   (59*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 + 
   (109*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 + 
   (451*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (2111*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (163*S2[1, n]^2*S2[2, Infinity]^2)/160 + (48197*S2[2, Infinity]^3)/3360 + 
   (659*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (25*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 + 
   (151*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (163*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/48 - 
   (847*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (1429*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (73*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (321*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (695*S2[1, n]^3*S2[3, Infinity])/384 + 
   (295*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (1125*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (5725*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (2197*S2[3, Infinity]^2)/1536 - (877*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (1055*S2[1, n]*S2[5, Infinity])/32 - (5*S2[-5, -1, Infinity])/8 + 
   6*S2[-5, 1, n] + 2*S2[1, n]*S2[-4, 1, n] - 
   (51*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/2 - (S2[1, n]^2*S2[-3, 1, n])/
    16 + (15*S2[2, Infinity]*S2[-3, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/6 - 
   (17*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (61*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (29*S2[1, n]^3*S2[-2, 1, n])/24 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (29*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (27*S2[3, Infinity]*S2[-2, 1, n])/16 + (5*S2[-2, 1, n]^2)/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/6 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (63*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (23*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (69*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (35*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] - 
   (13*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (391*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/4 - 
   (11*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/8 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 - 2*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (9*S2[1, n]^2*S2[-1, 1, n]^2)/16 - (39*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 - S2[-1, 1, n]^3/2 - (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    24 - (23*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (5*S2[1, n]^3*S2[2, 1, n])/48 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (15*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (55*S2[3, Infinity]*S2[2, 1, n])/16 + 5*S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/2 - 
   S2[1, n]*S2[4, 1, n] - 11*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 
   2*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   2*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (5*S2[1, n]^2*S2[-2, 1, -1, n])/4 - (13*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - S2[-1, 1, n]*S2[-2, 1, -1, n] - (5*S2[-2, 2, -2, n])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/16 + (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    4 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, -1, n] + (7*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, -1, n])/8 + (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/
    8 - (7*S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (9*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (75*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/2 - 4*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + (19*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/4 - (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (9*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (15*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (19*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 2*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] - 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] - (3*S2[-1, 1, 1, n]^2)/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   2*S2[1, n]^2*S2[1, 2, -1, n] + (9*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   S2[-1, 1, n]*S2[1, 2, -1, n] - (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (19*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] + (15*S2[1, n]^2*S2[2, 1, -1, n])/8 + 
   (15*S2[2, Infinity]*S2[2, 1, -1, n])/4 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/
    4 + (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + (7*S2[1, n]^2*S2[2, 1, 1, n])/4 - 
   (21*S2[2, Infinity]*S2[2, 1, 1, n])/4 + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[3, 1, -2, n])/2 + 5*S2[4, 1, 1, n] - 12*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] + (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[-2, 1, 1, 2, n] - S2[-2, 2, 1, 1, n]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] - 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   S2[-1, 1, n]*S2[-1, 1, -1, 1, n] + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (19*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (89*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (29*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (201*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, n]*S2[1, 1, -2, -1, n] + (7*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (9*S2[2, -2, 1, 1, n])/2 - 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   (3*S2[-2, 1, 1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    2 + (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   2*S2[1, n]*S2[-1, 1, -1, -1, 1, n] - Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (5*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (25*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (13*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + S2[1, -2, -1, 1, -1, n] - 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 2*S2[1, -1, -1, 1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 2*S2[1, -1, -1, 1, 2, n] - 
   S2[1, -1, 1, -2, -1, n] + (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 - (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 3*S2[1, -1, 1, 1, -2, n] - 
   S2[1, -1, 1, 1, 2, n]/2 - 2*S2[1, -1, 1, 2, -1, n] - 
   3*S2[1, 1, -2, -1, 1, n] - 4*S2[1, 1, -2, 1, -1, n] - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] + 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 4*S2[1, 1, -1, 1, -2, n] - 
   Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] + 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] - 2*S2[1, 1, -1, 1, 2, n] - 
   2*S2[1, 1, -1, 2, -1, n] - 14*S2[1, 1, 1, -2, -1, n] - 
   8*S2[1, 1, 1, -1, -2, n] - Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   S2[1, n]*S2[1, 1, 1, -1, -1, n] - 4*S2[1, 1, 1, -1, 2, n] - 
   16*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   (7*S2[1, 1, 2, -1, 1, n])/2 - 8*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] + 
   3*S2[2, 1, 1, 1, 1, n] + S2[-1, -1, -1, 1, -1, -1, n]/2 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/2 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   3*S2[-1, 1, -1, -1, -1, -1, n] + (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   2*S2[-1, 1, -1, -1, 1, 1, n] + (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 
   S2[-1, 1, 1, -1, -1, -1, n]/2 + 2*S2[-1, 1, 1, -1, -1, 1, n] + 
   S2[-1, 1, 1, 1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 
   5*S2[-1, 1, 1, 1, 1, 1, Infinity] + 5*S2[1, -1, -1, -1, -1, -1, n] - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 - (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   2*S2[1, -1, -1, 1, 1, -1, n] - S2[1, -1, 1, -1, -1, -1, n] + 
   S2[1, -1, 1, 1, -1, -1, n] - 3*S2[1, 1, -1, -1, -1, -1, n] + 
   2*S2[1, 1, -1, -1, 1, -1, n] + S2[1, 1, -1, 1, -1, -1, n] + 
   3*S2[1, 1, 1, -1, -1, -1, n] - (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-2, 1, -1, 2, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/32 - (5*Diff[Half[S2[1, n], n], n, 2]^2)/
    64 - (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    144 - (19*Diff[Half[S2[1, n], n], n, 5])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 3])/16 + Diff[Half[S2[4, 1, n], n], n, 1]/
    4 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (59*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (77*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (27*Diff[S2[1, n], n, 1]^3)/32 + (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (55*Diff[S2[1, n], n, 2]^2)/96 + 
   (247*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (583*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (253*Diff[S2[1, n], n, 5])/2880 - (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   (3*Diff[S2[-3, 1, n], n, 2])/4 - (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   Diff[S2[-2, 1, n], n, 3]/4 + (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (13*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (69*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (7*Diff[S2[-1, 1, n], n, 4])/16 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (7*Diff[S2[2, 1, n], n, 3])/12 - 2*Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   Diff[S2[-2, 1, -1, n], n, 2]/4 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (11*Diff[S2[-1, 1, -1, n], n, 3])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - Diff[S2[2, 1, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, 1, n], n, 2]/2 + Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    2 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 + 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/3 + (17*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (4*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 + (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (43*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 + 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 + (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 + (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (13*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/12 - 
   Half[S2[2, 1, n], n]^2/64 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + 
   (7*S2[-1, Infinity]^6)/1440 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/72 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (79*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (139*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (23*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (67*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (15*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (71*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (109*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (97*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (91*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (59*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (71*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (23*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (191*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (173*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (67*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/6 + 
   (13*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (73*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 - 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/96 - 
   (55*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/12 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    48 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (77*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    24 + (Half[S2[1, n], n]*S2[1, n]^5)/12 - S2[1, n]^6/16 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (61*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/3 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (51*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (37*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/6 + (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    48 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (29*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (23*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (85*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (47*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (13*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (17*S2[1, n]^4*S2[2, Infinity])/48 + 
   (257*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (161*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (49*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/192 - 
   (219*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (573*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (95*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/48 + 
   (671*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (1667*S2[1, n]^2*S2[2, Infinity]^2)/960 + (3*S2[2, Infinity]^3)/35 - 
   (75*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (67*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 + 
   (119*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (205*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (419*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (119*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 + 
   (59*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/96 - 
   (31*S2[1, n]^3*S2[3, Infinity])/192 - 
   (467*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (51*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (1261*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (5587*S2[3, Infinity]^2)/3072 + (Half[S2[1, n], n]*S2[5, Infinity])/128 - 
   (157*S2[1, n]*S2[5, Infinity])/32 + (5*S2[-5, -1, Infinity])/8 + 
   6*S2[1, n]*S2[-4, 1, n] - (19*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    48 + (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/24 - (19*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 - Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/12 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/12 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 - 
   (S2[1, n]^3*S2[-2, 1, n])/12 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    8 + (17*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (51*S2[3, Infinity]*S2[-2, 1, n])/32 - (3*S2[-2, 1, n]^2)/4 + 
   (85*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n] + 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (8*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (7*S2[1, n]^4*S2[-1, 1, n])/24 + (49*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (1171*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (119*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (13*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (47*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/48 + (11*S2[2, Infinity]*S2[-1, 1, n]^2)/12 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (5*S2[1, n]^3*S2[2, 1, n])/24 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (67*S2[3, Infinity]*S2[2, 1, n])/96 - (S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - S2[2, 1, n]^2/4 + 
   7*S2[1, n]*S2[4, 1, n] + S2[1, n]*S2[-2, 1, -2, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   S2[2, Infinity]*S2[-2, 1, -1, n] + S2[-2, 2, -2, n]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 + 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (23*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - S2[-1, 1, -1, n]^2/16 + 
   Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   S2[1, n]^3*S2[-1, 1, 1, n] - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + 2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (13*S2[3, Infinity]*S2[-1, 1, 1, n])/8 + S2[-1, 1, 1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + S2[1, n]^2*S2[1, 2, -1, n] + 
   S2[-1, 1, n]*S2[1, 2, -1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/24 + (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (11*S2[1, n]^2*S2[2, 1, -1, n])/12 - (S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (11*S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - S2[1, n]^2*S2[2, 1, 1, n] + 
   S2[2, Infinity]*S2[2, 1, 1, n] + 3*S2[1, n]*S2[3, 1, 1, n] + 
   S2[4, 1, 1, n] + 2*S2[-2, -2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 - (S2[1, n]^2*S2[-1, 1, -1, 1, n])/
    2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] - 2*S2[1, n]^2*S2[-1, 1, 1, 1, n] - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (19*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, 1, -2, -1, n] + 2*S2[1, n]*S2[2, 1, 1, 1, n] - 
   (3*S2[2, 2, 1, 1, n])/2 + (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   S2[1, n]*S2[-1, 1, -1, 1, 1, n] - S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (23*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, -2, n] + 
   S2[1, 1, -2, -1, 1, n] - (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 2*S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, 1, -1, -2, n] - 2*S2[2, 1, 1, 1, 1, n] - 
   S2[-1, 1, -1, -1, -1, 1, n]/4 - S2[-1, 1, -1, 1, 1, 1, n] + 
   S2[-1, 1, 1, 1, -1, 1, n] - (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, -1, -1, 1, -1, n]/4 + S2[1, -1, -1, 1, -1, -1, n]/2 + 
   S2[1, -1, 1, -1, -1, -1, n]/2 + S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, 1, -1, 1, -1, n] + 4*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-2, 1, 1, -2, n] -> -Diff[Half[S2[1, n], n], n, 2]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/3 - 
   Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 - 
   Diff[S2[1, n], n, 1]^3 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - Diff[S2[1, n], n, 2]^2/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/3 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 + Diff[S2[1, n], n, 5]/480 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2] - 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] - 
   Diff[S2[-2, 1, -2, n], n, 1]/4 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] - Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 - (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/
    2 + (67*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (107*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]^2)/2 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/4 + 
   (2563*S2[2, Infinity]^3)/6720 + (3*Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/16 - (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (15*S2[3, Infinity]^2)/64 + (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-2, 1, n] + Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (3*S2[3, Infinity]*S2[-2, 1, n])/4 - S2[-2, 1, n]^2/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n] + 
   Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   S2[-2, 2, -2, n]/4 + Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + (S2[2, Infinity]*S2[1, 2, -1, n])/
    2 + Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n] - 
   Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + (S2[2, Infinity]*S2[2, 1, -1, n])/
    2 + Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2, 
 S2[2, -2, -1, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/96 + 
   Diff[Half[S2[1, n], n], n, 2]^2/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 - 
   (49*Diff[Half[S2[1, n], n], n, 5])/2880 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (59*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (109*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (89*Diff[S2[1, n], n, 1]^3)/96 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (3*Diff[S2[1, n], n, 2]^2)/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (49*Diff[S2[1, n], n, 5])/2880 + 4*Diff[S2[-4, 1, n], n, 1] + 
   (7*Diff[S2[-3, 1, n], n, 2])/6 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   Diff[S2[-2, 1, n], n, 3]/4 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 - Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] + Diff[S2[-1, 1, n], n, 4]/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[-3, 1, 1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/24 - Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, 1, 2, -1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 + 
   2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/
    4 - (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/144 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    3 - (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/24 + 
   (35*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/288 - 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/96 + 
   (11*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/40 + (11*S2[-1, Infinity]^6)/1440 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (2*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/3 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (299*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (293*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (139*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (133*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (149*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (15*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (97*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (313*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (9*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (13*S2[-1, Infinity]^5*S2[1, n])/240 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (95*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 - 
   (59*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/12 + 
   (167*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 - 
   (47*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/24 - 
   (59*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (91*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (85*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/12 + 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (9*S2[-1, Infinity]^4*S2[1, n]^2)/
    64 + (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 + 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/12 + (2*Half[S2[1, n], n]*S2[1, n]^5)/
    3 - S2[1, n]^6/6 + (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 + (19*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/36 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    48 + (61*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (205*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (59*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/24 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/2 - 
   (67*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (29*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (85*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 - (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 + (17*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    6 - (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (119*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (45*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (21*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (7*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (7*S2[1, n]^4*S2[2, Infinity])/6 + 
   (633*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (587*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/240 - 
   (121*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/192 - 
   (239*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (263*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/30 + 
   (567*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1667*S2[1, n]^2*S2[2, Infinity]^2)/960 + (5809*S2[2, Infinity]^3)/960 + 
   (181*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (245*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (61*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (101*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (15*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/16 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (277*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (37*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (241*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (415*S2[1, n]^3*S2[3, Infinity])/384 - 
   (163*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (587*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (281*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (35*S2[3, Infinity]^2)/384 - (215*Half[S2[1, n], n]*S2[5, Infinity])/256 + 
   (647*S2[1, n]*S2[5, Infinity])/256 + (7*S2[-5, -1, Infinity])/8 + 
   7*S2[-5, 1, n] - 2*S2[1, n]*S2[-4, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   (35*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (49*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/3 - 
   (31*S2[1, n]^2*S2[-3, 1, n])/48 + (17*S2[2, Infinity]*S2[-3, 1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (11*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/6 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/12 - 
   (5*S2[3, Infinity]*S2[-2, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (71*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/32 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 - 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 - 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (S2[1, n]^4*S2[-1, 1, n])/3 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (73*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (37*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (47*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (121*S2[2, Infinity]^2*S2[-1, 1, n])/60 + 
   (11*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (71*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/8 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/8 - (S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   (5*S2[-1, 1, n]^3)/24 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (7*S2[1, n]^3*S2[2, 1, n])/16 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + (S2[3, Infinity]*S2[2, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 2*S2[-4, 1, 1, n] - 
   2*S2[1, n]*S2[-3, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (7*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    12 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/24 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (5*S2[3, Infinity]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (17*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (31*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + (S2[2, 1, n]*S2[-1, 1, 1, n])/
    2 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (S2[1, n]^2*S2[1, 2, -1, n])/2 + (7*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - S2[1, n]*S2[2, 1, -2, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 - 
   (25*S2[1, n]^2*S2[2, 1, -1, n])/24 + (7*S2[2, Infinity]*S2[2, 1, -1, n])/
    6 + (S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (7*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - S2[3, 1, -2, n] - 2*S2[-3, 1, 1, 1, n] - 
   2*S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 2, 1, 1, n] + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 - 2*S2[2, Infinity]*
    S2[-1, 1, 1, 1, n] + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (27*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (99*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   2*S2[1, n]*S2[1, 1, 2, -1, n] + S2[2, -2, 1, 1, n] + 
   2*S2[-2, 1, 1, 1, 1, n] - (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    4 + (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + (13*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 - (5*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (5*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - S2[1, 1, -1, -2, -1, n] - 
   S2[1, 1, -1, -1, -2, n] - (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 - S2[1, 1, 1, -1, 2, n] - 
   5*S2[1, 1, 1, 2, -1, n] - 2*S2[1, 1, 2, -1, 1, n] - 
   2*S2[1, 1, 2, 1, -1, n] + (3*S2[-1, -1, -1, 1, -1, -1, n])/4 + 
   (7*S2[-1, -1, 1, -1, -1, -1, n])/4 + (5*S2[-1, 1, -1, -1, -1, -1, n])/2 + 
   S2[-1, 1, -1, -1, 1, 1, n]/2 - S2[-1, 1, 1, 1, -1, -1, n] - 
   (11*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + (5*S2[1, -1, -1, -1, -1, -1, n])/
    2 + S2[1, -1, -1, 1, 1, -1, n]/2 - S2[1, -1, 1, 1, -1, -1, n] + 
   S2[1, 1, -1, -1, 1, -1, n]/2 - S2[1, 1, -1, 1, -1, -1, n]/2 - 
   (3*S2[1, 1, 1, -1, -1, -1, n])/2, S2[2, -2, -1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/32 + Diff[Half[S2[1, n], n], n, 2]^2/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 + 
   (19*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 3])/96 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/16 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/8 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (95*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (287*Diff[S2[1, n], n, 1]^3)/96 - (59*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (37*Diff[S2[1, n], n, 2]^2)/24 - 
   (185*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (491*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (23*Diff[S2[1, n], n, 5])/144 + Diff[S2[-4, 1, n], n, 1]/2 + 
   Diff[S2[-3, 1, n], n, 2]/16 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (5*Diff[S2[-2, 1, n], n, 3])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (25*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (85*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (35*Diff[S2[-1, 1, n], n, 4])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   Diff[S2[2, 1, n], n, 3]/8 + (3*Diff[S2[4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, n], n, 3]/12 - (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, n], n, 3]/8 + Diff[S2[1, 2, -1, n], n, 2]/2 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (3*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/8 - Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    4 + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (17*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (9*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (175*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (23*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 + 
   (17*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (19*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/4 - 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/4 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 + 
   Half[S2[2, 1, n], n]^2/16 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/96 - S2[-1, Infinity]^6/1440 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 - (31*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (81*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (455*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (191*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (59*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 2*Diff[S2[-2, 1, n], n, 2]*
    S2[1, n] + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     S2[1, n])/8 + (35*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     S2[1, n])/8 - (157*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (19*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (13*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (75*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (181*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (11*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (S2[-1, Infinity]^5*S2[1, n])/30 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/2 + 
   (127*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (27*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (43*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 + 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 2*Diff[S2[-1, 1, n], n, 2]*
    S2[1, n]^2 - (11*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n]^2 + (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[1, n]^2)/16 - (103*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/
    24 + (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/4 - 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/24 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 + 
   (27*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/8 + (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/12 - (13*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + S2[1, n]^6/12 + (19*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    16 + (3*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (75*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 + (71*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   Diff[S2[1, n], n, 3]*S2[2, Infinity] + 
   (15*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (59*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/4 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (21*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (31*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (53*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (47*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 + (51*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (13*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 + (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (69*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (21*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 + (13*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (17*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (97*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (21*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (53*S2[1, n]^4*S2[2, Infinity])/48 + 
   (839*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (385*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/64 - 
   (27*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/8 + 
   (39*S2[-1, Infinity]^2*S2[2, Infinity]^2)/20 - 
   (137*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (67*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (801*S2[1, n]^2*S2[2, Infinity]^2)/160 + (11923*S2[2, Infinity]^3)/3360 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (17*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (85*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/64 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (335*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (223*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 + 
   (113*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/192 - 
   (59*S2[1, n]^3*S2[3, Infinity])/192 - 
   (71*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/4 + 
   (23*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/24 + 
   (359*S2[3, Infinity]^2)/384 - (187*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (279*S2[1, n]*S2[5, Infinity])/64 - (21*S2[-5, -1, Infinity])/8 - 
   6*S2[1, n]*S2[-4, 1, n] + (29*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 - (47*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (37*S2[1, n]^2*S2[-3, 1, n])/8 + (29*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/4 - (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    2 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/4 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-2, 1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (S2[3, Infinity]*S2[-2, 1, n])/8 + S2[-2, 1, n]^2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (3*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 + (35*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (55*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (497*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (41*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/96 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/12 + 
   (23*S2[-3, 1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/4 + (7*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 - 
   (25*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/8 - (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    2 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (5*S2[1, n]^3*S2[2, 1, n])/24 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (17*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (5*S2[3, Infinity]*S2[2, 1, n])/24 + 2*S2[-2, 1, n]*S2[2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2 - 
   8*S2[1, n]*S2[4, 1, n] + S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - S2[-2, 2, -2, n]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/8 + (7*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (19*S2[3, Infinity]*S2[-1, 1, -1, n])/192 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + (S2[2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[-1, 1, 1, n]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   S2[1, n]^2*S2[1, 2, -1, n] + (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   S2[1, n]*S2[2, 1, -2, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/
    8 - (9*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (7*S2[1, n]^2*S2[2, 1, -1, n])/4 + (7*S2[2, Infinity]*S2[2, 1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - S2[2, Infinity]*S2[2, 1, 1, n] - 
   S2[1, n]*S2[3, 1, 1, n] + S2[4, 1, 1, n] + S2[1, n]*S2[-2, 1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/8 - 
   (57*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (65*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (15*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]*S2[1, 1, -1, 2, n] + S2[1, n]*S2[2, 1, 1, 1, n] + 
   S2[2, 2, 1, 1, n]/2 - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    2 - Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n] + 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + S2[1, 1, 1, -1, -2, n] - 
   S2[2, 1, 1, 1, 1, n] + S2[-1, -1, 1, 1, -1, -1, n] + 
   S2[-1, 1, -1, -1, -1, 1, n]/4 + S2[-1, 1, -1, 1, -1, -1, n]/2 - 
   S2[-1, 1, -1, 1, 1, 1, n]/2 + 2*S2[-1, 1, 1, -1, -1, -1, n] + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 + S2[-1, 1, 1, 1, 1, 1, Infinity]/2 - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 - S2[1, -1, -1, 1, -1, -1, n] - 
   S2[1, -1, 1, -1, -1, -1, n]/2 + S2[1, 1, 1, -1, 1, -1, n]/2 + 
   2*S2[1, 1, 1, 1, -1, -1, n], S2[2, -2, 1, -1, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 - 
   Diff[Half[S2[1, n], n], n, 5]/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/16 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/16 - Diff[Half[S2[4, 1, n], n], n, 1]/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/16 - 
   (2*Diff[S2[1, n], n, 1]^3)/3 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (5*Diff[S2[1, n], n, 2]^2)/24 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/32 - 
   (19*Diff[S2[1, n], n, 5])/576 + 2*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2] + (7*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 + Diff[S2[-2, 1, n], n, 3]/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/4 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   Diff[S2[-1, 1, n], n, 4]/24 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   Diff[S2[2, 1, n], n, 3]/24 + Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   Diff[S2[-1, 1, -1, n], n, 3]/48 + (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[2, 1, 1, n], n, 2]/4 - Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/8 - Diff[S2[1, 1, -2, -1, n], n, 1] + 
   Diff[S2[2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    4 + (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    48 - (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/48 + (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/12 - (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 + (7*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    16 - (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 - 
   Half[S2[2, 1, n], n]^2/16 + (3*Diff[S2[1, n], n, 1]*
     Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/96 + S2[-1, Infinity]^6/1440 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 - (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (47*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/24 + 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (7*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/6 + 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (17*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/16 + 
   (17*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (23*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/8 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    32 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/2 - (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/6 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (5*Half[S2[1, n], n]*S2[1, n]^5)/
    12 - S2[1, n]^6/12 - Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity] + 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (19*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/4 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (73*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (7*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    8 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (2*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    3 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (7*S2[1, n]^4*S2[2, Infinity])/24 - 
   (107*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 + 
   (281*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (27*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/8 - 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 + 
   (277*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (91*S2[1, n]^2*S2[2, Infinity]^2)/80 - (527*S2[2, Infinity]^3)/840 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 + 
   (45*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/64 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 - 
   (191*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (163*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 - 
   (41*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/192 - 
   (S2[1, n]^3*S2[3, Infinity])/192 + (71*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/192 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/4 - (445*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/
    192 - (1901*S2[3, Infinity]^2)/384 + 
   (187*Half[S2[1, n], n]*S2[5, Infinity])/128 - 
   (177*S2[1, n]*S2[5, Infinity])/128 + (57*S2[-5, -1, Infinity])/8 + 
   3*S2[1, n]*S2[-4, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    4 + (15*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (5*S2[1, n]^2*S2[-3, 1, n])/2 - (37*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 - Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/2 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/4 + (Half[S2[1, n], n]^3*S2[-2, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-2, 1, n] - (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/
    4 - (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (S2[1, n]^3*S2[-2, 1, n])/4 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-2, 1, n] - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (S2[3, Infinity]*S2[-2, 1, n])/8 - S2[-2, 1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 - 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (S2[1, n]^4*S2[-1, 1, n])/12 - (31*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (29*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (497*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (41*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/96 + 
   (17*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/96 - 
   (23*S2[-3, 1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/8 - (7*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 + 
   (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/4 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    8 + (Half[S2[1, n], n]^3*S2[2, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (7*S2[1, n]^3*S2[2, 1, n])/12 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (5*S2[3, Infinity]*S2[2, 1, n])/24 - 2*S2[-2, 1, n]*S2[2, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - S2[2, 1, n]^2 + 
   4*S2[1, n]*S2[4, 1, n] - S2[-3, -2, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/
    2 - (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (S2[1, n]^2*S2[-2, 1, -1, n])/2 + 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - S2[-2, 2, -2, n]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (7*S2[2, Infinity]*S2[-1, -2, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (19*S2[3, Infinity]*S2[-1, 1, -1, n])/192 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - (S2[2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[-1, 1, 1, n]^2/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (S2[1, n]^2*S2[1, 2, -1, n])/2 - 
   (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (S2[2, Infinity]*S2[2, 1, -1, n])/8 - (S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + S2[2, Infinity]*S2[2, 1, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] - S2[-2, -2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (45*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (15*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   2*S2[1, n]*S2[1, 1, -2, -1, n] - S2[1, n]*S2[2, 1, 1, 1, n] - 
   S2[2, 2, 1, 1, n]/2 + (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] - S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (17*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 2*S2[1, 1, -2, -1, 1, n] - 
   2*S2[1, 1, -2, 1, -1, n] + (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    2 - (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 6*S2[1, 1, 1, -2, -1, n] - 
   S2[1, 1, 1, -1, -2, n] + S2[2, 1, 1, 1, 1, n] - 
   S2[-1, -1, 1, 1, -1, -1, n] - S2[-1, 1, -1, -1, -1, 1, n]/4 - 
   S2[-1, 1, -1, 1, -1, -1, n]/2 + S2[-1, 1, -1, 1, 1, 1, n]/2 - 
   2*S2[-1, 1, 1, -1, -1, -1, n] - S2[-1, 1, 1, 1, -1, 1, n]/2 - 
   S2[-1, 1, 1, 1, 1, 1, Infinity]/2 + (3*S2[1, -1, -1, -1, 1, -1, n])/4 + 
   S2[1, -1, -1, 1, -1, -1, n] + S2[1, -1, 1, -1, -1, -1, n]/2 - 
   S2[1, 1, 1, -1, 1, -1, n]/2 - 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[2, 2, -1, -1, n] -> -Diff[Half[S2[1, n], n], n, 2]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 - 
   (17*Diff[S2[1, n], n, 1]^3)/12 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + Diff[S2[1, n], n, 2]^2/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/3 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (19*Diff[S2[1, n], n, 5])/1440 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, n], n, 1]^2/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (5*Diff[S2[2, 1, n], n, 3])/24 - Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, -1, n], n, 3]/12 + 3*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - 3*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + Diff[S2[2, 1, 1, n], n, 2]/4 - 
   Diff[S2[3, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, 1, n], n, 2]/4 - 
   Diff[S2[1, 1, -2, -1, n], n, 1] + (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    2 - Diff[S2[1, 1, -1, 1, -1, n], n, 1] - 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/6 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/20 - (19*S2[-1, Infinity]^6)/1440 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/48 + 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 2*Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 - (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + (7*S2[-1, Infinity]^5*S2[1, n])/
    60 + (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/2 - 
   (3*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    8 - (Half[S2[1, n], n]*S2[1, n]^5)/4 + S2[1, n]^6/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (19*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/4 - (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/2 - (Half[S2[1, n], n]*S2[-1, Infinity]^3*
     S2[2, Infinity])/2 + (13*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    2 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 - (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (39*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 - (2*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (9*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (7*S2[1, n]^4*S2[2, Infinity])/24 - 
   (91*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 - 
   (19*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/40 + 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (873*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (49*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (851*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (67*S2[1, n]^2*S2[2, Infinity]^2)/160 + (27763*S2[2, Infinity]^3)/6720 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 + 
   (53*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (35*S2[1, n]^3*S2[3, Infinity])/96 + 
   (331*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/96 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (907*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/96 - 
   (631*S2[3, Infinity]^2)/768 + (95*Half[S2[1, n], n]*S2[5, Infinity])/64 + 
   (831*S2[1, n]*S2[5, Infinity])/128 - S2[-5, -1, Infinity]/8 + 
   3*S2[1, n]*S2[-4, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + (S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/6 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n] + 
   Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] + (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/
    6 + 2*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n] + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 + 
   (S2[1, n]^4*S2[-1, 1, n])/2 - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[2, Infinity]*S2[-1, 1, n] + (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/8 + (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (99*S2[2, Infinity]^2*S2[-1, 1, n])/40 - 
   (23*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/2 - 2*S2[2, Infinity]*S2[-1, 1, n]^2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (S2[1, n]^3*S2[2, 1, n])/2 + (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   S2[3, Infinity]*S2[2, 1, n] + 2*S2[1, n]*S2[4, 1, n] - S2[-3, -2, 1, n] - 
   (S2[1, n]*S2[-2, 1, -2, n])/2 - S2[-2, 2, -2, n]/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - 4*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (37*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - (3*S2[-1, 1, 1, n]^2)/2 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, 2, -1, n] - Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   S2[2, Infinity]*S2[1, 2, -1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, -1, n] - Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + 
   S2[2, Infinity]*S2[2, 1, -1, n] + (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - 
   (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 - S2[1, n]*S2[3, 1, 1, n] - 
   2*S2[4, 1, 1, n] - S2[-2, -2, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + 2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - (5*Diff[S2[1, n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/2 + (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/
    2 + (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   6*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   2*S2[1, n]*S2[1, 1, -2, -1, n] - 3*S2[1, n]*S2[2, 1, 1, 1, n] + 
   S2[2, 2, 1, 1, n]/2 - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] + 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   6*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   14*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 2*S2[1, 1, -2, -1, 1, n] - 
   2*S2[1, 1, -2, 1, -1, n] - S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] - 5*S2[1, 1, 1, -2, -1, n] - 
   2*S2[1, 1, 1, -1, -2, n] + 3*S2[2, 1, 1, 1, 1, n] + 
   S2[-1, 1, -1, 1, 1, 1, n]/2 - (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 
   (19*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - (5*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[2, 2, -1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 5]/4 + 2*Diff[Half[S2[1, n], n], n, 3]*
    Diff[S2[1, n], n, 1] - 3*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1]^2 + 3*Diff[S2[1, n], n, 1]^3 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/4 - 
   (9*Diff[S2[1, n], n, 2]^2)/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/2 - (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    2 + Diff[S2[1, n], n, 5]/4 + (9*Diff[S2[-4, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, n], n, 2]/4 + (7*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 - (7*Diff[S2[-2, 1, n], n, 3])/12 + 
   (13*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] - 
   (2*Diff[S2[-1, 1, n], n, 4])/3 + (5*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/2 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 2])/4 + Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (3*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^6/720 + 
   (13*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (11*Diff[S2[1, n], n, 4]*S2[1, n])/12 + Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] + (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   Diff[S2[-1, 1, n], n, 3]*S2[1, n] + (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/
    2 + (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   2*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   3*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 + (17*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    12 - (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/
    6 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 + 
   Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] + 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (S2[1, n]^4*S2[2, Infinity])/3 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/4 + (151*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (123*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/4 - 
   (73*S2[1, n]^2*S2[2, Infinity]^2)/80 + (23*S2[2, Infinity]^3)/224 + 
   (25*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 - 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (5*S2[1, n]^3*S2[3, Infinity])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/3 - 
   (215*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (37*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 - 
   (2173*S2[3, Infinity]^2)/768 - (3*S2[-5, -1, Infinity])/2 + 
   9*S2[-5, 1, n] - (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - 
   S2[1, n]^2*S2[-3, 1, n] - S2[2, Infinity]*S2[-3, 1, n] + 
   (2*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (S2[1, n]^3*S2[-2, 1, n])/6 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (S2[3, Infinity]*S2[-2, 1, n])/3 - Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] + 
   (2*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/3 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[2, Infinity]^2*S2[-1, 1, n])/2 + 5*S2[-4, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - (S2[1, n]^2*S2[1, 2, -1, n])/
    2 - (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - (S2[1, n]^2*S2[2, 1, -1, n])/
    2 - (S2[2, Infinity]*S2[2, 1, -1, n])/2 + 2*S2[-3, 1, 1, 1, n] + 
   S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (37*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, 1, -1, 2, n] - S2[2, -2, 1, 1, n]/2 - 
   S2[-2, 1, 1, 1, 1, n] + S2[1, 1, 1, -1, 2, n] + 
   S2[-1, 1, 1, 1, 1, 1, Infinity], S2[2, 2, 1, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 5]/24 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/2 - 
   Diff[S2[1, n], n, 2]^2/2 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/6 - (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    12 + Diff[S2[1, n], n, 5]/24 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, n], n, 4]/12 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - 
   Diff[S2[1, 1, 2, -1, n], n, 1] + Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/8 + S2[-1, Infinity]^6/720 + 
   (11*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/2 + (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/
    2 - 2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   Diff[S2[-1, 1, n], n, 3]*S2[1, n] + (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/
    2 + Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] + Diff[S2[2, 1, -1, n], n, 1]*
    S2[1, n] - Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (S2[-1, Infinity]^5*S2[1, n])/120 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/4 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   3*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 + (4*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    3 - Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] - (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/12 + (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*
     S2[2, Infinity])/2 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/4 - (S2[-1, Infinity]^4*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/6 + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (S2[1, n]^4*S2[2, Infinity])/6 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/2 + (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/20 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/2 + 
   (107*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (21*S2[1, n]^2*S2[2, Infinity]^2)/16 + (319*S2[2, Infinity]^3)/1680 - 
   (5*Diff[S2[1, n], n, 2]*S2[3, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/4 + 
   (S2[1, n]^3*S2[3, Infinity])/6 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/3 + (17*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/8 - (55*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   (169*S2[3, Infinity]^2)/192 - (27*S2[1, n]*S2[5, Infinity])/64 - 
   3*S2[-5, -1, Infinity] - S2[1, n]*S2[-4, 1, n] - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 + (S2[1, n]^3*S2[-2, 1, n])/3 - 
   (S2[3, Infinity]*S2[-2, 1, n])/3 + (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/
    12 - Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[2, Infinity]^2*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 + S2[-4, 1, 1, n] - 
   S2[1, n]*S2[-3, 1, 1, n] + S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - (S2[1, n]^2*S2[1, 2, -1, n])/
    2 + (S2[2, Infinity]*S2[1, 2, -1, n])/2 - S2[1, n]*S2[2, 1, -2, n] - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - (S2[1, n]^2*S2[2, 1, -1, n])/
    2 + (S2[2, Infinity]*S2[2, 1, -1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 
   S2[2, Infinity]*S2[2, 1, 1, n] - S2[3, 1, -2, n] - S2[-3, 1, 1, 1, n] - 
   S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 2, 1, 1, n] - 
   S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 3*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - 3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   2*S2[1, n]*S2[1, 1, 2, -1, n] + S2[-2, 1, 1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - S2[1, 1, 1, -1, 2, n] - 
   6*S2[1, 1, 1, 2, -1, n] - 2*S2[1, 1, 2, -1, 1, n] - 
   2*S2[1, 1, 2, 1, -1, n] - S2[-1, 1, 1, 1, 1, 1, Infinity], 
 S2[2, -1, -2, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/3 + 
   (7*Diff[Half[S2[1, n], n], n, 2]^2)/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/12 + 
   (1303*Diff[Half[S2[1, n], n], n, 5])/720 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/12 - 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/6 - 
   (73*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/3 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/12 + 
   (407*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 - 
   (121*Diff[S2[1, n], n, 1]^3)/8 - (33*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/2 + (389*Diff[S2[1, n], n, 2]^2)/24 - 
   (559*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (1115*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (1303*Diff[S2[1, n], n, 5])/720 - (25*Diff[S2[-4, 1, n], n, 1])/2 - 
   (11*Diff[S2[-3, 1, n], n, 2])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (34*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   (23*Diff[S2[-2, 1, n], n, 3])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (157*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   Diff[S2[-1, 1, n], n, 1]^2 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/6 - 
   (143*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (233*Diff[S2[-1, 1, n], n, 4])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   13*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-1, -2, -1, n], n, 2]/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/6 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/6 + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   (13*Diff[S2[-1, 1, 1, n], n, 3])/6 + (11*Diff[S2[1, 2, -1, n], n, 2])/2 - 
   Diff[S2[2, 1, -2, n], n, 1] + (16*Diff[S2[2, 1, -1, n], n, 2])/3 - 
   10*Diff[S2[-2, 1, 1, 1, n], n, 1] + (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    6 - (37*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   (5*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 2*Diff[S2[1, 1, -1, 2, n], n, 1] + 
   2*Diff[S2[1, 1, 2, -1, n], n, 1] - Diff[S2[-1, 1, -1, -1, 1, n], n, 1] + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1] - 
   (23*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   3*Diff[S2[1, -1, -1, 1, -1, n], n, 1] - Diff[S2[1, -1, 1, -1, -1, n], n, 
    1] - 3*Diff[S2[1, 1, -1, -1, -1, n], n, 1] + 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
    Half[S2[1, n], n] - (23*Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    24 - (13*Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/24 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n] - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    24 - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/6 + (131*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/8 - (19*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n] - 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/3 + (37*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (29*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    12 + 2*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n] + 
   4*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] - 
   Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (35*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/12 - 
   2*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n] - 
   4*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] - 
   2*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   4*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (17*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + 2*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2 - 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/12 - 
   Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/12 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/2 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^5)/60 - 
   (47*S2[-1, Infinity]^6)/1440 - 4*Diff[Half[S2[1, n], n], n, 1]*
    Diff[Half[S2[1, n], n], n, 2]*S2[1, n] - 
   (41*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/24 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n] + 
   (547*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/24 + 
   (337*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (525*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (203*Diff[S2[1, n], n, 4]*S2[1, n])/24 + 7*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] - (107*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (179*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (45*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 - 2*Diff[S2[2, 1, n], n, 2]*
    S2[1, n] - 4*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n] + 
   Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n] - 
   (35*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (15*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (19*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 4*Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] + Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n] - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] + 
   (23*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 - 15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] + 
   (107*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (151*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/12 + 
   (67*S2[-1, Infinity]^5*S2[1, n])/240 + 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (61*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/4 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/8 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (111*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (46*Diff[S2[1, n], n, 3]*S2[1, n]^2)/3 + 5*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (77*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/12 + 
   (11*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (95*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + 
   (19*S2[-1, Infinity]^4*S2[1, n]^2)/48 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/12 + 
   (323*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (2*Half[S2[1, n], n]^3*S2[1, n]^3)/3 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/4 - 
   7*Diff[S2[1, n], n, 1]*S2[1, n]^4 + 2*Half[S2[1, n], n]^2*S2[1, n]^4 - 
   2*Half[S2[1, n], n]*S2[1, n]^5 + (2*S2[1, n]^6)/3 + 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/48 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/24 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    6 - (19*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/3 - 
   (35*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + Diff[S2[-1, 1, -1, n], n, 1]*
    S2[2, Infinity] + (27*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (101*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (33*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity] - 
   (11*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (81*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity] + 
   (10*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (15*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (53*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (49*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 - (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    4 + (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (39*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (13*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (19*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (123*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (71*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 + 
   (19*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (19*S2[1, n]^4*S2[2, Infinity])/6 - 
   (117*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 + 
   (361*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/40 + 
   (673*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (1371*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (389*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (109*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (27*S2[1, n]^2*S2[2, Infinity]^2)/4 - (18961*S2[2, Infinity]^3)/1680 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/24 - 
   (107*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 + 
   (145*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/48 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (269*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (47*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (161*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (103*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 - 
   (383*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (277*S2[1, n]^3*S2[3, Infinity])/48 + 
   (95*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (547*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (803*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (8711*S2[3, Infinity]^2)/768 + (27*Half[S2[1, n], n]*S2[5, Infinity])/4 + 
   (3525*S2[1, n]*S2[5, Infinity])/128 - (31*S2[-5, -1, Infinity])/8 - 
   10*S2[-5, 1, n] + 14*S2[1, n]*S2[-4, 1, n] + 
   (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 - 
   (9*S2[1, n]^2*S2[-3, 1, n])/2 - (11*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (2*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/3 - 
   (13*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 3*Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - 3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-2, 1, n] + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/
    2 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 + 
   3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (13*S2[1, n]^3*S2[-2, 1, n])/6 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 - 9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (23*S2[3, Infinity]*S2[-2, 1, n])/12 - 2*S2[-2, 1, n]^2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/3 - 
   (35*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/12 - 
   (13*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (33*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (65*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 + 
   (25*S2[-1, Infinity]^4*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (43*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   2*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] - 
   4*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n] + 2*S2[1, n]^4*S2[-1, 1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (39*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (51*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   6*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n] - 
   (631*S2[2, Infinity]^2*S2[-1, 1, n])/40 - 
   (39*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (67*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (15*S2[-3, 1, n]*S2[-1, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (17*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/2 + 
   4*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/4 + (7*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (17*S2[-1, 1, n]^3)/12 - Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] + 
   Diff[S2[1, n], n, 2]*S2[2, 1, n] - 5*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[2, 1, n] - 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 - 
   (5*S2[1, n]^3*S2[2, 1, n])/4 + (29*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - 12*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (27*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (17*S2[3, Infinity]*S2[2, 1, n])/2 - 2*S2[-2, 1, n]*S2[2, 1, n] - 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (11*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 10*S2[-4, 1, 1, n] + 
   13*S2[1, n]*S2[-3, 1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[-2, 1, -1, n] - Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   6*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] + 
   6*S2[1, n]^2*S2[-2, 1, -1, n] + 2*S2[2, Infinity]*S2[-2, 1, -1, n] + 
   6*S2[-1, 1, n]*S2[-2, 1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/4 - (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 - (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (15*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 + (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (47*S2[3, Infinity]*S2[-1, 1, -1, n])/16 - S2[-2, 1, n]*S2[-1, 1, -1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   4*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (23*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (37*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 5*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   8*S2[2, 1, n]*S2[-1, 1, 1, n] + (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 5*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (3*S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   (33*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 5*S2[-1, 1, n]*S2[1, 2, -1, n] + 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    4 + (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (13*S2[1, n]^2*S2[2, 1, -1, n])/4 - (15*S2[2, Infinity]*S2[2, 1, -1, n])/
    2 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (13*S2[1, n]^2*S2[2, 1, 1, n])/2 + 3*S2[2, Infinity]*S2[2, 1, 1, n] + 
   (13*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + S2[3, 1, -2, n]/2 - 
   10*S2[-3, 1, 1, 1, n] + (23*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   S2[-2, 1, 1, 2, n] + S2[-2, 2, 1, 1, n]/2 - Diff[S2[1, n], n, 1]*
    S2[-1, 1, -1, -1, n] - 2*S2[1, n]^2*S2[-1, 1, -1, -1, n] + 
   2*S2[2, Infinity]*S2[-1, 1, -1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (23*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   14*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (19*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (73*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   25*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - S2[2, -2, 1, 1, n] - 
   (23*S2[-2, 1, 1, 1, 1, n])/2 + 4*S2[1, n]*S2[-1, 1, -1, -1, 1, n] + 
   2*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n] - 
   2*S2[1, n]*S2[-1, 1, -1, 1, 1, n] + S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   6*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n] + 
   6*S2[1, n]*S2[-1, 1, 1, 1, -1, n] + 22*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (67*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 - S2[1, -2, -1, 1, -1, n] + 2*S2[1, -1, -1, 1, -2, n] + 
   S2[1, -1, 1, -2, -1, n] + (5*S2[1, -1, 1, 1, 2, n])/2 + 
   2*S2[1, 1, -1, -2, -1, n] + 2*S2[1, 1, -1, -1, -2, n] + 
   5*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] - 
   5*S2[1, n]*S2[1, 1, -1, 1, -1, n] + 9*Half[S2[1, n], n]*
    S2[1, 1, 1, -1, -1, n] - 9*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 
   4*S2[1, 1, 1, -1, 2, n] - 3*S2[1, 1, 1, 2, -1, n] + 
   (3*S2[1, 1, 2, -1, 1, n])/2 - 4*S2[1, 1, 2, 1, -1, n] - 
   3*S2[1, 2, 1, 1, -1, n] - 4*S2[-1, 1, -1, -1, 1, 1, n] - 
   S2[-1, 1, 1, -1, -1, 1, n] + (47*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   5*S2[1, -1, -1, 1, 1, -1, n] + S2[1, -1, 1, 1, -1, -1, n] - 
   3*S2[1, 1, -1, -1, 1, -1, n] - 3*S2[1, 1, 1, -1, -1, -1, n], 
 S2[2, -1, -2, 1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/16 - 
   Diff[Half[S2[1, n], n], n, 2]^2/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 5])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/4 + (7*Diff[Half[S2[4, 1, n], n], n, 1])/
    16 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/4 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 + 
   (49*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/16 + 
   (29*Diff[S2[1, n], n, 1]^3)/16 + (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (19*Diff[S2[1, n], n, 2]^2)/16 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/96 - 
   (203*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (13*Diff[S2[1, n], n, 5])/80 - 2*Diff[S2[-4, 1, n], n, 1] - 
   (5*Diff[S2[-3, 1, n], n, 2])/8 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   Diff[S2[-2, 1, n], n, 3]/4 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 + 
   (13*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, n], n, 1]^2/4 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/16 + 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (29*Diff[S2[-1, 1, n], n, 4])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (3*Diff[S2[2, 1, n], n, 3])/4 - 4*Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - Diff[S2[1, 2, -1, n], n, 2] + 
   Diff[S2[2, 1, -2, n], n, 1] - (3*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/4 + Diff[S2[-1, 1, 1, 1, n], n, 2] + 
   Diff[S2[1, 1, -1, 2, n], n, 1] + (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 - (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    16 - (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 - (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/4 - (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/8 + (29*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (37*Diff[S2[1, n], n, 4]*S2[1, n])/32 + 
   (13*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (127*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 - 
   (19*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (11*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (41*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (7*Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (S2[-1, Infinity]^5*S2[1, n])/80 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (55*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/2 + 
   (7*Diff[S2[1, n], n, 3]*S2[1, n]^2)/3 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (19*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/4 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + (7*S2[-1, Infinity]^4*S2[1, n]^2)/
    48 - (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/8 - 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/
    2 - (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    8 + (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^4)/4 - (3*Half[S2[1, n], n]*S2[1, n]^5)/
    4 + S2[1, n]^6/4 - (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (29*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 - 3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (S2[1, n]^4*S2[2, Infinity])/4 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/20 + (87*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]^2)/2 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (17*S2[1, n]^2*S2[2, Infinity]^2)/20 + (1409*S2[2, Infinity]^3)/2240 - 
   (57*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 + 
   (117*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 - 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/4 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 - 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/16 + 
   (67*S2[1, n]^3*S2[3, Infinity])/32 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (43*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (83*S2[3, Infinity]^2)/32 - (305*S2[1, n]*S2[5, Infinity])/16 + 
   4*S2[1, n]*S2[-4, 1, n] - (7*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    8 + (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 - 
   (3*S2[1, n]^2*S2[-3, 1, n])/4 - (S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 + 
   (S2[1, n]^3*S2[-2, 1, n])/2 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   S2[-2, 1, n]^2/2 + (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] - (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 + 3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n] - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n] + (S2[1, n]^4*S2[-1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (13*S2[2, Infinity]^2*S2[-1, 1, n])/20 + 
   (7*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/4 + (9*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/8 - (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (7*S2[1, n]^3*S2[2, 1, n])/4 - (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/
    2 - S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] + 9*S2[1, n]*S2[4, 1, n] - 
   2*S2[1, n]*S2[-3, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/2 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] + 
   S2[1, n]^2*S2[-2, 1, -1, n] + S2[-2, 2, -2, n]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   2*S2[1, n]^2*S2[1, 2, -1, n] + S2[-1, 1, n]*S2[1, 2, -1, n] - 
   2*S2[1, n]*S2[2, 1, -2, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/4 + (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/2 + S2[-1, 1, n]*S2[2, 1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] + 5*S2[1, n]*S2[3, 1, 1, n] + 
   3*S2[4, 1, 1, n] + S2[-2, -2, 1, 1, n] - 2*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   2*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, n]*S2[1, 1, -2, -1, n] - 
   2*S2[1, n]*S2[1, 1, -1, 2, n] - (3*S2[2, 2, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]*S2[1, -1, -1, 1, -1, n] + (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/
    2 - S2[1, -1, 1, 1, -2, n] + S2[1, 1, -2, -1, 1, n] + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 2*S2[1, 1, -1, 1, -2, n] - 
   3*S2[1, 1, 1, -1, -2, n], S2[2, -1, 2, -1, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 1]^3)/96 + 
   (47*Diff[Half[S2[1, n], n], n, 2]^2)/192 - 
   (107*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (703*Diff[Half[S2[1, n], n], n, 5])/576 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/48 - Diff[Half[S2[4, 1, n], n], n, 1]/
    16 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (275*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (1343*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (1663*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (1403*Diff[S2[1, n], n, 1]^3)/96 + 
   (161*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/16 - 
   (1015*Diff[S2[1, n], n, 2]^2)/96 + 
   (4601*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (9881*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (391*Diff[S2[1, n], n, 5])/320 - Diff[S2[-4, 1, n], n, 1]/2 - 
   (13*Diff[S2[-3, 1, n], n, 2])/8 - (37*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 + 
   (259*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (19*Diff[S2[-2, 1, n], n, 3])/6 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 + 
   (413*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (23*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (569*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (41*Diff[S2[-1, 1, n], n, 4])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (11*Diff[S2[2, 1, n], n, 3])/24 + (5*Diff[S2[4, 1, n], n, 1])/2 + 
   (21*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   Diff[S2[-2, 1, -1, n], n, 2]/4 - Diff[S2[-1, -2, -1, n], n, 2]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (13*Diff[S2[-1, 1, -1, n], n, 3])/48 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/4 - (17*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (15*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, 1, n], n, 2]/4 + 2*Diff[S2[3, 1, 1, n], n, 1] + 
   (17*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/
    8 - Diff[S2[-1, 1, -1, 1, n], n, 2]/2 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - 2*Diff[S2[1, -1, 1, 2, n], n, 1] + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] - (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - 
   3*Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1] - Diff[S2[-1, 1, 1, 1, -1, n], n, 1] + 
   6*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - Diff[S2[1, -1, -1, -1, -1, n], n, 1]/
    2 + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   2*Diff[S2[1, 1, -1, 1, -1, n], n, 1] + 
   4*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/72 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (35*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    2 - (677*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (1061*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (25*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   4*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/4 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/48 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 + 
   Half[S2[2, 1, n], n]^2/64 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/4 - (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/192 - (35*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 + 
   (49*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + 
   (49*S2[-1, Infinity]^6)/1440 + (13*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/6 + 
   (407*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   12*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 + 
   (623*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (2777*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (283*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (139*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (91*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (625*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 2*Diff[S2[2, 1, n], n, 2]*
    S2[1, n] + (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (17*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (107*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (17*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] - 
   10*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/9 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (241*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (769*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (7*S2[-1, Infinity]^5*S2[1, n])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (593*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (259*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 - 
   (725*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (1099*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 - 
   (39*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (223*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (17*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (109*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (19*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/48 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/6 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 - 
   (37*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 + 3*Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^3 + (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^3)/12 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/
    4 - (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + 
   (Half[S2[2, 1, n], n]*S2[1, n]^3)/12 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (175*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (Half[S2[1, n], n]*S2[1, n]^5)/
    6 - (3*S2[1, n]^6)/16 + (5*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/2 - (367*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    288 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 + (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (317*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (31*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (115*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (17*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (79*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (55*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (203*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (119*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (233*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (89*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (199*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 + (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 - (23*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 + (121*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (95*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (7*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (31*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (61*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity] - 
   (11*S2[1, n]^4*S2[2, Infinity])/48 + 
   (231*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 - 
   (199*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 + 
   (1573*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (883*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (2311*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (125*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/24 + 
   (271*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (431*S2[1, n]^2*S2[2, Infinity]^2)/192 - (1917*S2[2, Infinity]^3)/280 - 
   (1075*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (157*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 - 
   (63*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (85*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/192 - 
   (27*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (297*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (163*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 - 
   (55*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (17*S2[1, n]^3*S2[3, Infinity])/16 - 
   (971*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (2535*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (7169*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (8869*S2[3, Infinity]^2)/3072 - (505*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (2091*S2[1, n]*S2[5, Infinity])/64 + (15*S2[-5, -1, Infinity])/8 - 
   8*S2[-5, 1, n] - 12*S2[1, n]*S2[-4, 1, n] - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 + 
   (23*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (49*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (S2[1, n]^2*S2[-3, 1, n])/6 - (95*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (13*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 + Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/12 - (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/3 + (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/12 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/3 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    8 + (13*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (9*S2[3, Infinity]*S2[-2, 1, n])/32 + (3*S2[-2, 1, n]^2)/4 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n] - 
   (43*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (197*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 4*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/16 + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    8 - (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (49*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (65*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/6 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (23*S2[1, n]^4*S2[-1, 1, n])/24 + (191*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (67*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (37*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (121*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (4061*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (7*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (309*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (49*S2[1, n]^2*S2[-1, 1, n]^2)/48 + (49*S2[2, Infinity]*S2[-1, 1, n]^2)/
    12 + (17*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 - 
   (37*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 4*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/8 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    2 + (7*Half[S2[1, n], n]^3*S2[2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (5*S2[1, n]^3*S2[2, 1, n])/6 - (35*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (51*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (33*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (203*S2[3, Infinity]*S2[2, 1, n])/32 + (S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (15*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2/4 - 
   6*S2[1, n]*S2[4, 1, n] + 8*S2[-4, 1, 1, n] + 3*S2[-3, -2, 1, n] - 
   4*S2[1, n]*S2[-3, 1, 1, n] + S2[1, n]*S2[-2, 1, -2, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + S2[-2, 2, -2, n]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/6 - (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (25*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + S2[-1, 1, -1, n]^2/16 - 
   Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n] - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, 1, n] + 2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   S2[1, n]^3*S2[-1, 1, 1, n] - 7*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + 10*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (5*S2[3, Infinity]*S2[-1, 1, 1, n])/8 + 2*S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 4*S2[2, 1, n]*S2[-1, 1, 1, n] + 3*S2[-1, 1, 1, n]^2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   3*S2[1, n]^2*S2[1, 2, -1, n] + S2[2, Infinity]*S2[1, 2, -1, n] + 
   2*S2[1, n]*S2[2, 1, -2, n] - (47*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/24 + (185*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (8*S2[1, n]^2*S2[2, 1, -1, n])/3 + (19*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (S2[-1, 1, n]*S2[2, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - 5*S2[1, n]^2*S2[2, 1, 1, n] + 
   3*S2[2, Infinity]*S2[2, 1, 1, n] - 2*S2[-1, 1, n]*S2[2, 1, 1, n] + 
   2*S2[3, 1, -2, n] + 2*S2[1, n]*S2[3, 1, 1, n] + 3*S2[4, 1, 1, n] + 
   12*S2[-3, 1, 1, 1, n] + 2*S2[-2, -2, 1, 1, n] - 
   6*S2[1, n]*S2[-2, 1, 1, 1, n] + 2*S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 - 4*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] + 
   4*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   8*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (35*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   4*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (49*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   4*S2[1, n]*S2[1, 1, -2, -1, n] - 2*S2[1, n]*S2[1, 1, 2, -1, n] - 
   2*S2[2, -2, 1, 1, n] + 6*S2[1, n]*S2[2, 1, 1, 1, n] - S2[2, 2, 1, 1, n] + 
   6*S2[-2, 1, 1, 1, 1, n] + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   S2[1, n]*S2[-1, 1, -1, 1, 1, n] - 3*S2[1, n]*S2[-1, 1, 1, 1, -1, n] + 
   8*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   8*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (49*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (105*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 2*S2[1, -1, 1, 1, 2, n] + 
   4*S2[1, 1, -2, -1, 1, n] + 4*S2[1, 1, -2, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 2*S2[1, 1, -1, 1, -2, n] + 
   2*S2[1, 1, -1, 2, -1, n] + 10*S2[1, 1, 1, -2, -1, n] + 
   4*S2[1, 1, 1, -1, -2, n] + 12*S2[1, 1, 1, 2, -1, n] + 
   2*S2[1, 1, 2, -1, 1, n] + 8*S2[1, 1, 2, 1, -1, n] + 
   4*S2[1, 2, 1, 1, -1, n] - 6*S2[2, 1, 1, 1, 1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/2 - (3*S2[-1, -1, 1, -1, -1, -1, n])/2 - 
   3*S2[-1, 1, -1, -1, -1, -1, n] + S2[-1, 1, -1, -1, -1, 1, n]/4 - 
   S2[-1, 1, -1, 1, 1, 1, n] + 3*S2[-1, 1, 1, 1, -1, 1, n] - 
   (49*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 5*S2[1, -1, -1, -1, -1, -1, n] - 
   S2[1, -1, -1, -1, 1, -1, n]/4 - S2[1, -1, -1, 1, -1, -1, n]/2 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 - S2[1, 1, -1, -1, -1, -1, n] + 
   5*S2[1, 1, 1, -1, 1, -1, n] + 12*S2[1, 1, 1, 1, -1, -1, n], 
 S2[2, -1, 2, 1, n] -> (49*Diff[Half[S2[1, n], n], n, 5])/80 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 - 
   (19*Diff[S2[1, n], n, 1]^3)/4 - (23*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (23*Diff[S2[1, n], n, 2]^2)/4 - 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (185*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (49*Diff[S2[1, n], n, 5])/80 - 4*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/4 - (7*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 + (7*Diff[S2[-2, 1, n], n, 3])/6 - 
   (21*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   (5*Diff[S2[-1, 1, n], n, 4])/3 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] + Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] - 
   6*Diff[S2[-3, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/4 + (7*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (7*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, 1, 1, n], n, 2] - 
   Diff[S2[1, 1, -1, 2, n], n, 1] + 6*Diff[S2[1, n], n, 1]*
    Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (7*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/4 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (99*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (25*Diff[S2[1, n], n, 4]*S2[1, n])/8 + Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   (15*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (61*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 - 2*Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] - 4*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] - 
   4*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] + 2*Diff[S2[-1, 1, 1, 1, n], n, 1]*
    S2[1, n] - (21*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (S2[-1, Infinity]^5*S2[1, n])/60 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 - 
   6*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   (45*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (49*Diff[S2[1, n], n, 3]*S2[1, n]^2)/8 + 4*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (9*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/6 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   (21*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 - Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^3 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/16 + 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (21*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (71*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   (27*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity] - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (S2[1, n]^4*S2[2, Infinity])/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/5 - (33*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 + 
   (59*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (97*S2[1, n]^2*S2[2, Infinity]^2)/80 + (1211*S2[2, Infinity]^3)/480 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 - 
   (73*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 + 
   Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity] - Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[3, Infinity] - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[3, Infinity] + (81*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[3, Infinity])/16 + Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity] - 
   (3*S2[1, n]^3*S2[3, Infinity])/2 + (573*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/32 - (105*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/
    16 + (1149*S2[3, Infinity]^2)/256 + (291*S2[1, n]*S2[5, Infinity])/16 + 
   2*S2[-5, -1, Infinity] - 5*S2[-5, 1, n] + 5*S2[1, n]*S2[-4, 1, n] - 
   (S2[1, n]^2*S2[-3, 1, n])/2 + (7*S2[2, Infinity]*S2[-3, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   S2[1, n]^3*S2[-2, 1, n] + S2[3, Infinity]*S2[-2, 1, n] + 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (13*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*S2[2, Infinity]^2*S2[-1, 1, n])/10 - S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n] + S2[1, n]^3*S2[2, 1, n] + 
   S2[1, n]*S2[2, Infinity]*S2[2, 1, n] + S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] - 
   9*S2[-4, 1, 1, n] + 7*S2[1, n]*S2[-3, 1, 1, n] - 
   2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   2*S2[1, n]^2*S2[1, 2, -1, n] - S2[2, Infinity]*S2[1, 2, -1, n] + 
   2*S2[1, n]*S2[2, 1, -2, n] - (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + 
   2*S2[1, n]^2*S2[2, 1, -1, n] - S2[2, Infinity]*S2[2, 1, -1, n] + 
   Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] - 
   S2[-1, 1, n]*S2[2, 1, 1, n] + S2[3, 1, -2, n] - 6*S2[-3, 1, 1, 1, n] + 
   2*S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 1, 1, 2, n] + 
   2*S2[-2, 2, 1, 1, n] - (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/
    2 + 4*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (71*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   2*S2[1, n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, 2, -1, n] + 
   S2[2, -2, 1, 1, n]/2 - 2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, -1, 1, 1, 2, n] - 2*S2[1, 1, -1, 1, 2, n] - 
   3*S2[1, 1, 1, -1, 2, n] + S2[1, 1, 2, -1, 1, n], 
 S2[2, -1, -1, -2, n] -> (-11*Diff[Half[S2[1, n], n], n, 1]^3)/96 - 
   (25*Diff[Half[S2[1, n], n], n, 2]^2)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 - 
   (1141*Diff[Half[S2[1, n], n], n, 5])/2880 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 + 
   (25*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (149*Diff[S2[1, n], n, 1]^3)/48 + (87*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (69*Diff[S2[1, n], n, 2]^2)/16 + 
   (643*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (123*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/32 + 
   (1351*Diff[S2[1, n], n, 5])/2880 + (15*Diff[S2[-4, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, n], n, 2]/8 - (23*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (2*Diff[S2[-2, 1, n], n, 3])/3 + (29*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 + 
   (27*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, n], n, 1]^2/8 + (31*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 - 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (53*Diff[S2[-1, 1, n], n, 4])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (23*Diff[S2[2, 1, n], n, 3])/24 - 4*Diff[S2[4, 1, n], n, 1] - 
   Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (2*Diff[S2[-1, 1, 1, n], n, 3])/3 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1] - (3*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   2*Diff[S2[-2, 1, 1, 1, n], n, 1] - (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    8 + Diff[S2[-1, 1, -1, 1, n], n, 2]/2 + Diff[S2[-1, 1, 1, 1, n], n, 2]/
    4 - Diff[S2[1, -1, 1, -2, n], n, 1] + Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   4*Diff[S2[1, 1, -2, -1, n], n, 1] + Diff[S2[1, 1, -1, 2, n], n, 1] - 
   2*Diff[S2[1, 1, 2, -1, n], n, 1] - Diff[S2[1, 2, -1, -1, n], n, 1] + 
   5*Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] + 
   (9*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 - 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (7*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (157*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (19*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 + (11*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (157*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (47*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (143*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (15*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 - (43*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (51*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 - (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (9*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (15*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (27*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (9*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (9*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (115*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - (123*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (63*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (15*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (85*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/12 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/2 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/32 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/2 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (73*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + S2[-1, Infinity]^6/120 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 + (27*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (193*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (223*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (685*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (479*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (23*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (51*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (247*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + 
   (9*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (25*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (11*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (47*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (25*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (107*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 - 
   (15*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] + 
   (29*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (45*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (407*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (211*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (55*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (47*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (115*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 - 
   (9*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 + 
   (709*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (123*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (11*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 + 
   (77*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (301*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (109*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (161*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (17*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (17*S2[-1, Infinity]^4*S2[1, n]^2)/48 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 - 
   (63*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (25*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (37*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/6 - (10*Half[S2[1, n], n]^2*S2[1, n]^4)/
    3 + (29*Half[S2[1, n], n]*S2[1, n]^5)/12 - (31*S2[1, n]^6)/48 - 
   (131*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 + 
   (51*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/16 - 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/8 + 
   (179*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (139*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 + 
   (23*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (29*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (29*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (39*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (31*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (493*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (17*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (67*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (51*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 - (333*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (27*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (43*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (67*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (137*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (81*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (11*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (543*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (63*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (73*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (441*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (53*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (319*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (357*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (131*S2[1, n]^4*S2[2, Infinity])/48 - 
   (811*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (2427*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 - 
   (167*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 - 
   (279*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (943*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (519*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1841*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (749*S2[1, n]^2*S2[2, Infinity]^2)/160 + (31001*S2[2, Infinity]^3)/1680 + 
   (647*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (5*Diff[S2[1, n], n, 2]*S2[3, Infinity])/12 + 
   (673*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/24 - 
   (2647*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (33*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (2413*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (905*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (605*S2[1, n]^3*S2[3, Infinity])/128 - 
   (409*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (347*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (3845*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (10489*S2[3, Infinity]^2)/1536 - (17*Half[S2[1, n], n]*S2[5, Infinity])/
    2 + (2971*S2[1, n]*S2[5, Infinity])/128 + (35*S2[-5, -1, Infinity])/8 + 
   21*S2[-5, 1, n] - 3*S2[1, n]*S2[-4, 1, n] - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   (15*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/2 + 
   (87*S2[1, n]^2*S2[-3, 1, n])/16 + (13*S2[2, Infinity]*S2[-3, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/6 - 
   (23*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (65*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (41*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (85*S2[1, n]^3*S2[-2, 1, n])/24 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (33*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (37*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (133*S2[3, Infinity]*S2[-2, 1, n])/48 + (5*S2[-2, 1, n]^2)/2 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/12 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (91*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (73*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 2*Diff[S2[-1, 1, -1, n], n, 1]*
    S2[-1, 1, n] + (21*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (59*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   Half[S2[2, 1, 1, n], n]*S2[-1, 1, n] - 
   (17*S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 + 4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (25*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (95*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (35*S2[1, n]^4*S2[-1, 1, n])/24 - (45*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (85*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (51*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (33*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (821*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (13*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (55*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (31*S2[-3, 1, n]*S2[-1, 1, n])/8 + 2*Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] - 6*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (35*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (33*S2[1, n]^2*S2[-1, 1, n]^2)/16 - (47*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 - S2[-1, 1, n]^3 + (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 - 
   (35*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (53*S2[1, n]^3*S2[2, 1, n])/48 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (19*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (27*S2[3, Infinity]*S2[2, 1, n])/16 + 5*S2[-2, 1, n]*S2[2, 1, n] + 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/2 - 
   S2[1, n]*S2[4, 1, n] - S2[-3, -2, 1, n] - 5*S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + 4*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (21*S2[1, n]^2*S2[-2, 1, -1, n])/4 - (21*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - 5*S2[-1, 1, n]*S2[-2, 1, -1, n] - (5*S2[-2, 2, -2, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, -2, -1, n] + (17*S2[1, n]^2*S2[-1, -2, -1, n])/16 + 
   (5*S2[2, Infinity]*S2[-1, -2, -1, n])/4 + 
   (9*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (2*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 + (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (45*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (19*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 - (19*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   2*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n] - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - Half[S2[2, 1, n], n]*
    S2[-1, 1, 1, n] - 4*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (9*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (9*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (5*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 4*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] - 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] - (3*S2[-1, 1, 1, n]^2)/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   5*S2[1, n]^2*S2[1, 2, -1, n] + (15*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   5*S2[-1, 1, n]*S2[1, 2, -1, n] - (5*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] + (23*S2[1, n]^2*S2[2, 1, -1, n])/8 + 
   (23*S2[2, Infinity]*S2[2, 1, -1, n])/4 + (13*S2[-1, 1, n]*S2[2, 1, -1, n])/
    4 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (5*S2[1, n]^2*S2[2, 1, 1, n])/4 - 
   (29*S2[2, Infinity]*S2[2, 1, 1, n])/4 - (5*S2[-1, 1, n]*S2[2, 1, 1, n])/
    2 - (5*S2[3, 1, -2, n])/2 + 5*S2[4, 1, 1, n] - 6*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] - (S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[-2, 1, 1, 2, n] - (5*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (11*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   S2[-1, 1, n]*S2[-1, 1, -1, 1, n] + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (11*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (73*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (17*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (151*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (51*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, n]*S2[1, 1, -2, -1, n] + (9*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   3*S2[2, -2, 1, 1, n] - 3*S2[1, n]*S2[2, 1, 1, 1, n] + 
   S2[-2, 1, 1, 1, 1, n]/2 - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   3*S2[1, n]*S2[-1, 1, -1, -1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   3*S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 
   (57*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (47*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + S2[1, -2, -1, 1, -1, n] - 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 2*S2[1, -1, -1, 1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 2*S2[1, -1, -1, 1, 2, n] - 
   S2[1, -1, 1, -2, -1, n] + (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 - (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 3*S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 1, 2, n]/2 - 2*S2[1, -1, 1, 2, -1, n] - 
   3*S2[1, 1, -2, -1, 1, n] - 4*S2[1, 1, -2, 1, -1, n] - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] + 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 4*S2[1, 1, -1, 1, -2, n] - 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (7*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 2*S2[1, 1, -1, 2, -1, n] - 
   14*S2[1, 1, 1, -2, -1, n] - 8*S2[1, 1, 1, -1, -2, n] - 
   7*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   7*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 3*S2[1, 1, 1, -1, 2, n] - 
   16*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   (9*S2[1, 1, 2, -1, 1, n])/2 - 8*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] + 
   3*S2[2, 1, 1, 1, 1, n] + S2[-1, -1, -1, 1, -1, -1, n]/2 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/2 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   3*S2[-1, 1, -1, -1, -1, -1, n] + (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   3*S2[-1, 1, -1, -1, 1, 1, n] + (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 
   S2[-1, 1, 1, -1, -1, -1, n]/2 + S2[-1, 1, 1, -1, -1, 1, n] + 
   S2[-1, 1, 1, 1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   6*S2[-1, 1, 1, 1, 1, 1, Infinity] + 5*S2[1, -1, -1, -1, -1, -1, n] - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 - (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   4*S2[1, -1, -1, 1, 1, -1, n] - S2[1, -1, 1, -1, -1, -1, n] - 
   3*S2[1, 1, -1, -1, -1, -1, n] + 2*S2[1, 1, -1, -1, 1, -1, n] + 
   3*S2[1, 1, 1, -1, -1, -1, n] - (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[2, -1, -1, 2, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/32 - (11*Diff[Half[S2[1, n], n], n, 2]^2)/
    64 - (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 + 
   Diff[Half[S2[1, n], n], n, 5]/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/16 + Diff[Half[S2[4, 1, n], n], n, 1]/8 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (2*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (61*Diff[S2[1, n], n, 1]^3)/96 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (5*Diff[S2[1, n], n, 2]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/64 - 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (41*Diff[S2[1, n], n, 5])/2880 + Diff[S2[-4, 1, n], n, 1]/2 + 
   (5*Diff[S2[-3, 1, n], n, 2])/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   Diff[S2[-2, 1, n], n, 3]/4 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (9*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   Diff[S2[-1, 1, n], n, 4]/12 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[2, 1, n], n, 3])/24 - (3*Diff[S2[4, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   Diff[S2[-2, 1, -1, n], n, 2]/4 + Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[1, 2, -1, n], n, 2]/4 + Diff[S2[2, 1, -2, n], n, 1]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 - (3*Diff[S2[2, 1, 1, n], n, 2])/4 - 
   2*Diff[S2[3, 1, 1, n], n, 1] + Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 + (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    24 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 - (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/8 + (15*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/16 - (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 + 
   (11*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (23*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (3*Half[S2[2, 1, n], n]^2)/64 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + S2[-1, Infinity]^6/480 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (37*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 - Diff[S2[2, 1, n], n, 2]*
    S2[1, n] - (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (21*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (31*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (S2[-1, Infinity]^5*S2[1, n])/160 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (11*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (13*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^4)/8 - (Half[S2[1, n], n]*S2[1, n]^5)/4 + 
   S2[1, n]^6/16 - (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   (11*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (9*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (45*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (S2[1, n]^4*S2[2, Infinity])/16 - (479*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/320 + (147*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    64 + (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/64 + 
   (111*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (1047*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (53*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (69*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (65*S2[1, n]^2*S2[2, Infinity]^2)/64 - (653*S2[2, Infinity]^3)/560 - 
   (115*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 - 
   (55*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (129*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (3*S2[1, n]^3*S2[3, Infinity])/64 - 
   (171*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (231*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (219*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (2883*S2[3, Infinity]^2)/1024 + (375*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (21*S2[1, n]*S2[5, Infinity])/32 + (23*S2[-5, -1, Infinity])/8 + 
   6*S2[1, n]*S2[-4, 1, n] - (13*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/8 - (19*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-2, 1, n] - (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/
    4 - (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (S2[1, n]^3*S2[-2, 1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (49*S2[3, Infinity]*S2[-2, 1, n])/32 - (5*S2[-2, 1, n]^2)/4 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 + 
   (S2[1, n]^4*S2[-1, 1, n])/8 - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (19*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (173*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (9*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 - (S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (3*S2[1, n]^3*S2[2, 1, n])/8 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[3, Infinity]*S2[2, 1, n])/32 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (3*S2[2, 1, n]^2)/4 + 
   6*S2[1, n]*S2[4, 1, n] - S2[-3, -2, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   S2[2, Infinity]*S2[-2, 1, -1, n] + (3*S2[-2, 2, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (3*S2[3, Infinity]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 - (S2[2, Infinity]*S2[2, 1, -1, n])/8 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 3*S2[4, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (39*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (51*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - (3*S2[-1, 1, -1, -1, -1, 1, n])/
    4 - (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   (3*S2[1, -1, 1, -1, -1, -1, n])/2 + 3*S2[1, 1, -1, -1, -1, -1, n], 
 S2[2, -1, 1, -2, n] -> -Diff[Half[S2[1, n], n], n, 2]^2/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 + 
   (5*Diff[Half[S2[1, n], n], n, 5])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/8 - Diff[Half[S2[4, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/12 - 
   (53*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/3 - 
   (7*Diff[S2[1, n], n, 1]^3)/8 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (23*Diff[S2[1, n], n, 2]^2)/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/9 + 
   (151*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 - 
   (107*Diff[S2[1, n], n, 5])/1440 + 2*Diff[S2[-4, 1, n], n, 1] + 
   (11*Diff[S2[-3, 1, n], n, 2])/8 + (4*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/3 - 
   (4*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   Diff[S2[-2, 1, n], n, 3]/2 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/8 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] - (7*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/4 + (17*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] - 
   (3*Diff[S2[2, 1, n], n, 3])/8 + Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[-2, 1, -2, n], n, 1]/4 - Diff[S2[-2, 1, -1, n], n, 2]/2 + 
   Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/24 + 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + Diff[S2[-1, 1, 1, n], n, 3]/4 + 
   Diff[S2[1, 2, -1, n], n, 2]/2 + Diff[S2[2, 1, -1, n], n, 2]/4 - 
   (5*Diff[S2[2, 1, 1, n], n, 2])/4 - 2*Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 + Diff[S2[1, -1, -1, -1, -1, n], n, 
    1] - Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/6 - (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (11*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/72 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    3 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/6 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/6 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/24 - 
   Half[S2[2, 1, n], n]^2/32 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/16 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/48 - S2[-1, Infinity]^6/360 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 + 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/72 - 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 - 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 - 
   (4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 + 
   (7*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 - Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/6 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/3 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/12 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 + 
   (13*S2[-1, Infinity]^5*S2[1, n])/240 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (35*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/6 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/12 - 
   (23*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/12 + 
   (73*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 - 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/3 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/12 + 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 - 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/6 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    24 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/12 + 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]^4)/3 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    3 - (Half[S2[1, n], n]*S2[1, n]^5)/3 + S2[1, n]^6/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/9 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (73*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/48 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/2 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (61*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (41*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    12 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    12 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/24 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + 2*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] - (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (13*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/6 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (7*S2[1, n]^4*S2[2, Infinity])/24 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/32 + 
   (209*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 - 
   (23*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/96 + 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/16 - 
   (97*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (317*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/120 - 
   (361*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (1321*S2[1, n]^2*S2[2, Infinity]^2)/480 - (373*S2[2, Infinity]^3)/1344 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/16 - 
   (81*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/24 + 
   (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (103*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/48 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/12 + 
   (73*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/96 - 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/24 + 
   (11*S2[1, n]^3*S2[3, Infinity])/96 - 
   (23*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (57*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (1043*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (1303*S2[3, Infinity]^2)/1536 + (187*Half[S2[1, n], n]*S2[5, Infinity])/
    64 + (89*S2[1, n]*S2[5, Infinity])/16 + (9*S2[-5, -1, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/12 - (13*S2[2, Infinity]*S2[-3, 1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   Diff[S2[1, n], n, 2]*S2[-2, 1, n] - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (8*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/3 - 
   (S2[1, n]^3*S2[-2, 1, n])/6 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/12 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/12 - 
   (11*S2[3, Infinity]*S2[-2, 1, n])/16 - S2[-2, 1, n]^2 - 
   (4*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/9 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n] - 
   Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] + 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/36 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/24 + 
   (11*S2[-1, Infinity]^4*S2[-1, 1, n])/48 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 + 
   (5*S2[1, n]^4*S2[-1, 1, n])/12 - (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (169*S2[2, Infinity]^2*S2[-1, 1, n])/48 - 
   (73*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/96 - 
   (11*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/96 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/6 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/6 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/6 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/12 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/24 - (7*S2[2, Infinity]*S2[-1, 1, n]^2)/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (7*S2[1, n]^3*S2[2, 1, n])/12 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (29*S2[3, Infinity]*S2[2, 1, n])/48 - S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - S2[2, 1, n]^2/2 - 
   S2[1, n]*S2[4, 1, n] - S2[-3, -2, 1, n] - S2[1, n]*S2[-2, 1, -2, n] - 
   S2[-2, 2, -2, n]/4 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    12 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/6 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 - S2[-1, 1, -1, n]^2/8 - 
   Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n] - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[1, n]^3*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - 2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (13*S2[3, Infinity]*S2[-1, 1, 1, n])/8 - S2[-1, 1, 1, n]^2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - S2[1, n]^2*S2[1, 2, -1, n] + 
   (S2[2, Infinity]*S2[1, 2, -1, n])/2 - S2[-1, 1, n]*S2[1, 2, -1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 - 
   (7*S2[1, n]^2*S2[2, 1, -1, n])/6 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (7*S2[-1, 1, n]*S2[2, 1, -1, n])/6 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + S2[1, n]^2*S2[2, 1, 1, n] - 
   S2[2, Infinity]*S2[2, 1, 1, n] - 3*S2[1, n]*S2[3, 1, 1, n] - 
   4*S2[4, 1, 1, n] - 2*S2[-2, -2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 + (S2[1, n]^2*S2[-1, 1, -1, 1, n])/
    2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] + 2*S2[1, n]^2*S2[-1, 1, 1, 1, n] + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (21*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (11*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]*S2[1, 1, -2, -1, n] - 2*S2[1, n]*S2[2, 1, 1, 1, n] + 
   (3*S2[2, 2, 1, 1, n])/2 + (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   S2[1, n]*S2[-1, 1, -1, 1, 1, n] + S2[1, n]*S2[-1, 1, 1, 1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (13*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + S2[1, -1, 1, 1, -2, n] - 
   S2[1, 1, -2, -1, 1, n] - Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] + 2*S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, 1, -1, -2, n] + 2*S2[2, 1, 1, 1, 1, n] - 
   S2[-1, 1, -1, -1, -1, 1, n]/2 + S2[-1, 1, -1, 1, 1, 1, n] - 
   S2[-1, 1, 1, 1, -1, 1, n] + 2*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, -1, -1, 1, -1, n]/2 + S2[1, -1, -1, 1, -1, -1, n] + 
   S2[1, -1, 1, -1, -1, -1, n] + 2*S2[1, 1, -1, -1, -1, -1, n] - 
   S2[1, 1, 1, -1, 1, -1, n] - 4*S2[1, 1, 1, 1, -1, -1, n], 
 S2[2, -1, 1, 2, n] -> (-67*Diff[Half[S2[1, n], n], n, 5])/240 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 + 
   (3*Diff[S2[1, n], n, 1]^3)/4 + (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (11*Diff[S2[1, n], n, 2]^2)/4 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (73*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (67*Diff[S2[1, n], n, 5])/240 + 3*Diff[S2[-4, 1, n], n, 1] + 
   (5*Diff[S2[-3, 1, n], n, 2])/4 - Diff[S2[-2, 1, n], n, 3]/6 + 
   (29*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (3*Diff[S2[-1, 1, n], n, 4])/4 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] - Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] + 
   3*Diff[S2[-3, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/12 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (3*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, 1, 1, n], n, 2] + 
   2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 2*Diff[S2[1, n], n, 1]*
    Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (3*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + S2[-1, Infinity]^6/360 + 
   (17*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   6*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (43*Diff[S2[1, n], n, 4]*S2[1, n])/24 - 3*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] + (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (43*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 + 2*Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + 3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] + 
   3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] - 2*Diff[S2[-1, 1, 1, 1, n], n, 1]*
    S2[1, n] + (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (S2[-1, Infinity]^5*S2[1, n])/60 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/3 + 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   (25*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (91*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 + 3*Diff[S2[1, n], n, 2]*
    Half[S2[1, n], n]*S2[1, n]^2 + (S2[-1, Infinity]^4*S2[1, n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] - (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/3 + (11*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/2 + (29*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 + 
   S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity] + (S2[1, n]^4*S2[2, Infinity])/
    6 - (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/10 - 
   (27*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 - 
   (139*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 + 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (49*S2[1, n]^2*S2[2, Infinity]^2)/80 - (1187*S2[2, Infinity]^3)/3360 - 
   Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity] + 
   (113*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 - 
   (2*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] - 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity] + 
   (41*S2[1, n]^3*S2[3, Infinity])/24 + 
   (2*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/3 - 
   (263*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (283*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 - 
   (2257*S2[3, Infinity]^2)/768 - (291*S2[1, n]*S2[5, Infinity])/16 + 
   S2[-5, -1, Infinity]/2 + 3*S2[-5, 1, n] - 5*S2[1, n]*S2[-4, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-3, 1, n] + (5*S2[1, n]^2*S2[-3, 1, n])/2 - 
   (S2[2, Infinity]*S2[-3, 1, n])/2 - (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    12 - (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (2*S2[1, n]^3*S2[-2, 1, n])/3 - (2*S2[3, Infinity]*S2[-2, 1, n])/3 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (7*S2[2, Infinity]^2*S2[-1, 1, n])/10 + S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n] - S2[1, n]^3*S2[2, 1, n] - 
   S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] + 
   3*S2[-4, 1, 1, n] - 7*S2[1, n]*S2[-3, 1, 1, n] + 
   2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - S2[1, n]^2*S2[1, 2, -1, n] + 
   S2[2, Infinity]*S2[1, 2, -1, n] - 2*S2[1, n]*S2[2, 1, -2, n] - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - S2[1, n]^2*S2[2, 1, -1, n] + 
   S2[2, Infinity]*S2[2, 1, -1, n] - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] + 
   S2[-1, 1, n]*S2[2, 1, 1, n] - S2[3, 1, -2, n] + 2*S2[-3, 1, 1, 1, n] - 
   2*S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 1, 1, 2, n] - 
   2*S2[-2, 2, 1, 1, n] - 2*S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (21*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]*S2[1, 1, 2, -1, n] + S2[2, -2, 1, 1, n]/2 + 
   2*S2[-2, 1, 1, 1, 1, n] + 2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, 1, 1, 2, n] + 2*S2[1, 1, -1, 1, 2, n] + S2[1, 1, 1, -1, 2, n] - 
   S2[1, 1, 2, -1, 1, n] - 2*S2[-1, 1, 1, 1, 1, 1, Infinity], 
 S2[2, 1, -2, -1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/64 + 
   (153*Diff[Half[S2[1, n], n], n, 2]^2)/128 + 
   (209*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 - 
   (71*Diff[Half[S2[1, n], n], n, 5])/128 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (47*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (15*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (277*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (1213*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (2069*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (1789*Diff[S2[1, n], n, 1]^3)/192 + 
   (177*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 - 
   (715*Diff[S2[1, n], n, 2]^2)/192 + 
   (3349*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (8623*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (847*Diff[S2[1, n], n, 5])/1920 + 2*Diff[S2[-4, 1, n], n, 1] + 
   (5*Diff[S2[-3, 1, n], n, 2])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (187*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (65*Diff[S2[-2, 1, n], n, 3])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (97*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (55*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (151*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (373*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (269*Diff[S2[-1, 1, n], n, 4])/192 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (29*Diff[S2[2, 1, n], n, 3])/48 + 3*Diff[S2[4, 1, n], n, 1] + 
   7*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   (5*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/24 - (111*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (155*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/4 - (13*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (29*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (15*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[3, 1, 1, n], n, 1] + 
   (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 2])/8 + 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, -2, n], n, 1] - 
   (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 2*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   2*Diff[S2[1, 1, -1, 2, n], n, 1] - (7*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 + 
   (11*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (15*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 + (145*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (167*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (179*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 + (589*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (269*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (19*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (19*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 - (11*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (47*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (35*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (47*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 + (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 - 
   (125*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (35*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 + 
   (35*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (41*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (85*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   Half[S2[2, 1, n], n]^2/128 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (3*Half[S2[4, 1, 1, n], n])/16 - (51*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + 
   (43*S2[-1, Infinity]^6)/2880 + (25*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/16 + 
   (635*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (381*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (335*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (1873*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (2233*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (557*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (23*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 + 
   (8*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 - 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (643*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (63*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (47*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (15*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (23*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (15*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (73*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (37*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (287*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (49*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 - 
   (53*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (43*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (27*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (41*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (221*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (79*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (47*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (143*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (37*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (71*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 - 
   (21*S2[-1, Infinity]^5*S2[1, n])/320 - 2*Diff[Half[S2[1, n], n], n, 1]^2*
    S2[1, n]^2 - (667*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (25*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 + 
   (811*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (295*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 + 
   (2239*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (979*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (37*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (31*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (21*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (73*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (135*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (49*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (133*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - 
   (55*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (385*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (109*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (77*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (17*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (65*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (95*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (41*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (13*S2[1, n]^6)/96 + (125*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (191*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/144 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    192 - (329*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     S2[2, Infinity])/64 + (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (289*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 - 
   (131*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (15*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (67*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (625*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 - (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/3 - 
   (137*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (7*Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (123*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (69*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity] + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (27*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (75*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (93*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (43*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (245*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (499*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (535*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (41*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 + (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (589*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (95*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/8 + (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/8 + (577*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (341*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (37*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (59*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 - (101*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/64 - (197*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    96 + (271*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (9*S2[1, n]^4*S2[2, Infinity])/16 + 
   (3029*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/120 + 
   (433*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (729*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (867*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (3563*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (953*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (1139*S2[1, n]^2*S2[2, Infinity]^2)/480 - (13787*S2[2, Infinity]^3)/2240 - 
   (557*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (5*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (85*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/24 - 
   (1579*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 + 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/256 - 
   (169*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/48 + 
   (61*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 - 
   (635*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 + 
   (649*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (343*S2[1, n]^3*S2[3, Infinity])/768 + 
   (29*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (2325*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (2147*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (16165*S2[3, Infinity]^2)/6144 + (253*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (2307*S2[1, n]*S2[5, Infinity])/64 - (5*S2[-5, -1, Infinity])/4 - 
   6*S2[-5, 1, n] - 6*S2[1, n]*S2[-4, 1, n] + 
   (101*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (35*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (9*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (59*S2[1, n]^2*S2[-3, 1, n])/96 - (221*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 + 
   (49*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (361*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (85*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (31*S2[1, n]^3*S2[-2, 1, n])/48 - (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (35*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/12 + 
   (73*S2[3, Infinity]*S2[-2, 1, n])/64 + S2[-2, 1, n]^2/8 + 
   (71*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (171*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (227*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (71*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (31*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (167*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (349*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (25*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (15*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 + (197*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (25*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (49*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (149*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (53*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (55*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (6391*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (253*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (55*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (19*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (19*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (31*S2[2, Infinity]*S2[-1, 1, n]^2)/
    12 - (9*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (29*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (3*Half[S2[1, n], n]^3*S2[2, 1, n])/32 + 
   (7*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (73*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (3*S2[1, n]^3*S2[2, 1, n])/32 - (37*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (51*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (345*S2[3, Infinity]*S2[2, 1, n])/64 - (7*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (11*S2[2, 1, n]^2)/8 + 
   S2[1, n]*S2[4, 1, n] + 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - 
   3*S2[1, n]*S2[-3, 1, 1, n] - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (15*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (S2[1, n]^2*S2[-2, 1, -1, n])/2 + 
   (5*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + (5*S2[-2, 2, -2, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/96 - 
   (35*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/96 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (43*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    96 + (69*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (7*S2[-1, 1, -1, n]^2)/32 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + 3*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   S2[1, n]^3*S2[-1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    4 + 5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (7*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*S2[-1, 1, 1, n]^2)/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (49*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (15*S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   (7*S2[2, Infinity]*S2[1, 2, -1, n])/4 - S2[-1, 1, n]*S2[1, 2, -1, n] + 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 + (101*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 - 
   (113*S2[1, n]^2*S2[2, 1, -1, n])/48 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (S2[-1, 1, n]*S2[2, 1, -1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/2 + 4*S2[2, Infinity]*S2[2, 1, 1, n] - 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (3*S2[3, 1, -2, n])/2 + 
   S2[1, n]*S2[3, 1, 1, n] - 2*S2[4, 1, 1, n] + 9*S2[-3, 1, 1, 1, n] - 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (7*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (7*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + Diff[S2[1, n], n, 1]*
    S2[-1, 1, -1, 1, n] + (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 - (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (31*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (153*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (55*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (19*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (71*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   2*S2[1, n]*S2[1, 1, -2, -1, n] - (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   (3*S2[2, -2, 1, 1, n])/2 + 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   S2[2, 2, 1, 1, n]/2 + (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] + S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (19*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (63*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 2*S2[1, -1, -1, 1, 2, n] - 
   (9*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (9*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + 2*S2[1, -1, 1, 1, -2, n] - 
   (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, -1, 1, 2, -1, n] + 
   2*S2[1, 1, -2, -1, 1, n] + 2*S2[1, 1, -2, 1, -1, n] - 
   (13*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (13*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 2*S2[1, 1, -1, 1, -2, n] + 
   8*S2[1, 1, 1, -2, -1, n] + 5*S2[1, 1, 1, -1, -2, n] + 
   9*S2[1, 1, 1, 2, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] - S2[1, 2, -1, 1, -1, n] + 
   3*S2[1, 2, 1, 1, -1, n] - 3*S2[2, 1, 1, 1, 1, n] - 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - (9*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   S2[-1, -1, 1, 1, -1, -1, n] - (9*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 + S2[-1, 1, -1, 1, -1, -1, n]/2 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 2*S2[-1, 1, 1, -1, -1, -1, n] + 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - (43*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 + S2[1, -1, -1, -1, 1, -1, n]/8 + 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 + (5*S2[1, -1, 1, -1, -1, -1, n])/4 + 
   (7*S2[1, 1, -1, -1, -1, -1, n])/2 + (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[2, 1, -2, 1, n] -> 
  (19*Diff[Half[S2[1, n], n], n, 5])/120 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 - 
   (13*Diff[S2[1, n], n, 1]^3)/4 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (5*Diff[S2[1, n], n, 2]^2)/4 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (65*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (19*Diff[S2[1, n], n, 5])/120 + Diff[S2[-3, 1, n], n, 2]/2 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] + 
   Diff[S2[-2, 1, n], n, 3]/2 - (3*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/2 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   Diff[S2[-1, 1, n], n, 4]/2 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, 1, n], n, 1] - 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + Diff[S2[-1, 1, 1, n], n, 3]/2 + 
   Diff[S2[1, 2, -1, n], n, 2]/2 + Diff[S2[2, 1, -1, n], n, 2]/2 - 
   Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 - 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/2 - (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/
    2 + 2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/2 - 2*Diff[S2[1, n], n, 1]^2*
    Half[S2[1, n], n]*S2[1, n] + (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*
     S2[1, n])/2 + 2*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 + 
   (9*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (29*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] + Diff[S2[-1, 1, n], n, 2]*
    S2[2, Infinity] + (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] - 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 - 
   (29*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 + 
   (4*S2[2, Infinity]^3)/7 - (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/4 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (11*S2[3, Infinity]^2)/128 + S2[-5, 1, n] - Diff[S2[1, n], n, 1]*
    S2[-3, 1, n] + S2[2, Infinity]*S2[-3, 1, n] - 
   Diff[S2[1, n], n, 2]*S2[-2, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-2, 1, n] - S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] - 
   S2[3, Infinity]*S2[-2, 1, n] + 2*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/2 - Diff[S2[1, n], n, 1]*
    S2[2, Infinity]*S2[-1, 1, n] + S2[-2, 1, n]*S2[2, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + S2[2, Infinity]*S2[1, 2, -1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + S2[2, Infinity]*S2[2, 1, -1, n] - 
   S2[3, 1, -2, n] - 2*S2[-3, 1, 1, 1, n] + S2[-2, 1, 1, 2, n] - 
   S2[-2, 2, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2, 
 S2[2, 1, 2, -1, n] -> (27*Diff[Half[S2[1, n], n], n, 5])/40 - 
   (14*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   6*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 - 
   6*Diff[S2[1, n], n, 1]^3 - (23*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (23*Diff[S2[1, n], n, 2]^2)/4 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/12 + 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/4 - 
   (27*Diff[S2[1, n], n, 5])/40 - (5*Diff[S2[-4, 1, n], n, 1])/2 - 
   (3*Diff[S2[-3, 1, n], n, 2])/4 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 + 
   (17*Diff[S2[-2, 1, n], n, 3])/12 - 
   (9*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 - 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   (15*Diff[S2[-1, 1, n], n, 4])/8 - (9*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/3 + (11*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (9*Diff[S2[2, 1, -1, n], n, 2])/4 - 5*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + 2*Diff[S2[1, -1, 1, 2, n], n, 1] + 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 2*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   6*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (25*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^6/120 - 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/4 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (79*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (67*Diff[S2[1, n], n, 4]*S2[1, n])/24 - 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (23*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + 2*Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] - (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   6*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (77*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (S2[-1, Infinity]^5*S2[1, n])/60 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (27*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (119*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/12 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^3 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    4 - (13*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 - 
   3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity] + 
   (S2[1, n]^4*S2[2, Infinity])/2 - (79*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/20 + (87*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 - 
   (393*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 + 
   (137*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (59*S2[1, n]^2*S2[2, Infinity]^2)/80 - (18521*S2[2, Infinity]^3)/3360 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 - 
   (27*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   5*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity] + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity] - 
   (3*S2[1, n]^3*S2[3, Infinity])/8 - 4*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] + (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    32 + (121*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (299*S2[3, Infinity]^2)/256 + (19*S2[1, n]*S2[5, Infinity])/16 + 
   (3*S2[-5, -1, Infinity])/2 + 4*S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-3, 1, n] + (7*S2[1, n]^2*S2[-3, 1, n])/2 - 
   (5*S2[2, Infinity]*S2[-3, 1, n])/2 - 2*Diff[S2[1, n], n, 2]*S2[-2, 1, n] + 
   6*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 2*S2[1, n]^3*S2[-2, 1, n] - 
   S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] + S2[3, Infinity]*S2[-2, 1, n] + 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (35*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + Diff[S2[1, n], n, 2]*S2[1, n]*
    S2[-1, 1, n] - (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (39*S2[2, Infinity]^2*S2[-1, 1, n])/10 - S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] - Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] + 
   Diff[S2[1, n], n, 2]*S2[2, 1, n] - 3*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + Half[S2[1, n], n]*S2[1, n]^2*
    S2[2, 1, n] - S2[1, n]^3*S2[2, 1, n] + 2*Half[S2[1, n], n]*
    S2[2, Infinity]*S2[2, 1, n] - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[2, 1, n])/2 - 3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - 
   (21*S2[3, Infinity]*S2[2, 1, n])/8 + S2[-2, 1, n]*S2[2, 1, n] + 
   S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] + S2[-4, 1, 1, n] - 
   S2[1, n]*S2[-3, 1, 1, n] + 2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 
   4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   4*S2[3, Infinity]*S2[-1, 1, 1, n] - 4*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 3*S2[1, n]^2*S2[1, 2, -1, n] - 
   2*S2[2, Infinity]*S2[1, 2, -1, n] - 2*S2[1, n]*S2[2, 1, -2, n] - 
   3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + 3*S2[1, n]^2*S2[2, 1, -1, n] - 
   2*S2[2, Infinity]*S2[2, 1, -1, n] + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] + 
   3*S2[1, n]^2*S2[2, 1, 1, n] + 2*S2[2, Infinity]*S2[2, 1, 1, n] + 
   3*S2[-1, 1, n]*S2[2, 1, 1, n] - 2*S2[-3, 1, 1, 1, n] + 
   6*S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 1, 1, 2, n] - 
   2*S2[-2, 2, 1, 1, n] + 6*S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (75*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, 1, 2, -1, n] - S2[2, -2, 1, 1, n]/2 - 
   6*S2[-2, 1, 1, 1, 1, n] + 2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   3*S2[1, -1, 1, 1, 2, n] + 2*S2[1, 1, -1, 1, 2, n] + 
   3*S2[1, 1, 1, -1, 2, n] + S2[1, 1, 2, -1, 1, n] - 
   4*S2[1, 1, 2, 1, -1, n] - 4*S2[1, 2, 1, 1, -1, n] + 
   6*S2[-1, 1, 1, 1, 1, 1, Infinity], S2[2, 1, 2, 1, n] -> 
  Diff[S2[1, n], n, 1]^3/12 + (5*Diff[S2[1, n], n, 2]^2)/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 - 
   (7*Diff[S2[1, n], n, 5])/360 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   Diff[S2[2, 1, n], n, 3]/8 - Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[3, 1, 1, n], n, 1] + (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 - 
   (6*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 + 
   (62*S2[2, Infinity]^3)/105 - 2*S2[3, Infinity]^2 + S2[2, 1, n]^2/2 + 
   4*S2[4, 1, 1, n] - 2*S2[2, 2, 1, 1, n], S2[2, 1, -1, -2, n] -> 
  (3*Diff[Half[S2[1, n], n], n, 1]^3)/64 - 
   (29*Diff[Half[S2[1, n], n], n, 2]^2)/128 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/32 - 
   (123*Diff[Half[S2[1, n], n], n, 5])/128 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (79*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 + 
   (685*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (731*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (639*Diff[S2[1, n], n, 1]^3)/64 + (567*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (1757*Diff[S2[1, n], n, 2]^2)/192 + 
   (785*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/128 - 
   (5117*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/384 + 
   (385*Diff[S2[1, n], n, 5])/384 + Diff[S2[-4, 1, n], n, 1] - 
   (17*Diff[S2[-3, 1, n], n, 2])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (53*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (107*Diff[S2[-2, 1, n], n, 3])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (237*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (15*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (375*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (169*Diff[S2[-1, 1, n], n, 4])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (23*Diff[S2[2, 1, n], n, 3])/48 + 3*Diff[S2[4, 1, n], n, 1] + 
   8*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   Diff[S2[-2, 1, -1, n], n, 2]/8 - (3*Diff[S2[-1, -2, -1, n], n, 2])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/8 - (27*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (47*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (3*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[3, 1, 1, n], n, 1] + 
   (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/
    16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/4 + 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 + 2*Diff[S2[1, 1, -2, -1, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1] + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (3*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (965*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (539*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 + (41*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 - 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    16 - (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   (3*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (3*Half[S2[4, 1, 1, n], n])/16 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    96 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - 
   (11*S2[-1, Infinity]^6)/2880 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 + 
   (415*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (525*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (505*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (2809*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (485*Diff[S2[1, n], n, 4]*S2[1, n])/128 - 
   (99*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 + 
   (37*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (51*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (895*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (49*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (27*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (55*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 - 
   (7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (111*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (69*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 + 
   (3*S2[-1, Infinity]^5*S2[1, n])/320 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (115*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/64 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (193*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (43*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (1183*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (285*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (197*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (9*Half[S2[1, n], n]^4*S2[1, n]^2)/32 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (91*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 - 
   5*Diff[S2[1, n], n, 2]*S2[1, n]^3 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/2 + (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 - (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (229*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (13*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (7*S2[1, n]^6)/96 + (7*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (71*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    96 + (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (45*Diff[S2[1, n], n, 3]*S2[2, Infinity])/32 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (63*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (11*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (111*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/64 + (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*
     S2[2, Infinity])/64 - (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/64 - (47*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (41*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (75*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 - 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 - (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    32 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 - (285*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (39*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/8 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (35*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (121*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (107*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (207*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (3*S2[1, n]^4*S2[2, Infinity])/8 + 
   (1649*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (139*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (23*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 + 
   (37*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (339*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (611*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (201*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (107*S2[1, n]^2*S2[2, Infinity]^2)/320 - (871*S2[2, Infinity]^3)/1344 - 
   (465*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (1261*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (135*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (149*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (97*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 - 
   (39*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (211*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (2627*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 - 
   (665*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 + 
   (727*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 + 
   (211*S2[1, n]^3*S2[3, Infinity])/256 + 
   (1207*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (4107*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (531*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (2479*S2[3, Infinity]^2)/6144 - (243*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (231*S2[1, n]*S2[5, Infinity])/64 - (51*S2[-5, -1, Infinity])/8 - 
   6*S2[-5, 1, n] - 6*S2[1, n]*S2[-4, 1, n] + 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/32 - 
   (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (11*S2[1, n]^2*S2[-3, 1, n])/32 - (15*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 + 
   (47*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (99*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 + 
   (21*S2[1, n]^3*S2[-2, 1, n])/16 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (57*S2[3, Infinity]*S2[-2, 1, n])/64 + (3*S2[-2, 1, n]^2)/8 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (143*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (271*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (7*S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (3*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (S2[1, n]^4*S2[-1, 1, n])/6 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (21*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (21*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (21*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (617*S2[2, Infinity]^2*S2[-1, 1, n])/320 + 
   (301*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (143*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (29*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (15*S2[1, n]^2*S2[-1, 1, n]^2)/32 - (7*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (115*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (19*S2[1, n]^3*S2[2, 1, n])/96 - (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (81*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (33*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (941*S2[3, Infinity]*S2[2, 1, n])/192 + (3*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - S2[2, 1, n]^2/8 - 
   6*S2[1, n]*S2[4, 1, n] + 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - 
   3*S2[1, n]*S2[-3, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   S2[-2, 2, -2, n]/4 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    32 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/32 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (31*S2[3, Infinity]*S2[-1, 1, -1, n])/192 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + (3*S2[-1, 1, -1, n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (59*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 3*S2[2, 1, n]*S2[-1, 1, 1, n] - S2[-1, 1, 1, n]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (33*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 + (7*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (15*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 + (43*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (47*S2[1, n]^2*S2[2, 1, -1, n])/16 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (7*S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   S2[1, n]^2*S2[2, 1, 1, n] - (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (3*S2[3, 1, -2, n])/2 - 
   4*S2[1, n]*S2[3, 1, 1, n] - 5*S2[4, 1, 1, n] + 9*S2[-3, 1, 1, 1, n] - 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + 2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (21*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 2*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (21*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   S2[1, n]*S2[1, 1, -2, -1, n] - (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   (3*S2[2, -2, 1, 1, n])/2 - S2[1, n]*S2[2, 1, 1, 1, n] + 
   2*S2[2, 2, 1, 1, n] + (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 - 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (29*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + S2[1, -1, 1, 1, -2, n] - 
   (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, 1, n] + 2*S2[1, 1, -2, 1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, -1, n] + 7*S2[1, 1, 1, -2, -1, n] + 
   3*S2[1, 1, 1, -1, -2, n] + 9*S2[1, 1, 1, 2, -1, n] + 
   4*S2[1, 1, 2, -1, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] + S2[1, 2, -1, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] + 
   S2[2, 1, 1, 1, 1, n] - (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/8 - S2[-1, 1, -1, 1, 1, 1, n]/2 - 
   S2[-1, 1, 1, 1, -1, 1, n]/2 + (11*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 - (3*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, 1, -1, -1, -1, -1, n])/2 - (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   2*S2[1, 1, 1, 1, -1, -1, n], S2[2, 1, -1, 2, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 5])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 - 
   (11*Diff[S2[1, n], n, 1]^3)/2 - (23*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (23*Diff[S2[1, n], n, 2]^2)/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 + 
   8*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3] - (5*Diff[S2[1, n], n, 5])/8 - 
   (13*Diff[S2[-4, 1, n], n, 1])/2 - (3*Diff[S2[-3, 1, n], n, 2])/4 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 + 
   (13*Diff[S2[-2, 1, n], n, 3])/12 - 
   (31*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 - 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   (41*Diff[S2[-1, 1, n], n, 4])/24 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] + Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] - 
   (13*Diff[S2[-3, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (4*Diff[S2[-1, 1, 1, n], n, 3])/3 + (7*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1] + (7*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   3*Diff[S2[-2, 1, 1, 1, n], n, 1] - (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^6/360 - 
   (25*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 + 
   (33*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (91*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (71*Diff[S2[1, n], n, 4]*S2[1, n])/24 + 2*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] - (13*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (29*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 - 2*Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] - (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (17*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (27*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (S2[-1, Infinity]^5*S2[1, n])/60 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (35*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (127*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 - 
   (2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (61*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   6*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity] + 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 - 
   S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity] - (S2[1, n]^4*S2[2, Infinity])/
    6 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (299*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 + 
   (13*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (49*S2[1, n]^2*S2[2, Infinity]^2)/80 - (1223*S2[2, Infinity]^3)/672 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 - 
   (103*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity] - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] + 
   5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity] + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity] - 
   (41*S2[1, n]^3*S2[3, Infinity])/24 - 
   (2*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/3 + 
   (563*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (241*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   (6097*S2[3, Infinity]^2)/768 + (291*S2[1, n]*S2[5, Infinity])/16 + 
   S2[-5, -1, Infinity]/2 - 12*S2[-5, 1, n] + 5*S2[1, n]*S2[-4, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-3, 1, n] - (5*S2[1, n]^2*S2[-3, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[-3, 1, n])/2 - (2*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    3 + 2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (2*S2[1, n]^3*S2[-2, 1, n])/3 + S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] + 
   (5*S2[3, Infinity]*S2[-2, 1, n])/3 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (13*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 3*Diff[S2[1, n], n, 2]*S2[1, n]*
    S2[-1, 1, n] - (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (7*S2[2, Infinity]^2*S2[-1, 1, n])/10 - S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] - Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] + 
   Diff[S2[1, n], n, 2]*S2[2, 1, n] - Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - Half[S2[1, n], n]*S2[1, n]^2*
    S2[2, 1, n] + S2[1, n]^3*S2[2, 1, n] - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - (13*S2[3, Infinity]*S2[2, 1, n])/
    8 - S2[-2, 1, n]*S2[2, 1, n] + S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] - 
   11*S2[-4, 1, 1, n] + 7*S2[1, n]*S2[-3, 1, 1, n] - 
   2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + S2[1, n]^2*S2[1, 2, -1, n] - 
   2*S2[2, Infinity]*S2[1, 2, -1, n] + 2*S2[1, n]*S2[2, 1, -2, n] - 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + S2[1, n]^2*S2[2, 1, -1, n] - 
   S2[2, Infinity]*S2[2, 1, -1, n] + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] - 
   S2[-1, 1, n]*S2[2, 1, 1, n] - 6*S2[-3, 1, 1, 1, n] + 
   2*S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 1, 1, 2, n] + 
   2*S2[-2, 2, 1, 1, n] + 2*S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (53*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, 1, 2, -1, n] + (3*S2[2, -2, 1, 1, n])/2 - 
   2*S2[-2, 1, 1, 1, 1, n] - 2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, -1, 1, 1, 2, n] - 2*S2[1, 1, -1, 1, 2, n] - S2[1, 1, 1, -1, 2, n] + 
   S2[1, 1, 2, -1, 1, n] + 2*S2[-1, 1, 1, 1, 1, 1, Infinity], 
 S2[2, 1, 1, -2, n] -> (-17*Diff[Half[S2[1, n], n], n, 5])/240 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 + 
   2*Diff[S2[1, n], n, 1]^3 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/2 - Diff[S2[1, n], n, 2]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 + 
   (17*Diff[S2[1, n], n, 5])/240 + Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/4 + (3*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 - Diff[S2[-2, 1, n], n, 3]/3 + 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, n], n, 4]/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, 1, n], n, 1] + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - Diff[S2[2, 1, -1, n], n, 2]/4 + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/16 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 - Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 1]*S2[1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 2]*S2[1, n])/2 + 3*Diff[S2[1, n], n, 1]*
    Diff[S2[1, n], n, 2]*S2[1, n] - (Diff[S2[1, n], n, 4]*S2[1, n])/4 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/2 + 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - Diff[S2[-1, 1, n], n, 2]*
    S2[2, Infinity] - (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 + 
   (47*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (25*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 - 
   (2491*S2[2, Infinity]^3)/3360 + (19*Diff[S2[1, n], n, 2]*S2[3, Infinity])/
    32 - (21*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (41*S2[3, Infinity]^2)/256 + 2*S2[-5, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - S2[2, Infinity]*S2[-3, 1, n] + 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] + S2[3, Infinity]*S2[-2, 1, n] - 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 + Diff[S2[1, n], n, 1]*
    S2[2, Infinity]*S2[-1, 1, n] - (3*S2[3, Infinity]*S2[2, 1, n])/4 - 
   S2[-2, 1, n]*S2[2, 1, n] + 2*S2[-4, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   S2[2, Infinity]*S2[1, 2, -1, n] + (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    2 - S2[2, Infinity]*S2[2, 1, -1, n] - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 
   (S2[2, Infinity]*S2[2, 1, 1, n])/2 + S2[-3, 1, 1, 1, n] - 
   S2[-2, 1, 1, 2, n] + (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/
    2 - (13*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[2, -2, 1, 1, n]/2, S2[2, 1, 1, 2, n] -> Diff[S2[1, n], n, 1]^3/12 - 
   (5*Diff[S2[1, n], n, 2]^2)/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/4 + Diff[S2[1, n], n, 5]/45 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   Diff[S2[2, 1, n], n, 3]/8 + Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[2, 1, 1, n], n, 2]/2 + Diff[S2[3, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   (4*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 - (8*S2[2, Infinity]^3)/105 - 
   S2[3, Infinity]^2 + S2[3, Infinity]*S2[2, 1, n] - S2[2, 1, n]^2/2 - 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + S2[2, Infinity]*S2[2, 1, 1, n], 
 S2[-1, -3, -1, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/192 + 
   (71*Diff[Half[S2[1, n], n], n, 2]^2)/48 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/18 - 
   (1811*Diff[Half[S2[1, n], n], n, 5])/1152 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (35*Diff[Half[S2[2, 1, n], n], n, 3])/96 - 
   (11*Diff[Half[S2[4, 1, n], n], n, 1])/16 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (289*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (1811*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 + 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (4877*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (4541*Diff[S2[1, n], n, 1]^3)/192 + 
   (351*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 - 
   (1171*Diff[S2[1, n], n, 2]^2)/96 + 
   (9829*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (24895*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (4021*Diff[S2[1, n], n, 5])/2880 + (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   (11*Diff[S2[-3, 1, n], n, 2])/8 - (53*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/48 + 
   (523*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (25*Diff[S2[-2, 1, n], n, 3])/6 - (91*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/96 + 
   (1033*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   (25*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (193*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (231*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (135*Diff[S2[-1, 1, n], n, 4])/32 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (13*Diff[S2[2, 1, n], n, 3])/16 + 3*Diff[S2[4, 1, n], n, 1] + 
   17*Diff[S2[-3, 1, 1, n], n, 1] - (7*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (31*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (141*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (257*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (35*Diff[S2[-1, 1, 1, n], n, 3])/16 - 5*Diff[S2[1, 2, -1, n], n, 2] - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - 5*Diff[S2[2, 1, -1, n], n, 2] - 
   3*Diff[S2[2, 1, 1, n], n, 2] - 3*Diff[S2[3, 1, 1, n], n, 1] + 
   (27*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (9*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - 
   (9*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 + 
   (33*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   (3*Diff[S2[1, -1, 1, -2, n], n, 1])/2 - (7*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 + 3*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   4*Diff[S2[1, 1, -1, 2, n], n, 1] - 6*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   (5*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 - 
   (9*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (9*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - 
   (21*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   (21*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (19*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (9*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (27*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (27*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/2 + 
   (9*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (191*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (13*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (403*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (1489*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (1945*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (197*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (91*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (21*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (121*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 - 
   (11*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (9*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (71*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (31*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (17*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (95*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (9*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (25*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (25*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   2*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (53*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (155*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (61*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 - (103*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    64 + (43*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (251*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 + 
   (47*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 - 
   (167*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (175*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (65*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (115*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (175*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (47*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   Half[S2[2, 1, n], n]^2/8 + (9*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (51*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (7*Half[S2[4, 1, 1, n], n])/16 - (199*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (119*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (41*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + 
   (169*S2[-1, Infinity]^6)/2880 + (271*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 + 
   (847*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (19*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (29*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (971*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (379*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (1609*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (6385*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (557*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (359*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (153*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (1547*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (45*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (9*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (71*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (35*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (217*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (57*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (23*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (59*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (107*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (581*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (571*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (119*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (39*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (97*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 + 
   (575*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (269*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (7*Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (163*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (185*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (41*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (39*S2[-1, Infinity]^5*S2[1, n])/320 - 
   (97*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (1477*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (49*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (1231*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (2491*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 + 
   (5653*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (57*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (1819*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (65*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (49*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (29*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (253*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 + 
   (125*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (269*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (43*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (229*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - 
   (47*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (787*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (461*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 - 
   (17*Half[S2[1, n], n]^3*S2[1, n]^3)/8 + 
   (91*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 - 
   (151*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (563*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (109*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - 
   (49*Half[S2[1, n], n]*S2[1, n]^5)/48 + S2[1, n]^6/8 + 
   (149*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 - 
   (2075*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 - 
   (47*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (199*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (375*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (2183*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 - 
   (241*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (159*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (47*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (275*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (39*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (83*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/6 - 
   (219*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (7*Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (167*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (15*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (373*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (41*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (51*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (115*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (175*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (47*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (143*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/
    64 + (187*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (41*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (41*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (53*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (413*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (1063*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (733*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (239*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (25*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 - (47*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (101*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (1495*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (233*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (13*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (3*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 + (649*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (331*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (17*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/4 - (47*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 - (277*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/64 - (103*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    24 + (569*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (79*S2[1, n]^4*S2[2, Infinity])/96 + 
   (3299*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (2587*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/240 + 
   (4499*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (1623*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (2169*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (1553*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 + 
   (3259*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (2363*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (13347*S2[2, Infinity]^3)/640 - 
   (3857*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (85*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 - 
   (747*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (805*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 - (717*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 + 
   (217*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (153*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (221*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (523*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (925*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 + 
   (1133*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (601*S2[1, n]^3*S2[3, Infinity])/768 + 
   (341*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (3507*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (4523*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (6459*S2[3, Infinity]^2)/512 + (1279*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (16391*S2[1, n]*S2[5, Infinity])/256 + (115*S2[-5, -1, Infinity])/
    8 - 14*S2[-5, 1, n] - (5*Half[S2[1, n], n]*S2[-4, 1, n])/2 - 
   5*S2[1, n]*S2[-4, 1, n] - (91*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    96 + (305*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (61*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (347*S2[1, n]^2*S2[-3, 1, n])/96 - (149*S2[2, Infinity]*S2[-3, 1, n])/12 - 
   (145*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (47*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 - 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (115*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (109*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (47*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + Half[S2[2, 1, n], n]*
    S2[-2, 1, n] - (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/
    12 - (1015*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (209*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (289*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (41*S2[1, n]^3*S2[-2, 1, n])/48 - (155*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] + 
   (377*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (41*S2[3, Infinity]*S2[-2, 1, n])/32 - 2*S2[-2, 1, n]^2 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (41*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (189*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (465*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (517*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 - 
   (65*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (55*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (39*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 - 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (7*Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (77*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (173*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (169*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 - (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 + 
   (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 - 
   (203*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (553*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (13*S2[1, n]^4*S2[-1, 1, n])/48 + (47*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (29*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (139*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (239*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (73*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (37*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7513*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (23*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/8 + 
   (11*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/4 - 
   (133*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (17*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (17*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (211*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/6 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/3 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/6 + (71*S2[2, Infinity]*S2[-1, 1, n]^2)/24 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 + 
   (25*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (89*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (61*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (7*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (137*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (55*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (29*S2[1, n]^3*S2[2, 1, n])/96 - (91*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (403*S2[3, Infinity]*S2[2, 1, n])/32 - 7*S2[-2, 1, n]*S2[2, 1, n] + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (61*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 5*S2[2, 1, n]^2 + 
   (11*S2[1, n]*S2[4, 1, n])/2 + 14*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   (3*Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 - (11*S2[1, n]*S2[-3, 1, 1, n])/
    2 - (3*S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (51*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (S2[1, n]^2*S2[-2, 1, -1, n])/2 + 
   (15*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + (17*S2[-2, 2, -2, n])/8 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (53*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (11*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/96 - 
   (55*S2[2, Infinity]*S2[-1, -2, -1, n])/24 - 
   (19*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (19*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (7*Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (109*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (35*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (29*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (699*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 - 
   (9*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (7*S2[-1, 1, -1, n]^2)/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (9*S2[1, n]^3*S2[-1, 1, 1, n])/4 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (63*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (95*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + 7*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (9*S2[-1, 1, 1, n]^2)/4 + (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (117*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - (23*S2[1, n]^2*S2[1, 2, -1, n])/
    4 - (15*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 - (Half[S2[1, n], n]*S2[2, 1, -2, n])/
    2 + 4*S2[1, n]*S2[2, 1, -2, n] + (95*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 + (251*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (11*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (305*S2[1, n]^2*S2[2, 1, -1, n])/48 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    6 - (55*S2[-1, 1, n]*S2[2, 1, -1, n])/24 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (21*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (25*S2[1, n]^2*S2[2, 1, 1, n])/4 + (39*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   (7*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (7*S2[3, 1, -2, n])/2 - 
   (17*S2[4, 1, 1, n])/2 + 21*S2[-3, 1, 1, 1, n] - 
   (3*S2[-2, -2, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - 
   10*S2[1, n]*S2[-2, 1, 1, 1, n] + (7*S2[-2, 2, 1, 1, n])/2 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (35*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (25*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (19*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (7*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (9*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (9*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (57*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (123*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (199*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (119*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (41*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (47*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (175*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (77*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 + (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 - (7*S2[1, n]*S2[1, 1, 2, -1, n])/2 - (7*S2[2, -2, 1, 1, n])/2 + 
   (9*S2[1, n]*S2[2, 1, 1, 1, n])/2 + (21*S2[-2, 1, 1, 1, 1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (7*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (21*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + (9*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 - (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (117*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (21*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (21*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (21*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (21*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 3*S2[1, -1, -1, 1, 2, n] - 
   (13*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (13*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (9*S2[1, -1, 1, 1, -2, n])/2 - 
   (7*S2[1, -1, 1, 1, 2, n])/2 + 3*S2[1, -1, 1, 2, -1, n] + 
   (3*S2[1, 1, -2, -1, 1, n])/2 + 3*S2[1, 1, -2, 1, -1, n] - 
   (13*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (13*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 6*S2[1, 1, -1, 1, -2, n] + 
   3*S2[1, 1, -1, 2, -1, n] + 12*S2[1, 1, 1, -2, -1, n] + 
   12*S2[1, 1, 1, -1, -2, n] + 21*S2[1, 1, 1, 2, -1, n] + 
   6*S2[1, 1, 2, -1, -1, n] + (7*S2[1, 1, 2, -1, 1, n])/2 + 
   14*S2[1, 1, 2, 1, -1, n] + 3*S2[1, 2, 1, -1, -1, n] + 
   7*S2[1, 2, 1, 1, -1, n] - (9*S2[2, 1, 1, 1, 1, n])/2 - 
   (7*S2[-1, -1, -1, 1, -1, -1, n])/8 - (21*S2[-1, -1, 1, -1, -1, -1, n])/8 - 
   (21*S2[-1, 1, -1, -1, -1, -1, n])/4 - (25*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   (3*S2[-1, 1, -1, 1, -1, -1, n])/4 - (9*S2[-1, 1, -1, 1, 1, 1, n])/4 - 
   (3*S2[-1, 1, 1, -1, -1, -1, n])/2 + (9*S2[-1, 1, 1, 1, -1, 1, n])/4 - 
   (169*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (35*S2[1, -1, -1, -1, -1, -1, n])/4 + (19*S2[1, -1, -1, -1, 1, -1, n])/8 + 
   4*S2[1, -1, -1, 1, -1, -1, n] + (7*S2[1, -1, 1, -1, -1, -1, n])/4 + 
   5*S2[1, 1, -1, -1, -1, -1, n] + (9*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   9*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -3, -1, 1, n] -> 
  (-7*Diff[Half[S2[1, n], n], n, 1]^3)/24 - Diff[Half[S2[1, n], n], n, 2]^2/
    16 - (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    12 + (89*Diff[Half[S2[1, n], n], n, 5])/90 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/6 + 
   (77*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 - 
   (307*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/6 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/3 - 
   (29*Diff[S2[1, n], n, 1]^3)/4 - (139*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (35*Diff[S2[1, n], n, 2]^2)/4 - 
   (119*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (589*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (89*Diff[S2[1, n], n, 5])/90 + (29*Diff[S2[-3, 1, n], n, 2])/24 - 
   (8*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (29*Diff[S2[-2, 1, n], n, 3])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (175*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   Diff[S2[-1, 1, n], n, 1]^2/2 - (25*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/12 - 
   (163*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (45*Diff[S2[-1, 1, n], n, 4])/16 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] + Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] - 
   (19*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-1, -2, -1, n], n, 2]/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/6 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/6 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] - 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/3 + (7*Diff[S2[1, 2, -1, n], n, 2])/2 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (37*Diff[S2[2, 1, -1, n], n, 2])/12 - 
   (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/12 - 
   4*Diff[S2[-1, 1, 1, 1, n], n, 2] + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[1, 1, 2, -1, n], n, 1] - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, -1, 1, -1, -1, n], n, 
    1] + (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (91*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/24 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/4 + (63*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 + (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (53*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/96 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (19*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (95*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (109*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   2*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - (37*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (41*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/6 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/12 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/6 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/6 + 
   (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/2 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/12 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/32 - S2[-1, Infinity]^6/288 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (67*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 + 
   (317*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   24*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (115*Diff[S2[1, n], n, 4]*S2[1, n])/32 + 
   (19*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 - 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (103*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (75*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 2*Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] + (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 3*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (15*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (61*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (25*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (27*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (167*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (95*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/4 + 
   (9*S2[-1, Infinity]^5*S2[1, n])/160 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/6 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (21*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (241*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   (125*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (67*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    12 - (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 + 
   (49*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    6 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 - (Half[S2[1, n], n]^2*S2[1, n]^4)/3 + 
   (Half[S2[1, n], n]*S2[1, n]^5)/6 - S2[1, n]^6/24 - 
   (83*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (163*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    24 - (401*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 - 
   (163*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (23*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (33*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (39*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity] - 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (119*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (79*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 - (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (27*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (81*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (63*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (3*S2[1, n]^4*S2[2, Infinity])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 + 
   (623*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 - 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/8 + 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 + 
   (103*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (651*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (121*S2[1, n]^2*S2[2, Infinity]^2)/40 - (2371*S2[2, Infinity]^3)/1120 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/48 - 
   (391*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (61*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (5*Half[S2[1, n], n]^3*S2[3, Infinity])/24 + 
   (21*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (181*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (59*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (119*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (13*S2[1, n]^3*S2[3, Infinity])/24 - 
   (655*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (171*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (359*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (799*S2[3, Infinity]^2)/256 + (1813*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (237*S2[1, n]*S2[5, Infinity])/64 + S2[-5, -1, Infinity]/8 + 
   5*S2[-5, 1, n] + 4*Half[S2[1, n], n]*S2[-4, 1, n] + 
   2*S2[1, n]*S2[-4, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    2 + (15*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[-3, 1, n])/4 + 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (27*S2[1, n]^2*S2[-3, 1, n])/8 + (27*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/4 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/4 - (2*Half[S2[1, n], n]^3*S2[-2, 1, n])/3 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (S2[1, n]^3*S2[-2, 1, n])/6 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (3*S2[3, Infinity]*S2[-2, 1, n])/16 - 
   (59*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 - 
   (65*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (179*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/6 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 + 
   (S2[1, n]^4*S2[-1, 1, n])/6 - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (33*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (353*S2[2, Infinity]^2*S2[-1, 1, n])/80 - 
   (31*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (51*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (9*S2[-3, 1, n]*S2[-1, 1, n])/8 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/4 + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/4 - (S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   S2[-1, 1, n]^3/24 - (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 + 
   (31*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 3*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/8 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    2 - (5*Half[S2[1, n], n]^3*S2[2, 1, n])/12 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (19*S2[1, n]^3*S2[2, 1, n])/24 + (29*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (25*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (49*S2[3, Infinity]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (11*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + Half[S2[1, n], n]*S2[4, 1, n] - 
   S2[1, n]*S2[4, 1, n] - 11*S2[-4, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] + 6*S2[1, n]*S2[-3, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 - (S2[1, n]*S2[-2, 1, -2, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   S2[1, n]^2*S2[-2, 1, -1, n] + (5*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/8 - (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (9*S2[3, Infinity]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (25*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (17*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (5*S2[2, 1, n]*S2[-1, 1, 1, n])/2 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] - 
   (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/4 - (7*S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*S2[2, 1, -2, n] - 
   (S2[1, n]*S2[2, 1, -2, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, -1, n] - (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/2 - (21*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (7*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 2*S2[-1, 1, n]*S2[2, 1, 1, n] - 
   S2[3, 1, -2, n]/2 - Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] - 9*S2[-3, 1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   S2[-2, 2, 1, 1, n]/2 - (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/
    4 - (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, -1, 1, n] - Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   2*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] + 
   6*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - (S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   2*S2[2, -2, 1, 1, n] - (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/
    2 + (15*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (27*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, 2, n]/2 + 
   S2[1, 1, -1, -2, -1, n] + S2[1, 1, -1, -1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - S2[1, 1, -1, 1, 2, n] + 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 - S2[1, 1, 1, -1, 2, n] - 
   4*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n]/2 - 
   3*S2[1, 1, 2, 1, -1, n] - 2*S2[1, 2, 1, 1, -1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n]/2 + (3*S2[-1, -1, 1, -1, -1, -1, n])/2 + 
   3*S2[-1, 1, -1, -1, -1, -1, n] + S2[-1, 1, 1, -1, -1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, -1, n] + (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   5*S2[1, -1, -1, -1, -1, -1, n] - S2[1, -1, -1, 1, 1, -1, n]/2 + 
   (3*S2[1, -1, 1, 1, -1, -1, n])/2 + S2[1, 1, -1, -1, 1, -1, n]/2 + 
   2*S2[1, 1, -1, 1, -1, -1, n] + (9*S2[1, 1, 1, -1, -1, -1, n])/2, 
 S2[-1, -3, 1, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/4 - 
   (97*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (181*Diff[Half[S2[1, n], n], n, 5])/160 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/48 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/96 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/4 - 
   (367*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (2711*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/6 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (1049*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 - 
   (581*Diff[S2[1, n], n, 1]^3)/32 - (127*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (217*Diff[S2[1, n], n, 2]^2)/24 - 
   (493*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/72 + 
   (9367*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (83*Diff[S2[1, n], n, 5])/80 - (5*Diff[S2[-4, 1, n], n, 1])/2 - 
   (23*Diff[S2[-3, 1, n], n, 2])/48 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   (61*Diff[S2[-2, 1, n], n, 3])/24 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (123*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/4 + 
   (181*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/48 - 
   (677*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (287*Diff[S2[-1, 1, n], n, 4])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[2, 1, n], n, 3])/6 - 4*Diff[S2[4, 1, n], n, 1] - 
   11*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + (7*Diff[S2[-1, -2, -1, n], n, 2])/
    48 - (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 + 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/48 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 + (29*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (89*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (31*Diff[S2[-1, 1, 1, n], n, 3])/24 + (15*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (91*Diff[S2[2, 1, -1, n], n, 2])/24 + (9*Diff[S2[2, 1, 1, n], n, 2])/4 + 
   2*Diff[S2[3, 1, 1, n], n, 1] - 10*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/12 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 - (27*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 
    1] + (7*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 
   4*Diff[S2[1, 1, -2, -1, n], n, 1] + 3*Diff[S2[1, 1, -1, 2, n], n, 1] - 
   Diff[S2[1, 1, 2, -1, n], n, 1] + 4*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 + 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 - 
   (15*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 - 
   (7*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 - 
   3*Diff[S2[1, 1, -1, -1, -1, n], n, 1] - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 - 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (251*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (167*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 + (859*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (1127*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (121*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (8*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/3 + (163*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 + (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (23*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (23*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/4 - 
   (83*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/144 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/6 - (67*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    48 + (2*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/9 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (23*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 - 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (71*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/2 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/32 - (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (41*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - 
   (7*S2[-1, Infinity]^6)/288 - (81*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 - 
   (1607*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/12 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (1249*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 + 
   (191*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (2003*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (2639*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (289*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (25*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (391*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (719*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (35*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 6*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (113*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (23*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (119*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (691*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (433*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (223*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (25*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (55*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   6*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (253*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (113*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n] + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (5*Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (3*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 - 
   (S2[-1, Infinity]^5*S2[1, n])/960 + 
   (29*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (28*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/9 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/3 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 - 
   (323*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (1055*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (1291*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 + 
   (37*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (503*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (55*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (157*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (127*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (37*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (31*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - 
   (23*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (275*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (113*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 - 
   (67*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 + 
   (8*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (55*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (61*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (33*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]^4)/6 + (97*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (23*S2[1, n]^6)/48 - (331*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/96 + (901*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/288 + (5*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/96 + (59*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/96 + 
   (79*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (1679*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (37*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 + 
   (26*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/3 - 
   (25*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (35*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (55*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 + (97*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (7*Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (37*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (21*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (131*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (23*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (91*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (141*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] - 
   (225*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (53*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (95*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   (43*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (49*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/6 + 
   (197*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (155*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (5*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/12 - (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (125*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (555*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (21*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (43*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 - (203*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/96 - (2*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/3 - (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/
    4 + (201*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/
    32 + (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 + 
   (103*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 - 
   (329*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (45*S2[1, n]^4*S2[2, Infinity])/32 - 
   (577*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (2543*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 - 
   (577*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (87*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (55*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 + 
   (421*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (107*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (953*S2[1, n]^2*S2[2, Infinity]^2)/960 + (3709*S2[2, Infinity]^3)/280 + 
   (651*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (199*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 + 
   (55*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 - 
   (591*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 - (185*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (29*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (37*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (225*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (903*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (165*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (197*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (1135*S2[1, n]^3*S2[3, Infinity])/384 - 
   (55*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   (1539*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (3095*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (7675*S2[3, Infinity]^2)/1536 - (1575*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (3755*S2[1, n]*S2[5, Infinity])/64 - (11*S2[-5, -1, Infinity])/8 + 
   11*S2[-5, 1, n] - (3*Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   (15*S2[1, n]*S2[-4, 1, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/12 - (97*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (19*Half[S2[1, n], n]^2*S2[-3, 1, n])/24 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (13*S2[1, n]^2*S2[-3, 1, n])/3 + (71*S2[2, Infinity]*S2[-3, 1, n])/12 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (61*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/24 - (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/8 - (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (123*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (65*S2[1, n]^3*S2[-2, 1, n])/24 + (37*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (103*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (3*S2[3, Infinity]*S2[-2, 1, n])/16 + S2[-2, 1, n]^2/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (407*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/48 + 
   (625*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (25*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + 4*Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] + (51*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 + 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (5*Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/2 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 + 
   6*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n] - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 + (91*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (149*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (35*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (41*S2[1, n]^4*S2[-1, 1, n])/48 - (131*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (13*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (51*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (87*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (35*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (1667*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 
   (93*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (295*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (19*S2[-3, 1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/4 - 
   (51*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, n]^2 - (7*S2[1, n]^2*S2[-1, 1, n]^2)/8 - 
   (39*S2[2, Infinity]*S2[-1, 1, n]^2)/16 - S2[-1, 1, n]^3/4 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 - 3*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/16 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/8 - (Half[S2[1, n], n]^3*S2[2, 1, n])/4 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (9*S2[1, n]^3*S2[2, 1, n])/8 + (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (139*S2[3, Infinity]*S2[2, 1, n])/16 + 3*S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (27*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/2 - 
   Half[S2[1, n], n]*S2[4, 1, n] - 5*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] - 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + (5*S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 + S2[1, n]*S2[-2, 1, -2, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n] + 
   (19*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (5*S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (21*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   2*S2[-1, 1, n]*S2[-2, 1, -1, n] - (5*S2[-2, 2, -2, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/12 - 
   (55*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/12 + 
   (5*S2[2, Infinity]*S2[-1, -2, -1, n])/3 + 
   (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (37*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (5*Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/6 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (159*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - 5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (35*S2[3, Infinity]*S2[-1, 1, 1, n])/8 + S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   5*S2[2, 1, n]*S2[-1, 1, 1, n] - (3*S2[-1, 1, 1, n]^2)/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] - 
   11*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (31*S2[1, n]^2*S2[1, 2, -1, n])/4 + (7*S2[2, Infinity]*S2[1, 2, -1, n])/
    2 + 3*S2[-1, 1, n]*S2[1, 2, -1, n] - (Half[S2[1, n], n]*S2[2, 1, -2, n])/
    2 - 3*S2[1, n]*S2[2, 1, -2, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/6 - 
   (205*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 - 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (77*S2[1, n]^2*S2[2, 1, -1, n])/12 + (19*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 + (9*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + (9*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/2 - (29*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - (7*S2[3, 1, -2, n])/2 + 
   Half[S2[1, n], n]*S2[3, 1, 1, n] - S2[1, n]*S2[3, 1, 1, n] + 
   5*S2[4, 1, 1, n] - 13*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + 8*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   (7*S2[-2, 2, 1, 1, n])/2 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/12 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    3 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 - 
   (23*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (7*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (43*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 5*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - (45*Diff[S2[1, n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (23*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (89*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, n]*S2[1, 1, -2, -1, n] - (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/
    2 + (S2[1, n]*S2[1, 1, -1, 2, n])/2 + (9*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   2*S2[2, -2, 1, 1, n] - 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   (15*S2[-2, 1, 1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (41*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (7*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 2*S2[1, -1, -1, 1, 2, n] + 
   (13*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (13*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - 3*S2[1, -1, 1, 1, -2, n] + 
   (7*S2[1, -1, 1, 1, 2, n])/2 - 2*S2[1, -1, 1, 2, -1, n] - 
   3*S2[1, 1, -2, -1, 1, n] - 4*S2[1, 1, -2, 1, -1, n] - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] + 
   (15*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (15*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 4*S2[1, 1, -1, 1, -2, n] - 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 + S2[1, 1, -1, 1, 2, n] - 
   2*S2[1, 1, -1, 2, -1, n] - 14*S2[1, 1, 1, -2, -1, n] - 
   8*S2[1, 1, 1, -1, -2, n] - 2*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   2*S2[1, n]*S2[1, 1, 1, -1, -1, n] + S2[1, 1, 1, -1, 2, n] - 
   20*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   (9*S2[1, 1, 2, -1, 1, n])/2 - 13*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 6*S2[1, 2, 1, 1, -1, n] + 
   3*S2[2, 1, 1, 1, 1, n] + S2[-1, -1, 1, -1, -1, -1, n]/2 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 + 2*S2[-1, 1, -1, -1, -1, -1, n] + 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + S2[-1, 1, -1, -1, 1, 1, n]/2 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - S2[-1, 1, 1, -1, -1, -1, n]/2 - 
   S2[-1, 1, 1, -1, -1, 1, n]/2 - S2[-1, 1, 1, 1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + (35*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   5*S2[1, -1, -1, -1, -1, -1, n] - (3*S2[1, -1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/2 + S2[1, -1, -1, 1, 1, -1, n] - 
   S2[1, -1, 1, -1, -1, -1, n] - (3*S2[1, -1, 1, 1, -1, -1, n])/2 - 
   3*S2[1, 1, -1, -1, -1, -1, n] - (3*S2[1, 1, -1, 1, -1, -1, n])/2 - 
   3*S2[1, 1, 1, -1, -1, -1, n] - (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -3, 1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/24 - (23*Diff[Half[S2[1, n], n], n, 2]^2)/
    192 - (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    72 - (55*Diff[Half[S2[1, n], n], n, 5])/72 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/16 + Diff[Half[S2[4, 1, n], n], n, 1]/
    16 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 + 
   (1591*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (181*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 + 
   (22*Diff[S2[1, n], n, 1]^3)/3 + (217*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (641*Diff[S2[1, n], n, 2]^2)/96 + 
   (167*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/36 - 
   (2905*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (23*Diff[S2[1, n], n, 5])/30 - Diff[S2[-4, 1, n], n, 1]/2 - 
   (9*Diff[S2[-3, 1, n], n, 2])/8 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/6 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (23*Diff[S2[-2, 1, n], n, 3])/12 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (137*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   Diff[S2[-1, 1, n], n, 1]^2/16 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/8 + 
   (287*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (103*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   Diff[S2[2, 1, n], n, 3]/24 + (11*Diff[S2[-3, 1, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, -2, n], n, 1]/4 + Diff[S2[-2, 1, -1, n], n, 2]/4 - 
   Diff[S2[-1, -2, -1, n], n, 2]/8 + (5*Diff[S2[-1, 1, -1, n], n, 3])/48 + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] - 
   (9*Diff[S2[-1, 1, 1, n], n, 3])/8 - (11*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (9*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 + (9*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   3*Diff[S2[-1, 1, 1, 1, n], n, 2] - Diff[S2[1, -1, 1, 2, n], n, 1] + 
   Diff[S2[1, 1, -2, -1, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - Diff[S2[1, -1, -1, -1, -1, n], n, 1]/
    2 - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (33*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (173*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 - 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    6 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 - (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/12 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    12 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/96 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/64 + Half[S2[4, 1, 1, n], n]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + S2[-1, Infinity]^6/288 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    96 + (1205*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 - 
   (251*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (227*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (397*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (1919*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (19*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (115*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (101*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (157*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 4*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + (83*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 + 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (541*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 - (2371*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 + 
   (2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/64 + 
   (S2[-1, Infinity]^5*S2[1, n])/192 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (137*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 + 
   (221*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 - 
   (883*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 + 
   (3385*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (199*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/12 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/96 + 
   (83*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (65*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/48 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    32 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (79*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (Half[S2[1, n], n]*S2[1, n]^5)/
    16 + S2[1, n]^6/48 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    8 - (145*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 + (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (391*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 - 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/12 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (49*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (41*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (85*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (19*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (131*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/32 - (23*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 - (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/24 + (53*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/96 + (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/
    32 - (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/
    32 - (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (69*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (23*S2[1, n]^4*S2[2, Infinity])/96 + 
   (129*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 - 
   (211*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 + 
   (41*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/120 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (41*S2[-1, Infinity]^2*S2[2, Infinity]^2)/64 - 
   (617*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (63*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 - 
   (43*S2[1, n]^2*S2[2, Infinity]^2)/192 - (253*S2[2, Infinity]^3)/448 - 
   (253*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (839*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (179*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (105*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (13*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (125*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (579*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (407*S2[1, n]^3*S2[3, Infinity])/384 + 
   (77*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (1425*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (109*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (335*S2[3, Infinity]^2)/1024 - (125*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (2929*S2[1, n]*S2[5, Infinity])/256 - 3*S2[-5, -1, Infinity] - 
   4*S2[-5, 1, n] - (5*S2[1, n]*S2[-4, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/24 - 
   (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 - 
   (5*S2[1, n]^2*S2[-3, 1, n])/6 - (13*S2[2, Infinity]*S2[-3, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (55*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (125*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (11*S2[1, n]^3*S2[-2, 1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/6 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (2*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 - 
   (19*S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/9 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (15*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (137*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (S2[1, n]^4*S2[-1, 1, n])/16 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (929*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (15*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/12 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/24 + (S2[2, Infinity]*S2[-1, 1, n]^2)/12 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 - 
   (13*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (5*S2[1, n]^3*S2[2, 1, n])/24 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (27*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (69*S2[3, Infinity]*S2[2, 1, n])/32 + (S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2/4 + 
   4*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] + Half[S2[1, n], n]*S2[-3, 1, 1, n] - 
   (7*S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - S2[-2, 2, -2, n]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + S2[-1, 1, -1, n]^2/16 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   2*S2[3, Infinity]*S2[-1, 1, 1, n] + 2*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 + S2[2, Infinity]*S2[1, 2, -1, n] + 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/12 + (77*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 - 
   (13*S2[1, n]^2*S2[2, 1, -1, n])/6 + (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 + (S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/4 - S2[-1, 1, n]*S2[2, 1, 1, n] + 
   S2[3, 1, -2, n] + S2[4, 1, 1, n] + 6*S2[-3, 1, 1, 1, n] - 
   (7*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 - 3*S2[2, Infinity]*
    S2[-1, 1, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/4 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, 1, -2, -1, n] - (S2[1, n]*S2[1, 1, -1, 2, n])/2 - 
   S2[1, n]*S2[1, 1, 2, -1, n] - S2[2, -2, 1, 1, n] + 
   3*S2[-2, 1, 1, 1, 1, n] + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/
    8 - (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, 2, n] + 
   S2[1, 1, -2, -1, 1, n] + S2[1, 1, -2, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 3*S2[1, 1, 1, -2, -1, n] + 
   6*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n] + 
   4*S2[1, 1, 2, 1, -1, n] + 2*S2[1, 2, 1, 1, -1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/4 - (3*S2[-1, -1, 1, -1, -1, -1, n])/4 - 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + S2[-1, 1, -1, -1, -1, 1, n]/4 - 
   (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - (5*S2[1, -1, -1, -1, -1, -1, n])/
    2 - S2[1, -1, -1, -1, 1, -1, n]/4 - S2[1, -1, -1, 1, -1, -1, n]/2 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 - S2[1, 1, -1, -1, -1, -1, n], 
 S2[-1, 3, -1, -1, n] -> (67*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (4*Diff[Half[S2[1, n], n], n, 2]^2)/3 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/12 + 
   (8981*Diff[Half[S2[1, n], n], n, 5])/5760 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/64 + 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/4 + 
   (15*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   (3*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 + 
   (3*Diff[Half[S2[2, 1, 1, 1, n], n], n, 1])/8 - 
   (61*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 - 
   (601*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (31*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 + 
   (1811*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (1183*Diff[S2[1, n], n, 1]^3)/48 - 
   (709*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 + 
   (1205*Diff[S2[1, n], n, 2]^2)/96 - 
   (1153*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/128 + 
   (355*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 - 
   (8171*Diff[S2[1, n], n, 5])/5760 + (7*Diff[S2[-4, 1, n], n, 1])/2 + 
   (97*Diff[S2[-3, 1, n], n, 2])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (349*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (71*Diff[S2[-2, 1, n], n, 3])/16 + 
   (4*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 - 
   (257*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (25*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (261*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (1869*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (265*Diff[S2[-1, 1, n], n, 4])/64 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (5*Diff[S2[2, 1, n], n, 3])/4 - 6*Diff[S2[4, 1, n], n, 1] - 
   17*Diff[S2[-3, 1, 1, n], n, 1] + (9*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (9*Diff[S2[-2, 1, -1, n], n, 2])/8 + (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 3])/32 + 
   (157*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (137*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (55*Diff[S2[-1, 1, 1, n], n, 3])/24 + (37*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (79*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (27*Diff[S2[2, 1, 1, n], n, 2])/8 + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   (29*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (17*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/4 - 
   (63*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 - 
   (3*Diff[S2[1, -1, 1, -2, n], n, 1])/2 + (7*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 - 6*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   4*Diff[S2[1, 1, -1, 2, n], n, 1] - 3*Diff[S2[1, 1, 2, -1, n], n, 1] + 
   6*Diff[S2[2, 1, 1, 1, n], n, 1] - (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/
    8 - (9*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (11*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (15*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 + 
   (9*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (21*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (21*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (17*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (33*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (33*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 - 
   3*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 - (67*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 - (11*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (13*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (43*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    6 + (1633*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (673*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 - 
   (117*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 + (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/32 - (149*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 + (41*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (13*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (35*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (21*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (39*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (13*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (31*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (67*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (45*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/64 + 
   (93*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (197*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/64 + (575*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    384 - (65*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (21*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (59*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (71*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (175*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (115*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (119*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/12 + 
   (131*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 + (13*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 + 
   (3*Half[S2[2, 1, n], n]^2)/64 - (17*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   (3*Half[S2[4, 1, 1, n], n])/16 - (3*Half[S2[2, 2, 1, 1, n], n])/16 + 
   (229*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 + 
   (43*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (31*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/30 - (13*S2[-1, Infinity]^6)/240 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    12 - (35*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (13*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (549*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 - 
   (1731*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (739*Diff[S2[1, n], n, 4]*S2[1, n])/128 + 
   (269*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 
   (55*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (659*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/32 - 
   (513*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (137*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (13*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 - 
   (29*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (31*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (65*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 - 
   (61*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (15*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (53*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (123*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    8 + (419*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (55*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (25*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (151*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (583*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (105*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (11*Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (49*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (83*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (273*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 + 
   (165*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/64 - 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/64 - 
   (533*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (1869*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/64 - 
   (3971*Diff[S2[1, n], n, 3]*S2[1, n]^2)/384 + 
   (91*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (151*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 + 
   (105*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (27*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   (115*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (95*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (297*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (131*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (51*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 + 
   (101*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/2 + 
   (491*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (605*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (73*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (59*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (203*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (101*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - 
   (73*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (61*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (13*S2[1, n]^6)/96 - (45*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/8 + (235*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    64 + (29*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (273*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (321*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (343*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (71*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (37*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   4*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] - 
   (35*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (269*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (223*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (107*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    32 + (181*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (7*Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (49*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 + 
   (21*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (187*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (275*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (75*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (75*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (35*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (131*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/
    64 - (793*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (19*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (2*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (65*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (45*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (131*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (341*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (249*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (155*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 + (21*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 + (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    64 - (51*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (669*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (159*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (5*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 - (233*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (83*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (127*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/16 + (67*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    16 + (413*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (119*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (7*S2[1, n]^4*S2[2, Infinity])/8 - 
   (865*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/128 - 
   (543*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/64 - 
   (1419*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 + 
   (1157*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (1991*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (2587*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (773*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (2513*S2[1, n]^2*S2[2, Infinity]^2)/640 + (342907*S2[2, Infinity]^3)/
    13440 + (985*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (97*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (659*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (63*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/8 + 
   (153*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (211*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (185*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] - 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (565*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (185*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (145*S2[1, n]^3*S2[3, Infinity])/96 - 
   (777*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (2241*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (5221*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (7865*S2[3, Infinity]^2)/1024 + (1133*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (33291*S2[1, n]*S2[5, Infinity])/512 - (145*S2[-5, -1, Infinity])/
    16 + 26*S2[-5, 1, n] + (5*Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   9*S2[1, n]*S2[-4, 1, n] - (55*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    32 - (205*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/32 - 
   (37*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (3*S2[1, n]^2*S2[-3, 1, n])/16 + (103*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (79*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (395*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (13*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (159*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (39*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (57*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (S2[1, n]^3*S2[-2, 1, n])/6 + (45*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (93*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (73*S2[3, Infinity]*S2[-2, 1, n])/32 + (3*S2[-2, 1, n]^2)/4 + 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/32 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (211*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (235*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (667*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (11*Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (39*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (121*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (187*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n] - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (65*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (13*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (215*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (37*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (35*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (11*S2[1, n]^4*S2[-1, 1, n])/24 - (45*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (63*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (77*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (123*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (37*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3493*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (403*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (297*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/4 - (13*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (19*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (25*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 + 
   (17*S2[1, n]^2*S2[-1, 1, n]^2)/32 - (51*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + (5*S2[-1, 1, n]^3)/16 + (79*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/96 - (205*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (37*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (9*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (41*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (39*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (5*S2[1, n]^3*S2[2, 1, n])/48 + (97*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (33*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (435*S2[3, Infinity]*S2[2, 1, n])/32 + (9*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (29*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (15*S2[2, 1, n]^2)/4 - 
   (3*S2[1, n]*S2[4, 1, n])/2 - 16*S2[-4, 1, 1, n] - (3*S2[-3, -2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + (13*S2[1, n]*S2[-3, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-2, 1, -2, n])/4 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + 5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (5*S2[1, n]^2*S2[-2, 1, -1, n])/8 - (21*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/4 - (15*S2[-2, 2, -2, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (27*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/16 + 
   (3*S2[2, Infinity]*S2[-1, -2, -1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (31*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (11*Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/3 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (27*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (565*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (9*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (9*S2[-1, 1, -1, n]^2)/16 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (19*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 + (31*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (135*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (117*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    16 + (157*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - 
   (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (31*S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 - (9*S2[-1, 1, 1, n]^2)/4 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (57*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (45*S2[1, n]^2*S2[1, 2, -1, n])/8 + 3*S2[2, Infinity]*S2[1, 2, -1, n] + 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/4 + (Half[S2[1, n], n]*S2[2, 1, -2, n])/
    2 - 4*S2[1, n]*S2[2, 1, -2, n] - (21*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 - (175*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (45*S2[1, n]^2*S2[2, 1, -1, n])/8 + (3*S2[2, Infinity]*S2[2, 1, -1, n])/
    4 + (3*S2[-1, 1, n]*S2[2, 1, -1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 - 4*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (51*S2[1, n]^2*S2[2, 1, 1, n])/8 - 
   9*S2[2, Infinity]*S2[2, 1, 1, n] + (17*S2[-1, 1, n]*S2[2, 1, 1, n])/4 - 
   (9*S2[3, 1, -2, n])/2 - Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] + (15*S2[4, 1, 1, n])/2 - 23*S2[-3, 1, 1, 1, n] + 
   (3*S2[-2, -2, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + 
   10*S2[1, n]*S2[-2, 1, 1, 1, n] - (7*S2[-2, 2, 1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/8 - 
   (13*S2[1, n]^2*S2[-1, 1, -1, -1, n])/8 + 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (15*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (9*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (63*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (63*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (123*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (229*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (43*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (31*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (49*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (101*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (181*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (117*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (9*S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 + (13*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (9*S2[2, -2, 1, 1, n])/2 - 
   (9*S2[1, n]*S2[2, 1, 1, 1, n])/2 - (21*S2[-2, 1, 1, 1, 1, n])/2 - 
   (15*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (15*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (39*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   3*S2[1, n]*S2[-1, 1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (21*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (27*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (83*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    4 - (33*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (33*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (13*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 3*S2[1, -1, -1, 1, 2, n] + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 - (9*S2[1, -1, 1, 1, -2, n])/2 + 
   (7*S2[1, -1, 1, 1, 2, n])/2 - 3*S2[1, -1, 1, 2, -1, n] - 
   (9*S2[1, 1, -2, -1, 1, n])/2 - 6*S2[1, 1, -2, 1, -1, n] + 
   (15*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (15*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 6*S2[1, 1, -1, 1, -2, n] + 
   (9*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (9*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - 3*S2[1, 1, -1, 2, -1, n] - 
   21*S2[1, 1, 1, -2, -1, n] - 12*S2[1, 1, 1, -1, -2, n] + 
   (9*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 - 30*S2[1, 1, 1, 2, -1, n] - 
   6*S2[1, 1, 2, -1, -1, n] - (13*S2[1, 1, 2, -1, 1, n])/2 - 
   17*S2[1, 1, 2, 1, -1, n] - 3*S2[1, 2, 1, -1, -1, n] - 
   7*S2[1, 2, 1, 1, -1, n] + (9*S2[2, 1, 1, 1, 1, n])/2 + 
   (17*S2[-1, -1, -1, 1, -1, -1, n])/8 + (45*S2[-1, -1, 1, -1, -1, -1, n])/
    8 - (3*S2[-1, -1, 1, 1, -1, -1, n])/4 + (39*S2[-1, 1, -1, -1, -1, -1, n])/
    4 + (15*S2[-1, 1, -1, -1, -1, 1, n])/8 - (3*S2[-1, 1, -1, -1, 1, 1, n])/
    4 + (9*S2[-1, 1, -1, 1, 1, 1, n])/4 - (3*S2[-1, 1, 1, -1, -1, -1, n])/4 - 
   (9*S2[-1, 1, 1, 1, -1, 1, n])/4 + 39*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   (55*S2[1, -1, -1, -1, -1, -1, n])/4 - (9*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   (9*S2[1, -1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, -1, 1, 1, -1, n])/4 - 
   (3*S2[1, -1, 1, -1, -1, -1, n])/2 - (9*S2[1, 1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, 1, -1, -1, 1, -1, n])/4 - (3*S2[1, 1, -1, 1, -1, -1, n])/4 - 
   (9*S2[1, 1, 1, -1, -1, -1, n])/4 - (9*S2[1, 1, 1, -1, 1, -1, n])/4 - 
   9*S2[1, 1, 1, 1, -1, -1, n], S2[-1, 3, -1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/24 - (121*Diff[Half[S2[1, n], n], n, 2]^2)/
    384 - (113*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    288 - (89*Diff[Half[S2[1, n], n], n, 5])/144 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 3])/64 + 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (341*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (307*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 + 
   (199*Diff[S2[1, n], n, 1]^3)/32 + (381*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (355*Diff[S2[1, n], n, 2]^2)/64 + 
   (1139*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (4849*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (3707*Diff[S2[1, n], n, 5])/5760 - Diff[S2[-4, 1, n], n, 1] - 
   (35*Diff[S2[-3, 1, n], n, 2])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (89*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (77*Diff[S2[-2, 1, n], n, 3])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   (119*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (239*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (117*Diff[S2[-1, 1, n], n, 4])/64 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   Diff[S2[2, 1, n], n, 3]/8 - Diff[S2[4, 1, n], n, 1] + 
   (11*Diff[S2[-3, 1, 1, n], n, 1])/2 - Diff[S2[-2, 1, -2, n], n, 1]/8 - 
   Diff[S2[-2, 1, -1, n], n, 2]/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   Diff[S2[-1, 1, -1, n], n, 3]/32 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (15*Diff[S2[-1, 1, 1, n], n, 3])/16 - (19*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (33*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (3*Diff[S2[2, 1, 1, n], n, 2])/8 + (9*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/16 + 3*Diff[S2[-1, 1, 1, 1, n], n, 2] - 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 - Diff[S2[1, -1, 1, 2, n], n, 1] + 
   Diff[S2[1, 1, -2, -1, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    8 + 3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (173*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (53*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (91*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (197*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/288 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (29*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    48 - (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 + (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (13*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 + (29*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (95*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/6 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/24 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 + 
   (5*Half[S2[2, 1, n], n]^2)/128 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/8 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/192 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 - S2[-1, Infinity]^6/480 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    96 + (769*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 - 
   (155*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 + 
   (273*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (695*Diff[S2[1, n], n, 4]*S2[1, n])/288 - 
   (59*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 + 
   (73*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (35*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 + 
   (9*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/6 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n] + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (13*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 + 3*Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (45*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (31*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (125*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (14*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (55*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (49*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (53*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (29*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/8 - 
   (23*S2[-1, Infinity]^5*S2[1, n])/240 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (8*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/9 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/3 - 
   (43*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/12 + 
   (1775*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/12 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (109*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (83*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (103*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (93*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (37*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (71*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + 
   (49*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/4 - (13*Half[S2[1, n], n]*S2[1, n]^5)/
    12 + (23*S2[1, n]^6)/96 + (15*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (49*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    576 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (27*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (115*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (47*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 - 
   (109*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (107*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/16 - 
   (67*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (155*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (611*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (83*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (79*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (35*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (33*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (13*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 + (65*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (131*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (61*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   2*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity] + 
   (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (111*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (35*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (137*S2[1, n]^4*S2[2, Infinity])/96 + 
   (807*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (3007*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (49*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (503*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (711*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (4849*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (501*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (1919*S2[1, n]^2*S2[2, Infinity]^2)/384 + (17791*S2[2, Infinity]^3)/
    13440 - (289*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (1177*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (339*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (227*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (85*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/48 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/96 - 
   (23*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (1181*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (467*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (113*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 - 
   (73*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/48 + 
   (893*S2[1, n]^3*S2[3, Infinity])/384 + 
   (47*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (2799*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (2933*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (5381*S2[3, Infinity]^2)/6144 - (205*Half[S2[1, n], n]*S2[5, Infinity])/
    32 - (6395*S2[1, n]*S2[5, Infinity])/256 - (33*S2[-5, -1, Infinity])/8 - 
   4*S2[-5, 1, n] - Half[S2[1, n], n]*S2[-4, 1, n] - 
   (15*S2[1, n]*S2[-4, 1, n])/2 + (2*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/3 - (31*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/4 - 
   (131*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (113*S2[1, n]^2*S2[-3, 1, n])/24 + (S2[2, Infinity]*S2[-3, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (77*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 + 
   (8*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/3 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/24 + (41*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (113*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (41*S2[3, Infinity]*S2[-2, 1, n])/64 + (5*S2[-2, 1, n]^2)/8 + 
   (47*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (15*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (415*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (4*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 - 
   (55*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/48 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 + (83*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (19*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (15*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (5*S2[1, n]^4*S2[-1, 1, n])/48 + (91*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (59*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (67*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (33*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (151*S2[2, Infinity]^2*S2[-1, 1, n])/30 - 
   (25*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (1081*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (19*S2[-3, 1, n]*S2[-1, 1, n])/12 + 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (17*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (43*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (95*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (119*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 - 
   (97*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/12 - 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n] + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (17*S2[1, n]^3*S2[2, 1, n])/12 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (63*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (45*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (565*S2[3, Infinity]*S2[2, 1, n])/192 + (5*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (13*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/8 - 
   (5*S2[1, n]*S2[4, 1, n])/2 + 4*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   3*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (3*S2[1, n]^2*S2[-2, 1, -1, n])/4 - 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - S2[-2, 2, -2, n]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/24 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    6 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 - 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (31*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (55*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (19*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (9*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 2*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (5*S2[-1, 1, 1, n]^2)/4 + (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (7*S2[1, n]^2*S2[1, 2, -1, n])/4 + (7*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/6 + 
   (35*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (7*S2[1, n]^2*S2[2, 1, -1, n])/12 + (4*S2[2, Infinity]*S2[2, 1, -1, n])/
    3 + (2*S2[-1, 1, n]*S2[2, 1, -1, n])/3 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (S2[2, Infinity]*S2[2, 1, 1, n])/2 - S2[-1, 1, n]*S2[2, 1, 1, n] + 
   S2[3, 1, -2, n] + 4*S2[1, n]*S2[3, 1, 1, n] + (3*S2[4, 1, 1, n])/2 + 
   6*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n]/2 - 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 3*S2[1, n]*S2[-2, 1, 1, 1, n] + 
   S2[-2, 2, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/
    6 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (27*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (7*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - Half[S2[1, n], n]*
    S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, 2, -1, n] - S2[2, -2, 1, 1, n] + 
   (5*S2[1, n]*S2[2, 1, 1, 1, n])/2 - S2[2, 2, 1, 1, n] + 
   3*S2[-2, 1, 1, 1, 1, n] + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (5*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (27*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (23*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, -2, n]/2 - 
   S2[1, -1, 1, 1, 2, n] + (3*S2[1, 1, -2, -1, 1, n])/2 + 
   S2[1, 1, -2, 1, -1, n] - (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   2*S2[1, n]*S2[1, 1, -1, -1, -1, n] + S2[1, 1, -1, 2, -1, n] + 
   2*S2[1, 1, 1, -2, -1, n] + 6*S2[1, 1, 1, 2, -1, n] + 
   S2[1, 1, 2, -1, 1, n] + 4*S2[1, 1, 2, 1, -1, n] + 
   2*S2[1, 2, 1, 1, -1, n] - (5*S2[2, 1, 1, 1, 1, n])/2 - 
   S2[-1, -1, -1, 1, -1, -1, n]/4 - (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + 
   S2[-1, 1, -1, -1, -1, 1, n]/4 + S2[-1, 1, -1, 1, -1, -1, n]/4 - 
   S2[-1, 1, -1, 1, 1, 1, n]/4 + S2[-1, 1, 1, -1, -1, -1, n] + 
   (5*S2[-1, 1, 1, 1, -1, 1, n])/4 + (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, -1, -1, -1, n]/2 - 
   S2[1, 1, -1, -1, -1, -1, n]/2 + (9*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   5*S2[1, 1, 1, 1, -1, -1, n], S2[-1, 3, 1, -1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/32 + (187*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 + (37*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    32 - (81*Diff[Half[S2[1, n], n], n, 5])/64 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 + 
   (77*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (23*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 + 
   (115*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (613*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (841*Diff[S2[1, n], n, 1]^3)/48 + (557*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (2027*Diff[S2[1, n], n, 2]^2)/192 + 
   (1307*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (847*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (6857*Diff[S2[1, n], n, 5])/5760 + (11*Diff[S2[-4, 1, n], n, 1])/2 + 
   (49*Diff[S2[-3, 1, n], n, 2])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   (125*Diff[S2[-2, 1, n], n, 3])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (131*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (39*Diff[S2[-1, 1, n], n, 1]^2)/32 - 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] + (345*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/16 - (213*Diff[S2[-1, 1, n], n, 4])/64 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (31*Diff[S2[2, 1, n], n, 3])/24 + 7*Diff[S2[4, 1, n], n, 1] + 
   15*Diff[S2[-3, 1, 1, n], n, 1] - (5*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (11*Diff[S2[-2, 1, -1, n], n, 2])/8 + (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 - (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (25*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (87*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (27*Diff[S2[-1, 1, 1, n], n, 3])/16 - (33*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   (69*Diff[S2[2, 1, -1, n], n, 2])/16 - (25*Diff[S2[2, 1, 1, n], n, 2])/8 - 
   4*Diff[S2[3, 1, 1, n], n, 1] + 12*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 - 
   (9*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 + 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + 
   (3*Diff[S2[1, -1, 1, -2, n], n, 1])/2 - 3*Diff[S2[1, -1, 1, 2, n], n, 1] + 
   3*Diff[S2[1, 1, -2, -1, n], n, 1] - 3*Diff[S2[1, 1, -1, 2, n], n, 1] - 
   4*Diff[S2[2, 1, 1, 1, n], n, 1] + (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/
    4 + 2*Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 - 
   (9*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   (21*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (35*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/192 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (625*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (295*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (49*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (37*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 - (9*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (21*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (39*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (87*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 - (199*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    192 + (21*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/4 + 
   (23*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/8 - 
   (5*Half[S2[2, 1, n], n]^2)/128 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Half[S2[4, 1, 1, n], n])/8 - (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/48 - (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    64 - (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/24 + S2[-1, Infinity]^6/36 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 + (589*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 - 
   (29*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (415*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (169*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (521*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (319*Diff[S2[1, n], n, 4]*S2[1, n])/64 - 
   (109*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (97*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (247*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (97*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (15*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (21*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (41*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (11*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (33*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 + (173*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (455*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   (23*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (29*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Half[S2[1, n], n]^5*S2[1, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (19*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/6 + 
   (S2[-1, Infinity]^5*S2[1, n])/240 - 
   (33*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (95*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/32 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (89*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (1831*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 - 
   (61*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 - 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/16 - 
   (57*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 - 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   6*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (25*Half[S2[1, n], n]^4*S2[1, n]^2)/32 - 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/64 + 
   (127*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (161*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 + 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (10*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (15*Half[S2[1, n], n]^3*S2[1, n]^3)/8 + 
   (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/12 + 
   (65*Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/6 - (29*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + (25*S2[1, n]^6)/96 + (139*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (313*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/192 - (7*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 - (243*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/32 + 
   (13*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (83*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   (39*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (191*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (25*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (199*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (251*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 - 
   (229*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (49*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (87*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (27*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (13*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (93*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (123*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (69*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (93*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (255*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (2*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (15*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (177*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (115*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 + (223*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 - (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 - (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    64 + (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (411*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (63*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (35*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (31*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 + (71*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/16 - (27*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/16 + (69*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/16 - (63*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    16 - (205*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (255*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (41*S2[1, n]^4*S2[2, Infinity])/96 + 
   (1033*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (129*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (669*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 - 
   (113*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/64 - 
   (621*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 - 
   (861*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (983*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (261*S2[1, n]^2*S2[2, Infinity]^2)/640 - (130871*S2[2, Infinity]^3)/
    13440 - (605*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (459*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (763*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (2119*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (329*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/64 - 
   (217*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (571*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (1501*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (949*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 + 
   (565*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/192 + 
   (169*S2[1, n]^3*S2[3, Infinity])/384 + 
   (5381*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (6537*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (1025*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (42275*S2[3, Infinity]^2)/6144 + (11*Half[S2[1, n], n]*S2[5, Infinity])/
    16 - (8763*S2[1, n]*S2[5, Infinity])/256 + (7*S2[-5, -1, Infinity])/2 - 
   12*S2[-5, 1, n] - (3*Half[S2[1, n], n]*S2[-4, 1, n])/2 - 
   6*S2[1, n]*S2[-4, 1, n] + (39*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 - (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (13*S2[1, n]^2*S2[-3, 1, n])/4 - (121*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (79*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/2 + 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (115*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (17*S2[1, n]^3*S2[-2, 1, n])/8 - (31*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (67*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (25*S2[3, Infinity]*S2[-2, 1, n])/64 - (5*S2[-2, 1, n]^2)/8 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (159*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (269*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 - 
   (95*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (13*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n] + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (65*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (17*S2[1, n]^4*S2[-1, 1, n])/48 + (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (39*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (15*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (43*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (21*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (39*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (757*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (805*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (311*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (15*S2[-3, 1, n]*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (17*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (9*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + (21*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]^3*S2[2, 1, n])/8 + 
   (13*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (7*S2[1, n]^3*S2[2, 1, n])/24 - (35*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (105*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n] + 
   (1715*S2[3, Infinity]*S2[2, 1, n])/192 - (13*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (11*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - (21*S2[2, 1, n]^2)/8 - 
   (S2[1, n]*S2[4, 1, n])/2 + 12*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 - (11*S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[-2, 1, -2, n])/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (13*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (11*S2[-2, 2, -2, n])/8 + (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/16 + (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (17*S2[2, Infinity]*S2[-1, -2, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (31*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (17*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (961*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (7*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (9*S2[-1, 1, -1, n]^2)/32 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   S2[1, n]^3*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (39*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    8 + (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (155*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 6*S2[2, 1, n]*S2[-1, 1, 1, n] + S2[-1, 1, 1, n]^2/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   10*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (27*S2[1, n]^2*S2[1, 2, -1, n])/4 - (S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 - (Half[S2[1, n], n]*S2[2, 1, -2, n])/
    2 + (7*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (67*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (13*S2[1, n]^2*S2[2, 1, -1, n])/2 + (7*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (7*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   3*S2[1, n]^2*S2[2, 1, 1, n] + (7*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   3*S2[-1, 1, n]*S2[2, 1, 1, n] + 3*S2[3, 1, -2, n] - 
   4*S2[1, n]*S2[3, 1, 1, n] - (21*S2[4, 1, 1, n])/2 + 
   18*S2[-3, 1, 1, 1, n] - (3*S2[-2, -2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - 
   (19*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 3*S2[-2, 2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 - (39*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (39*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (95*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (51*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   4*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (77*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 - 3*S2[1, n]*S2[1, 1, 2, -1, n] - 3*S2[2, -2, 1, 1, n] + 
   (S2[1, n]*S2[2, 1, 1, 1, n])/2 + 2*S2[2, 2, 1, 1, n] + 
   9*S2[-2, 1, 1, 1, 1, n] + (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    4 - (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 5*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 + (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - Half[S2[1, n], n]*
    S2[1, -1, -1, 1, -1, n] + S2[1, n]*S2[1, -1, -1, 1, -1, n] + 
   2*S2[1, -1, -1, 1, 2, n] - (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 + (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + (7*S2[1, -1, 1, 1, -2, n])/
    2 - 3*S2[1, -1, 1, 1, 2, n] + 2*S2[1, -1, 1, 2, -1, n] + 
   (3*S2[1, 1, -2, -1, 1, n])/2 + 3*S2[1, 1, -2, 1, -1, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 4*S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, -1, n] + 12*S2[1, 1, 1, -2, -1, n] + 
   8*S2[1, 1, 1, -1, -2, n] + 18*S2[1, 1, 1, 2, -1, n] + 
   4*S2[1, 1, 2, -1, -1, n] + 3*S2[1, 1, 2, -1, 1, n] + 
   12*S2[1, 1, 2, 1, -1, n] + 2*S2[1, 2, 1, -1, -1, n] + 
   6*S2[1, 2, 1, 1, -1, n] - S2[2, 1, 1, 1, 1, n]/2 - 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/4 - (9*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - (9*S2[-1, 1, -1, -1, -1, -1, n])/2 - 
   S2[-1, 1, -1, -1, -1, 1, n] + S2[-1, 1, -1, 1, -1, -1, n]/4 - 
   (5*S2[-1, 1, -1, 1, 1, 1, n])/4 + S2[-1, 1, 1, -1, -1, -1, n] + 
   S2[-1, 1, 1, 1, -1, 1, n]/4 - 20*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   (15*S2[1, -1, -1, -1, -1, -1, n])/2 + (3*S2[1, -1, -1, -1, 1, -1, n])/4 + 
   (7*S2[1, -1, -1, 1, -1, -1, n])/4 + 2*S2[1, -1, 1, -1, -1, -1, n] + 
   (9*S2[1, 1, -1, -1, -1, -1, n])/2 - (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   S2[1, 1, 1, 1, -1, -1, n], S2[-1, 3, 1, 1, n] -> 
  (53*Diff[Half[S2[1, n], n], n, 5])/80 - 
   (9*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 - 
   (11*Diff[S2[1, n], n, 1]^3)/2 - (23*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (23*Diff[S2[1, n], n, 2]^2)/4 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/12 + 
   (101*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 - 
   (53*Diff[S2[1, n], n, 5])/80 - (9*Diff[S2[-4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, n], n, 2] - (15*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 + (5*Diff[S2[-2, 1, n], n, 3])/4 - 
   (19*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] + 
   (11*Diff[S2[-1, 1, n], n, 4])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (11*Diff[S2[-3, 1, 1, n], n, 1])/2 + (11*Diff[S2[-1, 1, 1, n], n, 3])/12 + 
   (5*Diff[S2[1, 2, -1, n], n, 2])/2 - Diff[S2[2, 1, -2, n], n, 1]/2 + 
   2*Diff[S2[2, 1, -1, n], n, 2] - (7*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   3*Diff[S2[-1, 1, 1, 1, n], n, 2] + Diff[S2[1, -1, 1, 2, n], n, 1] + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[1, 1, 2, -1, n], n, 1] - 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   Diff[S2[1, n], n, 4]*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - S2[-1, Infinity]^6/240 - 
   (29*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (79*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (45*Diff[S2[1, n], n, 4]*S2[1, n])/16 + Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] - (15*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (49*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 3*Diff[S2[2, 1, -1, n], n, 1]*
    S2[1, n] + (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] + 
   (13*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (S2[-1, Infinity]^5*S2[1, n])/240 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/3 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (13*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/2 - 
   (59*Diff[S2[1, n], n, 3]*S2[1, n]^2)/12 + 
   (15*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   4*Diff[S2[1, n], n, 2]*S2[1, n]^3 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (37*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (15*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (S2[1, n]^4*S2[2, Infinity])/4 - (31*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/20 + (233*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    80 - (79*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (377*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (11*S2[1, n]^2*S2[2, Infinity]^2)/80 - (499*S2[2, Infinity]^3)/210 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 - 
   (63*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 + 
   3*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] + 
   (117*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (29*S2[1, n]^3*S2[3, Infinity])/32 - 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] + (159*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    16 + (5*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (407*S2[3, Infinity]^2)/128 + (1213*S2[1, n]*S2[5, Infinity])/128 + 
   (7*S2[-5, -1, Infinity])/4 - 2*S2[-5, 1, n] + (5*S2[1, n]*S2[-4, 1, n])/
    2 + 2*Diff[S2[1, n], n, 1]*S2[-3, 1, n] + S2[1, n]^2*S2[-3, 1, n] - 
   (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/4 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/
    4 + S2[3, Infinity]*S2[-2, 1, n] + 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (37*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (9*S2[2, Infinity]^2*S2[-1, 1, n])/5 - S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] - Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] + 
   Diff[S2[1, n], n, 2]*S2[2, 1, n] - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n] - 
   3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (7*S2[3, Infinity]*S2[2, 1, n])/4 + S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] - 
   2*S2[-4, 1, 1, n] + (5*S2[1, n]*S2[-3, 1, 1, n])/2 + 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   2*S2[3, Infinity]*S2[-1, 1, 1, n] - 2*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 2*S2[1, n]^2*S2[1, 2, -1, n] - 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 - (S2[1, n]*S2[2, 1, -2, n])/2 - 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + 2*S2[1, n]^2*S2[2, 1, -1, n] - 
   (3*S2[2, Infinity]*S2[2, 1, -1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] + 
   (S2[2, Infinity]*S2[2, 1, 1, n])/2 + S2[-1, 1, n]*S2[2, 1, 1, n] + 
   Half[S2[1, n], n]*S2[3, 1, 1, n] - S2[1, n]*S2[3, 1, 1, n] - 
   4*S2[-3, 1, 1, 1, n] + (7*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   S2[-2, 2, 1, 1, n] + 3*S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 2*S2[2, Infinity]*
    S2[-1, 1, 1, 1, Infinity] + (S2[1, n]*S2[1, 1, -1, 2, n])/2 - 
   3*S2[-2, 1, 1, 1, 1, n] + (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, 1, 1, 2, n] - 3*S2[1, 1, 1, 2, -1, n] - 
   3*S2[1, 1, 2, 1, -1, n] - 2*S2[1, 2, 1, 1, -1, n] + 
   3*S2[-1, 1, 1, 1, 1, 1, Infinity], S2[-1, -2, -2, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/12 + (115*Diff[Half[S2[1, n], n], n, 2]^2)/
    192 + (67*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    72 + (23*Diff[Half[S2[1, n], n], n, 5])/18 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 3])/32 - 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/16 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (2977*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (677*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 - 
   (665*Diff[S2[1, n], n, 1]^3)/48 - (193*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (1117*Diff[S2[1, n], n, 2]^2)/96 - 
   (74*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/9 + 
   (2591*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 - 
   (97*Diff[S2[1, n], n, 5])/72 + 4*Diff[S2[-4, 1, n], n, 1] + 
   (51*Diff[S2[-3, 1, n], n, 2])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (277*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (89*Diff[S2[-2, 1, n], n, 3])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (119*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (67*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   (367*Diff[S2[-1, 1, n], n, 4])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (7*Diff[S2[2, 1, n], n, 3])/24 + (5*Diff[S2[4, 1, n], n, 1])/2 - 
   11*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -1, n], n, 2]/4 + 
   Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   Diff[S2[-1, 1, -1, n], n, 3]/24 - 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + (15*Diff[S2[-1, 1, 1, n], n, 3])/8 + 
   (19*Diff[S2[1, 2, -1, n], n, 2])/4 - Diff[S2[2, 1, -2, n], n, 1] + 
   (33*Diff[S2[2, 1, -1, n], n, 2])/8 - Diff[S2[2, 1, 1, n], n, 2]/4 - 
   9*Diff[S2[-2, 1, 1, 1, n], n, 1] - 6*Diff[S2[-1, 1, 1, 1, n], n, 2] + 
   2*Diff[S2[1, -1, 1, 2, n], n, 1] + Diff[S2[1, 1, -1, 2, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 - 
   6*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   2*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (187*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (41*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (251*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (401*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 + 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (31*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (43*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (79*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n] + 
   2*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (11*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 + (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/4 - 
   (25*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 - 
   (9*Half[S2[2, 1, n], n]^2)/64 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/4 - 
   Half[S2[4, 1, 1, n], n]/4 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/48 + (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    96 - (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 - 
   (11*S2[-1, Infinity]^6)/1440 - (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/48 - 
   (1081*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/12 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (219*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (803*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   45*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (857*Diff[S2[1, n], n, 4]*S2[1, n])/144 + 
   (31*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 - 
   (187*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (169*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (409*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 - 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 - 
   7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] - 
   (41*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 + 
   7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/18 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (133*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (349*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (1309*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (137*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (49*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (17*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (1043*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/3 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (407*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (779*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (367*Diff[S2[1, n], n, 3]*S2[1, n]^2)/36 + 
   (51*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (355*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (11*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (95*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (31*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (43*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/48 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    48 - (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (89*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 - 
   (35*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/4 - 
   (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 - 
   (67*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (53*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (4*Half[S2[1, n], n]*S2[1, n]^5)/
    3 - (5*S2[1, n]^6)/16 + (7*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 + (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    18 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (81*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (23*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (619*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (31*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (55*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (31*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (27*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (37*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (15*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (119*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (35*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 - (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 - (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (13*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (29*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 + 
   (277*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (35*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (113*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (31*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (41*S2[1, n]^4*S2[2, Infinity])/48 - 
   (257*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (79*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/48 + 
   (287*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (1101*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (35*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/24 + 
   (2129*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (2659*S2[1, n]^2*S2[2, Infinity]^2)/960 - (389*S2[2, Infinity]^3)/960 + 
   (389*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (677*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (289*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (63*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (123*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (23*Half[S2[1, n], n]^3*S2[3, Infinity])/192 + 
   (83*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (175*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (127*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 + 
   (193*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (331*S2[1, n]^3*S2[3, Infinity])/96 - 
   (95*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (2655*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (435*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (3423*S2[3, Infinity]^2)/1024 - (1323*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + 31*S2[1, n]*S2[5, Infinity] + (3*S2[-5, -1, Infinity])/8 + 
   8*S2[-5, 1, n] - Half[S2[1, n], n]*S2[-4, 1, n] + 
   7*S2[1, n]*S2[-4, 1, n] + (7*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    6 - (25*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/8 + 
   (61*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (17*S2[1, n]^2*S2[-3, 1, n])/12 + (59*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (23*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/12 + 
   (9*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 + 
   (2*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/3 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/12 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/3 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (27*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    8 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (19*S2[3, Infinity]*S2[-2, 1, n])/32 - (9*S2[-2, 1, n]^2)/4 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (65*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (487*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - Diff[S2[2, 1, n], n, 1]*
    S2[-1, 1, n] - (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/16 - (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/16 - (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, n])/24 - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*
     S2[-1, 1, n])/24 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*
     S2[-1, 1, n])/16 - (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (163*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (19*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (41*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (13*S2[1, n]^4*S2[-1, 1, n])/24 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (37*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (23*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (11*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (337*S2[2, Infinity]^2*S2[-1, 1, n])/96 + 
   (29*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (161*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (11*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (11*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/12 - 
   (11*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/48 - (S2[2, Infinity]*S2[-1, 1, n]^2)/12 - 
   (119*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 + 
   (95*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/24 + 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   2*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n] - 
   (31*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (23*S2[1, n]^3*S2[2, 1, n])/12 + (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (63*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (167*S2[3, Infinity]*S2[2, 1, n])/32 - (5*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (23*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (3*S2[2, 1, n]^2)/4 + 
   2*S2[1, n]*S2[4, 1, n] - 8*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] - 
   3*Half[S2[1, n], n]*S2[-3, 1, 1, n] + 7*S2[1, n]*S2[-3, 1, 1, n] - 
   Half[S2[1, n], n]^2*S2[-2, 1, -1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - S2[1, n]^2*S2[-2, 1, -1, n] + S2[-2, 2, -2, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 + (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/48 + (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    48 + (3*S2[3, Infinity]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - S2[-1, 1, -1, n]^2/16 + 
   2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 4*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   4*S2[3, Infinity]*S2[-1, 1, 1, n] - 4*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   6*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + Half[S2[1, n], n]^2*
    S2[1, 2, -1, n] - 3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] + 
   5*S2[1, n]^2*S2[1, 2, -1, n] - 3*S2[2, Infinity]*S2[1, 2, -1, n] - 
   Half[S2[1, n], n]*S2[2, 1, -2, n] - S2[1, n]*S2[2, 1, -2, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/3 - 
   (79*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (25*S2[1, n]^2*S2[2, 1, -1, n])/6 - (67*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (S2[-1, 1, n]*S2[2, 1, -1, n])/12 - Half[S2[1, n], n]^2*
    S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] + 
   2*S2[-1, 1, n]*S2[2, 1, 1, n] - 2*S2[3, 1, -2, n] + S2[4, 1, 1, n] - 
   12*S2[-3, 1, 1, 1, n] - Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 
   7*S2[1, n]*S2[-2, 1, 1, 1, n] - 2*S2[-2, 2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 6*S2[2, Infinity]*
    S2[-1, 1, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + S2[1, n]*S2[1, 1, -1, 2, n] + 
   2*S2[1, n]*S2[1, 1, 2, -1, n] + 2*S2[2, -2, 1, 1, n] - 
   6*S2[-2, 1, 1, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (17*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 2*S2[1, -1, 1, 1, 2, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (5*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 12*S2[1, 1, 1, 2, -1, n] - 
   2*S2[1, 1, 2, -1, 1, n] - 8*S2[1, 1, 2, 1, -1, n] - 
   4*S2[1, 2, 1, 1, -1, n] + S2[-1, -1, -1, 1, -1, -1, n]/2 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/2 + 3*S2[-1, 1, -1, -1, -1, -1, n] - 
   S2[-1, 1, -1, -1, -1, 1, n]/4 + (11*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   5*S2[1, -1, -1, -1, -1, -1, n] + S2[1, -1, -1, -1, 1, -1, n]/4 + 
   S2[1, -1, -1, 1, -1, -1, n]/2 + S2[1, -1, 1, -1, -1, -1, n]/2 + 
   S2[1, 1, -1, -1, -1, -1, n], S2[-1, -2, -2, 1, n] -> 
  (29*Diff[Half[S2[1, n], n], n, 1]^3)/96 + 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 5])/576 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 - 
   (265*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (49*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (77*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (29*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (125*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (37*Diff[S2[1, n], n, 1]^3)/32 - (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (5*Diff[S2[1, n], n, 2]^2)/16 - 
   (197*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (5*Diff[S2[1, n], n, 5])/576 - (5*Diff[S2[-4, 1, n], n, 1])/2 - 
   (5*Diff[S2[-3, 1, n], n, 2])/12 + (59*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   Diff[S2[-2, 1, n], n, 3]/12 + (31*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 - (5*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (163*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 + 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (5*Diff[S2[-1, 1, n], n, 4])/24 + (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   4*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-1, -2, -1, n], n, 2]/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (19*Diff[S2[-1, 1, 1, n], n, 3])/24 - Diff[S2[1, 2, -1, n], n, 2]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/6 + 2*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1] + Diff[S2[1, 1, 2, -1, n], n, 1] - 
   (9*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - Diff[S2[-1, 1, 1, -1, -1, n], 
    n, 1] - (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (7*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   (13*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (21*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (7*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/12 - (49*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (11*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (47*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (35*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (57*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (35*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (109*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (157*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (13*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (49*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (11*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (11*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n] + 
   Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 - 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (3*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/60 + 
   (7*S2[-1, Infinity]^6)/1440 - (137*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/6 + 
   (49*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 + 
   (11*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (127*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (47*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (15*Diff[S2[1, n], n, 4]*S2[1, n])/64 + 
   (29*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (127*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (109*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (13*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (49*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (9*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (11*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (31*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   4*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (125*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (17*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   2*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (247*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (107*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (17*S2[-1, Infinity]^5*S2[1, n])/120 + 3*Diff[Half[S2[1, n], n], n, 1]^2*
    S2[1, n]^2 + (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (69*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (67*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (89*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 - 
   (15*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (209*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (45*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   2*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2 - 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n]^2 + (419*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[1, n]^2)/96 - (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/
    6 + (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (117*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/2 + 
   (53*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (193*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (61*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (115*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/6 + 
   (17*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (113*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/3 - (35*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + (11*S2[1, n]^6)/24 + (35*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/48 + (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    16 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (193*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    48 + (77*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 - 
   (49*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (95*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (57*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (51*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (201*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (69*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (33*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (83*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (241*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity] + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (309*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (81*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (33*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 + (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/8 - (107*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/16 + (27*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/8 - (237*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 + (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 - (55*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 + 
   (151*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (35*S2[1, n]^4*S2[2, Infinity])/16 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 + 
   (61*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (367*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (697*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (1329*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (133*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (391*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (261*S2[1, n]^2*S2[2, Infinity]^2)/320 - (91*S2[2, Infinity]^3)/320 - 
   (529*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (1123*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (73*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (75*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (789*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (59*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (1377*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (309*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (1001*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (2153*S2[1, n]^3*S2[3, Infinity])/384 + 
   (409*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (189*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (393*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (573*S2[3, Infinity]^2)/256 + (181*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (31*S2[1, n]*S2[5, Infinity])/16 + 8*S2[-5, -1, Infinity] - 
   3*Half[S2[1, n], n]*S2[-4, 1, n] + 5*S2[1, n]*S2[-4, 1, n] + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (11*S2[1, n]^2*S2[-3, 1, n])/16 - (17*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-2, 1, n] - (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/
    8 + (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (31*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (55*S2[1, n]^3*S2[-2, 1, n])/24 + (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (35*S2[3, Infinity]*S2[-2, 1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 - 
   (9*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/3 + 
   (11*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n] + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 + 
   (25*S2[1, n]^4*S2[-1, 1, n])/24 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (17*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (153*S2[2, Infinity]^2*S2[-1, 1, n])/40 - 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/4 + 
   (9*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/4 - (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 + (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 + 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/2 + (5*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (11*S2[-1, 1, n]^3)/12 + (23*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    24 - (23*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (69*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (31*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (103*S2[1, n]^3*S2[2, 1, n])/48 + (21*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (17*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (45*S2[3, Infinity]*S2[2, 1, n])/16 - S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - Half[S2[1, n], n]*S2[4, 1, n] + 
   S2[1, n]*S2[4, 1, n] + 9*S2[-4, 1, 1, n] - S2[1, n]*S2[-3, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 + (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + 3*S2[1, n]^2*S2[-2, 1, -1, n] - 
   S2[2, Infinity]*S2[-2, 1, -1, n] + 2*S2[-1, 1, n]*S2[-2, 1, -1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/16 + 
   (5*S2[2, Infinity]*S2[-1, -2, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (19*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, -1, n] + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, -1, n] - (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/2 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 + (9*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (65*S2[3, Infinity]*S2[-1, 1, -1, n])/32 - S2[-2, 1, n]*S2[-1, 1, -1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (19*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 3*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   2*S2[2, 1, n]*S2[-1, 1, 1, n] + (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (9*S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   (S2[2, Infinity]*S2[1, 2, -1, n])/4 - S2[-1, 1, n]*S2[1, 2, -1, n] - 
   (S2[1, n]*S2[2, 1, -2, n])/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/8 + (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (9*S2[1, n]^2*S2[2, 1, -1, n])/8 - (9*S2[2, Infinity]*S2[2, 1, -1, n])/8 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/2 - S2[2, Infinity]*S2[2, 1, 1, n] + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + S2[3, 1, -2, n]/2 + 
   7*S2[-3, 1, 1, 1, n] + (S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   S2[-2, 1, 1, 2, n] + S2[-2, 2, 1, 1, n]/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   S2[1, n]^2*S2[-1, 1, -1, -1, n] + (3*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/
    2 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (27*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (53*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (65*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   12*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, n]*S2[1, 1, -1, 2, n] - 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 - 4*S2[2, -2, 1, 1, n] - 
   (3*S2[-2, 1, 1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    4 - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   2*S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 14*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - 17*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, -2, -1, 1, -1, n] + (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/
    2 - (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 2*S2[1, -1, -1, 1, -2, n] + 
   S2[1, n]*S2[1, -1, -1, 1, -1, n] + S2[1, -1, 1, -2, -1, n] + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + (3*S2[1, -1, 1, 1, 2, n])/2 + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (5*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + 2*S2[1, 1, -1, 1, 2, n] + 
   5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] - 
   5*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 5*S2[1, 1, 1, -1, 2, n] + 
   5*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n]/2 + 
   2*S2[1, 1, 2, 1, -1, n] + S2[1, 2, 1, 1, -1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/4 - (3*S2[-1, -1, 1, -1, -1, -1, n])/4 - 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 - 3*S2[-1, 1, -1, -1, 1, 1, n] - 
   2*S2[-1, 1, 1, -1, -1, 1, n] - 2*S2[-1, 1, 1, 1, -1, -1, n] - 
   (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - (5*S2[1, -1, -1, -1, -1, -1, n])/
    2 - 3*S2[1, -1, -1, 1, 1, -1, n] - 2*S2[1, -1, 1, 1, -1, -1, n] - 
   3*S2[1, 1, -1, -1, 1, -1, n] - 3*S2[1, 1, -1, 1, -1, -1, n] - 
   9*S2[1, 1, 1, -1, -1, -1, n], S2[-1, -2, 2, -1, n] -> 
  (3*Diff[Half[S2[1, n], n], n, 1]^3)/8 + Diff[Half[S2[1, n], n], n, 2]^2/3 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/12 - 
   (53*Diff[Half[S2[1, n], n], n, 5])/80 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/24 - 
   (61*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 + 
   (46*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/9 - 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/12 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/24 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/6 + 
   7*Diff[S2[1, n], n, 1]^3 + (39*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (125*Diff[S2[1, n], n, 2]^2)/24 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/6 - 
   (319*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/36 + 
   (53*Diff[S2[1, n], n, 5])/80 + 6*Diff[S2[-4, 1, n], n, 1] + 
   (7*Diff[S2[-3, 1, n], n, 2])/6 + (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/6 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (19*Diff[S2[-2, 1, n], n, 3])/12 + 
   (2*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 + 
   (14*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/24 + 
   10*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] - 
   (33*Diff[S2[-1, 1, n], n, 4])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (17*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-1, -2, -1, n], n, 2]/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] - 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/6 - (13*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   (29*Diff[S2[2, 1, -1, n], n, 2])/12 + 7*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/3 + (19*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/
    2 - Diff[S2[-1, 1, -1, -1, 1, n], n, 1] + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   2*Diff[S2[1, -1, -1, 1, -1, n], n, 1] - Diff[S2[1, -1, 1, -1, -1, n], n, 
    1] - 3*Diff[S2[1, 1, -1, -1, -1, n], n, 1] + 
   (121*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (29*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 - (23*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/2 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (121*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (49*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + 3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
    Half[S2[1, n], n] - (113*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 + 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (55*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   4*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] - 
   (9*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   2*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n] + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (169*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/144 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/24 + (83*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/48 + (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    288 - (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/4 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/3 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 + 
   (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/6 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 - 
   (71*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - S2[-1, Infinity]^6/1440 - 
   (133*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 + (65*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/32 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/2 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 - 
   (107*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (199*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (85*Diff[S2[1, n], n, 4]*S2[1, n])/32 + 
   (11*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 + 
   (67*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (83*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 - 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 - 3*Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] + (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 - 
   (55*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 - 
   Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n] + 6*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + (17*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   2*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (41*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/6 + (43*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (157*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (22*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (139*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 + 
   (7*S2[-1, Infinity]^5*S2[1, n])/32 + 
   (41*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (323*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/2 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 - 
   (169*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (1381*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 - 
   (113*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/12 - 
   (379*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (31*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (125*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (63*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/3 - 
   (9*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + 
   (49*S2[-1, Infinity]^4*S2[1, n]^2)/96 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 - 
   (89*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (59*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (17*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    4 + (61*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 + 
   (8*Half[S2[1, n], n]^2*S2[1, n]^4)/3 - (53*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + (2*S2[1, n]^6)/3 + (13*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/24 - (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    36 + Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity] - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    3 + (173*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (149*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 - 
   (43*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/24 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    24 - (161*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (2*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + 7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, Infinity]*S2[2, Infinity] + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (39*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (35*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (127*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/12 - 
   (10*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/3 + (28*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/3 - (23*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    24 + (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/12 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (17*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/2 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (341*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (11*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (107*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (45*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (97*S2[1, n]^4*S2[2, Infinity])/48 + 
   (147*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/40 - 
   (301*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/60 + 
   (319*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/480 + 
   (471*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (263*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (361*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/120 - 
   (109*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/8 - 
   (1763*S2[1, n]^2*S2[2, Infinity]^2)/480 + (4133*S2[2, Infinity]^3)/672 - 
   (137*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/48 + 
   (239*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 - 
   (47*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 - 
   (221*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (145*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (Half[S2[1, n], n]^3*S2[3, Infinity])/24 + 
   (11*Half[S2[2, 1, n], n]*S2[3, Infinity])/16 + 
   (257*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (235*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (55*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 - 
   (85*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/8 + 
   (205*S2[1, n]^3*S2[3, Infinity])/24 + 
   (101*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (237*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (193*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (353*S2[3, Infinity]^2)/64 + (1149*Half[S2[1, n], n]*S2[5, Infinity])/64 - 
   (2341*S2[1, n]*S2[5, Infinity])/128 + (13*S2[-5, -1, Infinity])/8 + 
   8*S2[-5, 1, n] + 3*Half[S2[1, n], n]*S2[-4, 1, n] - 
   S2[1, n]*S2[-4, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/3 + 
   (5*Half[S2[1, n], n]^2*S2[-3, 1, n])/24 + 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (133*S2[1, n]^2*S2[-3, 1, n])/24 + (17*S2[2, Infinity]*S2[-3, 1, n])/12 + 
   (4*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/3 + 
   (23*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (13*S2[1, n]^3*S2[-2, 1, n])/2 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/3 - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 - 
   (13*S2[3, Infinity]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/3 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/2 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 - 
   (155*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 + 
   (125*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 4*Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] - (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/2 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   2*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n] - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (59*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   Half[S2[2, 1, 1, n], n]*S2[-1, 1, n] + (5*S2[-1, Infinity]^4*S2[-1, 1, n])/
    6 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 - 
   (89*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n] + 
   (73*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (47*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 + 
   (43*S2[1, n]^4*S2[-1, 1, n])/24 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/6 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (8*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/3 + 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (599*S2[2, Infinity]^2*S2[-1, 1, n])/120 - 
   (47*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (143*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   3*S2[-3, 1, n]*S2[-1, 1, n] - (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 + (13*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (17*S2[1, n]^2*S2[-1, 1, n]^2)/8 + (3*S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   S2[-1, 1, n]^3 + (8*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/3 - 
   (8*Diff[S2[1, n], n, 2]*S2[2, 1, n])/3 + 4*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/8 - (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    8 + (Half[S2[1, n], n]^3*S2[2, 1, n])/24 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (49*S2[1, n]^3*S2[2, 1, n])/24 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (3*S2[3, Infinity]*S2[2, 1, n])/4 - S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 
   2*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] + 2*Half[S2[1, n], n]*S2[4, 1, n] - 
   2*S2[1, n]*S2[4, 1, n] + 8*S2[-4, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] + (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/
    2 - 6*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] + 
   (11*S2[1, n]^2*S2[-2, 1, -1, n])/2 + (S2[2, Infinity]*S2[-2, 1, -1, n])/
    2 + 5*S2[-1, 1, n]*S2[-2, 1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (25*S2[1, n]^2*S2[-1, -2, -1, n])/24 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    3 - S2[-1, 1, n]*S2[-1, -2, -1, n] + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n] + 
   (25*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (9*S2[3, Infinity]*S2[-1, 1, -1, n])/4 - S2[-2, 1, n]*S2[-1, 1, -1, n] - 
   Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, 1, n] + 3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, 1, n] + Half[S2[2, 1, n], n]*S2[-1, 1, 1, n] + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   S2[1, n]^3*S2[-1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (15*S2[3, Infinity]*S2[-1, 1, 1, n])/4 - 4*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, 2, -1, n] + (19*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + 6*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (31*S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   (5*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 4*S2[-1, 1, n]*S2[1, 2, -1, n] + 
   Half[S2[1, n], n]*S2[2, 1, -2, n] + (3*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/2 + 
   (71*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 - 
   (16*S2[1, n]^2*S2[2, 1, -1, n])/3 + (7*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - 2*S2[-1, 1, n]*S2[2, 1, -1, n] - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   2*S2[1, n]^2*S2[2, 1, 1, n] - (S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + S2[3, 1, -2, n]/2 - 
   2*Half[S2[1, n], n]*S2[3, 1, 1, n] + 2*S2[1, n]*S2[3, 1, 1, n] + 
   9*S2[-3, 1, 1, 1, n] + Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   (11*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - S2[-2, 1, 1, 2, n] + 
   (5*S2[-2, 2, 1, 1, n])/2 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (13*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (4*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 - S2[-1, 1, n]*S2[-1, 1, -1, 1, n] - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 4*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + 5*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - (3*Half[S2[1, n], n]^2*
     S2[-1, 1, 1, 1, Infinity])/4 + (29*Half[S2[1, n], n]*S2[1, n]*
     S2[-1, 1, 1, 1, Infinity])/2 - (49*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/
    4 - S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   20*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - (5*S2[2, -2, 1, 1, n])/2 + 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    2 + (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (11*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (71*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (105*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - S2[1, -2, -1, 1, -1, n] + 
   Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   S2[1, n]*S2[1, -1, -1, -1, -1, n] + 2*S2[1, -1, -1, 1, -2, n] - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + S2[1, -1, 1, -2, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, 1, 2, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (7*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + 8*Half[S2[1, n], n]*
    S2[1, 1, 1, -1, -1, n] - 8*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 
   2*S2[1, 1, 1, -1, 2, n] + 11*S2[1, 1, 1, 2, -1, n] + 
   (3*S2[1, 1, 2, -1, 1, n])/2 + 8*S2[1, 1, 2, 1, -1, n] + 
   5*S2[1, 2, 1, 1, -1, n] + S2[-1, -1, -1, 1, -1, -1, n] + 
   2*S2[-1, -1, 1, -1, -1, -1, n] + 2*S2[-1, 1, -1, -1, -1, -1, n] - 
   3*S2[-1, 1, -1, -1, 1, 1, n] - S2[-1, 1, 1, -1, -1, 1, n] - 
   2*S2[-1, 1, 1, 1, -1, -1, n] + S2[-1, 1, 1, 1, 1, 1, Infinity]/2 - 
   4*S2[1, -1, -1, 1, 1, -1, n] - S2[1, -1, 1, 1, -1, -1, n] - 
   2*S2[1, 1, -1, -1, 1, -1, n] - S2[1, 1, -1, 1, -1, -1, n] - 
   6*S2[1, 1, 1, -1, -1, -1, n], S2[-1, -2, 2, 1, n] -> 
  (-19*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (599*Diff[Half[S2[1, n], n], n, 2]^2)/384 + 
   (493*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (761*Diff[Half[S2[1, n], n], n, 5])/1152 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (59*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (19*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   (3*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (1681*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (923*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (321*Diff[S2[1, n], n, 1]^3)/64 - (547*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (1513*Diff[S2[1, n], n, 2]^2)/192 - 
   (5899*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (12169*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (5071*Diff[S2[1, n], n, 5])/5760 + 3*Diff[S2[-4, 1, n], n, 1] + 
   (53*Diff[S2[-3, 1, n], n, 2])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (83*Diff[S2[-2, 1, n], n, 3])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (613*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   (51*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (87*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (161*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (137*Diff[S2[-1, 1, n], n, 4])/64 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (5*Diff[S2[2, 1, n], n, 3])/16 + Diff[S2[4, 1, n], n, 1] - 
   4*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/2 - 
   (5*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/12 - (95*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (107*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, 1, n], n, 3] + (23*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   (3*Diff[S2[2, 1, -2, n], n, 1])/2 + (35*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (19*Diff[S2[2, 1, 1, n], n, 2])/8 - 3*Diff[S2[3, 1, 1, n], n, 1] - 
   (7*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 2])/8 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, -2, n], n, 1] + 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + Diff[S2[1, 1, -2, -1, n], n, 1] - 
   Diff[S2[1, 1, -1, 2, n], n, 1] - (7*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 + 
   (11*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (15*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (425*Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/576 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/32 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/32 - 
   (683*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    192 - (151*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/48 + (413*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/32 - (2179*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/
    1152 + (325*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (29*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (19*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (205*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 - 
   (11*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (55*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (19*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (13*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (103*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (25*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/8 - (257*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    192 + (31*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (31*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 + 
   (43*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (49*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (27*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 - 
   (67*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (17*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   (3*Half[S2[2, 1, n], n]^2)/128 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   Half[S2[4, 1, 1, n], n]/16 - (161*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    16 + (19*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/64 + (23*S2[-1, Infinity]^6)/2880 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    24 - (1487*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (607*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (167*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (2507*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (4435*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (337*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (1001*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (55*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (43*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (19*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (41*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (259*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (37*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (17*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (133*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (25*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 - (199*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (1979*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (85*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (37*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (21*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (67*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 + 
   (385*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (121*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (67*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (7*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (73*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (27*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (1525*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (41*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/24 - 
   (121*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (317*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (3811*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (21*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (517*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (73*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (47*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - 
   (53*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (371*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/6 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (147*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (25*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (137*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (95*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   (107*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (9*Half[S2[1, n], n]^3*S2[1, n]^3)/8 + 
   (53*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (71*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (35*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (3*S2[1, n]^6)/32 + (117*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (25*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    36 - (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (177*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (313*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (55*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (19*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (231*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 - 
   (121*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/6 - 
   (137*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (25*Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (131*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (55*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (7*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (193*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (265*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (125*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (61*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (551*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (581*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (79*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (91*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (49*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 + (785*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (553*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (61*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (247*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (25*S2[1, n]^4*S2[2, Infinity])/24 + 
   (1577*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (83*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/60 - 
   (223*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (125*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 - 
   (1447*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (2329*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (2213*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (677*S2[1, n]^2*S2[2, Infinity]^2)/240 - (4887*S2[2, Infinity]^3)/1120 + 
   (329*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 - 
   (2981*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (273*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (217*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/48 - 
   (2935*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 + 
   (209*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (117*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (703*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (6769*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 - 
   (647*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 + 
   (717*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (657*S2[1, n]^3*S2[3, Infinity])/256 - 
   (1699*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (3375*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (55*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/6 + 
   (7055*S2[3, Infinity]^2)/6144 - (71*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (1273*S2[1, n]*S2[5, Infinity])/128 + S2[-5, -1, Infinity]/4 + 
   2*S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] + 
   (109*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (37*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (19*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (101*S2[1, n]^2*S2[-3, 1, n])/96 - (157*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 - 
   (61*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] + (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/12 - (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/48 - (17*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (139*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (43*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (113*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (101*S2[1, n]^3*S2[-2, 1, n])/48 - (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (19*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/12 + 
   (149*S2[3, Infinity]*S2[-2, 1, n])/64 - (3*S2[-2, 1, n]^2)/8 + 
   (67*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (19*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (653*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (67*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (59*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (85*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (25*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (151*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (233*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (35*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (S2[1, n]^4*S2[-1, 1, n])/6 + (193*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (53*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (145*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (61*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (83*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (535*S2[2, Infinity]^2*S2[-1, 1, n])/192 + 
   (233*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (185*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (35*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (23*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (11*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (13*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (29*S2[2, Infinity]*S2[-1, 1, n]^2)/
    12 - (187*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 + 
   (271*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/16 + (81*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/32 - (19*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (209*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (49*S2[1, n]^3*S2[2, 1, n])/96 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (33*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (21*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (125*S2[3, Infinity]*S2[2, 1, n])/64 - (3*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (15*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (7*S2[2, 1, n]^2)/8 + 
   S2[1, n]*S2[4, 1, n] - 2*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] - 
   2*Half[S2[1, n], n]*S2[-3, 1, 1, n] + 4*S2[1, n]*S2[-3, 1, 1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (15*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (5*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + (3*S2[-2, 2, -2, n])/2 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (11*S2[1, n]^2*S2[-1, -2, -1, n])/96 - 
   (31*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 + 
   (17*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/96 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (47*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    96 + (83*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (11*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (11*S2[-1, 1, -1, n]^2)/32 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + 3*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - 6*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   S2[1, n]^3*S2[-1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    4 + 2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (71*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*S2[-1, 1, 1, n]^2)/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (7*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 - (15*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 - S2[-1, 1, n]*S2[1, 2, -1, n] - Half[S2[1, n], n]*S2[2, 1, -2, n] + 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (79*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 - (77*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (95*S2[1, n]^2*S2[2, 1, -1, n])/48 - (49*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] + 
   4*S2[2, Infinity]*S2[2, 1, 1, n] + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 + S2[1, n]*S2[3, 1, 1, n] - 4*S2[4, 1, 1, n] - 
   3*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n] + 
   (5*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - S2[-2, 2, 1, 1, n]/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (2*S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (5*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (11*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + Diff[S2[1, n], n, 1]*
    S2[-1, 1, -1, 1, n] + (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 - (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (7*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (161*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (19*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (95*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (19*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (67*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   S2[1, n]*S2[1, 1, -1, 2, n] + (S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   S2[2, -2, 1, 1, n]/2 + 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   S2[2, 2, 1, 1, n]/2 - (3*S2[-2, 1, 1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    2 - Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n] + 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (15*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (73*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 2*S2[1, -1, -1, 1, 2, n] - 
   (13*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (7*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + 2*S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 1, 2, n]/2 + S2[1, -1, 1, 2, -1, n] - 
   (17*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (11*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 2*S2[1, 1, -1, 1, -2, n] + 
   2*S2[1, 1, 1, -2, -1, n] + 5*S2[1, 1, 1, -1, -2, n] - 
   3*S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, -1, 1, n]/2 - 
   2*S2[1, 1, 2, 1, -1, n] - S2[1, 2, -1, 1, -1, n] - S2[1, 2, 1, 1, -1, n] - 
   3*S2[2, 1, 1, 1, 1, n] + S2[-1, -1, -1, 1, -1, -1, n]/8 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/8 + S2[-1, -1, 1, 1, -1, -1, n] + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - (9*S2[-1, 1, -1, -1, -1, 1, n])/8 + 
   S2[-1, 1, -1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   2*S2[-1, 1, 1, -1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   (23*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + (5*S2[1, -1, -1, -1, -1, -1, n])/
    4 + (5*S2[1, -1, -1, -1, 1, -1, n])/8 + (7*S2[1, -1, -1, 1, -1, -1, n])/
    4 + (9*S2[1, -1, 1, -1, -1, -1, n])/4 + (11*S2[1, 1, -1, -1, -1, -1, n])/
    2 + (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -2, -1, -2, n] -> (5*Diff[Half[S2[1, n], n], n, 1]^3)/96 - 
   (227*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (367*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (905*Diff[Half[S2[1, n], n], n, 5])/576 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (71*Diff[Half[S2[2, 1, n], n], n, 3])/96 + 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/2 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/8 + 
   (3*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 - 
   (203*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (3439*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (2683*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (2431*Diff[S2[1, n], n, 1]^3)/96 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/4 + 
   (89*Diff[S2[1, n], n, 2]^2)/8 - (4535*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/576 + (11843*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/576 - (3541*Diff[S2[1, n], n, 5])/2880 - 
   (17*Diff[S2[-4, 1, n], n, 1])/2 - (27*Diff[S2[-3, 1, n], n, 2])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (275*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (27*Diff[S2[-2, 1, n], n, 3])/8 + (127*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 - 
   (511*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (113*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (983*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (121*Diff[S2[-1, 1, n], n, 4])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[2, 1, n], n, 3])/3 - 8*Diff[S2[4, 1, n], n, 1] - 
   (37*Diff[S2[-3, 1, 1, n], n, 1])/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/2 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/2 + (3*Diff[S2[-1, -2, -1, n], n, 2])/
    16 + (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/48 + 
   (93*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (165*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (17*Diff[S2[-1, 1, 1, n], n, 3])/8 + (9*Diff[S2[1, 2, -1, n], n, 2])/2 + 
   (3*Diff[S2[2, 1, -2, n], n, 1])/2 + (39*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/2 + 7*Diff[S2[3, 1, 1, n], n, 1] - 
   (29*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/4 - 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - 
   2*Diff[S2[1, -1, 1, -2, n], n, 1] + 4*Diff[S2[1, -1, 1, 2, n], n, 1] - 
   6*Diff[S2[1, 1, -2, -1, n], n, 1] + (11*Diff[S2[1, 1, -1, 2, n], n, 1])/
    2 - 2*Diff[S2[1, 2, -1, -1, n], n, 1] + 
   10*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/4 - 
   (5*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 + 
   (7*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1] + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 - 
   12*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (17*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   (7*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   (21*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (21*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - Diff[S2[1, 1, -1, 1, -1, n], 
    n, 1] - 2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (527*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 - (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (107*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (117*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (259*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (131*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (169*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/6 + (67*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (113*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (17*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (43*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (23*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (139*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (7*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/4 - 
   (2*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/3 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (123*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 + (173*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    48 - (16*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 - 
   (29*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/12 - 
   (23*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (107*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/6 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (157*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/12 - 
   (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    24 + (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    24 + (11*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/24 + 
   (5*Half[S2[2, 1, n], n]^2)/16 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (33*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/2 - 
   Half[S2[4, 1, 1, n], n]/2 + (173*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/192 + (107*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 + (13*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 - 
   (23*S2[-1, Infinity]^6)/720 - (235*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/48 - 
   (445*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (17*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (201*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (551*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (2023*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (2279*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (313*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (347*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (163*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 - 
   (73*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (43*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (17*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (47*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (17*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (217*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 - (37*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    6 - (31*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/18 + 
   (103*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (53*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   10*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (485*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (121*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 - 
   (139*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Half[S2[1, n], n]^5*S2[1, n])/6 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 - 
   (25*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 + Half[S2[1, n], n]*
    Half[S2[2, 1, 1, n], n]*S2[1, n] - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (19*S2[-1, Infinity]^5*S2[1, n])/80 + 
   (83*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (97*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 - 
   (47*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/24 - 
   (701*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (83*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/3 - 
   (515*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 + 6*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (203*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 + 
   (81*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (83*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   11*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (191*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (121*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (115*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (3*Half[S2[1, n], n]^4*S2[1, n]^2)/4 + 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/2 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    4 - (307*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (113*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 - 
   (401*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (83*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (4*Half[S2[1, n], n]^3*S2[1, n]^3)/3 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    8 + (155*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (113*Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^4)/12 + S2[1, n]^6/6 - 
   (109*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 + 
   (1351*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 + 
   (31*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/4 + 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (195*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (955*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (38*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 + 
   (199*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (25*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (83*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (335*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (281*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    24 + (195*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 - 
   (31*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/24 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/2 + 
   (289*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (23*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (431*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (61*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (103*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (289*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (295*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (593*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (491*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/12 + (13*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    24 - (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (121*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (49*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity] - 
   (581*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (209*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   4*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity] - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (21*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (15*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (75*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (S2[1, n]^4*S2[2, Infinity])/3 - (2757*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/320 - (2069*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    192 - (253*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/60 + 
   (363*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (1291*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (2213*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 - 
   (827*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (83*S2[1, n]^2*S2[2, Infinity]^2)/120 + (26303*S2[2, Infinity]^3)/1120 + 
   (2615*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (139*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 + 
   (525*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (1165*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    96 + (245*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/48 - 
   (61*Half[S2[1, n], n]^3*S2[3, Infinity])/96 + 
   (19*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (493*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/12 + 
   (221*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 - 
   (319*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (371*S2[1, n]^3*S2[3, Infinity])/96 - 
   (43*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 + 
   (1017*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (757*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   (9073*S2[3, Infinity]^2)/768 + (1091*Half[S2[1, n], n]*S2[5, Infinity])/
    64 + (3429*S2[1, n]*S2[5, Infinity])/64 - (13*S2[-5, -1, Infinity])/4 + 
   16*S2[-5, 1, n] + 6*Half[S2[1, n], n]*S2[-4, 1, n] - 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 - 
   (275*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (13*Half[S2[1, n], n]^2*S2[-3, 1, n])/4 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   (41*S2[1, n]^2*S2[-3, 1, n])/6 + (391*S2[2, Infinity]*S2[-3, 1, n])/24 + 
   (121*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (107*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 + 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 - 
   (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (11*Half[S2[1, n], n]^3*S2[-2, 1, n])/6 - 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (79*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (37*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 - 
   (47*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 - 
   (S2[1, n]^3*S2[-2, 1, n])/2 + (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/6 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (32*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 + 
   (13*S2[3, Infinity]*S2[-2, 1, n])/8 + 5*S2[-2, 1, n]^2 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/72 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (295*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (547*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 + 
   (49*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/2 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (109*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/6 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/6 + 
   (25*S2[-1, Infinity]^4*S2[-1, 1, n])/48 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (47*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (103*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/6 + 
   (181*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (491*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 + 
   S2[1, n]^4*S2[-1, 1, n] - (77*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (47*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (77*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   7*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] - 
   (13*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (2137*S2[2, Infinity]^2*S2[-1, 1, n])/240 - 
   (9*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/2 - 
   (9*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/4 + 
   (49*S2[-3, 1, n]*S2[-1, 1, n])/12 - 
   (2*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (2*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (149*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/6 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/12 - (23*S2[2, Infinity]*S2[-1, 1, n]^2)/6 + 
   (137*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 - 
   (215*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (13*Half[S2[1, n], n]^3*S2[2, 1, n])/12 - 3*Half[S2[2, 1, n], n]*
    S2[2, 1, n] + (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (99*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (8*S2[1, n]^3*S2[2, 1, n])/3 + (65*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (17*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (27*S2[3, Infinity]*S2[2, 1, n])/2 + 12*S2[-2, 1, n]*S2[2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (13*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + (15*S2[2, 1, n]^2)/2 - 
   10*S2[1, n]*S2[4, 1, n] - 16*S2[-4, 1, 1, n] + 
   6*Half[S2[1, n], n]*S2[-3, 1, 1, n] + 2*S2[1, n]*S2[-3, 1, 1, n] + 
   S2[1, n]*S2[-2, 1, -2, n] + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + (33*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   2*Half[S2[1, n], n]^2*S2[-2, 1, -1, n] - 4*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + 2*S2[1, n]^2*S2[-2, 1, -1, n] - 
   10*S2[2, Infinity]*S2[-2, 1, -1, n] - 3*S2[-2, 2, -2, n] - 
   (91*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (41*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/6 + (61*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 + (7*S2[-1, 1, n]*S2[-1, -2, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (55*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/6 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (95*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/3 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/6 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/6 + 
   (11*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/6 - 
   (243*S2[3, Infinity]*S2[-1, 1, -1, n])/32 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/2 + (5*S2[-1, 1, -1, n]^2)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   6*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   3*S2[1, n]^3*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - 8*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (21*S2[3, Infinity]*S2[-1, 1, 1, n])/8 - 8*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   3*S2[-1, 1, 1, n]^2 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    4 - (67*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   2*Half[S2[1, n], n]^2*S2[1, 2, -1, n] + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + 4*S2[1, n]^2*S2[1, 2, -1, n] + 
   6*S2[2, Infinity]*S2[1, 2, -1, n] + 2*S2[-1, 1, n]*S2[1, 2, -1, n] + 
   2*Half[S2[1, n], n]*S2[2, 1, -2, n] - 6*S2[1, n]*S2[2, 1, -2, n] - 
   (91*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (245*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/2 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (17*S2[1, n]^2*S2[2, 1, -1, n])/3 + (25*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 + (19*S2[-1, 1, n]*S2[2, 1, -1, n])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 2*Half[S2[1, n], n]^2*
    S2[2, 1, 1, n] - 8*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] + 
   9*S2[1, n]^2*S2[2, 1, 1, n] - 13*S2[2, Infinity]*S2[2, 1, 1, n] + 
   4*S2[-1, 1, n]*S2[2, 1, 1, n] - 4*S2[3, 1, -2, n] + 12*S2[4, 1, 1, n] - 
   24*S2[-3, 1, 1, 1, n] + 2*S2[-2, -2, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 10*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   4*S2[-2, 2, 1, 1, n] - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/6 + (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    24 + (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (7*S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 + 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 - 
   (10*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   6*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   6*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (37*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    2 + 6*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (173*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (107*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (13*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (39*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   6*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (111*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (25*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   2*S2[1, n]*S2[1, 1, -2, -1, n] + 2*Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - 
   2*S2[1, n]*S2[1, 1, -1, 2, n] + 4*S2[1, n]*S2[1, 1, 2, -1, n] + 
   4*S2[2, -2, 1, 1, n] - 6*S2[1, n]*S2[2, 1, 1, 1, n] - 
   12*S2[-2, 1, 1, 1, 1, n] - Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n] + 
   S2[1, n]*S2[-1, -1, 1, -1, -1, n] - 3*Half[S2[1, n], n]*
    S2[-1, 1, -1, -1, -1, n] - (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n] - 
   S2[1, n]*S2[-1, 1, -1, -1, 1, n] - 3*S2[1, n]*S2[-1, 1, -1, 1, 1, n] + 
   3*S2[1, n]*S2[-1, 1, 1, 1, -1, n] + 
   (13*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (57*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   6*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   6*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 4*S2[1, -1, -1, 1, 2, n] + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 - 6*S2[1, -1, 1, 1, -2, n] + 
   4*S2[1, -1, 1, 1, 2, n] - 4*S2[1, -1, 1, 2, -1, n] - 
   2*S2[1, 1, -2, -1, 1, n] - 4*S2[1, 1, -2, 1, -1, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] - 8*S2[1, 1, -1, 1, -2, n] - 
   4*S2[1, 1, -1, 2, -1, n] - 16*S2[1, 1, 1, -2, -1, n] - 
   16*S2[1, 1, 1, -1, -2, n] - 24*S2[1, 1, 1, 2, -1, n] - 
   8*S2[1, 1, 2, -1, -1, n] - 4*S2[1, 1, 2, -1, 1, n] - 
   16*S2[1, 1, 2, 1, -1, n] - 4*S2[1, 2, 1, -1, -1, n] - 
   8*S2[1, 2, 1, 1, -1, n] + 6*S2[2, 1, 1, 1, 1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n] + 3*S2[-1, -1, 1, -1, -1, -1, n] + 
   6*S2[-1, 1, -1, -1, -1, -1, n] + (9*S2[-1, 1, -1, -1, -1, 1, n])/2 + 
   S2[-1, 1, -1, 1, -1, -1, n] + 3*S2[-1, 1, -1, 1, 1, 1, n] + 
   2*S2[-1, 1, 1, -1, -1, -1, n] - 3*S2[-1, 1, 1, 1, -1, 1, n] + 
   23*S2[-1, 1, 1, 1, 1, 1, Infinity] + 10*S2[1, -1, -1, -1, -1, -1, n] - 
   (7*S2[1, -1, -1, -1, 1, -1, n])/2 - 6*S2[1, -1, -1, 1, -1, -1, n] - 
   3*S2[1, -1, 1, -1, -1, -1, n] - 8*S2[1, 1, -1, -1, -1, -1, n] - 
   3*S2[1, 1, 1, -1, 1, -1, n] - 12*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -2, -1, 2, n] -> (-11*Diff[Half[S2[1, n], n], n, 1]^3)/32 - 
   (43*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 - 
   (717*Diff[Half[S2[1, n], n], n, 5])/320 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 + 
   (205*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (1475*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (77*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (41*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/96 - 
   (2033*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (1861*Diff[S2[1, n], n, 1]^3)/96 + 
   (667*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 - 
   (979*Diff[S2[1, n], n, 2]^2)/48 + (2681*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/192 - (5531*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/192 + (717*Diff[S2[1, n], n, 5])/320 + 
   (9*Diff[S2[-4, 1, n], n, 1])/2 - (4*Diff[S2[-3, 1, n], n, 2])/3 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (353*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (59*Diff[S2[-2, 1, n], n, 3])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (817*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 - (103*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/96 + 
   (371*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (145*Diff[S2[-1, 1, n], n, 4])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   17*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-1, -2, -1, n], n, 2]/6 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (79*Diff[S2[-1, 1, 1, n], n, 3])/24 - (27*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (3*Diff[S2[2, 1, -2, n], n, 1])/2 - (79*Diff[S2[2, 1, -1, n], n, 2])/12 + 
   (23*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (17*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 + 
   (37*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - (5*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 - 2*Diff[S2[1, 1, -1, 2, n], n, 1] - 2*Diff[S2[1, 1, 2, -1, n], n, 1] + 
   (9*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - Diff[S2[-1, 1, 1, -1, -1, n], 
    n, 1] + (23*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (11*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (21*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/16 + (61*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (113*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (259*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (159*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 - 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (35*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (205*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (111*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 - 
   (13*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (15*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (67*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (19*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (23*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (27*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (11*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n] - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (73*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (21*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (77*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (43*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (9*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   (5*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/4 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (29*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (47*Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 + 
   (47*S2[-1, Infinity]^6)/1440 + (55*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 - 
   (61*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 - 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (2227*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (1351*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (1119*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (587*Diff[S2[1, n], n, 4]*S2[1, n])/64 - 
   (73*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (241*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (725*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (1087*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (13*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (15*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (67*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (23*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (65*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (11*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] - 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   2*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n] - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + 10*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   (115*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   12*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (491*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (23*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (129*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (27*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (37*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (31*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/2 + 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (7*S2[-1, Infinity]^5*S2[1, n])/24 - 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (53*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (25*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (117*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (383*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (1373*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 - 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (307*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (49*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   4*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2 + 5*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n]^2 - (153*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[1, n]^2)/32 + (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/
    2 + (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (3*Half[S2[1, n], n]^4*S2[1, n]^2)/8 - 
   (15*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/2 - 
   (121*S2[-1, Infinity]^4*S2[1, n]^2)/192 + 
   (301*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (239*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (31*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (57*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/32 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^4)/4 + (19*Half[S2[1, n], n]*S2[1, n]^5)/
    8 - (19*S2[1, n]^6)/24 - (17*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/48 + (43*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    48 - (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (323*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    48 + (235*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (229*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (27*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (89*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (181*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    16 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (21*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (119*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (297*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (27*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (69*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (67*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (125*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (161*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (197*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (31*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (21*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   (51*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (237*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (63*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (621*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (35*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (53*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (227*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (125*S2[1, n]^4*S2[2, Infinity])/48 + 
   (1213*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (49*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 + 
   (481*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (1223*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (611*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (2121*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (199*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (2801*S2[1, n]^2*S2[2, Infinity]^2)/320 + (575*S2[2, Infinity]^3)/192 - 
   (763*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (701*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (961*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 + 
   (261*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (1013*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (47*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (63*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (213*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (477*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (657*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (1945*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (2861*S2[1, n]^3*S2[3, Infinity])/384 + 
   (2861*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (1649*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (1805*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (2267*S2[3, Infinity]^2)/192 - (219*Half[S2[1, n], n]*S2[5, Infinity])/8 - 
   (1065*S2[1, n]*S2[5, Infinity])/128 + 4*S2[-5, -1, Infinity] - 
   7*S2[-5, 1, n] - 5*Half[S2[1, n], n]*S2[-4, 1, n] - 
   9*S2[1, n]*S2[-4, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 - (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + 
   (33*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (63*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (105*S2[1, n]^2*S2[-3, 1, n])/16 - (47*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (41*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (9*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-2, 1, n] - (81*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/
    8 - (47*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (95*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (79*S2[1, n]^3*S2[-2, 1, n])/24 - (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (43*S2[3, Infinity]*S2[-2, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 + 
   (29*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/3 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/6 + 
   (35*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (145*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (149*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (33*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n] + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 - 
   (25*S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (121*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n] - (19*S2[1, n]^4*S2[-1, 1, n])/
    8 + (21*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (147*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (45*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (35*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (151*S2[2, Infinity]^2*S2[-1, 1, n])/10 + 
   (15*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/8 - 
   (11*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/4 + 
   (15*S2[-3, 1, n]*S2[-1, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (15*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (65*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/4 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   3*S2[1, n]^2*S2[-1, 1, n]^2 - (7*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (17*S2[-1, 1, n]^3)/12 + (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (31*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (41*S2[1, n]^3*S2[2, 1, n])/16 - (85*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (81*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (131*S2[3, Infinity]*S2[2, 1, n])/16 + S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (7*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - Half[S2[1, n], n]*S2[4, 1, n] + 
   S2[1, n]*S2[4, 1, n] + 16*S2[-4, 1, 1, n] - 2*Half[S2[1, n], n]*
    S2[-3, 1, 1, n] - 11*S2[1, n]*S2[-3, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 + (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   Half[S2[1, n], n]^2*S2[-2, 1, -1, n] + 8*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - 7*S2[1, n]^2*S2[-2, 1, -1, n] - 
   2*S2[2, Infinity]*S2[-2, 1, -1, n] - 6*S2[-1, 1, n]*S2[-2, 1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (7*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (27*S2[1, n]^2*S2[-1, -2, -1, n])/16 + 
   (19*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, -1, n] - (Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, -1, n])/4 - (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/
    8 + (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/2 + (15*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   (97*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + S2[-2, 1, n]*S2[-1, 1, -1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   4*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (15*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (37*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 5*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   8*S2[2, 1, n]*S2[-1, 1, 1, n] - (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + Half[S2[1, n], n]^2*
    S2[1, 2, -1, n] - 9*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] + 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 + (33*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + 5*S2[-1, 1, n]*S2[1, 2, -1, n] - 2*Half[S2[1, n], n]*
    S2[2, 1, -2, n] + (3*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/8 + (57*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - Half[S2[1, n], n]^2*
    S2[2, 1, 1, n] + (17*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (15*S2[1, n]^2*S2[2, 1, 1, n])/2 - 3*S2[2, Infinity]*S2[2, 1, 1, n] - 
   (13*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + S2[3, 1, -2, n]/2 + 
   2*Half[S2[1, n], n]*S2[3, 1, 1, n] - 2*S2[1, n]*S2[3, 1, 1, n] + 
   13*S2[-3, 1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   (19*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + S2[-2, 1, 1, 2, n] - 
   S2[-2, 2, 1, 1, n]/2 + (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 2*S2[2, Infinity]*
    S2[-1, 1, -1, -1, n] + (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/
    2 - (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (23*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (29*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (93*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (121*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (75*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   25*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 2*Half[S2[1, n], n]*
    S2[1, 1, -1, 2, n] + 2*S2[1, n]*S2[1, 1, -1, 2, n] + 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - S2[2, -2, 1, 1, n]/2 + 
   (23*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - 2*Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] + 2*S2[1, n]*S2[-1, 1, -1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 6*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] - 6*S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 
   (47*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   35*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + S2[1, -2, -1, 1, -1, n] + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 2*S2[1, -1, -1, 1, -2, n] + 
   Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n] - 
   S2[1, n]*S2[1, -1, -1, 1, -1, n] - S2[1, -1, 1, -2, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 - (5*S2[1, -1, 1, 1, 2, n])/2 - 
   2*S2[1, 1, -1, -2, -1, n] - 2*S2[1, 1, -1, -1, -2, n] + 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 5*Half[S2[1, n], n]*
    S2[1, 1, -1, 1, -1, n] + 5*S2[1, n]*S2[1, 1, -1, 1, -1, n] - 
   9*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   9*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 4*S2[1, 1, 1, -1, 2, n] + 
   3*S2[1, 1, 1, 2, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 + 
   4*S2[1, 1, 2, 1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/4 - (9*S2[-1, -1, 1, -1, -1, -1, n])/4 - 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/2 + 4*S2[-1, 1, -1, -1, 1, 1, n] + 
   S2[-1, 1, 1, -1, -1, 1, n] - (47*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   (15*S2[1, -1, -1, -1, -1, -1, n])/2 + 5*S2[1, -1, -1, 1, 1, -1, n] - 
   S2[1, -1, 1, 1, -1, -1, n] + 3*S2[1, 1, -1, -1, 1, -1, n] + 
   3*S2[1, 1, 1, -1, -1, -1, n], S2[-1, -2, 1, -2, n] -> 
  (-11*Diff[Half[S2[1, n], n], n, 1]^3)/24 + 
   (25*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 - 
   (385*Diff[Half[S2[1, n], n], n, 5])/288 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 - Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (139*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (973*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (175*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (1721*Diff[S2[1, n], n, 1]^3)/96 + 
   (335*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 - 
   (34*Diff[S2[1, n], n, 2]^2)/3 + (67*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/8 - (3551*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/192 + (91*Diff[S2[1, n], n, 5])/72 + 
   Diff[S2[-3, 1, n], n, 2]/8 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 + 
   (105*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (17*Diff[S2[-2, 1, n], n, 3])/6 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (409*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/2 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (319*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (27*Diff[S2[-1, 1, n], n, 4])/8 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (23*Diff[S2[2, 1, n], n, 3])/24 + 4*Diff[S2[4, 1, n], n, 1] + 
   (21*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (69*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (29*Diff[S2[-1, 1, 1, n], n, 3])/24 - (17*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (17*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 - 3*Diff[S2[3, 1, 1, n], n, 1] + 
   (19*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/
    4 - Diff[S2[-1, 1, -1, 1, n], n, 2]/2 + 
   (31*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, -2, n], n, 1] - 
   (7*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 4*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   (7*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + Diff[S2[1, 2, -1, -1, n], n, 1] - 
   5*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   (17*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/2 + 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 + 
   6*Diff[S2[1, 1, -1, -1, -1, n], n, 1] + Diff[S2[1, 1, -1, 1, -1, n], n, 1]/
    2 + Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 + (13*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/24 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/2 + (17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (167*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (77*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/48 + 
   (33*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (9*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (13*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    16 - (9*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   2*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   2*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   2*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 + (35*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    32 - (151*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (23*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/2 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/2 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/4 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/2 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/8 - Half[S2[2, 1, n], n]^2/32 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/8 + Half[S2[2, 2, 1, 1, n], n]/8 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (35*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + S2[-1, Infinity]^6/90 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    4 + (127*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/2 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 - 
   (225*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (839*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (539*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (41*Diff[S2[1, n], n, 4]*S2[1, n])/8 - 
   (77*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 + 
   (19*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (307*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 + 
   (29*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 2*Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] - (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 + 
   2*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n] - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 + 4*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + (17*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] - Diff[S2[-1, 1, -1, -1, n], n, 1]*
    S2[1, n] + (9*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (23*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (207*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (461*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (23*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (15*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (21*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (21*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Half[S2[1, n], n]^5*S2[1, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (11*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (73*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (137*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (263*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (139*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (743*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 + 
   (1805*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 - 
   (35*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (125*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - 
   (45*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (13*Half[S2[1, n], n]^4*S2[1, n]^2)/16 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/4 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (47*S2[-1, Infinity]^4*S2[1, n]^2)/192 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (59*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 + 
   (119*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   2*Half[S2[1, n], n]^3*S2[1, n]^3 + (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/12 + 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]^4)/6 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^4)/4 - (9*Half[S2[1, n], n]*S2[1, n]^5)/
    8 + (3*S2[1, n]^6)/16 + (99*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (19*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    6 - (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (149*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (203*Diff[S2[1, n], n, 3]*S2[2, Infinity])/64 - 
   (43*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (265*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (9*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (55*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (95*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    16 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (21*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (87*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (49*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (63*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (91*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (347*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (67*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (63*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (13*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    3 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (41*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (83*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity] + 
   (S2[1, n]^4*S2[2, Infinity])/6 + (627*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/160 + (231*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    64 + (17*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/64 - 
   (489*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (69*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (259*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (163*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (557*S2[1, n]^2*S2[2, Infinity]^2)/320 - (105467*S2[2, Infinity]^3)/6720 - 
   (481*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (353*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (143*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/24 + 
   (1219*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 - (871*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/64 - 
   (41*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (151*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/48 - 
   (125*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (377*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (169*S2[1, n]^3*S2[3, Infinity])/96 + 
   (383*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (787*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (52*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/3 - 
   (2099*S2[3, Infinity]^2)/1536 + (Half[S2[1, n], n]*S2[5, Infinity])/128 - 
   (3811*S2[1, n]*S2[5, Infinity])/64 - (31*S2[-5, -1, Infinity])/4 - 
   22*S2[-5, 1, n] - 10*S2[1, n]*S2[-4, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (9*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   2*S2[1, n]^2*S2[-3, 1, n] - (107*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (101*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/2 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    4 - (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (2*S2[1, n]^3*S2[-2, 1, n])/3 - 3*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-2, 1, n] + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (13*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (31*S2[3, Infinity]*S2[-2, 1, n])/24 - S2[-2, 1, n]^2/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/4 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (63*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (23*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 - 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (49*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (45*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (51*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] + 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (1299*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (81*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (107*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 + 2*Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] - 4*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/16 + (31*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 - S2[-1, 1, n]^3/2 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 + 4*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/4 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    8 + (3*Half[S2[1, n], n]^3*S2[2, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (S2[1, n]^3*S2[2, 1, n])/4 - (79*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (33*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (91*S2[3, Infinity]*S2[2, 1, n])/8 - 2*S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (29*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/2 + 
   S2[1, n]*S2[4, 1, n] + S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - 
   4*S2[1, n]*S2[-3, 1, 1, n] + Half[S2[1, n], n]*S2[-2, 1, -2, n] - 
   (3*S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (15*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/4 + (21*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - S2[-1, 1, n]*S2[-2, 1, -1, n] + (5*S2[-2, 2, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 + 
   Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n] + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (25*S2[2, Infinity]*S2[-1, -2, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/2 + 
   (19*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, -1, n] - (23*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, -1, n])/8 - (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/
    4 + (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (27*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    8 + (285*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (5*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/2 + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + (13*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/4 - (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/
    4 + (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (27*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (81*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 2*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 7*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] + (3*S2[-1, 1, 1, n]^2)/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] + 
   9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (11*S2[1, n]^2*S2[1, 2, -1, n])/2 - 2*S2[2, Infinity]*S2[1, 2, -1, n] - 
   S2[-1, 1, n]*S2[1, 2, -1, n] + (7*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/4 + 
   (25*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (21*S2[1, n]^2*S2[2, 1, -1, n])/4 + (S2[2, Infinity]*S2[2, 1, -1, n])/8 - 
   (5*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] - (9*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (19*S2[1, n]^2*S2[2, 1, 1, n])/4 + 
   (31*S2[2, Infinity]*S2[2, 1, 1, n])/4 - (7*S2[-1, 1, n]*S2[2, 1, 1, n])/
    2 + (9*S2[3, 1, -2, n])/2 - 5*S2[4, 1, 1, n] + 11*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n] - (17*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[-2, 1, 1, 2, n] + (7*S2[-2, 2, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] + 
   2*S2[1, n]^2*S2[-1, 1, -1, -1, n] - 
   (9*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (11*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   S2[-1, 1, n]*S2[-1, 1, -1, 1, n] - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (47*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (35*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (47*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (25*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (57*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   3*S2[1, n]*S2[1, 1, -2, -1, n] - (9*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   3*S2[1, n]*S2[2, 1, 1, 1, n] + (17*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] - 2*S2[1, n]*S2[-1, 1, -1, -1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n] + 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] - (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (39*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (73*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + S2[1, -2, -1, 1, -1, n] + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 2*S2[1, -1, -1, 1, -2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 2*S2[1, -1, -1, 1, 2, n] - 
   S2[1, -1, 1, -2, -1, n] - (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 + (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 3*S2[1, -1, 1, 1, -2, n] - 
   (9*S2[1, -1, 1, 1, 2, n])/2 + 2*S2[1, -1, 1, 2, -1, n] + 
   3*S2[1, 1, -2, -1, 1, n] + 4*S2[1, 1, -2, 1, -1, n] + 
   S2[1, 1, -1, -2, -1, n] + S2[1, 1, -1, -1, -2, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 4*S2[1, 1, -1, 1, -2, n] - 
   Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] + 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] - 2*S2[1, 1, -1, 1, 2, n] + 
   2*S2[1, 1, -1, 2, -1, n] + 14*S2[1, 1, 1, -2, -1, n] + 
   8*S2[1, 1, 1, -1, -2, n] - 3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 4*S2[1, 1, 1, -1, 2, n] + 
   18*S2[1, 1, 1, 2, -1, n] + 4*S2[1, 1, 2, -1, -1, n] + 
   (9*S2[1, 1, 2, -1, 1, n])/2 + 12*S2[1, 1, 2, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 5*S2[1, 2, 1, 1, -1, n] - 
   3*S2[2, 1, 1, 1, 1, n] - (3*S2[-1, -1, -1, 1, -1, -1, n])/4 - 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/4 + S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/2 - (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   2*S2[-1, 1, -1, -1, 1, 1, n] - (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   S2[-1, 1, 1, -1, -1, -1, n]/2 + 2*S2[-1, 1, 1, -1, -1, 1, n] + 
   3*S2[-1, 1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   8*S2[-1, 1, 1, 1, 1, 1, Infinity] - (15*S2[1, -1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   2*S2[1, -1, -1, 1, 1, -1, n] + S2[1, -1, 1, -1, -1, -1, n] + 
   3*S2[1, -1, 1, 1, -1, -1, n] + 3*S2[1, 1, -1, -1, -1, -1, n] + 
   2*S2[1, 1, -1, -1, 1, -1, n] + 3*S2[1, 1, -1, 1, -1, -1, n] + 
   9*S2[1, 1, 1, -1, -1, -1, n] + (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -2, 1, 2, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/64 - (69*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 + (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    288 + (235*Diff[Half[S2[1, n], n], n, 5])/384 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 - 
   (331*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (185*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/36 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (2123*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (1835*Diff[S2[1, n], n, 1]^3)/192 - 
   (273*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 + 
   (871*Diff[S2[1, n], n, 2]^2)/192 - 
   (4387*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (9829*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (3191*Diff[S2[1, n], n, 5])/5760 + Diff[S2[-4, 1, n], n, 1]/2 + 
   (29*Diff[S2[-3, 1, n], n, 2])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (181*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (83*Diff[S2[-2, 1, n], n, 3])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (123*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (59*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (161*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (95*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (113*Diff[S2[-1, 1, n], n, 4])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (5*Diff[S2[2, 1, n], n, 3])/48 + Diff[S2[4, 1, n], n, 1] - 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-2, 1, -2, n], n, 1]/2 + 
   (5*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/48 + (113*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (141*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/8 + (17*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   (35*Diff[S2[2, 1, -1, n], n, 2])/16 + (19*Diff[S2[2, 1, 1, n], n, 2])/8 + 
   2*Diff[S2[3, 1, 1, n], n, 1] - 6*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 2])/8 - 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1] + 
   (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 2*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + (7*Diff[S2[2, 1, 1, 1, n], n, 1])/
    2 - (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - Diff[S2[1, -1, -1, -1, -1, n], 
    n, 1] - (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (55*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (107*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (229*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (979*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (71*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    3 - (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 + (85*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (37*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (29*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 - (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (65*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (23*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (25*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (35*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (73*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   Half[S2[2, 1, n], n]^2/128 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (3*Half[S2[4, 1, 1, n], n])/16 + (131*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - 
   (43*S2[-1, Infinity]^6)/2880 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 - 
   (917*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (433*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (229*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (2239*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (3079*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (359*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (41*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 + 
   (139*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (829*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (57*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (25*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (21*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (115*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (35*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/18 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (323*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (197*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (35*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (49*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (25*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (35*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (209*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (53*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (91*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (125*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (71*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 + 
   (21*S2[-1, Infinity]^5*S2[1, n])/320 + 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (919*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 - 
   (925*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (301*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (2959*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (1051*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (31*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (37*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (21*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (139*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (117*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (49*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (133*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + 
   (55*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (373*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   (127*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (151*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (17*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (65*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (95*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 - 
   (27*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (41*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (13*S2[1, n]^6)/96 - (103*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (247*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/288 + (5*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 - (Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/8 + (339*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/64 - 
   (65*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (149*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 + 
   (103*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (17*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (63*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (493*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 + (157*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/3 + 
   (111*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (7*Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (93*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (69*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (51*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (27*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (177*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (161*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (77*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (179*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (421*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (577*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (41*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 - (43*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (445*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (95*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/8 - (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/8 - (427*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (491*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (37*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (59*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (101*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/64 + (197*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    96 - (271*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (9*S2[1, n]^4*S2[2, Infinity])/16 - 
   (527*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/128 + 
   (205*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 - 
   (433*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (609*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (227*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (3563*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (353*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1139*S2[1, n]^2*S2[2, Infinity]^2)/480 + (359*S2[2, Infinity]^3)/80 + 
   (631*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (115*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (73*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 - 
   (247*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/48 + 
   (1195*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (41*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/12 - 
   (925*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (635*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (649*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (343*S2[1, n]^3*S2[3, Infinity])/768 - 
   (437*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (2709*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (1607*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (14245*S2[3, Infinity]^2)/6144 + (243*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (2183*S2[1, n]*S2[5, Infinity])/64 + (9*S2[-5, -1, Infinity])/4 + 
   6*S2[-5, 1, n] + 6*S2[1, n]*S2[-4, 1, n] + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 - 
   (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (9*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   (59*S2[1, n]^2*S2[-3, 1, n])/96 + (137*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (41*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (313*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (85*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (31*S2[1, n]^3*S2[-2, 1, n])/48 + (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (11*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/12 + 
   (55*S2[3, Infinity]*S2[-2, 1, n])/64 - S2[-2, 1, n]^2/8 - 
   (71*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (145*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (317*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (71*S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (95*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (101*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (31*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (161*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (331*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (25*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (15*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (209*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (33*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (25*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (49*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (149*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (53*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (55*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (6391*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (253*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (55*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 - 
   (19*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (19*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (31*S2[2, Infinity]*S2[-1, 1, n]^2)/
    12 - (25*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (15*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (3*Half[S2[1, n], n]^3*S2[2, 1, n])/32 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (45*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (3*S2[1, n]^3*S2[2, 1, n])/32 + (37*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (75*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (337*S2[3, Infinity]*S2[2, 1, n])/64 - (S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (3*S2[2, 1, n]^2)/8 - 
   S2[1, n]*S2[4, 1, n] - 6*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 
   3*S2[1, n]*S2[-3, 1, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (9*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - S2[-2, 2, -2, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/6 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/96 + 
   (11*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (13*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/96 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (43*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    96 - (69*S2[3, Infinity]*S2[-1, 1, -1, n])/32 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (7*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (7*S2[-1, 1, -1, n]^2)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 - 3*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   S2[1, n]^3*S2[-1, 1, 1, n] + 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    4 - 5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (7*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (3*S2[-1, 1, 1, n]^2)/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (39*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (15*S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   (S2[2, Infinity]*S2[1, 2, -1, n])/4 + S2[-1, 1, n]*S2[1, 2, -1, n] + 
   Half[S2[1, n], n]*S2[2, 1, -2, n] - (5*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (49*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (113*S2[1, n]^2*S2[2, 1, -1, n])/48 - (19*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/2 - 3*S2[2, Infinity]*S2[2, 1, 1, n] + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - (3*S2[3, 1, -2, n])/2 - 
   S2[1, n]*S2[3, 1, 1, n] + 2*S2[4, 1, 1, n] - 9*S2[-3, 1, 1, 1, n] + 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (7*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (7*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - Diff[S2[1, n], n, 1]*
    S2[-1, 1, -1, 1, n] - (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (31*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (131*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (55*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (13*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (71*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   2*S2[1, n]*S2[1, 1, -2, -1, n] + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (3*S2[2, -2, 1, 1, n])/2 - 3*S2[1, n]*S2[2, 1, 1, 1, n] + 
   S2[2, 2, 1, 1, n]/2 - (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] - S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (19*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (63*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 2*S2[1, -1, -1, 1, 2, n] + 
   (9*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (9*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - 2*S2[1, -1, 1, 1, -2, n] + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, -1, 1, 2, -1, n] - 
   2*S2[1, 1, -2, -1, 1, n] - 2*S2[1, 1, -2, 1, -1, n] + 
   (13*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (13*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 2*S2[1, 1, -1, 1, -2, n] - 
   8*S2[1, 1, 1, -2, -1, n] - 5*S2[1, 1, 1, -1, -2, n] - 
   9*S2[1, 1, 1, 2, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   6*S2[1, 1, 2, 1, -1, n] + S2[1, 2, -1, 1, -1, n] - 
   3*S2[1, 2, 1, 1, -1, n] + 3*S2[2, 1, 1, 1, 1, n] + 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - 
   S2[-1, -1, 1, 1, -1, -1, n] + (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 - S2[-1, 1, -1, 1, -1, -1, n]/2 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 2*S2[-1, 1, 1, -1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + (43*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 - S2[1, -1, -1, -1, 1, -1, n]/8 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - (5*S2[1, -1, 1, -1, -1, -1, n])/4 - 
   (7*S2[1, 1, -1, -1, -1, -1, n])/2 - (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-1, 2, -2, -1, n] -> 
  (-35*Diff[Half[S2[1, n], n], n, 1]^3)/96 - 
   (49*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 - 
   (5179*Diff[Half[S2[1, n], n], n, 5])/2880 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 + 
   (247*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (3679*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (71*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (35*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/96 - 
   (1819*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (1607*Diff[S2[1, n], n, 1]^3)/96 + 
   (537*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 - 
   (781*Diff[S2[1, n], n, 2]^2)/48 + (2179*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/192 - (13523*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/576 + (5179*Diff[S2[1, n], n, 5])/2880 - 
   8*Diff[S2[-4, 1, n], n, 1] - (53*Diff[S2[-3, 1, n], n, 2])/12 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (115*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (14*Diff[S2[-2, 1, n], n, 3])/3 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/12 + 
   (209*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (133*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 + 
   (311*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (29*Diff[S2[-1, 1, n], n, 4])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (27*Diff[S2[-3, 1, 1, n], n, 1])/2 - Diff[S2[-1, -2, -1, n], n, 2]/6 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (19*Diff[S2[-1, 1, 1, n], n, 3])/8 - (11*Diff[S2[1, 2, -1, n], n, 2])/2 + 
   (3*Diff[S2[2, 1, -2, n], n, 1])/2 - (16*Diff[S2[2, 1, -1, n], n, 2])/3 + 
   (19*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (11*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 + 
   (29*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - (5*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 - (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 
   (7*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   (15*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (9*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (11*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 + (61*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 + (13*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (17*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (305*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (327*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (533*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (21*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (109*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (9*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (15*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (29*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (11*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (9*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n] + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (163*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/144 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/24 - (125*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/48 + (4*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    9 + (61*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (19*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/6 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (49*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 - (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/96 - 
   (13*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (11*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^5)/96 + 
   (5*S2[-1, Infinity]^6)/288 + (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 + 
   (397*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 - 
   (17*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (647*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (1087*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (2789*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (483*Diff[S2[1, n], n, 4]*S2[1, n])/64 - 
   (61*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (199*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (181*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (887*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (9*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (13*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (15*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (29*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/12 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (23*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (57*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (13*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (9*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] - 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (49*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (181*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (389*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (1301*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (47*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (161*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (185*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Half[S2[1, n], n]^5*S2[1, n])/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (61*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (37*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (11*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (83*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (43*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/9 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (157*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/12 - 
   (523*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 + 
   (899*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 - 
   (59*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/24 - 
   (439*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (25*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (373*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (49*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (23*Half[S2[1, n], n]^4*S2[1, n]^2)/24 - 
   (45*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - 
   (109*S2[-1, Infinity]^4*S2[1, n]^2)/192 + 
   (271*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (73*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (53*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/3 + 
   (37*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^4)/3 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^4)/12 + (Half[S2[1, n], n]*S2[1, n]^5)/
    6 - (5*S2[1, n]^6)/24 - (13*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/24 - (83*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    144 - Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity] + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    48 + (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/3 + 
   (26*Diff[S2[1, n], n, 3]*S2[2, Infinity])/9 - 
   (67*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (143*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 + 
   Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (85*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (127*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (101*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (127*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 + (143*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 + 
   (67*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (61*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (69*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (227*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (39*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (73*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (71*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (341*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/6 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 - (67*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/12 - (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 - (43*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (59*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (159*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (21*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    6 - (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (399*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (11*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 - 
   (133*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (13*S2[1, n]^4*S2[2, Infinity])/12 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/60 + 
   (559*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (261*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 + 
   (171*S2[-1, Infinity]^2*S2[2, Infinity]^2)/32 - 
   (617*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/96 - 
   (1569*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (7339*S2[1, n]^2*S2[2, Infinity]^2)/960 - (12727*S2[2, Infinity]^3)/1344 - 
   (271*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (205*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 - 
   (201*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (911*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (9*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (107*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (295*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (283*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (971*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (417*S2[1, n]^3*S2[3, Infinity])/128 + 
   (261*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (1953*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (683*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (1413*S2[3, Infinity]^2)/256 - (487*Half[S2[1, n], n]*S2[5, Infinity])/
    64 - (4027*S2[1, n]*S2[5, Infinity])/128 + S2[-5, -1, Infinity]/4 - 
   27*S2[-5, 1, n] - 6*Half[S2[1, n], n]*S2[-4, 1, n] - 
   4*S2[1, n]*S2[-4, 1, n] - (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/6 + 
   (59*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 - 
   (131*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (239*S2[1, n]^2*S2[-3, 1, n])/48 - (317*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (109*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (13*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (157*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (41*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (81*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (73*S2[1, n]^3*S2[-2, 1, n])/24 - (61*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    2 + (13*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (65*S2[3, Infinity]*S2[-2, 1, n])/16 + 2*S2[-2, 1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/3 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 + 
   (55*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (15*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 2*Diff[S2[-1, 1, -1, n], n, 1]*
    S2[-1, 1, n] + 2*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] - 
   (97*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/6 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   Half[S2[2, 1, 1, n], n]*S2[-1, 1, n] - (5*S2[-1, Infinity]^4*S2[-1, 1, n])/
    6 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (73*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/12 - 
   (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (13*S2[1, n]^4*S2[-1, 1, n])/12 + (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (271*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (45*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (71*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (166*S2[2, Infinity]^2*S2[-1, 1, n])/15 + 
   (17*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 3*S2[-3, 1, n]*S2[-1, 1, n] + 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (15*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (51*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (15*S2[1, n]^2*S2[-1, 1, n]^2)/8 - (3*S2[2, Infinity]*S2[-1, 1, n]^2)/4 - 
   S2[-1, 1, n]^3 + (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (53*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (53*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (7*S2[1, n]^3*S2[2, 1, n])/16 - (61*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (25*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (149*S2[3, Infinity]*S2[2, 1, n])/16 + 2*S2[-2, 1, n]*S2[2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 
   3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] - 5*Half[S2[1, n], n]*S2[4, 1, n] + 
   5*S2[1, n]*S2[4, 1, n] + 10*S2[-4, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] - 10*S2[1, n]*S2[-3, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (9*S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 5*S2[-1, 1, n]*S2[-2, 1, -1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/6 + 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (53*S2[1, n]^2*S2[-1, -2, -1, n])/48 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + S2[-1, 1, n]*S2[-1, -2, -1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + (4*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/3 + 3*S2[-1, Infinity]*S2[2, Infinity]*
    S2[-1, 1, -1, n] - (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/3 + 
   (77*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + S2[-2, 1, n]*S2[-1, 1, -1, n] + 
   Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n] - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, 1, n] - 3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, 1, n] - Half[S2[2, 1, n], n]*S2[-1, 1, 1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   8*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[1, n]^3*S2[-1, 1, 1, n] + 3*S2[-1, Infinity]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (17*S2[3, Infinity]*S2[-1, 1, 1, n])/4 + 4*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 7*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (5*S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   (19*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 4*S2[-1, 1, n]*S2[1, 2, -1, n] + 
   Half[S2[1, n], n]*S2[2, 1, -2, n] + (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (61*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (61*S2[1, n]^2*S2[2, 1, -1, n])/24 + (115*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + 2*S2[-1, 1, n]*S2[2, 1, -1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   5*S2[1, n]^2*S2[2, 1, 1, n] + (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (11*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (5*S2[3, 1, -2, n])/2 + 
   12*S2[-3, 1, 1, 1, n] + Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   (17*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + S2[-2, 1, 1, 2, n] + 
   (3*S2[-2, 2, 1, 1, n])/2 + (11*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    24 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (19*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (4*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + S2[-1, 1, n]*S2[-1, 1, -1, 1, n] - 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (45*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (109*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (41*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   20*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] - 
   (5*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (15*S2[-2, 1, 1, 1, 1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (7*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (17*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (17*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (13*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (65*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (83*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + S2[1, -2, -1, 1, -1, n] + 
   (13*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (13*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 2*S2[1, -1, -1, 1, -2, n] - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - S2[1, -1, 1, -2, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - (5*S2[1, -1, 1, 1, 2, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (7*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 8*Half[S2[1, n], n]*
    S2[1, 1, 1, -1, -1, n] + 8*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 
   2*S2[1, 1, 1, -1, 2, n] + 13*S2[1, 1, 1, 2, -1, n] + 
   (5*S2[1, 1, 2, -1, 1, n])/2 + 8*S2[1, 1, 2, 1, -1, n] + 
   3*S2[1, 2, 1, 1, -1, n] - (9*S2[-1, -1, -1, 1, -1, -1, n])/4 - 
   (23*S2[-1, -1, 1, -1, -1, -1, n])/4 - (19*S2[-1, 1, -1, -1, -1, -1, n])/
    2 + 3*S2[-1, 1, -1, -1, 1, 1, n] + S2[-1, 1, 1, -1, -1, 1, n] + 
   2*S2[-1, 1, 1, 1, -1, -1, n] - (25*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   (25*S2[1, -1, -1, -1, -1, -1, n])/2 + 4*S2[1, -1, -1, 1, 1, -1, n] + 
   S2[1, -1, 1, 1, -1, -1, n] + 2*S2[1, 1, -1, -1, 1, -1, n] + 
   S2[1, 1, -1, 1, -1, -1, n] + 6*S2[1, 1, 1, -1, -1, -1, n], 
 S2[-1, 2, -2, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (9*Diff[Half[S2[1, n], n], n, 2]^2)/32 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 5])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 3])/96 - Diff[Half[S2[4, 1, n], n], n, 1]/
    16 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/8 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (75*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (115*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (51*Diff[S2[1, n], n, 1]^3)/32 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - Diff[S2[1, n], n, 2]^2/8 + 
   (115*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (107*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   Diff[S2[1, n], n, 5]/320 - (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   (15*Diff[S2[-3, 1, n], n, 2])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] - 
   (7*Diff[S2[-2, 1, n], n, 3])/24 - (9*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, n], n, 1]^2/8 - (51*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (19*Diff[S2[-1, 1, n], n, 4])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (11*Diff[S2[2, 1, n], n, 3])/24 + Diff[S2[4, 1, n], n, 1] - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, n], n, 3]/8 + Diff[S2[1, 2, -1, n], n, 2]/2 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (3*Diff[S2[2, 1, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, 1, -2, -1, n], n, 1] - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (15*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (47*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (87*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (29*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 + 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n] - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 + (45*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 - (37*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (9*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 - (39*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (15*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/4 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 + (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (105*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (73*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (31*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (91*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (161*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (275*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (45*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (7*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/2 - 
   (41*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (121*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/16 - 
   (117*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (51*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 - 
   (29*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (55*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (39*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (89*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/2 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (3*S2[-1, Infinity]^4*S2[1, n]^2)/
    32 + (27*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/8 - (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    8 - (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^4)/8 + (7*Half[S2[1, n], n]*S2[1, n]^5)/
    8 - S2[1, n]^6/4 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 - 
   (27*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/32 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (91*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (87*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (49*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (45*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (109*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 - (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/8 + (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    8 + (45*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - 3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (17*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (73*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (189*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (21*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (33*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (9*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (17*S2[1, n]^4*S2[2, Infinity])/16 - 
   (247*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (763*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 - 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 + 
   (297*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (191*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (483*S2[1, n]^2*S2[2, Infinity]^2)/160 - (1289*S2[2, Infinity]^3)/448 + 
   (165*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (131*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 + 
   (69*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (119*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/16 - 
   (57*S2[1, n]^3*S2[3, Infinity])/32 - 
   (31*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (133*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (271*S2[3, Infinity]^2)/64 + (239*Half[S2[1, n], n]*S2[5, Infinity])/32 + 
   (1103*S2[1, n]*S2[5, Infinity])/128 - (9*S2[-5, -1, Infinity])/2 + 
   4*Half[S2[1, n], n]*S2[-4, 1, n] - 5*S2[1, n]*S2[-4, 1, n] - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 + 
   (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (11*S2[1, n]^2*S2[-3, 1, n])/8 + (S2[2, Infinity]*S2[-3, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (S2[1, n]^3*S2[-2, 1, n])/2 + S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] - 
   S2[-2, 1, n]^2/2 - (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (39*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    16 - (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (33*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 - 
   (3*S2[1, n]^4*S2[-1, 1, n])/8 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (13*S2[2, Infinity]^2*S2[-1, 1, n])/20 - 
   (17*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/8 - (9*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/16 + (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (11*S2[1, n]^3*S2[2, 1, n])/8 + 2*S2[1, n]*S2[2, Infinity]*S2[2, 1, n] + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 5*S2[1, n]*S2[4, 1, n] + 
   2*S2[-3, -2, 1, n] + 2*Half[S2[1, n], n]*S2[-3, 1, 1, n] - 
   S2[1, n]*S2[-3, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 - S2[-2, 2, -2, n]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 + (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/
    16 - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/
    8 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (S2[1, n]^2*S2[1, 2, -1, n])/2 - S2[2, Infinity]*S2[1, 2, -1, n] - 
   S2[-1, 1, n]*S2[1, 2, -1, n] + S2[1, n]*S2[2, 1, -2, n] - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 - S2[2, Infinity]*S2[2, 1, -1, n] - 
   S2[-1, 1, n]*S2[2, 1, -1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, 1, n])/4 + (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - 5*S2[1, n]*S2[3, 1, 1, n] - 
   S2[4, 1, 1, n] + S2[1, n]*S2[-2, 1, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, n]*S2[1, 1, -2, -1, n] + 
   S2[1, n]*S2[1, 1, -1, 2, n] + (3*S2[2, 2, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (7*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] - (S2[1, n]*S2[1, -1, -1, 1, -1, n])/
    2 - (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, -2, n] + 
   S2[1, 1, -2, -1, 1, n] + 2*S2[1, 1, -2, 1, -1, n] - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 2*S2[1, 1, -1, 1, -2, n] + 
   6*S2[1, 1, 1, -2, -1, n] + 3*S2[1, 1, 1, -1, -2, n], 
 S2[-1, 2, 2, -1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/12 + 
   (23*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 + 
   (175*Diff[Half[S2[1, n], n], n, 5])/144 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/16 - Diff[Half[S2[4, 1, n], n], n, 1]/8 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/8 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/6 - 
   (1343*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 + 
   (149*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/12 - 
   (149*Diff[S2[1, n], n, 1]^3)/12 - (175*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (32*Diff[S2[1, n], n, 2]^2)/3 - 
   (263*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/36 + 
   (2357*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 - 
   (443*Diff[S2[1, n], n, 5])/360 + Diff[S2[-4, 1, n], n, 1] + 
   (3*Diff[S2[-3, 1, n], n, 2])/2 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/6 - 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (37*Diff[S2[-2, 1, n], n, 3])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (55*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (251*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (85*Diff[S2[-1, 1, n], n, 4])/24 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] + Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] - 
   Diff[S2[2, 1, n], n, 3]/8 + Diff[S2[4, 1, n], n, 1] - 
   11*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, n], n, 3]/24 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/4 + (9*Diff[S2[1, 2, -1, n], n, 2])/2 - 
   Diff[S2[2, 1, -2, n], n, 1] + 4*Diff[S2[2, 1, -1, n], n, 2] + 
   Diff[S2[2, 1, 1, n], n, 2]/2 + 2*Diff[S2[3, 1, 1, n], n, 1] - 
   9*Diff[S2[-2, 1, 1, 1, n], n, 1] - 6*Diff[S2[-1, 1, 1, 1, n], n, 2] + 
   2*Diff[S2[1, -1, 1, 2, n], n, 1] + Diff[S2[1, 1, -1, 2, n], n, 1] - 
   6*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - Diff[S2[1, -1, -1, -1, -1, n], n, 
    1] - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 - (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/72 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 + (38*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (133*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/72 + 
   (17*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    3 + (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 - (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/6 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 - 
   (17*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/12 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/12 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/48 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 + 
   Half[S2[2, 1, n], n]^2/32 - Half[S2[4, 1, 1, n], n]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 - (7*S2[-1, Infinity]^6)/720 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    24 - (205*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/72 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 + 
   (165*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (283*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (69*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (343*Diff[S2[1, n], n, 4]*S2[1, n])/72 - 
   (17*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 - 
   (43*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (79*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - 5*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (29*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/6 + 
   7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/3 - (71*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    12 + (187*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 - 
   (S2[-1, Infinity]^5*S2[1, n])/80 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (319*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/6 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/3 + 
   (131*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/12 - 
   (1111*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 + 6*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (253*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/12 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/48 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/96 - 
   (61*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   Half[S2[1, n], n]^3*S2[1, n]^3 - (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/3 - 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/12 + (7*Half[S2[1, n], n]*S2[1, n]^5)/
    12 - S2[1, n]^6/8 + (23*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    144 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 - 2*Diff[S2[1, n], n, 1]^2*S2[2, Infinity] - 
   (227*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 - 
   Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] + 5*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] + (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/16 + (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/16 + (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*
     S2[2, Infinity])/12 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[1, n], n]^2*S2[2, Infinity])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (31*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/2 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (37*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (8*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    6 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    12 + (13*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    2 + (67*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    16 + (17*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    16 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 + 
   2*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 - 
   (53*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (S2[1, n]^4*S2[2, Infinity])/12 - (49*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/40 + (739*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    480 - (289*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/240 + 
   (81*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (167*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (61*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/48 + 
   (403*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (89*S2[1, n]^2*S2[2, Infinity]^2)/120 + (1231*S2[2, Infinity]^3)/3360 + 
   (265*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 - 
   (689*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (149*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/192 + 
   (15*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (431*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (347*S2[1, n]^3*S2[3, Infinity])/192 - 
   (123*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (1287*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/4 + 
   (2973*S2[3, Infinity]^2)/512 + (333*Half[S2[1, n], n]*S2[5, Infinity])/
    64 + (95*S2[1, n]*S2[5, Infinity])/8 - (7*S2[-5, -1, Infinity])/2 + 
   8*S2[-5, 1, n] + 3*Half[S2[1, n], n]*S2[-4, 1, n] - 
   3*S2[1, n]*S2[-4, 1, n] + (5*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    12 - (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/6 + 
   (65*S2[1, n]^2*S2[-3, 1, n])/24 + (8*S2[2, Infinity]*S2[-3, 1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/3 - 
   (43*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (109*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/12 - 
   (23*S2[1, n]^3*S2[-2, 1, n])/12 + (2*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/3 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/6 + 
   (3*S2[3, Infinity]*S2[-2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/36 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 + 
   (15*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (28*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/9 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - Diff[S2[2, 1, n], n, 1]*
    S2[-1, 1, n] + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/24 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (47*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/6 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 - 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (S2[1, n]^4*S2[-1, 1, n])/6 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (583*S2[2, Infinity]^2*S2[-1, 1, n])/240 + 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (61*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/6 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/6 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/12 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/24 + (S2[2, Infinity]*S2[-1, 1, n]^2)/6 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/3 + 
   (17*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (13*S2[1, n]^3*S2[2, 1, n])/24 + 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (71*S2[3, Infinity]*S2[2, 1, n])/16 + S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + S2[2, 1, n]^2/2 - 
   4*S2[1, n]*S2[4, 1, n] - 8*S2[-4, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] + 3*S2[1, n]*S2[-3, 1, 1, n] - 
   S2[-2, 2, -2, n]/2 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    12 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    6 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (9*S2[3, Infinity]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 + S2[-1, 1, -1, n]^2/8 + 
   2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 4*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   4*S2[3, Infinity]*S2[-1, 1, 1, n] - 4*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   6*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + 4*S2[1, n]^2*S2[1, 2, -1, n] - 
   3*S2[2, Infinity]*S2[1, 2, -1, n] - 2*S2[1, n]*S2[2, 1, -2, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/6 - 
   (73*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 + 
   (47*S2[1, n]^2*S2[2, 1, -1, n])/12 - (8*S2[2, Infinity]*S2[2, 1, -1, n])/
    3 + (S2[-1, 1, n]*S2[2, 1, -1, n])/6 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + 2*S2[1, n]^2*S2[2, 1, 1, n] + 
   2*S2[-1, 1, n]*S2[2, 1, 1, n] - 2*S2[3, 1, -2, n] + 4*S2[4, 1, 1, n] - 
   12*S2[-3, 1, 1, 1, n] - Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 
   7*S2[1, n]*S2[-2, 1, 1, 1, n] - 2*S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 + 6*S2[2, Infinity]*
    S2[-1, 1, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + S2[1, n]*S2[1, 1, -1, 2, n] + 
   2*S2[1, n]*S2[1, 1, 2, -1, n] + 2*S2[2, -2, 1, 1, n] - 
   6*S2[-2, 1, 1, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + 2*S2[1, -1, 1, 1, 2, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] - 12*S2[1, 1, 1, 2, -1, n] - 
   2*S2[1, 1, 2, -1, 1, n] - 8*S2[1, 1, 2, 1, -1, n] - 
   4*S2[1, 2, 1, 1, -1, n] + S2[-1, -1, -1, 1, -1, -1, n]/2 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/2 + 3*S2[-1, 1, -1, -1, -1, -1, n] + 
   S2[-1, 1, -1, -1, -1, 1, n]/2 + 7*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   5*S2[1, -1, -1, -1, -1, -1, n] - S2[1, -1, -1, -1, 1, -1, n]/2 - 
   S2[1, -1, -1, 1, -1, -1, n] - S2[1, -1, 1, -1, -1, -1, n] - 
   2*S2[1, 1, -1, -1, -1, -1, n], S2[-1, 2, 2, 1, n] -> 
  (-71*Diff[Half[S2[1, n], n], n, 5])/120 + 
   (53*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   (11*Diff[S2[1, n], n, 1]^3)/2 + (21*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (21*Diff[S2[1, n], n, 2]^2)/4 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/12 - 
   (47*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   (71*Diff[S2[1, n], n, 5])/120 + (13*Diff[S2[-4, 1, n], n, 1])/2 + 
   (3*Diff[S2[-3, 1, n], n, 2])/4 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (13*Diff[S2[-2, 1, n], n, 3])/12 + 5*Diff[S2[1, n], n, 2]*
    Diff[S2[-1, 1, n], n, 1] + (27*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/4 - (5*Diff[S2[-1, 1, n], n, 4])/3 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1] - 
   Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] + 
   (13*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/2 - (7*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1] - (7*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   3*Diff[S2[-2, 1, 1, 1, n], n, 1] + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[1, 1, 2, -1, n], n, 1] - 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/12 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (13*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (79*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (61*Diff[S2[1, n], n, 4]*S2[1, n])/24 - 2*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] + (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   6*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (23*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (67*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (S2[-1, Infinity]^5*S2[1, n])/120 - 
   (4*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/3 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   (27*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (33*Diff[S2[1, n], n, 3]*S2[1, n]^2)/8 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/16 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (71*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 + 
   (47*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (59*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (103*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (81*S2[1, n]^2*S2[2, Infinity]^2)/80 + (2411*S2[2, Infinity]^3)/3360 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 + 
   (21*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 - 
   Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity] + Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[3, Infinity] + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[3, Infinity] - (91*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[3, Infinity])/16 - Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity] + 
   (23*S2[1, n]^3*S2[3, Infinity])/16 + 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] - (615*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    32 + (79*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (2119*S2[3, Infinity]^2)/256 - 9*Half[S2[1, n], n]*S2[5, Infinity] - 
   (561*S2[1, n]*S2[5, Infinity])/64 + (5*S2[-5, -1, Infinity])/2 + 
   13*S2[-5, 1, n] - 4*S2[1, n]*S2[-4, 1, n] - Diff[S2[1, n], n, 1]*
    S2[-3, 1, n] + (3*S2[1, n]^2*S2[-3, 1, n])/2 - 
   (5*S2[2, Infinity]*S2[-3, 1, n])/2 + Diff[S2[1, n], n, 2]*S2[-2, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (S2[1, n]^3*S2[-2, 1, n])/2 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   S2[3, Infinity]*S2[-2, 1, n] - (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (13*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 2*Diff[S2[1, n], n, 2]*S2[1, n]*
    S2[-1, 1, n] + (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*S2[2, Infinity]^2*S2[-1, 1, n])/10 + S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] + Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] - 
   Diff[S2[1, n], n, 2]*S2[2, 1, n] - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[2, 1, n] - 2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + Half[S2[1, n], n]*S2[1, n]^2*
    S2[2, 1, n] - S2[1, n]^3*S2[2, 1, n] - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 - S2[1, n]*S2[-1, 1, n]*
    S2[2, 1, n] + 4*Half[S2[1, n], n]*S2[4, 1, n] - 4*S2[1, n]*S2[4, 1, n] + 
   9*S2[-4, 1, 1, n] - 6*S2[1, n]*S2[-3, 1, 1, n] + 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*
    S2[1, 2, -1, n] - S2[1, n]^2*S2[1, 2, -1, n] + 
   S2[2, Infinity]*S2[1, 2, -1, n] - S2[1, n]*S2[2, 1, -2, n] + 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] - S2[1, n]^2*S2[2, 1, -1, n] + 
   S2[2, Infinity]*S2[2, 1, -1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 
   Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] + 
   S2[2, Infinity]*S2[2, 1, 1, n] + S2[-1, 1, n]*S2[2, 1, 1, n] + 
   S2[3, 1, -2, n] + 2*Half[S2[1, n], n]*S2[3, 1, 1, n] - 
   2*S2[1, n]*S2[3, 1, 1, n] + 8*S2[-3, 1, 1, 1, n] - 
   S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 1, 1, 2, n] - S2[-2, 2, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (71*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, 2, -1, n] - 
   (3*S2[2, -2, 1, 1, n])/2 + S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, 1, 1, 2, n] + 2*S2[1, 1, -1, 1, 2, n] + 
   3*S2[1, 1, 1, -1, 2, n] + 6*S2[1, 1, 1, 2, -1, n] + 
   S2[1, 1, 2, -1, 1, n] + 2*S2[1, 1, 2, 1, -1, n], 
 S2[-1, 2, -1, -2, n] -> (83*Diff[Half[S2[1, n], n], n, 2]^2)/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/2 - 
   (41*Diff[Half[S2[1, n], n], n, 5])/40 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/24 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/24 - Diff[Half[S2[4, 1, n], n], n, 
    1] - Diff[Half[S2[2, 1, 1, n], n], n, 2]/8 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   (113*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (227*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   (4*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/3 - 
   (31*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (605*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 + 
   (1091*Diff[S2[1, n], n, 1]^3)/48 + 
   (89*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/16 - 
   (179*Diff[S2[1, n], n, 2]^2)/24 + (87*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/16 - (517*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/32 + (211*Diff[S2[1, n], n, 5])/240 + 
   (13*Diff[S2[-4, 1, n], n, 1])/2 + (37*Diff[S2[-3, 1, n], n, 2])/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (229*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (17*Diff[S2[-2, 1, n], n, 3])/6 - (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 + 
   (167*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   Diff[S2[-1, 1, n], n, 1]^2 - (85*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/24 + 
   (437*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (67*Diff[S2[-1, 1, n], n, 4])/24 - 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] + (23*Diff[S2[1, n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/4 - (23*Diff[S2[2, 1, n], n, 3])/12 + 
   8*Diff[S2[4, 1, n], n, 1] + 17*Diff[S2[-3, 1, 1, n], n, 1] - 
   (3*Diff[S2[-2, 1, -2, n], n, 1])/2 - (3*Diff[S2[-2, 1, -1, n], n, 2])/2 - 
   Diff[S2[-1, -2, -1, n], n, 2]/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/6 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (87*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (4*Diff[S2[-1, 1, 1, n], n, 3])/3 - (15*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   (3*Diff[S2[2, 1, -2, n], n, 1])/2 - (23*Diff[S2[2, 1, -1, n], n, 2])/6 - 
   (13*Diff[S2[2, 1, 1, n], n, 2])/2 - 6*Diff[S2[3, 1, 1, n], n, 1] + 
   (29*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/
    3 - Diff[S2[-1, 1, -1, 1, n], n, 2] + (31*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 + 2*Diff[S2[1, -1, 1, -2, n], n, 1] - 
   (7*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 8*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   5*Diff[S2[1, 1, -1, 2, n], n, 1] + 2*Diff[S2[1, 1, 2, -1, n], n, 1] + 
   2*Diff[S2[1, 2, -1, -1, n], n, 1] - 10*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1] + 
   2*Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/2 - 
   3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1] - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 + 
   (21*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   6*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/2 + 
   3*Diff[S2[1, 1, -1, -1, -1, n], n, 1] + Diff[S2[1, 1, -1, 1, -1, n], n, 
    1] + 2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/12 + (25*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 + (17*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/2 - (239*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    2 - (67*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 + 
   5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n] + 
   (10*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/3 + (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    8 - (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/12 - 
   4*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n] + 
   2*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (95*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (235*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (61*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/4 + 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/6 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n] - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n] - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 - 
   (13*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 - 
   Half[S2[2, 1, n], n]^2/16 - (11*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/
    16 + Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n] + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/2 + 
   Half[S2[4, 1, 1, n], n]/4 + Half[S2[2, 2, 1, 1, n], n]/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/16 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/24 + (23*S2[-1, Infinity]^6)/1440 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    12 + (53*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/4 - 
   (35*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 - 
   (347*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (785*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (17*Diff[S2[1, n], n, 4]*S2[1, n])/6 - 10*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] + (25*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 - 
   (457*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (101*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 + 
   (45*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 9*Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] + (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] + (69*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (113*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   15*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (167*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (95*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (33*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n] - 
   (Half[S2[1, n], n]^5*S2[1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (9*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (9*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (23*S2[-1, Infinity]^5*S2[1, n])/240 - 
   (65*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/24 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   14*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   (379*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (529*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 - 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (521*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (57*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (23*Half[S2[1, n], n]^4*S2[1, n]^2)/24 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    8 + (221*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (193*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (221*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/2 + 
   (19*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/3 + 
   (179*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]^4)/6 - (11*Half[S2[1, n], n]*S2[1, n]^5)/
    6 + (3*S2[1, n]^6)/8 + (191*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/24 - (245*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/48 + (7*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/8 - (71*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/12 - 
   (245*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (281*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   10*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (619*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/48 + 
   (51*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (85*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (199*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (71*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/6 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/2 - 
   (7*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 - 
   (121*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (67*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (147*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (19*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (217*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (73*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] + 
   10*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (63*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + 16*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/8 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 + 
   9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] - (489*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (33*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (11*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (13*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (65*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (41*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (153*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (75*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (57*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (251*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (55*S2[1, n]^4*S2[2, Infinity])/24 + 
   (893*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 + 
   (487*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (51*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/20 - 
   (37*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/8 - 
   (2591*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (429*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (1381*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (39*S2[1, n]^2*S2[2, Infinity]^2)/40 - (69803*S2[2, Infinity]^3)/3360 - 
   (409*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 - 
   (21*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 - 
   (35*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/4 + 
   (365*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/48 + 
   (481*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 + 
   (137*Half[S2[1, n], n]^3*S2[3, Infinity])/192 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/12 - 
   (955*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (265*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (63*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (377*S2[1, n]^3*S2[3, Infinity])/192 + 
   (697*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/96 - 
   (1035*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (223*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/12 - 
   (2713*S2[3, Infinity]^2)/768 - (13*Half[S2[1, n], n]*S2[5, Infinity])/2 - 
   (7323*S2[1, n]*S2[5, Infinity])/128 - (39*S2[-5, -1, Infinity])/8 - 
   12*S2[-5, 1, n] + Half[S2[1, n], n]*S2[-4, 1, n] - 
   9*S2[1, n]*S2[-4, 1, n] + (15*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    4 + (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (17*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 - (45*S2[1, n]^2*S2[-3, 1, n])/
    8 - (93*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (97*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 5*Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] + (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/2 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/4 + (13*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 + 
   Half[S2[2, 1, n], n]*S2[-2, 1, n] - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (95*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (53*S2[1, n]^3*S2[-2, 1, n])/12 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (33*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (21*S2[3, Infinity]*S2[-2, 1, n])/8 - 3*S2[-2, 1, n]^2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 - 
   (247*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/12 + 
   (13*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   8*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] + 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/6 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/48 + 
   (79*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (51*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (29*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 + 
   (5*S2[1, n]^4*S2[-1, 1, n])/12 + (27*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   9*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] + 
   (87*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (25*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (441*S2[2, Infinity]^2*S2[-1, 1, n])/80 + 
   (109*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (135*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   4*S2[-3, 1, n]*S2[-1, 1, n] - (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 + (9*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (39*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, n]^2 + (9*S2[1, n]^2*S2[-1, 1, n]^2)/8 + 
   5*S2[2, Infinity]*S2[-1, 1, n]^2 + (7*S2[-1, 1, n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 + 
   (61*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 3*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/4 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    8 + (17*Half[S2[1, n], n]^3*S2[2, 1, n])/24 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (19*S2[1, n]^3*S2[2, 1, n])/24 - (51*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (95*S2[3, Infinity]*S2[2, 1, n])/8 - 8*S2[-2, 1, n]*S2[2, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 
   3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] - 5*S2[2, 1, n]^2 + 
   5*Half[S2[1, n], n]*S2[4, 1, n] - 3*S2[1, n]*S2[4, 1, n] + 
   16*S2[-4, 1, 1, n] + 2*S2[-3, -2, 1, n] - 2*Half[S2[1, n], n]*
    S2[-3, 1, 1, n] - S2[1, n]*S2[-3, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n] - 
   (13*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (7*S2[1, n]^2*S2[-2, 1, -1, n])/2 + 
   (17*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + 
   4*S2[-1, 1, n]*S2[-2, 1, -1, n] + (5*S2[-2, 2, -2, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/8 - 
   (17*S2[2, Infinity]*S2[-1, -2, -1, n])/8 - 
   S2[-1, 1, n]*S2[-1, -2, -1, n] + (Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, -1, n])/8 + (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/6 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/3 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (15*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (9*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (113*S2[3, Infinity]*S2[-1, 1, -1, n])/32 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/2 - (3*S2[-1, 1, -1, n]^2)/4 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 4*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/2 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/2 + (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   3*S2[1, n]^3*S2[-1, 1, 1, n] - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (33*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (33*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (27*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 3*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   6*S2[2, 1, n]*S2[-1, 1, 1, n] + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 + 
   3*S2[-1, 1, 1, n]^2 + 2*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] + 
   (63*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (31*S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   (27*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 5*S2[-1, 1, n]*S2[1, 2, -1, n] - 
   2*Half[S2[1, n], n]*S2[2, 1, -2, n] + (13*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/2 + 
   12*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (13*S2[1, n]^2*S2[2, 1, -1, n])/2 - 4*S2[2, Infinity]*S2[2, 1, -1, n] - 
   4*S2[-1, 1, n]*S2[2, 1, -1, n] - 3*Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   5*S2[1, n]^2*S2[2, 1, 1, n] + (23*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (9*S2[3, 1, -2, n])/2 + 
   2*Half[S2[1, n], n]*S2[3, 1, 1, n] - 2*S2[1, n]*S2[3, 1, 1, n] - 
   10*S2[4, 1, 1, n] + 25*S2[-3, 1, 1, 1, n] - 2*S2[-2, -2, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - (17*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - S2[-2, 1, 1, 2, n] + (9*S2[-2, 2, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/4 + 
   2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, -1, 1, n] - (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   S2[2, Infinity]*S2[-1, 1, -1, 1, n] - (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/
    2 - (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   6*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   6*S2[1, n]^2*S2[-1, 1, 1, 1, n] - 17*S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   6*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (97*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   6*S2[1, n]*S2[1, 1, -2, -1, n] - 2*Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + 
   2*S2[1, n]*S2[1, 1, -1, 2, n] - (15*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   (13*S2[2, -2, 1, 1, n])/2 + 6*S2[1, n]*S2[2, 1, 1, 1, n] + 
   (21*S2[-2, 1, 1, 1, 1, n])/2 + Half[S2[1, n], n]*
    S2[-1, -1, 1, -1, -1, n] - S2[1, n]*S2[-1, -1, 1, -1, -1, n] + 
   3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n] - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/2 + 
   (5*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] + 2*S2[1, n]*S2[-1, 1, -1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n] + 
   2*S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] + 5*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + (23*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 - S2[1, -2, -1, 1, -1, n] + 6*Half[S2[1, n], n]*
    S2[1, -1, -1, -1, -1, n] - 6*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   2*S2[1, -1, -1, 1, -2, n] - (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/
    2 + (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + 4*S2[1, -1, -1, 1, 2, n] + 
   S2[1, -1, 1, -2, -1, n] - Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n] + 
   S2[1, n]*S2[1, -1, 1, -1, -1, n] + 6*S2[1, -1, 1, 1, -2, n] - 
   (7*S2[1, -1, 1, 1, 2, n])/2 + 4*S2[1, -1, 1, 2, -1, n] + 
   6*S2[1, 1, -2, -1, 1, n] + 8*S2[1, 1, -2, 1, -1, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 8*S2[1, 1, -1, 1, -2, n] + 
   2*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] - 
   2*S2[1, n]*S2[1, 1, -1, 1, -1, n] + 4*S2[1, 1, -1, 2, -1, n] + 
   28*S2[1, 1, 1, -2, -1, n] + 16*S2[1, 1, 1, -1, -2, n] + 
   5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] - 
   5*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 2*S2[1, 1, 1, -1, 2, n] + 
   35*S2[1, 1, 1, 2, -1, n] + 8*S2[1, 1, 2, -1, -1, n] + 
   (15*S2[1, 1, 2, -1, 1, n])/2 + 20*S2[1, 1, 2, 1, -1, n] + 
   4*S2[1, 2, 1, -1, -1, n] + 9*S2[1, 2, 1, 1, -1, n] - 
   6*S2[2, 1, 1, 1, 1, n] - S2[-1, -1, -1, 1, -1, -1, n] - 
   3*S2[-1, -1, 1, -1, -1, -1, n] + S2[-1, -1, 1, 1, -1, -1, n] - 
   6*S2[-1, 1, -1, -1, -1, -1, n] - (5*S2[-1, 1, -1, -1, -1, 1, n])/2 - 
   2*S2[-1, 1, -1, -1, 1, 1, n] - 3*S2[-1, 1, -1, 1, 1, 1, n] + 
   S2[-1, 1, 1, -1, -1, -1, n] - S2[-1, 1, 1, -1, -1, 1, n] - 
   2*S2[-1, 1, 1, 1, -1, -1, n] + 3*S2[-1, 1, 1, 1, -1, 1, n] - 
   (23*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 10*S2[1, -1, -1, -1, -1, -1, n] + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/2 + 3*S2[1, -1, -1, 1, -1, -1, n] - 
   3*S2[1, -1, -1, 1, 1, -1, n] + 2*S2[1, -1, 1, -1, -1, -1, n] - 
   S2[1, -1, 1, 1, -1, -1, n] + 6*S2[1, 1, -1, -1, -1, -1, n] - 
   S2[1, 1, -1, -1, 1, -1, n] - 3*S2[1, 1, 1, -1, -1, -1, n] + 
   3*S2[1, 1, 1, -1, 1, -1, n] + 12*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 2, -1, 2, n] -> (-5*Diff[Half[S2[1, n], n], n, 1]^3)/96 - 
   (23*Diff[Half[S2[1, n], n], n, 2]^2)/192 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (703*Diff[Half[S2[1, n], n], n, 5])/576 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/48 + Diff[Half[S2[4, 1, n], n], n, 1]/
    16 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (299*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (1379*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (1759*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (1475*Diff[S2[1, n], n, 1]^3)/96 - 
   (165*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/16 + 
   (1027*Diff[S2[1, n], n, 2]^2)/96 - 
   (4601*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (9953*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (1177*Diff[S2[1, n], n, 5])/960 + Diff[S2[-4, 1, n], n, 1]/2 + 
   (13*Diff[S2[-3, 1, n], n, 2])/8 + (37*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 - 
   (283*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (19*Diff[S2[-2, 1, n], n, 3])/6 + (29*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 - 
   (437*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (585*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (41*Diff[S2[-1, 1, n], n, 4])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (11*Diff[S2[2, 1, n], n, 3])/24 - (5*Diff[S2[4, 1, n], n, 1])/2 - 
   (21*Diff[S2[-3, 1, 1, n], n, 1])/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   Diff[S2[-2, 1, -1, n], n, 2]/4 + Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (13*Diff[S2[-1, 1, -1, n], n, 3])/48 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/4 + (17*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (15*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 - 2*Diff[S2[3, 1, 1, n], n, 1] - 
   (17*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    8 + Diff[S2[-1, 1, -1, 1, n], n, 2]/2 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + 2*Diff[S2[1, -1, 1, 2, n], n, 1] - 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 
   3*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1] + Diff[S2[-1, 1, 1, 1, -1, n], n, 1] - 
   6*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + Diff[S2[1, -1, -1, -1, -1, n], n, 1]/
    2 - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   2*Diff[S2[1, 1, -1, 1, -1, n], n, 1] - 
   4*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 - (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/72 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    2 + (677*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (1061*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (91*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (11*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (41*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/24 - 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/4 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/48 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 - 
   Half[S2[2, 1, n], n]^2/64 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/4 + (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/192 + (67*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 - 
   (41*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - 
   (49*S2[-1, Infinity]^6)/1440 - (13*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/6 - 
   (407*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 - 
   (623*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (2777*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (379*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (127*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (99*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (641*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 2*Diff[S2[2, 1, n], n, 2]*
    S2[1, n] - (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (17*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (107*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (17*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] + 
   8*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/9 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (193*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (673*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (55*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/3 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/2 - 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (97*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (29*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (401*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (211*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (629*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (1003*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 + 
   (23*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (175*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (17*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (19*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/48 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 + 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^3 - (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^3)/12 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/
    4 + (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 - 
   (Half[S2[2, 1, n], n]*S2[1, n]^3)/12 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (79*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^4)/24 - (Half[S2[1, n], n]*S2[1, n]^5)/
    6 + (3*S2[1, n]^6)/16 - (9*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/4 + (439*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    288 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 + (13*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (335*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (55*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (131*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (13*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (57*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (89*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (67*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity] + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (187*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (29*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (89*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (41*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (127*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 - (151*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 + (23*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (121*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (119*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/8 + (7*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/8 + (47*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 - (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/48 + (185*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/48 - (43*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/16 - (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/16 - (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    4 + (157*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (7*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (37*S2[1, n]^4*S2[2, Infinity])/48 - 
   (199*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 - 
   (829*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (613*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (507*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (2871*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (823*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/120 - 
   (979*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (4699*S2[1, n]^2*S2[2, Infinity]^2)/960 + (2341*S2[2, Infinity]^3)/280 + 
   (1243*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (185*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 + 
   (103*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (245*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/192 + 
   (27*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (297*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (243*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (47*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (15*S2[1, n]^3*S2[3, Infinity])/16 + 
   (971*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (3015*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (7169*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (14101*S2[3, Infinity]^2)/3072 - (411*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (2549*S2[1, n]*S2[5, Infinity])/64 - (15*S2[-5, -1, Infinity])/8 + 
   8*S2[-5, 1, n] - 2*Half[S2[1, n], n]*S2[-4, 1, n] + 
   14*S2[1, n]*S2[-4, 1, n] + (29*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    48 - (23*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 + 
   (145*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (25*S2[1, n]^2*S2[-3, 1, n])/6 + (95*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (29*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 + Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/12 - (4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/3 - (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (65*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/12 - 
   (2*S2[1, n]^3*S2[-2, 1, n])/3 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (89*S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/4 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n] + 
   (51*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (197*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 4*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/16 - (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    8 + (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 + 
   (49*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (65*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/6 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (23*S2[1, n]^4*S2[-1, 1, n])/24 - (143*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (51*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (85*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (121*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (25*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (4061*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 
   (7*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (309*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (49*S2[1, n]^2*S2[-1, 1, n]^2)/48 - (49*S2[2, Infinity]*S2[-1, 1, n]^2)/
    12 - (17*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 + 
   (37*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 4*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/8 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    2 - (7*Half[S2[1, n], n]^3*S2[2, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (5*S2[1, n]^3*S2[2, 1, n])/6 + (35*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (51*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (33*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (203*S2[3, Infinity]*S2[2, 1, n])/32 - (S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (15*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - S2[2, 1, n]^2/4 + 
   6*S2[1, n]*S2[4, 1, n] - 8*S2[-4, 1, 1, n] - 3*S2[-3, -2, 1, n] - 
   2*Half[S2[1, n], n]*S2[-3, 1, 1, n] + 6*S2[1, n]*S2[-3, 1, 1, n] - 
   S2[1, n]*S2[-2, 1, -2, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   2*S2[2, Infinity]*S2[-2, 1, -1, n] - S2[-2, 2, -2, n]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/6 + (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (25*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - S2[-1, 1, -1, n]^2/16 + 
   Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n] + 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, 1, n] - 2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[1, n]^3*S2[-1, 1, 1, n] + 5*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - 8*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (5*S2[3, Infinity]*S2[-1, 1, 1, n])/8 - 2*S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - 4*S2[2, 1, n]*S2[-1, 1, 1, n] - 3*S2[-1, 1, 1, n]^2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + S2[1, n]^2*S2[1, 2, -1, n] - 
   S2[2, Infinity]*S2[1, 2, -1, n] - 2*S2[1, n]*S2[2, 1, -2, n] + 
   (47*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (185*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 + 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (2*S2[1, n]^2*S2[2, 1, -1, n])/3 - (19*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + 5*S2[1, n]^2*S2[2, 1, 1, n] - 
   3*S2[2, Infinity]*S2[2, 1, 1, n] + 2*S2[-1, 1, n]*S2[2, 1, 1, n] - 
   2*S2[3, 1, -2, n] - 2*S2[1, n]*S2[3, 1, 1, n] - 3*S2[4, 1, 1, n] - 
   12*S2[-3, 1, 1, 1, n] - 2*S2[-2, -2, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 4*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   2*S2[-2, 2, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/12 - (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    24 - (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + 4*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] - 
   4*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] + 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   8*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (67*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (17*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (49*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   4*S2[1, n]*S2[1, 1, -2, -1, n] + 2*Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - 
   2*S2[1, n]*S2[1, 1, -1, 2, n] + 2*S2[1, n]*S2[1, 1, 2, -1, n] + 
   2*S2[2, -2, 1, 1, n] - 6*S2[1, n]*S2[2, 1, 1, 1, n] + S2[2, 2, 1, 1, n] - 
   6*S2[-2, 1, 1, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   S2[1, n]*S2[-1, 1, -1, 1, 1, n] + 3*S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 
   8*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   8*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (41*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (97*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 2*S2[1, -1, 1, 1, 2, n] - 
   4*S2[1, 1, -2, -1, 1, n] - 4*S2[1, 1, -2, 1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 2*S2[1, 1, -1, 1, -2, n] - 
   2*S2[1, 1, -1, 2, -1, n] - 10*S2[1, 1, 1, -2, -1, n] - 
   4*S2[1, 1, 1, -1, -2, n] - 12*S2[1, 1, 1, 2, -1, n] - 
   2*S2[1, 1, 2, -1, 1, n] - 8*S2[1, 1, 2, 1, -1, n] - 
   4*S2[1, 2, 1, 1, -1, n] + 6*S2[2, 1, 1, 1, 1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n]/2 + (3*S2[-1, -1, 1, -1, -1, -1, n])/2 + 
   3*S2[-1, 1, -1, -1, -1, -1, n] - S2[-1, 1, -1, -1, -1, 1, n]/4 + 
   S2[-1, 1, -1, 1, 1, 1, n] - 3*S2[-1, 1, 1, 1, -1, 1, n] + 
   (49*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 5*S2[1, -1, -1, -1, -1, -1, n] + 
   S2[1, -1, -1, -1, 1, -1, n]/4 + S2[1, -1, -1, 1, -1, -1, n]/2 + 
   S2[1, -1, 1, -1, -1, -1, n]/2 + S2[1, 1, -1, -1, -1, -1, n] - 
   5*S2[1, 1, 1, -1, 1, -1, n] - 12*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 2, 1, -2, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (9*Diff[Half[S2[1, n], n], n, 2]^2)/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/18 + 
   (93*Diff[Half[S2[1, n], n], n, 5])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   (13*Diff[Half[S2[4, 1, n], n], n, 1])/16 - 
   (265*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (191*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/18 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (2099*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (1825*Diff[S2[1, n], n, 1]^3)/96 - 
   (177*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/16 + 
   (607*Diff[S2[1, n], n, 2]^2)/48 - (4855*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/576 + (11623*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/576 - (223*Diff[S2[1, n], n, 5])/160 - 
   7*Diff[S2[-4, 1, n], n, 1] - 2*Diff[S2[-3, 1, n], n, 2] - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (151*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (35*Diff[S2[-2, 1, n], n, 3])/12 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (155*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (173*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (59*Diff[S2[-1, 1, n], n, 4])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (5*Diff[S2[2, 1, n], n, 3])/3 - (15*Diff[S2[4, 1, n], n, 1])/2 - 
   15*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-2, 1, -2, n], n, 1]/2 + 
   Diff[S2[-2, 1, -1, n], n, 2] + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 3])/16 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (73*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (15*Diff[S2[-1, 1, 1, n], n, 3])/8 + (9*Diff[S2[1, 2, -1, n], n, 2])/2 + 
   (9*Diff[S2[2, 1, -1, n], n, 2])/2 + 4*Diff[S2[2, 1, 1, n], n, 2] + 
   5*Diff[S2[3, 1, 1, n], n, 1] - 12*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/8 - 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - Diff[S2[1, -1, 1, -2, n], n, 1] + 
   3*Diff[S2[1, -1, 1, 2, n], n, 1] - 4*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   3*Diff[S2[1, 1, -1, 2, n], n, 1] - Diff[S2[1, 2, -1, -1, n], n, 1] + 
   5*Diff[S2[2, 1, 1, 1, n], n, 1] - (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/
    4 - (7*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + Diff[S2[-1, 1, -1, 1, 1, n], 
    n, 1] + (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (2*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/9 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (17*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (703*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (1015*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (167*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (49*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 - (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (29*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (29*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 + (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    6 - (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 - 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (55*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/96 + 
   (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (3*Half[S2[4, 1, 1, n], n])/8 + (65*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/192 + (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    48 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/32 - S2[-1, Infinity]^6/120 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 - (463*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (469*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (203*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (2357*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (3259*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (455*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (143*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (121*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (247*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 - 
   (35*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (21*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (115*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (11*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] + 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (49*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (40*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    3 + (815*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (41*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (10*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (149*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (47*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (61*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Half[S2[1, n], n]^5*S2[1, n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (59*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/6 + 
   (S2[-1, Infinity]^5*S2[1, n])/480 + 3*Diff[Half[S2[1, n], n], n, 1]^2*
    S2[1, n]^2 + (991*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 - 
   (763*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (599*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (95*Diff[S2[1, n], n, 3]*S2[1, n]^2)/9 + 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (1009*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (19*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   (29*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (163*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (83*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/6 + 
   (91*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (7*S2[-1, Infinity]^4*S2[1, n]^2)/
    192 - (421*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (87*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (145*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (25*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (41*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (289*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/2 + (35*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - S2[1, n]^6/3 - (29*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    8 + (587*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (171*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (143*Diff[S2[1, n], n, 3]*S2[2, Infinity])/72 + 
   (43*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (45*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity] + 
   (95*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (155*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (95*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/3 + 
   (79*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^4*S2[2, Infinity])/16 - 
   (29*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (81*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (21*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (29*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (47*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (211*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (325*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (161*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 - (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 + (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (373*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (71*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/8 + (7*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/6 - (349*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/96 + (77*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/96 - (15*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/8 + (65*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 + (131*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (19*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    8 - (259*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (31*S2[1, n]^4*S2[2, Infinity])/48 - 
   (2107*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (59*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 - 
   (479*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (65*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 + 
   (229*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (143*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/48 + 
   (573*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (43*S2[1, n]^2*S2[2, Infinity]^2)/960 + (4657*S2[2, Infinity]^3)/560 + 
   (447*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (5*Diff[S2[1, n], n, 2]*S2[3, Infinity])/24 + 
   (381*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (901*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (497*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (57*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (53*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (445*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (547*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (331*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (355*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (63*S2[1, n]^3*S2[3, Infinity])/128 - 
   (799*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (1665*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (205*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (151*S2[3, Infinity]^2)/128 - (379*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (1091*S2[1, n]*S2[5, Infinity])/32 + (43*S2[-5, -1, Infinity])/8 + 
   12*S2[-5, 1, n] + 12*S2[1, n]*S2[-4, 1, n] - 
   (179*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 + 
   (49*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (15*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   (41*S2[1, n]^2*S2[-3, 1, n])/48 + (16*S2[2, Infinity]*S2[-3, 1, n])/3 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (289*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 - 
   (67*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (43*S2[1, n]^3*S2[-2, 1, n])/24 + (29*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (53*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (7*S2[3, Infinity]*S2[-2, 1, n])/16 + S2[-2, 1, n]^2/2 + 
   (71*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (81*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (173*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (137*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/36 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (33*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/24 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (109*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (119*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (16*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 + (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/24 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (337*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   2*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/4 - 
   (13*S2[1, n]^4*S2[-1, 1, n])/24 - (77*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (45*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (71*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (7*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (2431*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 2*Half[S2[1, n], n]*
    S2[3, Infinity]*S2[-1, 1, n] - (11*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/
    16 + (7*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/6 + 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (91*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/12 - 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/24 - (13*S2[2, Infinity]*S2[-1, 1, n]^2)/
    24 - (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/2 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (27*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (11*S2[1, n]^3*S2[2, 1, n])/16 + (31*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (23*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (139*S2[3, Infinity]*S2[2, 1, n])/16 + 2*S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (23*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 2*S2[2, 1, n]^2 + 
   6*S2[1, n]*S2[4, 1, n] - 12*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 
   6*S2[1, n]*S2[-3, 1, 1, n] + S2[1, n]*S2[-2, 1, -2, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (5*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - (3*S2[-2, 2, -2, n])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 + (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    6 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (2*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (17*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (415*S2[3, Infinity]*S2[-1, 1, -1, n])/192 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + S2[-1, 1, -1, n]^2/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (5*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/2 + (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/
    2 - (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (39*S2[3, Infinity]*S2[-1, 1, 1, n])/8 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - 6*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (37*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + 7*S2[1, n]^2*S2[1, 2, -1, n] - 
   (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 2*S2[-1, 1, n]*S2[1, 2, -1, n] + 
   Half[S2[1, n], n]*S2[2, 1, -2, n] - 4*S2[1, n]*S2[2, 1, -2, n] - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (101*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (155*S2[1, n]^2*S2[2, 1, -1, n])/24 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    6 + (25*S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (5*S2[1, n]^2*S2[2, 1, 1, n])/2 - 
   (5*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 3*S2[-1, 1, n]*S2[2, 1, 1, n] - 
   3*S2[3, 1, -2, n] + 6*S2[1, n]*S2[3, 1, 1, n] + 11*S2[4, 1, 1, n] - 
   18*S2[-3, 1, 1, 1, n] + 2*S2[-2, -2, 1, 1, n] + 
   9*S2[1, n]*S2[-2, 1, 1, 1, n] - 3*S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (2*S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (23*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    2 - S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (65*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   4*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (31*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   2*S2[1, n]*S2[1, 1, -2, -1, n] + 3*S2[1, n]*S2[1, 1, 2, -1, n] + 
   3*S2[2, -2, 1, 1, n] - 3*S2[2, 2, 1, 1, n] - 9*S2[-2, 1, 1, 1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   S2[1, n]*S2[-1, 1, -1, 1, 1, n] + Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] - S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (15*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 2*S2[1, -1, -1, 1, 2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 4*S2[1, -1, 1, 1, -2, n] + 
   3*S2[1, -1, 1, 1, 2, n] - 2*S2[1, -1, 1, 2, -1, n] - 
   2*S2[1, 1, -2, -1, 1, n] - 4*S2[1, 1, -2, 1, -1, n] + 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (7*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 5*S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] - 15*S2[1, 1, 1, -2, -1, n] - 
   9*S2[1, 1, 1, -1, -2, n] - 18*S2[1, 1, 1, 2, -1, n] - 
   4*S2[1, 1, 2, -1, -1, n] - 3*S2[1, 1, 2, -1, 1, n] - 
   12*S2[1, 1, 2, 1, -1, n] - 2*S2[1, 2, 1, -1, -1, n] - 
   6*S2[1, 2, 1, 1, -1, n] + (3*S2[-1, -1, -1, 1, -1, -1, n])/4 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/4 - S2[-1, -1, 1, 1, -1, -1, n] + 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/2 + (3*S2[-1, 1, -1, -1, -1, 1, n])/4 - 
   S2[-1, 1, -1, 1, -1, -1, n]/2 + S2[-1, 1, -1, 1, 1, 1, n] - 
   2*S2[-1, 1, 1, -1, -1, -1, n] + 6*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   (15*S2[1, -1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, -1, 1, -1, n]/4 - 
   S2[1, -1, -1, 1, -1, -1, n] - (3*S2[1, -1, 1, -1, -1, -1, n])/2 - 
   4*S2[1, 1, -1, -1, -1, -1, n] + S2[1, 1, 1, -1, 1, -1, n], 
 S2[-1, 2, 1, 2, n] -> (-121*Diff[Half[S2[1, n], n], n, 5])/240 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 + 
   (17*Diff[S2[1, n], n, 1]^3)/4 + (17*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (17*Diff[S2[1, n], n, 2]^2)/4 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (151*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (121*Diff[S2[1, n], n, 5])/240 + Diff[S2[-3, 1, n], n, 2]/4 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   (7*Diff[S2[-2, 1, n], n, 3])/6 + 
   (11*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (4*Diff[S2[-1, 1, n], n, 4])/3 + 2*Diff[S2[-3, 1, 1, n], n, 1] - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/12 - (9*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (7*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   (9*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 6*Diff[S2[-1, 1, 1, 1, n], n, 2] - 
   2*Diff[S2[1, -1, 1, 2, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1] - 
   2*Diff[S2[1, 1, 2, -1, n], n, 1] + 6*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (17*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   2*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + S2[-1, Infinity]^6/120 + 
   (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/3 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (19*Diff[S2[1, n], n, 4]*S2[1, n])/8 + Diff[S2[-3, 1, n], n, 1]*S2[1, n] + 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (43*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 - 2*Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + 4*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] + 
   4*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] + 2*Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - 6*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (71*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (S2[-1, Infinity]^5*S2[1, n])/60 - 2*Diff[Half[S2[1, n], n], n, 3]*
    S2[1, n]^2 + 4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
    S2[1, n]^2 - (25*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (119*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - 5*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 - 4*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 + 4*Diff[S2[1, n], n, 2]*
    Half[S2[1, n], n]*S2[1, n]^2 + (S2[-1, Infinity]^4*S2[1, n]^2)/12 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (21*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^3 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] + 
   (23*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/16 + 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 2*Diff[S2[-1, 1, n], n, 2]*
    S2[2, Infinity] - 6*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (73*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 + 
   3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity] - 
   (S2[1, n]^4*S2[2, Infinity])/2 + (21*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/5 - (23*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/4 + 
   (503*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (167*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (59*S2[1, n]^2*S2[2, Infinity]^2)/80 + (5423*S2[2, Infinity]^3)/1120 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 + 
   (27*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 - 
   6*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity] - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity] + 
   (3*S2[1, n]^3*S2[3, Infinity])/8 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    32 - (87*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (231*S2[3, Infinity]^2)/256 + (29*Half[S2[1, n], n]*S2[5, Infinity])/2 - 
   (251*S2[1, n]*S2[5, Infinity])/16 - (5*S2[-5, -1, Infinity])/2 - 
   9*S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 2*Diff[S2[1, n], n, 1]*
    S2[-3, 1, n] - (7*S2[1, n]^2*S2[-3, 1, n])/2 + 
   (9*S2[2, Infinity]*S2[-3, 1, n])/2 + (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    4 - (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   2*S2[1, n]^3*S2[-2, 1, n] - 2*S2[3, Infinity]*S2[-2, 1, n] - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   2*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (39*S2[2, Infinity]^2*S2[-1, 1, n])/10 + S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] + Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] - 
   Diff[S2[1, n], n, 2]*S2[2, 1, n] + 4*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - Half[S2[1, n], n]*S2[1, n]^2*
    S2[2, 1, n] + S2[1, n]^3*S2[2, 1, n] - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] + 6*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] + 
   2*S2[1, n]*S2[2, Infinity]*S2[2, 1, n] + (7*S2[3, Infinity]*S2[2, 1, n])/
    2 - S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] - 4*Half[S2[1, n], n]*S2[4, 1, n] + 
   4*S2[1, n]*S2[4, 1, n] - 5*S2[-4, 1, 1, n] + S2[1, n]*S2[-3, 1, 1, n] - 
   2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 4*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + 2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   4*S2[3, Infinity]*S2[-1, 1, 1, n] + 4*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   3*S2[1, n]^2*S2[1, 2, -1, n] + 3*S2[2, Infinity]*S2[1, 2, -1, n] + 
   2*S2[1, n]*S2[2, 1, -2, n] + (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   3*S2[1, n]^2*S2[2, 1, -1, n] + 2*S2[2, Infinity]*S2[2, 1, -1, n] - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - 3*S2[1, n]^2*S2[2, 1, 1, n] - 
   2*S2[2, Infinity]*S2[2, 1, 1, n] - 3*S2[-1, 1, n]*S2[2, 1, 1, n] - 
   S2[3, 1, -2, n] - 4*Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   4*S2[1, n]*S2[3, 1, 1, n] - 6*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   S2[-2, 1, 1, 2, n] + 2*S2[-2, 2, 1, 1, n] - 
   6*S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (97*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]*S2[1, 1, 2, -1, n] + (3*S2[2, -2, 1, 1, n])/2 + 
   6*S2[-2, 1, 1, 1, 1, n] - 2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   3*S2[1, -1, 1, 1, 2, n] - 2*S2[1, 1, -1, 1, 2, n] - 
   3*S2[1, 1, 1, -1, 2, n] - S2[1, 1, 2, -1, 1, n] + 
   4*S2[1, 1, 2, 1, -1, n] + 4*S2[1, 2, 1, 1, -1, n] - 
   6*S2[-1, 1, 1, 1, 1, 1, Infinity], S2[-1, -1, -3, -1, n] -> 
  (7*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (113*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 + 
   (1003*Diff[Half[S2[1, n], n], n, 5])/1152 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/3 + (9*Diff[Half[S2[4, 1, n], n], n, 1])/
    16 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   (293*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (1129*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 - 
   (25*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (3625*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (3313*Diff[S2[1, n], n, 1]^3)/192 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/16 + 
   (581*Diff[S2[1, n], n, 2]^2)/96 - (5285*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 + (14363*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 - (2009*Diff[S2[1, n], n, 5])/2880 + 
   Diff[S2[-4, 1, n], n, 1] + (31*Diff[S2[-3, 1, n], n, 2])/16 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (107*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (23*Diff[S2[-2, 1, n], n, 3])/8 + (101*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/96 - 
   (581*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (23*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (209*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (671*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (113*Diff[S2[-1, 1, n], n, 4])/48 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (23*Diff[S2[2, 1, n], n, 3])/48 - (23*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-2, 1, -2, n], n, 1])/8 + (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + 
   Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (47*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (29*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (141*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (241*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (19*Diff[S2[-1, 1, 1, n], n, 3])/16 + (5*Diff[S2[1, 2, -1, n], n, 2])/2 + 
   Diff[S2[2, 1, -2, n], n, 1] + (23*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   3*Diff[S2[2, 1, 1, n], n, 2] + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   9*Diff[S2[-2, 1, 1, 1, n], n, 1] + (9*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    16 + (9*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 - 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   (3*Diff[S2[1, -1, 1, -2, n], n, 1])/2 + (5*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 - 3*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   (7*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 6*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   (7*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 + 
   (15*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (9*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   (21*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   (15*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (17*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (9*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (27*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (27*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/2 - 
   (9*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (253*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 - (11*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (581*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (677*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (557*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (61*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (77*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (33*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (75*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 + 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (9*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (79*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (23*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (25*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (127*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (9*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (23*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (29*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (39*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (169*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (63*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 + (341*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    192 - (79*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (265*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (35*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 + 
   (139*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (179*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (233*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (49*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 + 
   (5*Half[S2[2, 1, n], n]^2)/32 - (9*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (51*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/4 - 
   (5*Half[S2[4, 1, 1, n], n])/16 + (179*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    32 + (13*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (37*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - 
   (161*S2[-1, Infinity]^6)/2880 - (353*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 - 
   (311*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (17*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (613*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (957*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (3173*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (133*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (229*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (157*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (117*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (257*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (9*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 - 
   (9*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (79*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (65*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (57*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (19*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (31*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (157*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (379*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (53*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (109*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (23*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (19*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (55*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 - 
   (547*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (49*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (205*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (5*Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (245*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (151*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (7*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 + 
   (33*S2[-1, Infinity]^5*S2[1, n])/320 + 
   (97*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (653*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (41*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 - 
   (989*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (1919*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (3077*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (1157*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (93*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (71*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (371*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (53*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (193*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (155*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + (7*S2[-1, Infinity]^4*S2[1, n]^2)/
    128 - (725*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   (313*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (41*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/8 - 
   (53*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (179*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (511*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (65*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (23*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (131*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 + 
   (2077*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (61*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (513*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (1891*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (59*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 + 
   (299*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (21*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (235*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (71*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (115*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 + (201*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (169*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (15*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (377*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (139*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (95*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (161*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (49*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (163*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/
    64 - (357*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (39*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (43*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (23*S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (113*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (535*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (1007*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (623*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 + (17*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 + (73*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (121*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (1361*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (247*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - Half[S2[1, n], n]*S2[-1, Infinity]^2*
    S2[1, n]*S2[2, Infinity] - (419*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (953*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (13*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (303*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/64 + (77*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    24 - (439*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (41*S2[1, n]^4*S2[2, Infinity])/96 - 
   (1711*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (13553*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (845*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/384 + 
   (1461*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (1163*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (2309*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (5393*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (1847*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (57763*S2[2, Infinity]^3)/
    2688 + (2593*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (547*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (363*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (813*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 + (1091*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 - 
   (263*Half[S2[1, n], n]^3*S2[3, Infinity])/768 + 
   (141*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (437*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (819*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 + 
   (1091*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (1507*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (1943*S2[1, n]^3*S2[3, Infinity])/768 - 
   (203*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (2055*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (3741*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (339*S2[3, Infinity]^2)/32 - (1075*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (13083*S2[1, n]*S2[5, Infinity])/256 - (27*S2[-5, -1, Infinity])/
    2 + 10*S2[-5, 1, n] + 3*Half[S2[1, n], n]*S2[-4, 1, n] - 
   (3*S2[1, n]*S2[-4, 1, n])/2 + (263*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/96 - (197*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (59*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/3 + 
   (457*S2[1, n]^2*S2[-3, 1, n])/96 + (577*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (137*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 - 
   (151*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (95*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (155*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (49*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 - 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (869*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (199*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (275*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/48 + (145*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    4 - (391*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (61*S2[3, Infinity]*S2[-2, 1, n])/32 + (5*S2[-2, 1, n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (43*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (199*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (415*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (145*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 + 
   (73*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (59*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (39*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (5*Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 + 
   (73*S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (187*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (107*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (13*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (205*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (551*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 + 
   (23*S2[1, n]^4*S2[-1, 1, n])/48 - (169*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (19*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (143*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (223*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (77*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (35*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5309*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (97*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (47*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (161*S2[-3, 1, n]*S2[-1, 1, n])/48 - 
   (13*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (13*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (227*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/12 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/6 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/12 - (67*S2[2, Infinity]*S2[-1, 1, n]^2)/24 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 - 
   (173*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (163*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (59*Half[S2[1, n], n]^3*S2[2, 1, n])/96 - 2*Half[S2[2, 1, n], n]*
    S2[2, 1, n] + (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/
    16 + (259*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (29*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (103*S2[1, n]^3*S2[2, 1, n])/96 + 5*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - (335*S2[3, Infinity]*S2[2, 1, n])/
    32 + 8*S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (41*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (11*S2[2, 1, n]^2)/2 - 
   (19*S2[1, n]*S2[4, 1, n])/2 - 10*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 + 
   3*Half[S2[1, n], n]*S2[-3, 1, 1, n] + 2*S2[1, n]*S2[-3, 1, 1, n] + 
   (3*S2[1, n]*S2[-2, 1, -2, n])/4 + (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (51*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   Half[S2[1, n], n]^2*S2[-2, 1, -1, n] - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + S2[1, n]^2*S2[-2, 1, -1, n] - 
   (15*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - (19*S2[-2, 2, -2, n])/8 - 
   (91*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/12 - 
   (13*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/3 + 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/96 + 
   (109*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (23*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (5*Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (119*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (15*S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (37*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (759*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (2*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/3 - 
   (2*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/3 + 
   (9*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (9*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (63*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - 6*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (31*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - 5*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (9*S2[-1, 1, 1, n]^2)/4 - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (93*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   Half[S2[1, n], n]^2*S2[1, 2, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (13*S2[1, n]^2*S2[1, 2, -1, n])/4 + (21*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*
    S2[2, 1, -2, n] - (7*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (91*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (89*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (13*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (211*S2[1, n]^2*S2[2, 1, -1, n])/48 + (55*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (59*S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   Half[S2[1, n], n]^2*S2[2, 1, 1, n] - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (23*S2[1, n]^2*S2[2, 1, 1, n])/4 - (39*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (5*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - (5*S2[3, 1, -2, n])/2 + 
   (19*S2[4, 1, 1, n])/2 - 15*S2[-3, 1, 1, 1, n] + 
   (3*S2[-2, -2, 1, 1, n])/2 + Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 
   (13*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (5*S2[-2, 2, 1, 1, n])/2 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (43*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (13*S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (23*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (8*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (9*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (9*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (57*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (57*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (99*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (179*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (63*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (39*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (21*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (95*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (73*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 + Half[S2[1, n], n]*
    S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] + 
   (5*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (5*S2[2, -2, 1, 1, n])/2 - 
   (9*S2[1, n]*S2[2, 1, 1, 1, n])/2 - (15*S2[-2, 1, 1, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (5*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (15*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - (9*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 + (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (37*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (99*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (15*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (15*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (21*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (21*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 3*S2[1, -1, -1, 1, 2, n] + 
   (11*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (11*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (9*S2[1, -1, 1, 1, -2, n])/2 + 
   (5*S2[1, -1, 1, 1, 2, n])/2 - 3*S2[1, -1, 1, 2, -1, n] - 
   (3*S2[1, 1, -2, -1, 1, n])/2 - 3*S2[1, 1, -2, 1, -1, n] + 
   (11*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (11*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 6*S2[1, 1, -1, 1, -2, n] - 
   3*S2[1, 1, -1, 2, -1, n] - 12*S2[1, 1, 1, -2, -1, n] - 
   12*S2[1, 1, 1, -1, -2, n] - 15*S2[1, 1, 1, 2, -1, n] - 
   6*S2[1, 1, 2, -1, -1, n] - (5*S2[1, 1, 2, -1, 1, n])/2 - 
   10*S2[1, 1, 2, 1, -1, n] - 3*S2[1, 2, 1, -1, -1, n] - 
   5*S2[1, 2, 1, 1, -1, n] + (9*S2[2, 1, 1, 1, 1, n])/2 + 
   (5*S2[-1, -1, -1, 1, -1, -1, n])/8 + (15*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   (15*S2[-1, 1, -1, -1, -1, -1, n])/4 + (29*S2[-1, 1, -1, -1, -1, 1, n])/8 + 
   (3*S2[-1, 1, -1, 1, -1, -1, n])/4 + (9*S2[-1, 1, -1, 1, 1, 1, n])/4 + 
   (3*S2[-1, 1, 1, -1, -1, -1, n])/2 - (9*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   (161*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + 
   (25*S2[1, -1, -1, -1, -1, -1, n])/4 - (23*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   5*S2[1, -1, -1, 1, -1, -1, n] - (11*S2[1, -1, 1, -1, -1, -1, n])/4 - 
   7*S2[1, 1, -1, -1, -1, -1, n] - (9*S2[1, 1, 1, -1, 1, -1, n])/4 - 
   9*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -1, -3, 1, n] -> 
  (-5*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (31*Diff[Half[S2[1, n], n], n, 2]^2)/48 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/36 - 
   (3919*Diff[Half[S2[1, n], n], n, 5])/5760 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 + 
   (731*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 - 
   (589*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (71*Diff[S2[1, n], n, 1]^3)/8 + (307*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (527*Diff[S2[1, n], n, 2]^2)/96 + 
   (4223*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (2677*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (3649*Diff[S2[1, n], n, 5])/5760 + 7*Diff[S2[-4, 1, n], n, 1] + 
   (175*Diff[S2[-3, 1, n], n, 2])/96 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (293*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (59*Diff[S2[-2, 1, n], n, 3])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (55*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   (11*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (707*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (353*Diff[S2[-1, 1, n], n, 4])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (5*Diff[S2[2, 1, n], n, 3])/12 + 2*Diff[S2[4, 1, n], n, 1] + 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/32 - (51*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (23*Diff[S2[-1, 1, 1, n], n, 3])/24 - (19*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   (37*Diff[S2[2, 1, -1, n], n, 2])/16 - (9*Diff[S2[2, 1, 1, n], n, 2])/8 - 
   Diff[S2[3, 1, 1, n], n, 1] + 6*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/16 - Diff[S2[-1, 1, -1, 1, n], n, 2]/4 + 
   (31*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 + Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] - (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/4 - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (7*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/18 + (7*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 - (323*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (521*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (325*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (23*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (185*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (167*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 - 
   (11*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (11*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (55*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 + 
   (133*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 - 
   (41*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 - 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (521*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 - (1331*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 + (23*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (11*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/24 + (17*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (7*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (3*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (17*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/96 - (73*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    96 + (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/3 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 - 
   Half[S2[2, 1, n], n]^2/64 - (3*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 + 
   Half[S2[4, 1, 1, n], n]/16 + Half[S2[2, 2, 1, 1, n], n]/16 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (17*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + (17*S2[-1, Infinity]^6)/
    1440 + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     S2[1, n])/12 + (13*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/9 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/4 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (517*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (155*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (1967*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (2789*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (649*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (47*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (667*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 + 
   (701*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (43*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (21*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (125*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (19*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (27*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (61*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    12 - (137*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (27*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (17*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (33*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (123*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (11*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/8 - 
   (S2[-1, Infinity]^5*S2[1, n])/32 - 
   (55*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 - 
   (659*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (25*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (59*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 + 
   (421*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (1633*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 + 
   (4495*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 - 
   (37*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (53*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/12 + 
   (17*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (53*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (151*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/32 - 
   (15*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 + 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (161*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (81*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (31*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/4 - (13*Half[S2[1, n], n]*S2[1, n]^5)/
    16 + (19*S2[1, n]^6)/96 + (67*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (565*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (19*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 - (Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/16 - (211*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/64 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 + 
   (667*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (109*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (13*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (113*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (69*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (175*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (127*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 - (449*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/2 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (101*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (37*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (263*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/2 - 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (335*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (413*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (587*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (29*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (23*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (243*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (33*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (5*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/8 + (473*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (485*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (61*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/8 - (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    2 - (235*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (35*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (13*S2[1, n]^4*S2[2, Infinity])/16 + 
   (2423*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (179*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (1711*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (49*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (297*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (2947*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2 + 
   (1813*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (1399*S2[2, Infinity]^3)/896 - 
   (455*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (349*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (421*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (105*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (85*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (37*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (469*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (147*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (233*S2[1, n]^3*S2[3, Infinity])/192 + 
   (311*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (699*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (6847*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (14545*S2[3, Infinity]^2)/3072 + (2243*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (15955*S2[1, n]*S2[5, Infinity])/512 + (27*S2[-5, -1, Infinity])/
    16 + 5*S2[-5, 1, n] + (7*Half[S2[1, n], n]*S2[-4, 1, n])/2 - 
   (17*S2[1, n]*S2[-4, 1, n])/2 + (67*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/96 - (119*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 + 
   (67*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 - 
   (43*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (7*S2[1, n]^2*S2[-3, 1, n])/48 - (91*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (113*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/6 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (67*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (11*S2[3, Infinity]*S2[-2, 1, n])/32 - S2[-2, 1, n]^2/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (139*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 - 
   (113*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 + 
   (295*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 - 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (21*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (199*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (15*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (S2[1, n]^4*S2[-1, 1, n])/4 + (47*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/3 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (125*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (51*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (61*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (649*S2[2, Infinity]^2*S2[-1, 1, n])/192 + 
   (115*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (189*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (5*S2[-3, 1, n]*S2[-1, 1, n])/8 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 - (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (9*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (5*S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   (5*S2[-1, 1, n]^3)/48 + (83*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    96 - (41*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (13*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (31*S2[1, n]^3*S2[2, 1, n])/48 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (139*S2[3, Infinity]*S2[2, 1, n])/32 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (7*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - (5*S2[2, 1, n]^2)/4 + 
   4*Half[S2[1, n], n]*S2[4, 1, n] - (7*S2[1, n]*S2[4, 1, n])/2 + 
   6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 - 3*S2[1, n]*S2[-3, 1, 1, n] - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (5*S2[1, n]^2*S2[-2, 1, -1, n])/8 + 2*S2[2, Infinity]*S2[-2, 1, -1, n] + 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 + (5*S2[-2, 2, -2, n])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (31*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (7*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/48 - 
   (31*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (19*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n] - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/3 + 
   (171*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (39*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (53*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (93*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (11*S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 + (3*S2[-1, 1, 1, n]^2)/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (21*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (27*S2[1, n]^2*S2[1, 2, -1, n])/8 - (3*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 - (3*S2[-1, 1, n]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + (3*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (211*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (71*S2[1, n]^2*S2[2, 1, -1, n])/24 - (S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (13*S2[1, n]^2*S2[2, 1, 1, n])/8 + 
   (11*S2[2, Infinity]*S2[2, 1, 1, n])/4 - (5*S2[-1, 1, n]*S2[2, 1, 1, n])/
    4 + (3*S2[3, 1, -2, n])/2 - (5*S2[4, 1, 1, n])/2 + 8*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n]/2 - (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 + 
   (13*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (49*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (17*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (31*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (19*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - (3*S2[1, n]*S2[1, 1, 2, -1, n])/
    2 - (3*S2[2, -2, 1, 1, n])/2 + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    8 - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (15*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (7*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (7*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   S2[1, n]*S2[1, -1, 1, -1, -1, n] + (3*S2[1, -1, 1, 1, -2, n])/2 - 
   (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, -1, 1, 2, -1, n] + 
   (3*S2[1, 1, -2, -1, 1, n])/2 + 2*S2[1, 1, -2, 1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 2*S2[1, 1, -1, 1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 + S2[1, 1, -1, 2, -1, n] + 
   7*S2[1, 1, 1, -2, -1, n] + 4*S2[1, 1, 1, -1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + 9*S2[1, 1, 1, 2, -1, n] + 
   2*S2[1, 1, 2, -1, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] + S2[1, 2, 1, -1, -1, n] + 
   3*S2[1, 2, 1, 1, -1, n] - (3*S2[2, 1, 1, 1, 1, n])/2 + 
   S2[-1, -1, -1, 1, -1, -1, n]/8 + S2[-1, -1, 1, -1, -1, -1, n]/8 + 
   S2[-1, -1, 1, 1, -1, -1, n]/4 - S2[-1, 1, -1, -1, -1, -1, n]/4 - 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 - S2[-1, 1, -1, -1, 1, 1, n]/4 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + S2[-1, 1, 1, -1, -1, -1, n]/4 + 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - (17*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + (3*S2[1, -1, -1, -1, 1, -1, n])/8 + 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - S2[1, -1, -1, 1, 1, -1, n]/4 + 
   S2[1, -1, 1, -1, -1, -1, n]/2 + (3*S2[1, 1, -1, -1, -1, -1, n])/2 - 
   S2[1, 1, -1, -1, 1, -1, n]/4 - S2[1, 1, -1, 1, -1, -1, n]/4 - 
   (3*S2[1, 1, 1, -1, -1, -1, n])/4 + (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -1, 3, -1, n] -> 
  (-65*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (115*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 - 
   (5347*Diff[Half[S2[1, n], n], n, 5])/5760 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/64 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/4 - 
   (15*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   (3*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 - 
   (3*Diff[Half[S2[2, 1, 1, 1, n], n], n, 1])/8 + 
   (123*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (265*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (41*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 - 
   (1493*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (1885*Diff[S2[1, n], n, 1]^3)/96 + 
   (375*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 - 
   (691*Diff[S2[1, n], n, 2]^2)/96 + (2041*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/384 - (2725*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/192 + (4537*Diff[S2[1, n], n, 5])/5760 - 
   12*Diff[S2[-4, 1, n], n, 1] - (177*Diff[S2[-3, 1, n], n, 2])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (307*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (173*Diff[S2[-2, 1, n], n, 3])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 + 
   (305*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (23*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (267*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (1441*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (455*Diff[S2[-1, 1, n], n, 4])/192 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (39*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[2, 1, n], n, 3])/4 + 6*Diff[S2[4, 1, n], n, 1] + 
   (23*Diff[S2[-3, 1, 1, n], n, 1])/2 - (9*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (9*Diff[S2[-2, 1, -1, n], n, 2])/8 - (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 - (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (3*Diff[S2[-1, 1, -1, n], n, 3])/32 - 
   (155*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] - 
   (4*Diff[S2[-1, 1, 1, n], n, 3])/3 - (17*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1] - (47*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (27*Diff[S2[2, 1, 1, n], n, 2])/8 - 3*Diff[S2[3, 1, 1, n], n, 1] + 
   11*Diff[S2[-2, 1, 1, 1, n], n, 1] - (19*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    16 - (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/4 + 
   (39*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 + 
   (3*Diff[S2[1, -1, 1, -2, n], n, 1])/2 - (5*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 + 6*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   (7*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 3*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   6*Diff[S2[2, 1, 1, 1, n], n, 1] + (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/
    8 + (9*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (13*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (15*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 - 
   (9*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   (15*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (21*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (19*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (39*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (39*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 + 
   3*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (139*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (51*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/64 + (13*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (11*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (73*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (1013*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (277*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 + 
   (45*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (27*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (185*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 - 
   (33*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n] - 
   (31*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (27*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (47*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (11*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (35*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (65*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (43*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/64 - 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (171*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/64 - (183*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    128 + (55*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (55*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (143*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (101*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (103*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 + 
   (101*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (157*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n] - 
   (25*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   (3*Half[S2[2, 1, n], n]^2)/64 + (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/
    8 + (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 + 
   (3*Half[S2[4, 1, 1, n], n])/16 + (3*Half[S2[2, 2, 1, 1, n], n])/16 - 
   (239*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/2 - 
   (19*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + S2[-1, Infinity]^6/20 + 
   (487*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    96 + (257*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/2 - 
   (11*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (53*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (1191*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (1253*Diff[S2[1, n], n, 4]*S2[1, n])/384 - 
   (133*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 + 
   (37*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (569*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/32 + 
   (839*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (129*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (17*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (59*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 + 
   (15*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (25*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + 14*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   (25*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (47*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/6 + 
   (503*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (87*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (89*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (5*Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (37*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (35*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (7*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (149*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (291*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 - 
   (79*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/64 + 
   (15*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (15*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/64 + 
   (479*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (1639*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/64 + 
   (2477*Diff[S2[1, n], n, 3]*S2[1, n]^2)/384 - 
   (53*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (103*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 - 
   (141*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (31*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 - 
   (113*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (275*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (37*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (225*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (115*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (21*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 + 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (27*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (137*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (367*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (511*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (31*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (23*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 - 
   (235*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (93*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + 
   (59*Half[S2[1, n], n]^2*S2[1, n]^4)/24 - (11*Half[S2[1, n], n]*S2[1, n]^5)/
    12 + (5*S2[1, n]^6)/96 + (45*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/8 - (781*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    192 - (29*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (509*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (79*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (285*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (25*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (229*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (421*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    32 - (139*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 + 
   (63*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (21*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (229*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (69*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (141*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (17*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (121*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/
    64 + (813*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity] + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (37*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (133*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (197*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (325*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (233*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 - (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 - (33*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    64 + (111*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (81*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (39*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (189*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (317*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (101*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (63*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (9*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (343*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (179*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (21*S2[1, n]^4*S2[2, Infinity])/32 + 
   (3211*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (4259*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (943*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 - 
   (149*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (2039*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (1767*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (2609*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (1061*S2[1, n]^2*S2[2, Infinity]^2)/640 - (139387*S2[2, Infinity]^3)/
    4480 - (1339*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (1753*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (229*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (1071*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 - (825*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (53*Half[S2[1, n], n]^3*S2[3, Infinity])/96 - 
   (199*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (479*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (337*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (319*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (901*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (1181*S2[1, n]^3*S2[3, Infinity])/384 + 
   (1233*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (99*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/4 + 
   (4205*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (1737*S2[3, Infinity]^2)/1024 - (3439*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (26481*S2[1, n]*S2[5, Infinity])/512 + (91*S2[-5, -1, Infinity])/
    16 - 36*S2[-5, 1, n] - 7*Half[S2[1, n], n]*S2[-4, 1, n] - 
   (5*S2[1, n]*S2[-4, 1, n])/2 + (61*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/32 + (309*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/32 + 
   (25*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/16 - (229*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/6 + 
   (361*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (25*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (71*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 + 
   (27*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (19*S2[1, n]^3*S2[-2, 1, n])/24 - (55*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 + (103*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (119*S2[3, Infinity]*S2[-2, 1, n])/32 - (3*S2[-2, 1, n]^2)/4 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/32 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/2 + 
   (211*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (227*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (395*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 - 2*Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] - (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (5*Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 - 
   (39*S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (149*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (69*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (55*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (115*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (221*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (29*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (29*S2[1, n]^4*S2[-1, 1, n])/48 + (89*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (21*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (63*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (75*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (129*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (39*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (569*S2[2, Infinity]^2*S2[-1, 1, n])/64 + 
   (449*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (123*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/4 + (11*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 - (17*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (19*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (51*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 - (5*S2[-1, 1, n]^3)/16 - (227*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/96 + (353*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (35*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (9*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   8*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (31*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (31*S2[1, n]^3*S2[2, 1, n])/48 - (49*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (393*S2[3, Infinity]*S2[2, 1, n])/32 - (9*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (19*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (15*S2[2, 1, n]^2)/4 - 
   4*Half[S2[1, n], n]*S2[4, 1, n] + (11*S2[1, n]*S2[4, 1, n])/2 + 
   14*S2[-4, 1, 1, n] + (3*S2[-3, -2, 1, n])/2 - 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] - 4*S2[1, n]*S2[-3, 1, 1, n] - 
   (3*S2[1, n]*S2[-2, 1, -2, n])/4 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (19*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (7*S2[1, n]^2*S2[-2, 1, -1, n])/8 + 
   (21*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/4 + (15*S2[-2, 2, -2, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/32 + 
   (27*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/32 + 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/16 - 
   (25*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (2*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/3 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (17*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (27*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (569*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (9*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (9*S2[-1, 1, -1, n]^2)/16 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 - (23*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (135*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (93*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (29*S2[3, Infinity]*S2[-1, 1, 1, n])/64 + (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 + (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (23*S2[2, 1, n]*S2[-1, 1, 1, n])/4 - (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 + (9*S2[-1, 1, 1, n]^2)/4 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + 12*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (27*S2[1, n]^2*S2[1, 2, -1, n])/8 - (9*S2[2, Infinity]*S2[1, 2, -1, n])/
    2 - (3*S2[-1, 1, n]*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*
    S2[2, 1, -2, n] + (7*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/16 + 
   (143*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (29*S2[1, n]^2*S2[2, 1, -1, n])/8 - (19*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (3*S2[-1, 1, n]*S2[2, 1, -1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/
    8 + (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (45*S2[1, n]^2*S2[2, 1, 1, n])/8 + 9*S2[2, Infinity]*S2[2, 1, 1, n] - 
   (13*S2[-1, 1, n]*S2[2, 1, 1, n])/4 + (9*S2[3, 1, -2, n])/2 + 
   2*Half[S2[1, n], n]*S2[3, 1, 1, n] - 2*S2[1, n]*S2[3, 1, 1, n] - 
   (15*S2[4, 1, 1, n])/2 + 19*S2[-3, 1, 1, 1, n] - 
   (3*S2[-2, -2, 1, 1, n])/2 - Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   (13*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (5*S2[-2, 2, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/8 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] + 
   (3*S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (15*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (9*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (63*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (63*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (99*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (239*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   12*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (19*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (45*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (81*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (49*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (117*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*S2[1, n]*S2[1, 1, -2, -1, n])/2 - Half[S2[1, n], n]*
    S2[1, 1, -1, 2, n] + S2[1, n]*S2[1, 1, -1, 2, n] - 
   (11*S2[1, n]*S2[1, 1, 2, -1, n])/2 - (9*S2[2, -2, 1, 1, n])/2 + 
   (9*S2[1, n]*S2[2, 1, 1, 1, n])/2 + (15*S2[-2, 1, 1, 1, 1, n])/2 + 
   (15*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (15*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (39*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   3*S2[1, n]*S2[-1, 1, -1, -1, -1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (21*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (27*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (149*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (33*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (33*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (11*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 3*S2[1, -1, -1, 1, 2, n] - 
   (9*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (9*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (9*S2[1, -1, 1, 1, -2, n])/2 - 
   (5*S2[1, -1, 1, 1, 2, n])/2 + 3*S2[1, -1, 1, 2, -1, n] + 
   (9*S2[1, 1, -2, -1, 1, n])/2 + 6*S2[1, 1, -2, 1, -1, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 6*S2[1, 1, -1, 1, -2, n] - 
   (9*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (9*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 + 3*S2[1, 1, -1, 2, -1, n] + 
   21*S2[1, 1, 1, -2, -1, n] + 12*S2[1, 1, 1, -1, -2, n] - 
   (9*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + 24*S2[1, 1, 1, 2, -1, n] + 
   6*S2[1, 1, 2, -1, -1, n] + (11*S2[1, 1, 2, -1, 1, n])/2 + 
   13*S2[1, 1, 2, 1, -1, n] + 3*S2[1, 2, 1, -1, -1, n] + 
   5*S2[1, 2, 1, 1, -1, n] - (9*S2[2, 1, 1, 1, 1, n])/2 - 
   (19*S2[-1, -1, -1, 1, -1, -1, n])/8 - (51*S2[-1, -1, 1, -1, -1, -1, n])/
    8 + (3*S2[-1, -1, 1, 1, -1, -1, n])/4 - (45*S2[-1, 1, -1, -1, -1, -1, n])/
    4 - (15*S2[-1, 1, -1, -1, -1, 1, n])/8 + (3*S2[-1, 1, -1, -1, 1, 1, n])/
    4 - (9*S2[-1, 1, -1, 1, 1, 1, n])/4 + (3*S2[-1, 1, 1, -1, -1, -1, n])/4 + 
   (9*S2[-1, 1, 1, 1, -1, 1, n])/4 - 36*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   (65*S2[1, -1, -1, -1, -1, -1, n])/4 + (9*S2[1, -1, -1, -1, 1, -1, n])/8 + 
   (9*S2[1, -1, -1, 1, -1, -1, n])/4 + (3*S2[1, -1, -1, 1, 1, -1, n])/4 + 
   (3*S2[1, -1, 1, -1, -1, -1, n])/2 + (9*S2[1, 1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, 1, -1, -1, 1, -1, n])/4 + (3*S2[1, 1, -1, 1, -1, -1, n])/4 + 
   (9*S2[1, 1, 1, -1, -1, -1, n])/4 + (9*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   9*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -1, 3, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/64 - (61*Diff[Half[S2[1, n], n], n, 2]^2)/
    64 - (29*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    36 + (81*Diff[Half[S2[1, n], n], n, 5])/128 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 - (149*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (1265*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (1759*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (523*Diff[S2[1, n], n, 1]^3)/64 - (131*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (257*Diff[S2[1, n], n, 2]^2)/48 - 
   (3767*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (9911*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (53*Diff[S2[1, n], n, 5])/90 - 5*Diff[S2[-4, 1, n], n, 1] - 
   (31*Diff[S2[-3, 1, n], n, 2])/16 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (23*Diff[S2[-2, 1, n], n, 3])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (123*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   10*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] + 
   (25*Diff[S2[-1, 1, n], n, 4])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (43*Diff[S2[2, 1, n], n, 3])/48 - (11*Diff[S2[4, 1, n], n, 1])/2 - 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (13*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (89*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (13*Diff[S2[-1, 1, 1, n], n, 3])/16 + 2*Diff[S2[1, 2, -1, n], n, 2] + 
   (17*Diff[S2[2, 1, -1, n], n, 2])/8 + (7*Diff[S2[2, 1, 1, n], n, 2])/4 + 
   2*Diff[S2[3, 1, 1, n], n, 1] - 6*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 - 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 
   (5*Diff[S2[2, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 - 
   (13*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (11*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (115*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (349*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (97*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (431*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (319*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (107*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (23*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (49*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (37*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (11*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (61*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 - (79*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 - 
   (31*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (61*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (33*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (59*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   Half[S2[2, 1, n], n]^2/64 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (3*Half[S2[4, 1, 1, n], n])/16 + (97*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - 
   (29*S2[-1, Infinity]^6)/2880 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (727*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (11*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (15*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (325*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (143*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (1811*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (2477*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (769*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (49*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (197*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (15*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (43*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (17*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (101*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (23*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (25*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 + 
   (221*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (65*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 + (149*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 + 
   (103*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (31*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (27*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (193*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (121*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (37*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (55*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (67*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (7*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (S2[-1, Infinity]^5*S2[1, n])/20 + 
   (39*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (575*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (35*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/6 - 
   (491*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (809*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (2015*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (779*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (169*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (131*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + 
   (17*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (245*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   (151*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (61*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (61*Half[S2[1, n], n]^3*S2[1, n]^3)/48 - 
   (73*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (51*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/8 + (23*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - (5*S2[1, n]^6)/24 - (21*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/8 + (415*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    576 - (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (313*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (89*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (185*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (4*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 + 
   (85*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (17*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (103*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (55*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (209*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (115*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 + (121*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (3*Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (31*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (105*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (21*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (9*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (39*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (263*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (485*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (671*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (29*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (353*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (79*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/32 + (3*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/8 - (611*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (709*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (57*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (85*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    64 + (259*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (239*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (15*S2[1, n]^4*S2[2, Infinity])/16 - 
   (3041*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (245*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/384 + 
   (379*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (813*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (3037*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (11*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (779*S2[1, n]^2*S2[2, Infinity]^2)/384 + (60523*S2[2, Infinity]^3)/13440 + 
   (663*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 - 
   (53*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 + 
   (387*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (955*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (245*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (57*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (13*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/12 + 
   (1687*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (355*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (191*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (721*S2[1, n]^3*S2[3, Infinity])/768 - 
   (1847*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (831*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (5959*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (3643*S2[3, Infinity]^2)/3072 + (79*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (1823*S2[1, n]*S2[5, Infinity])/64 + S2[-5, -1, Infinity]/2 + 
   6*S2[-5, 1, n] + (Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   (17*S2[1, n]*S2[-4, 1, n])/2 - (259*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/96 + (89*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (15*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (133*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 - 
   (149*S2[1, n]^2*S2[-3, 1, n])/96 + (139*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   2*Diff[S2[1, n], n, 2]*S2[-2, 1, n] + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (221*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (55*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (107*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (23*S2[1, n]^3*S2[-2, 1, n])/48 + (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (25*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (S2[3, Infinity]*S2[-2, 1, n])/8 - S2[-2, 1, n]^2/4 - 
   (83*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (139*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (179*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/12 + 
   (11*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (23*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (233*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (15*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 - 
   (S2[1, n]^4*S2[-1, 1, n])/6 - (65*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (39*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (127*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (23*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (4277*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (67*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (43*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (35*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/48 - (65*S2[2, Infinity]*S2[-1, 1, n]^2)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 - 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (47*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (21*S2[1, n]^3*S2[2, 1, n])/32 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - (33*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (77*S2[3, Infinity]*S2[2, 1, n])/16 + (S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (25*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (3*S2[2, 1, n]^2)/4 + 
   (7*S2[1, n]*S2[4, 1, n])/2 - 6*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + 3*S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 - (5*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (5*S2[-2, 2, -2, n])/8 - (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/96 - (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (11*S2[1, n]^2*S2[-1, -2, -1, n])/96 + 
   (19*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/3 - 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (117*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (41*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (3*S2[-1, 1, 1, n]^2)/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (37*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 + 
   (13*S2[1, n]^2*S2[1, 2, -1, n])/4 + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 - (3*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (97*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 + 
   (121*S2[1, n]^2*S2[2, 1, -1, n])/48 - (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (11*S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (7*S2[1, n]^2*S2[2, 1, 1, n])/4 - 2*S2[2, Infinity]*S2[2, 1, 1, n] + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - (3*S2[3, 1, -2, n])/2 + 
   (9*S2[4, 1, 1, n])/2 - 9*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + (9*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - (3*S2[-2, 2, 1, 1, n])/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (11*Diff[S2[1, n], n, 1]*
     S2[-1, 1, -1, -1, n])/48 + (Half[S2[1, n], n]*S2[1, n]*
     S2[-1, 1, -1, -1, n])/6 - (7*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (49*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (17*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (23*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (33*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 + (3*S2[1, n]*S2[1, 1, 2, -1, n])/
    2 + (3*S2[2, -2, 1, 1, n])/2 - (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   S2[2, 2, 1, 1, n]/2 - (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (5*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   6*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (15*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, 1, -2, n])/2 + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, -1, 1, 2, -1, n] - 
   (3*S2[1, 1, -2, -1, 1, n])/2 - 2*S2[1, 1, -2, 1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   2*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 2*S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] - 7*S2[1, 1, 1, -2, -1, n] - 
   4*S2[1, 1, 1, -1, -2, n] - 9*S2[1, 1, 1, 2, -1, n] - 
   2*S2[1, 1, 2, -1, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   6*S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, -1, -1, n] - 
   3*S2[1, 2, 1, 1, -1, n] + (3*S2[2, 1, 1, 1, 1, n])/2 + 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 + (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   S2[-1, 1, -1, -1, -1, 1, n]/8 - S2[-1, 1, -1, 1, -1, -1, n]/4 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - S2[-1, 1, 1, -1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + (29*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 + S2[1, -1, -1, -1, 1, -1, n]/8 - 
   S2[1, -1, 1, -1, -1, -1, n]/4 - S2[1, 1, -1, -1, -1, -1, n] - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, -2, -2, n] -> (53*Diff[Half[S2[1, n], n], n, 2]^2)/64 + 
   (127*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (21*Diff[Half[S2[1, n], n], n, 5])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/4 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 - 
   (9*Diff[Half[S2[4, 1, n], n], n, 1])/16 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (43*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (1487*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (935*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 + 
   (881*Diff[S2[1, n], n, 1]^3)/48 + 10*Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 2] - (971*Diff[S2[1, n], n, 2]^2)/96 + 
   (263*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/36 - 
   (5035*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (3319*Diff[S2[1, n], n, 5])/2880 + Diff[S2[-4, 1, n], n, 1]/2 - 
   (13*Diff[S2[-3, 1, n], n, 2])/8 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/6 + 
   (421*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (43*Diff[S2[-2, 1, n], n, 3])/12 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (39*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (733*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (57*Diff[S2[-1, 1, n], n, 4])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[2, 1, n], n, 3]/2 + (3*Diff[S2[4, 1, n], n, 1])/2 + 
   (29*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   Diff[S2[-1, 1, -1, n], n, 3]/24 - (23*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (15*Diff[S2[-1, 1, 1, n], n, 3])/8 - (17*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (17*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 - 4*Diff[S2[3, 1, 1, n], n, 1] + 
   (23*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/
    2 - (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/8 + 
   7*Diff[S2[-1, 1, 1, 1, n], n, 2] + Diff[S2[1, -1, 1, -2, n], n, 1] - 
   3*Diff[S2[1, -1, 1, 2, n], n, 1] + 3*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   (7*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + Diff[S2[1, 2, -1, -1, n], n, 1] - 
   5*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   4*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + Diff[S2[1, -1, -1, 1, -1, n], n, 
    1] + (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/2 + 
   3*Diff[S2[1, 1, -1, -1, -1, n], n, 1] + Diff[S2[1, 1, -1, 1, -1, n], n, 1]/
    2 + Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (133*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/4 - (271*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 - (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (19*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/18 + 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (19*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    3 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (27*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (35*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (29*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/3 - 
   (29*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (57*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 - (167*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    96 + (71*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (121*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/4 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/8 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    3 - (95*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/96 - 
   (9*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   (7*Half[S2[2, 1, n], n]^2)/64 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/4 + Diff[S2[1, n], n, 1]*
    Half[S2[2, 1, 1, n], n] + (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/
    4 + (3*Half[S2[4, 1, 1, n], n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/16 - 
   (65*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (29*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/40 + S2[-1, Infinity]^6/48 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (37*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/18 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/6 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/4 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 - 
   (365*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 + 
   (907*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (611*Diff[S2[1, n], n, 4]*S2[1, n])/144 - 
   (41*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/24 + 
   (20*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (119*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (91*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 + 
   (17*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] - (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/24 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (31*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/12 + 
   6*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/3 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (103*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/6 + (43*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/6 - 
   (271*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (55*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (55*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 - 
   (Half[S2[1, n], n]^5*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 + 
   (113*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (67*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 + 
   (41*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (13*S2[-1, Infinity]^5*S2[1, n])/120 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/2 - 
   (101*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (467*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 - 
   (469*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 + 
   (2093*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 - 
   (45*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (635*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (41*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (59*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (53*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - 
   (11*S2[-1, Infinity]^4*S2[1, n]^2)/64 + 
   (353*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (175*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (61*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/6 + 
   (13*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/3 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + Half[S2[1, n], n]^2*S2[1, n]^4 - 
   (7*Half[S2[1, n], n]*S2[1, n]^5)/24 - S2[1, n]^6/48 + 
   (51*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 - 
   (175*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/72 - 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (121*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (71*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (715*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (181*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (223*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (25*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (29*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (101*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (311*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (71*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (67*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (101*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/24 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (63*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
    S2[2, Infinity] + (59*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (27*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (21*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (251*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (29*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/2 - 
   (37*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (101*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (335*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (323*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/6 - (35*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 - (23*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 + (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (557*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (115*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (329*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 + 
   (43*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (41*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (75*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (121*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (191*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (3*S2[1, n]^4*S2[2, Infinity])/8 + 
   (733*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (4627*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (1259*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/480 - 
   (103*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (475*S2[-1, Infinity]^2*S2[2, Infinity]^2)/64 - 
   (359*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/60 + 
   (49*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/10 + 
   (37*S2[1, n]^2*S2[2, Infinity]^2)/24 - (37867*S2[2, Infinity]^3)/3360 - 
   (265*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 + 
   (65*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 - 
   (369*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (497*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (779*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (47*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (113*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (107*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 - 
   (907*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (447*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (637*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (407*S2[1, n]^3*S2[3, Infinity])/384 + 
   (1141*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (3225*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (583*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/96 - 
   (26441*S2[3, Infinity]^2)/3072 - (417*Half[S2[1, n], n]*S2[5, Infinity])/
    32 - (3945*S2[1, n]*S2[5, Infinity])/128 + (19*S2[-5, -1, Infinity])/8 - 
   12*S2[-5, 1, n] - 5*Half[S2[1, n], n]*S2[-4, 1, n] + 
   2*S2[1, n]*S2[-4, 1, n] - (19*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    24 + (209*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (33*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (181*S2[1, n]^2*S2[-3, 1, n])/48 - (467*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 + 
   (27*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (8*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 + 
   (59*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (9*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (7*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (437*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (91*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 + 
   (113*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (23*S2[1, n]^3*S2[-2, 1, n])/24 - (8*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/3 - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (37*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/6 + 
   (17*S2[3, Infinity]*S2[-2, 1, n])/32 - (7*S2[-2, 1, n]^2)/4 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/72 + 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (177*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (121*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/36 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 - 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/3 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (29*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 - (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (251*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/12 + (143*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (31*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (17*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n] - 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (55*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (27*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (17*S2[2, Infinity]^2*S2[-1, 1, n])/3 + 
   (143*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (133*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/3 + (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/12 - (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/3 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/48 + (11*S2[2, Infinity]*S2[-1, 1, n]^2)/6 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (11*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (17*S2[1, n]^3*S2[2, 1, n])/16 - (85*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (39*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (33*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (317*S2[3, Infinity]*S2[2, 1, n])/32 - (11*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (11*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - (15*S2[2, 1, n]^2)/4 + 
   7*S2[1, n]*S2[4, 1, n] + 12*S2[-4, 1, 1, n] - 
   3*Half[S2[1, n], n]*S2[-3, 1, 1, n] - 3*S2[1, n]*S2[-3, 1, 1, n] - 
   (S2[1, n]*S2[-2, 1, -2, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[-2, 1, -1, n] - 4*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   Half[S2[1, n], n]^2*S2[-2, 1, -1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - S2[1, n]^2*S2[-2, 1, -1, n] + 
   5*S2[2, Infinity]*S2[-2, 1, -1, n] + (5*S2[-2, 2, -2, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/48 - 
   (65*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/3 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/12 - 
   (23*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (29*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (261*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (11*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (11*S2[-1, 1, -1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (53*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 6*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*S2[-1, 1, 1, n]^2)/2 + Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] + 
   11*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + Half[S2[1, n], n]^2*
    S2[1, 2, -1, n] - 2*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] - 
   (7*S2[1, n]^2*S2[1, 2, -1, n])/2 - (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   S2[-1, 1, n]*S2[1, 2, -1, n] - Half[S2[1, n], n]*S2[2, 1, -2, n] + 
   4*S2[1, n]*S2[2, 1, -2, n] + (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/12 + (191*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (103*S2[1, n]^2*S2[2, 1, -1, n])/24 + (7*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/3 - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] - (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   Half[S2[1, n], n]^2*S2[2, 1, 1, n] + 5*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (11*S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (13*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 3*S2[-1, 1, n]*S2[2, 1, 1, n] + 
   3*S2[3, 1, -2, n] - 8*S2[4, 1, 1, n] + 18*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n] - Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   8*S2[1, n]*S2[-2, 1, 1, 1, n] + 3*S2[-2, 2, 1, 1, n] + 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/3 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (4*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (4*S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/3 + 
   (11*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (49*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (65*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (29*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (33*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (119*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   6*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, n]*S2[1, 1, -2, -1, n] - 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + S2[1, n]*S2[1, 1, -1, 2, n] - 
   3*S2[1, n]*S2[1, 1, 2, -1, n] - 3*S2[2, -2, 1, 1, n] + 
   3*S2[1, n]*S2[2, 1, 1, 1, n] + 9*S2[-2, 1, 1, 1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 + (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   13*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + 2*S2[1, -1, -1, 1, 2, n] - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + 3*S2[1, -1, 1, 1, -2, n] - 
   3*S2[1, -1, 1, 1, 2, n] + 2*S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, 1, n] + 2*S2[1, 1, -2, 1, -1, n] - 
   Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] + 4*S2[1, 1, -1, 1, -2, n] + 
   2*S2[1, 1, -1, 2, -1, n] + 8*S2[1, 1, 1, -2, -1, n] + 
   8*S2[1, 1, 1, -1, -2, n] + 18*S2[1, 1, 1, 2, -1, n] + 
   4*S2[1, 1, 2, -1, -1, n] + 3*S2[1, 1, 2, -1, 1, n] + 
   12*S2[1, 1, 2, 1, -1, n] + 2*S2[1, 2, 1, -1, -1, n] + 
   6*S2[1, 2, 1, 1, -1, n] - 3*S2[2, 1, 1, 1, 1, n] - 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/4 - (9*S2[-1, -1, 1, -1, -1, -1, n])/4 - 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/2 - (5*S2[-1, 1, -1, -1, -1, 1, n])/2 - 
   S2[-1, 1, -1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 
   S2[-1, 1, 1, -1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   15*S2[-1, 1, 1, 1, 1, 1, Infinity] - (15*S2[1, -1, -1, -1, -1, -1, n])/2 + 
   2*S2[1, -1, -1, -1, 1, -1, n] + (7*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   2*S2[1, -1, 1, -1, -1, -1, n] + 5*S2[1, 1, -1, -1, -1, -1, n] + 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, -2, 2, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/48 + 
   (13*Diff[Half[S2[1, n], n], n, 5])/9 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 - 
   (92*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/9 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (631*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 - 
   (213*Diff[S2[1, n], n, 1]^3)/16 - (203*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (151*Diff[S2[1, n], n, 2]^2)/12 - 
   (277*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/32 + 
   (5437*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (13*Diff[S2[1, n], n, 5])/9 - (25*Diff[S2[-4, 1, n], n, 1])/2 - 
   (7*Diff[S2[-3, 1, n], n, 2])/6 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 - 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (13*Diff[S2[-2, 1, n], n, 3])/4 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 - 
   (89*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (273*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (33*Diff[S2[-1, 1, n], n, 4])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (27*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (9*Diff[S2[-1, 1, 1, n], n, 3])/4 + 5*Diff[S2[1, 2, -1, n], n, 2] - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (9*Diff[S2[2, 1, -1, n], n, 2])/2 - 
   (19*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    4 - (27*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   2*Diff[S2[1, -1, 1, 2, n], n, 1] + (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 
   Diff[S2[1, 1, 2, -1, n], n, 1] + Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - 
   8*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/
    2 - (29*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (7*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 + (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (155*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (31*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/16 - 
   2*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n] - 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/6 - (23*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    24 + (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/36 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    24 - (43*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/48 + 
   (175*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/288 - 
   (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 + 
   (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 + 
   (9*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - 
   (23*S2[-1, Infinity]^6)/1440 + (35*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/48 - 
   (347*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (34*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/3 + 
   (187*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (509*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (277*Diff[S2[1, n], n, 4]*S2[1, n])/48 + 4*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] - (29*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (115*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (187*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 - 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 5*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (11*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 + 
   7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 - (205*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (1381*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (49*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (51*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/6 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/3 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (9*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 + 
   (17*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   (41*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/18 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/4 - 
   (143*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (295*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (629*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 + 
   (55*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/12 + 
   (37*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n]^2 - (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[1, n]^2)/12 - (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/
    3 - Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + 
   (11*S2[-1, Infinity]^4*S2[1, n]^2)/96 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 + 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 - 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 + (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/3 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    6 - (Half[S2[1, n], n]*S2[1, n]^5)/3 + S2[1, n]^6/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 - 
   (115*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (175*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    24 - (171*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (629*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (45*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    24 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (45*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (9*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (41*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (15*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/16 + 
   (97*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (61*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 - (157*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 + (5*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/12 + (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (37*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (23*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (4*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    3 - (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (235*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 - 
   (25*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (S2[1, n]^4*S2[2, Infinity])/6 - (371*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/80 + (1583*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    240 - (899*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/480 + 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (129*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (3679*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 + 
   (813*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (103*S2[1, n]^2*S2[2, Infinity]^2)/24 - (677*S2[2, Infinity]^3)/70 + 
   (229*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 - 
   (257*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 + 
   (511*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/96 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (47*Half[S2[1, n], n]^3*S2[3, Infinity])/192 + 
   (11*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (51*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (215*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 - 
   (83*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (71*S2[1, n]^3*S2[3, Infinity])/192 - 
   (997*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (355*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (565*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (4481*S2[3, Infinity]^2)/384 + (1461*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (2971*S2[1, n]*S2[5, Infinity])/256 - (11*S2[-5, -1, Infinity])/4 - 
   16*S2[-5, 1, n] - 4*Half[S2[1, n], n]*S2[-4, 1, n] + 
   10*S2[1, n]*S2[-4, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    8 + (89*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (61*Half[S2[1, n], n]^2*S2[-3, 1, n])/24 + 
   (131*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (23*S2[1, n]^2*S2[-3, 1, n])/12 + (5*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (23*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 - 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   2*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n] - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (17*S2[1, n]^3*S2[-2, 1, n])/12 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (95*S2[3, Infinity]*S2[-2, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (133*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (341*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/6 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 + 
   (5*S2[1, n]^4*S2[-1, 1, n])/12 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (55*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/6 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (647*S2[2, Infinity]^2*S2[-1, 1, n])/120 - 
   (7*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (61*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/8 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/2 + (S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   (5*S2[-1, 1, n]^3)/24 - (19*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    12 + (19*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 - 
   4*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (2*S2[1, n]^3*S2[2, 1, n])/3 + (37*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (27*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (37*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (67*S2[3, Infinity]*S2[2, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (13*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 7*Half[S2[1, n], n]*
    S2[4, 1, n] + 7*S2[1, n]*S2[4, 1, n] - 14*S2[-4, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] + 5*S2[1, n]*S2[-3, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 - (S2[1, n]*S2[-2, 1, -2, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   S2[1, n]^2*S2[-2, 1, -1, n] + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (7*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/12 - 
   (25*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/3 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (11*S2[3, Infinity]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (25*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (97*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (9*S2[2, 1, n]*S2[-1, 1, 1, n])/2 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 - 
   5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   2*S2[1, n]^2*S2[1, 2, -1, n] - (19*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*S2[2, 1, -2, n] - 
   2*S2[1, n]*S2[2, 1, -2, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/4 - (67*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 + 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (13*S2[1, n]^2*S2[2, 1, -1, n])/6 - (97*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   3*S2[1, n]^2*S2[2, 1, 1, n] + (7*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (5*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 12*S2[-3, 1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 7*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   S2[-2, 2, 1, 1, n] - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + 8*S2[2, Infinity]*
    S2[-1, 1, 1, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/2 - 2*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - (9*Half[S2[1, n], n]^2*
     S2[-1, 1, 1, 1, Infinity])/4 + (13*Half[S2[1, n], n]*S2[1, n]*
     S2[-1, 1, 1, 1, Infinity])/2 - (11*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/
    4 - (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] + 
   2*S2[2, -2, 1, 1, n] - 8*S2[-2, 1, 1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (17*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   2*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   2*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 2*S2[1, -1, 1, 1, 2, n] + 
   S2[1, 1, -1, -2, -1, n] + S2[1, 1, -1, -1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + S2[1, 1, 1, -1, 2, n] - 
   7*S2[1, 1, 1, 2, -1, n] - 6*S2[1, 1, 2, 1, -1, n] - 
   4*S2[1, 2, 1, 1, -1, n] - S2[-1, -1, -1, 1, -1, -1, n]/2 - 
   S2[-1, -1, 1, -1, -1, -1, n] - S2[-1, 1, -1, -1, -1, -1, n] - 
   S2[-1, 1, -1, -1, 1, 1, n]/2 + S2[-1, 1, 1, 1, -1, -1, n] + 
   (23*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - S2[1, -1, -1, 1, 1, -1, n]/2 + 
   S2[1, -1, 1, 1, -1, -1, n] - S2[1, 1, -1, -1, 1, -1, n]/2 + 
   S2[1, 1, -1, 1, -1, -1, n]/2 + (3*S2[1, 1, 1, -1, -1, -1, n])/2, 
 S2[-1, -1, 2, -2, n] -> (13*Diff[Half[S2[1, n], n], n, 1]^3)/96 - 
   Diff[Half[S2[1, n], n], n, 2]^2/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/3 + 
   (4061*Diff[Half[S2[1, n], n], n, 5])/2880 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (119*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (803*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (31*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (711*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (317*Diff[S2[1, n], n, 1]^3)/16 - (183*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (577*Diff[S2[1, n], n, 2]^2)/48 - 
   (1609*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (5687*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (3851*Diff[S2[1, n], n, 5])/2880 + (19*Diff[S2[-4, 1, n], n, 1])/2 + 
   4*Diff[S2[-3, 1, n], n, 2] + (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 - 
   (109*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (17*Diff[S2[-2, 1, n], n, 3])/4 + (21*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (247*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (253*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 - 
   (95*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   (185*Diff[S2[-1, 1, n], n, 4])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (23*Diff[S2[2, 1, n], n, 3])/24 - 4*Diff[S2[4, 1, n], n, 1] - 
   (31*Diff[S2[-3, 1, 1, n], n, 1])/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + Diff[S2[-1, -2, -1, n], n, 2]/6 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (23*Diff[S2[-1, 1, 1, n], n, 3])/12 + (9*Diff[S2[1, 2, -1, n], n, 2])/2 + 
   (55*Diff[S2[2, 1, -1, n], n, 2])/12 + (13*Diff[S2[2, 1, 1, n], n, 2])/4 + 
   3*Diff[S2[3, 1, 1, n], n, 1] - 12*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (11*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 - (29*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 
    1] + 3*Diff[S2[1, -1, 1, 2, n], n, 1] - 
   4*Diff[S2[1, 1, -2, -1, n], n, 1] + (7*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - 
   Diff[S2[1, 1, 2, -1, n], n, 1] - Diff[S2[1, 2, -1, -1, n], n, 1] + 
   5*Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   (13*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (37*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 - (25*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 - (7*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (73*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (209*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (97*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 + 
   (31*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (23*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 + (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    48 - (35*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (25*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (11*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (19*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (37*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/288 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/12 - (139*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/96 + (565*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    576 - (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 - 
   (47*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (17*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/6 + 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   Half[S2[2, 1, n], n]^2/32 - (3*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/2 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/12 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 - S2[-1, Infinity]^6/60 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    12 - (75*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/32 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 + 
   (25*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 + 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (1325*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 + 
   (343*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (697*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (955*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (41*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (169*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (721*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (607*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (21*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (37*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (11*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (25*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (23*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (149*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    12 + (293*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (14*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (161*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (85*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Half[S2[1, n], n]^5*S2[1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (101*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (25*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (7*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (41*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (17*S2[-1, Infinity]^5*S2[1, n])/120 + 
   (113*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (529*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/4 - 
   (313*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (2147*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (4949*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (59*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/12 + 
   (673*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (43*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 + 
   (45*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (247*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (63*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (43*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (27*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (25*S2[-1, Infinity]^4*S2[1, n]^2)/96 - 
   (373*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (197*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (81*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/6 - 
   (9*Half[S2[2, 1, n], n]*S2[1, n]^3)/32 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/3 + (7*Half[S2[1, n], n]*S2[1, n]^5)/
    12 - S2[1, n]^6/48 - (181*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/48 + (445*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/144 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    16 - (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    4 + (137*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 - 
   (28*Diff[S2[1, n], n, 3]*S2[2, Infinity])/9 + 
   (185*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (707*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (27*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (27*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (103*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (155*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    24 + (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/6 + 
   (7*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (33*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (27*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (27*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (31*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (47*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (97*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (353*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 - (89*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 + (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (25*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 - (51*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (467*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (117*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 - (79*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/24 - (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/12 - (35*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/16 - (63*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 + (73*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 + (119*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (171*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (23*S2[1, n]^4*S2[2, Infinity])/48 - 
   (1549*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (4451*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (347*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/240 + 
   (1217*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (479*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (79*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/15 - 
   (791*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1357*S2[1, n]^2*S2[2, Infinity]^2)/480 + (68771*S2[2, Infinity]^3)/3360 + 
   (33*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (323*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (1063*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (1109*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (161*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (39*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (187*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (97*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (485*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (711*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (511*S2[1, n]^3*S2[3, Infinity])/384 - 
   (1825*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (1995*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (637*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/96 + 
   (1495*S2[3, Infinity]^2)/1536 + (5523*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (7813*S2[1, n]*S2[5, Infinity])/256 + (13*S2[-5, -1, Infinity])/4 + 
   35*S2[-5, 1, n] + 11*Half[S2[1, n], n]*S2[-4, 1, n] - 
   2*S2[1, n]*S2[-4, 1, n] - (27*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 - (55*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 - 
   (31*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (65*S2[1, n]^2*S2[-3, 1, n])/48 + (541*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 - 
   7*Diff[S2[1, n], n, 2]*S2[-2, 1, n] + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (395*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (39*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/8 + (10*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/3 - (16*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 - 
   (15*S2[3, Infinity]*S2[-2, 1, n])/8 + S2[-2, 1, n]^2/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/12 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 + 
   (167*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (109*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/32 + Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] + Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n] - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 + 
   3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/6 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (19*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (65*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (11*S2[1, n]^4*S2[-1, 1, n])/24 - (59*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (119*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (21*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (79*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (45*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (3817*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 
   (167*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (109*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (S2[-3, 1, n]*S2[-1, 1, n])/2 - (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 + 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/16 - (17*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (5*S2[-1, 1, n]^3)/24 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 - 
   (4*Diff[S2[1, n], n, 2]*S2[2, 1, n])/3 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (29*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, 1, n] + (61*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/
    16 + (21*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (31*S2[1, n]^3*S2[2, 1, n])/48 + (99*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (31*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (45*S2[3, Infinity]*S2[2, 1, n])/4 + 3*S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (11*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + (5*S2[2, 1, n]^2)/2 + 
   6*Half[S2[1, n], n]*S2[4, 1, n] - 7*S2[1, n]*S2[4, 1, n] - 
   14*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + Half[S2[1, n], n]*
    S2[-3, 1, 1, n] + 5*S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + 3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (3*S2[1, n]^2*S2[-2, 1, -1, n])/4 - 
   4*S2[2, Infinity]*S2[-2, 1, -1, n] + (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 - 
   (5*S2[-2, 2, -2, n])/4 - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/16 - (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/12 - 
   (13*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (13*S2[1, n]^2*S2[-1, -2, -1, n])/48 + 
   (55*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (17*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/6 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (193*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 3*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/4 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/4 - (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   S2[1, n]^3*S2[-1, 1, 1, n] + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (45*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (39*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (95*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (13*S2[2, 1, n]*S2[-1, 1, 1, n])/2 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    4 - (3*S2[-1, 1, 1, n]^2)/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/4 - (21*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (15*S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   S2[2, Infinity]*S2[1, 2, -1, n] + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   Half[S2[1, n], n]*S2[2, 1, -2, n] - 4*S2[1, n]*S2[2, 1, -2, n] - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (26*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/3 - 
   (13*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (95*S2[1, n]^2*S2[2, 1, -1, n])/24 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + S2[-1, 1, n]*S2[2, 1, -1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 4*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (21*S2[1, n]^2*S2[2, 1, 1, n])/4 - 
   6*S2[2, Infinity]*S2[2, 1, 1, n] + (7*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   4*S2[3, 1, -2, n] - 2*Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   2*S2[1, n]*S2[3, 1, 1, n] + 5*S2[4, 1, 1, n] - 19*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] + Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 
   8*S2[1, n]*S2[-2, 1, 1, 1, n] - 3*S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (11*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (49*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (87*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (51*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   2*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (25*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (131*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (39*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, n]*S2[1, 1, -2, -1, n] + Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - 
   S2[1, n]*S2[1, 1, -1, 2, n] + 5*S2[1, n]*S2[1, 1, 2, -1, n] + 
   (7*S2[2, -2, 1, 1, n])/2 - 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   9*S2[-2, 1, 1, 1, 1, n] - (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    2 + (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   4*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n] + 
   (11*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (7*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   17*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 7*Half[S2[1, n], n]*
    S2[1, -1, -1, -1, -1, n] + 7*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 2*S2[1, -1, -1, 1, 2, n] + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 - 3*S2[1, -1, 1, 1, -2, n] + 
   3*S2[1, -1, 1, 1, 2, n] - 2*S2[1, -1, 1, 2, -1, n] - 
   3*S2[1, 1, -2, -1, 1, n] - 4*S2[1, 1, -2, 1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 4*S2[1, 1, -1, 1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 - 2*S2[1, 1, -1, 2, -1, n] - 
   14*S2[1, 1, 1, -2, -1, n] - 8*S2[1, 1, 1, -1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 - 24*S2[1, 1, 1, 2, -1, n] - 
   4*S2[1, 1, 2, -1, -1, n] - 5*S2[1, 1, 2, -1, 1, n] - 
   14*S2[1, 1, 2, 1, -1, n] - 2*S2[1, 2, 1, -1, -1, n] - 
   6*S2[1, 2, 1, 1, -1, n] + 3*S2[2, 1, 1, 1, 1, n] + 
   2*S2[-1, -1, -1, 1, -1, -1, n] + (11*S2[-1, -1, 1, -1, -1, -1, n])/2 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 + 10*S2[-1, 1, -1, -1, -1, -1, n] + 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/4 - S2[-1, 1, -1, -1, 1, 1, n]/2 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - S2[-1, 1, 1, -1, -1, -1, n]/2 - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 12*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   15*S2[1, -1, -1, -1, -1, -1, n] - (3*S2[1, -1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/2 - S2[1, -1, -1, 1, 1, -1, n]/2 - 
   S2[1, -1, 1, -1, -1, -1, n] - 3*S2[1, 1, -1, -1, -1, -1, n] - 
   S2[1, 1, -1, -1, 1, -1, n]/2 - S2[1, 1, -1, 1, -1, -1, n]/2 - 
   (3*S2[1, 1, 1, -1, -1, -1, n])/2 - (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -1, 2, 2, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 1]^3)/96 - Diff[Half[S2[1, n], n], n, 2]^2/
    192 - (65*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    144 - (703*Diff[Half[S2[1, n], n], n, 5])/576 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (155*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (1331*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (1471*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (1315*Diff[S2[1, n], n, 1]^3)/96 + 
   (167*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/16 - 
   (1021*Diff[S2[1, n], n, 2]^2)/96 + 
   (4409*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (9629*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (3517*Diff[S2[1, n], n, 5])/2880 - (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   (17*Diff[S2[-3, 1, n], n, 2])/8 - (25*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 + 
   (271*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (10*Diff[S2[-2, 1, n], n, 3])/3 - (29*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 + 
   (437*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (537*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (83*Diff[S2[-1, 1, n], n, 4])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (7*Diff[S2[2, 1, n], n, 3])/24 + (3*Diff[S2[4, 1, n], n, 1])/2 + 
   (21*Diff[S2[-3, 1, 1, n], n, 1])/2 - Diff[S2[-2, 1, -2, n], n, 1]/2 + 
   Diff[S2[-2, 1, -1, n], n, 2]/4 - Diff[S2[-1, -2, -1, n], n, 2]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 3])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (39*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/4 - (17*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (15*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   Diff[S2[3, 1, 1, n], n, 1] + (17*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - Diff[S2[-1, 1, -1, 1, n], n, 2]/4 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - 2*Diff[S2[1, -1, 1, 2, n], n, 1] + 
   Diff[S2[1, 1, -2, -1, n], n, 1] - (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - 
   (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/
    8 - Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 + 
   6*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - Diff[S2[1, -1, -1, -1, -1, n], n, 1]/
    2 + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + Diff[S2[1, 1, -1, 1, -1, n], 
    n, 1] + 2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/72 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (23*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (665*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (1085*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (25*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/12 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/4 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/48 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 + 
   Half[S2[2, 1, n], n]^2/64 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/4 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/64 - (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    64 - (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + S2[-1, Infinity]^6/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    6 + (199*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/72 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 + 
   (587*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (2741*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (211*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (145*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (79*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (625*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (17*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (107*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (9*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (2*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/9 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (187*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (733*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (31*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (3*S2[-1, Infinity]^5*S2[1, n])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (497*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (163*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 - 
   (569*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (515*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 - 
   (31*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (199*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (67*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (19*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/48 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 - 
   (14*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^3 + (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^3)/12 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    12 - (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (85*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/12 - (Half[S2[1, n], n]*S2[1, n]^5)/
    12 - S2[1, n]^6/16 + (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    4 - (271*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 + (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (17*Diff[S2[1, n], n, 3]*S2[2, Infinity])/9 - 
   (49*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (87*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (33*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (49*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (123*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (85*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 + (109*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 - (23*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 + (61*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (37*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (7*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (27*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (3*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    4 + (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (185*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (31*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (35*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (25*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (9*S2[1, n]^4*S2[2, Infinity])/16 + 
   (893*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (1427*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (973*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (467*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (185*S2[-1, Infinity]^2*S2[2, Infinity]^2)/64 - 
   (661*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/120 - 
   (71*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (833*S2[1, n]^2*S2[2, Infinity]^2)/192 - (1201*S2[2, Infinity]^3)/320 - 
   (1135*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (661*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 - 
   (41*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (163*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/192 - 
   (27*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (205*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 - 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (131*S2[1, n]^3*S2[3, Infinity])/96 + 
   (377*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (2763*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (3517*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (11033*S2[3, Infinity]^2)/3072 - (435*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (3231*S2[1, n]*S2[5, Infinity])/128 + (3*S2[-5, -1, Infinity])/4 - 
   8*S2[-5, 1, n] - Half[S2[1, n], n]*S2[-4, 1, n] - 
   8*S2[1, n]*S2[-4, 1, n] - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    48 - (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (97*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (13*S2[1, n]^2*S2[-3, 1, n])/6 - (83*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (55*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/12 + 
   (7*S2[1, n]^3*S2[-2, 1, n])/6 - (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (19*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (37*S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 - 
   (39*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (209*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/16 + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    8 - (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (25*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (53*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 - 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 + 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (11*S2[1, n]^4*S2[-1, 1, n])/24 + (71*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (49*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (49*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (61*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (15*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (2873*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (7*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (217*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (25*S2[1, n]^2*S2[-1, 1, n]^2)/48 + (25*S2[2, Infinity]*S2[-1, 1, n]^2)/
    12 + (17*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 - 
   (37*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 4*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/8 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    2 + (7*Half[S2[1, n], n]^3*S2[2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (S2[1, n]^3*S2[2, 1, n])/3 - (35*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (51*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (171*S2[3, Infinity]*S2[2, 1, n])/32 + (S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (15*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2/4 - 
   4*S2[1, n]*S2[4, 1, n] + 8*S2[-4, 1, 1, n] + 2*S2[-3, -2, 1, n] + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] - 5*S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   S2[2, Infinity]*S2[-2, 1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/6 - (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + S2[-1, 1, -1, n]^2/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + 5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (27*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 4*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*S2[-1, 1, 1, n]^2)/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/4 + (25*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] - 
   2*S2[1, n]^2*S2[1, 2, -1, n] + 2*S2[2, Infinity]*S2[1, 2, -1, n] + 
   2*S2[1, n]*S2[2, 1, -2, n] - (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/24 + (161*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/3 + (43*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (S2[-1, 1, n]*S2[2, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (7*S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 2*S2[-1, 1, n]*S2[2, 1, 1, n] + 
   2*S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, 1, n] + S2[4, 1, 1, n] + 
   12*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 5*S2[1, n]*S2[-2, 1, 1, 1, n] + 
   2*S2[-2, 2, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/12 + (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    24 + (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - 2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 
   (27*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (39*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (25*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   2*S2[1, n]*S2[1, 1, -2, -1, n] - Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + 
   S2[1, n]*S2[1, 1, -1, 2, n] - 2*S2[1, n]*S2[1, 1, 2, -1, n] - 
   2*S2[2, -2, 1, 1, n] + 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   S2[2, 2, 1, 1, n]/2 + 6*S2[-2, 1, 1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (21*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (45*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 2*S2[1, -1, 1, 1, 2, n] + 
   2*S2[1, 1, -2, -1, 1, n] + 2*S2[1, 1, -2, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, -1, n] + 5*S2[1, 1, 1, -2, -1, n] + 
   2*S2[1, 1, 1, -1, -2, n] + 12*S2[1, 1, 1, 2, -1, n] + 
   2*S2[1, 1, 2, -1, 1, n] + 8*S2[1, 1, 2, 1, -1, n] + 
   4*S2[1, 2, 1, 1, -1, n] - 3*S2[2, 1, 1, 1, 1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/2 - (3*S2[-1, -1, 1, -1, -1, -1, n])/2 - 
   3*S2[-1, 1, -1, -1, -1, -1, n] + S2[-1, 1, -1, -1, -1, 1, n]/4 - 
   S2[-1, 1, -1, 1, 1, 1, n]/2 + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   15*S2[-1, 1, 1, 1, 1, 1, Infinity] - 5*S2[1, -1, -1, -1, -1, -1, n] - 
   S2[1, -1, -1, -1, 1, -1, n]/4 - S2[1, -1, -1, 1, -1, -1, n]/2 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 - S2[1, 1, -1, -1, -1, -1, n] + 
   (5*S2[1, 1, 1, -1, 1, -1, n])/2 + 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, -1, -3, n] -> (-5*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 - 
   (65*Diff[Half[S2[1, n], n], n, 5])/1152 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 3])/32 - Diff[Half[S2[4, 1, n], n], n, 1]/
    8 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (91*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (155*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (791*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (703*Diff[S2[1, n], n, 1]^3)/192 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/96 + 
   (17*Diff[S2[1, n], n, 2]^2)/96 + (247*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 - (1141*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 - (11*Diff[S2[1, n], n, 5])/960 - 
   (3*Diff[S2[-4, 1, n], n, 1])/2 - Diff[S2[-3, 1, n], n, 2] - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (115*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (7*Diff[S2[-2, 1, n], n, 3])/12 - (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/96 + 
   (43*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (75*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (71*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (17*Diff[S2[-1, 1, n], n, 4])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   Diff[S2[2, 1, n], n, 3]/48 - (3*Diff[S2[4, 1, n], n, 1])/2 + 
   2*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/8 - 
   Diff[S2[-2, 1, -1, n], n, 2]/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (3*Diff[S2[-1, 1, -1, n], n, 3])/32 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (75*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, 1, n], n, 3]/16 - Diff[S2[2, 1, -2, n], n, 1]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 - Diff[S2[2, 1, 1, n], n, 2] - 
   Diff[S2[3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, -2, n], n, 1]/2 - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + Diff[S2[1, 1, -2, -1, n], n, 1] - 
   Diff[S2[1, 1, -1, 2, n], n, 1] - 2*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 - 
   (7*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (113*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (301*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (61*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (293*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (25*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (15*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (33*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (11*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (53*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (21*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 - (41*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    64 + (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 + 
   (77*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (97*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (17*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   Half[S2[2, 1, n], n]^2/16 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   Half[S2[4, 1, 1, n], n]/16 - (53*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (47*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 + 
   (17*S2[-1, Infinity]^6)/960 + (145*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 - 
   (83*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (69*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (289*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (29*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (97*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (41*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 + 
   (9*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (29*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (19*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 + (21*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (25*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (61*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (173*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (109*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (9*S2[-1, Infinity]^5*S2[1, n])/320 - 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (151*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 + 
   (19*Diff[S2[1, n], n, 3]*S2[1, n]^2)/64 - 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/24 - 
   (181*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (43*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (31*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (115*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (7*S2[-1, Infinity]^4*S2[1, n]^2)/
    384 + (205*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (4*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/24 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (51*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (Half[S2[1, n], n]*S2[1, n]^5)/
    48 - S2[1, n]^6/24 + (39*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 - (239*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/192 - 
   (25*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (221*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 - (659*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 + 
   (179*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 - 
   (27*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (65*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (49*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (127*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (19*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (17*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (29*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (67*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity] - 
   (73*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (317*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/8 - 
   (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/64 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (409*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (87*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 + (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (175*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/
    4 + (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/
    64 - (115*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (17*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (103*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (S2[1, n]^4*S2[2, Infinity])/96 + (41*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/640 + (183*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    32 + (503*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 - 
   (513*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (841*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/4 + 
   (2589*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (609*S2[1, n]^2*S2[2, Infinity]^2)/640 - (31623*S2[2, Infinity]^3)/4480 - 
   (539*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 - 
   (215*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (821*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (1177*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 + 
   (7*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (43*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (653*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (1873*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 - 
   (323*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 + 
   (531*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (333*S2[1, n]^3*S2[3, Infinity])/256 - 
   (223*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (201*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (3247*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (4757*S2[3, Infinity]^2)/1536 + (245*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (3213*S2[1, n]*S2[5, Infinity])/256 + (31*S2[-5, -1, Infinity])/8 - 
   2*S2[-5, 1, n] - (Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   2*S2[1, n]*S2[-4, 1, n] - (145*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    96 + (161*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (19*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (63*S2[1, n]^2*S2[-3, 1, n])/32 - (31*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (19*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (67*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (17*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (241*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 + 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 - 
   (17*S2[1, n]^3*S2[-2, 1, n])/48 - (15*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (45*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (27*S2[3, Infinity]*S2[-2, 1, n])/32 - S2[-2, 1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/32 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (209*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 - 
   (365*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/96 + 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (23*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (67*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (61*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (11*S2[1, n]^4*S2[-1, 1, n])/48 + (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/6 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (49*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (27*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (69*S2[2, Infinity]^2*S2[-1, 1, n])/64 + 
   (17*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (21*S2[-3, 1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (27*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (7*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 + 
   (41*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (79*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (19*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (127*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (59*S2[1, n]^3*S2[2, 1, n])/96 - (23*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (89*S2[3, Infinity]*S2[2, 1, n])/32 - 3*S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (7*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 2*S2[2, 1, n]^2 + 
   (9*S2[1, n]*S2[4, 1, n])/2 + 2*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 - 
   (3*Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + (S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (17*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (S2[1, n]^2*S2[-2, 1, -1, n])/2 + 
   (5*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + (7*S2[-2, 2, -2, n])/8 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/32 - (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    4 - (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/3 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (17*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (273*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (11*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*S2[-1, 1, 1, n]^2)/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (23*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + S2[1, n]*S2[2, 1, -2, n] + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (35*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (13*S2[1, n]^2*S2[2, 1, -1, n])/16 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    4 - (7*S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (7*S2[1, n]^2*S2[2, 1, 1, n])/4 + (13*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + S2[3, 1, -2, n]/2 - 
   (7*S2[4, 1, 1, n])/2 + 3*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n]/2 - 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - S2[1, n]*S2[-2, 1, 1, 1, n] + 
   S2[-2, 2, 1, 1, n]/2 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (17*Diff[S2[1, n], n, 1]*
     S2[-1, 1, -1, -1, n])/48 - (3*Half[S2[1, n], n]*S2[1, n]*
     S2[-1, 1, -1, -1, n])/4 + (3*S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (25*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (47*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (71*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (23*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 - (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/
    2 + (S2[1, n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   S2[2, -2, 1, 1, n]/2 + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   (3*S2[-2, 1, 1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    8 - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (21*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (27*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (7*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, -1, 1, 1, 2, n]/2 + S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, 1, n]/2 + S2[1, 1, -2, 1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 2*S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, -1, n] + 4*S2[1, 1, 1, -2, -1, n] + 
   4*S2[1, 1, 1, -1, -2, n] + 3*S2[1, 1, 1, 2, -1, n] + 
   2*S2[1, 1, 2, -1, -1, n] + S2[1, 1, 2, -1, 1, n]/2 + 
   2*S2[1, 1, 2, 1, -1, n] + S2[1, 2, 1, -1, -1, n] + S2[1, 2, 1, 1, -1, n] - 
   (3*S2[2, 1, 1, 1, 1, n])/2 - S2[-1, -1, -1, 1, -1, -1, n]/8 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/8 - (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (11*S2[-1, 1, -1, -1, -1, 1, n])/8 - S2[-1, 1, -1, 1, -1, -1, n]/4 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - S2[-1, 1, 1, -1, -1, -1, n]/2 + 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - (51*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + (9*S2[1, -1, -1, -1, 1, -1, n])/8 + 
   2*S2[1, -1, -1, 1, -1, -1, n] + (5*S2[1, -1, 1, -1, -1, -1, n])/4 + 
   3*S2[1, 1, -1, -1, -1, -1, n] + (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -1, -1, 3, n] -> 
  (7*Diff[Half[S2[1, n], n], n, 1]^3)/64 - 
   (17*Diff[Half[S2[1, n], n], n, 2]^2)/48 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 + 
   (37*Diff[Half[S2[1, n], n], n, 5])/384 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 - 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 + 
   (1175*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (39*Diff[S2[1, n], n, 1]^3)/8 - (41*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/192 + (59*Diff[S2[1, n], n, 2]^2)/96 - 
   (623*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (193*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 - 
   (19*Diff[S2[1, n], n, 5])/384 + (17*Diff[S2[-4, 1, n], n, 1])/2 + 
   (289*Diff[S2[-3, 1, n], n, 2])/96 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (91*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (47*Diff[S2[-2, 1, n], n, 3])/48 + 
   (2*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 - 
   (2*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 - 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (91*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (343*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (41*Diff[S2[-1, 1, n], n, 4])/192 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] + 
   (5*Diff[S2[2, 1, n], n, 3])/12 - 2*Diff[S2[4, 1, n], n, 1] - 
   2*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   Diff[S2[-1, 1, -1, n], n, 3]/32 + (51*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, n], n, 3]/8 - Diff[S2[1, 2, -1, n], n, 2]/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (5*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 + Diff[S2[3, 1, 1, n], n, 1] - 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    4 - (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 - 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + Diff[S2[1, 1, -1, 2, n], n, 1] - 
   Diff[S2[1, 1, 2, -1, n], n, 1] + 2*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (7*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (15*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (41*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 - (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (33*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 + (151*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (59*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 + (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    96 - (21*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (11*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (55*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 - 
   (41*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 + 
   (41*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (145*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 + (523*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 - (37*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/48 - (13*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/48 - (17*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (7*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (5*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/32 + (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    96 - (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (61*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/3 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/96 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/12 + 
   Half[S2[2, 1, n], n]^2/64 - (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   Half[S2[4, 1, 1, n], n]/16 - Half[S2[2, 2, 1, 1, n], n]/16 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 - (11*S2[-1, Infinity]^6)/720 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 + (19*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (299*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 - 
   (619*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (257*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (35*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (23*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 + 
   (479*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 - 
   (19*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (35*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (31*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (19*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (11*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (67*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (101*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (119*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (31*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (47*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (11*S2[-1, Infinity]^5*S2[1, n])/240 + 
   (103*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 - 
   (53*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (25*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 - 
   (425*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (1409*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 - 
   (983*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 + 
   (23*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 + 
   (59*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (59*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (35*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (37*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (51*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 + 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (27*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 - 
   (139*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (17*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (85*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/8 + (3*Half[S2[1, n], n]*S2[1, n]^5)/
    16 + S2[1, n]^6/96 - (15*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    8 + (857*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (29*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (119*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 + (697*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 - 
   (289*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (85*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (47*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (63*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 + (97*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (77*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (7*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (61*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (283*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (25*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/6 + 
   (263*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (103*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (217*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (77*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (47*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (209*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (51*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 - (145*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (551*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (25*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (27*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (91*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (7*S2[1, n]^4*S2[2, Infinity])/48 - 
   (699*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (5791*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (491*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (449*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (709*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (971*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (79*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/10 + 
   (367*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (25379*S2[2, Infinity]^3)/1920 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 + 
   (1073*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (67*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (189*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (141*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (7*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (71*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (117*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (373*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (173*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (145*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (265*S2[1, n]^3*S2[3, Infinity])/192 - 
   (1529*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (309*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (3349*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (7655*S2[3, Infinity]^2)/3072 + (2155*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (6317*S2[1, n]*S2[5, Infinity])/512 - (7*S2[-5, -1, Infinity])/16 + 
   19*S2[-5, 1, n] + (9*Half[S2[1, n], n]*S2[-4, 1, n])/2 - 
   2*S2[1, n]*S2[-4, 1, n] - (67*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    96 - (143*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/32 - 
   (5*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (19*S2[1, n]^2*S2[-3, 1, n])/48 + (65*S2[2, Infinity]*S2[-3, 1, n])/12 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (109*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (4*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/3 - (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    8 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (125*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (7*S2[1, n]^3*S2[-2, 1, n])/12 + (65*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (113*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (55*S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (211*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 + 
   (73*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (41*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/2 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (37*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (77*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (227*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (S2[1, n]^4*S2[-1, 1, n])/4 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (21*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (73*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (45*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (41*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (2197*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (165*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (17*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (S2[-3, 1, n]*S2[-1, 1, n])/4 - (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/32 - (17*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + (5*S2[-1, 1, n]^3)/48 + (125*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/96 - (167*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (19*S2[1, n]^3*S2[2, 1, n])/48 + (33*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (117*S2[3, Infinity]*S2[2, 1, n])/32 + (3*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/4 + 
   4*Half[S2[1, n], n]*S2[4, 1, n] - (9*S2[1, n]*S2[4, 1, n])/2 - 
   4*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + (S2[1, n]*S2[-3, 1, 1, n])/2 + 
   (S2[1, n]*S2[-2, 1, -2, n])/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/8 - (7*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 - (5*S2[-2, 2, -2, n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/48 + 
   (13*S2[2, Infinity]*S2[-1, -2, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/24 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (191*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (45*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (23*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (33*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (5*S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/8 - 
   (3*S2[-1, 1, 1, n]^2)/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (13*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/8 + 2*S2[2, Infinity]*S2[1, 2, -1, n] + 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/4 + (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 - 
   S2[1, n]*S2[2, 1, -2, n] - (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 - (37*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (13*S2[1, n]^2*S2[2, 1, -1, n])/24 + (4*S2[2, Infinity]*S2[2, 1, -1, n])/
    3 + (S2[-1, 1, n]*S2[2, 1, -1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (13*S2[1, n]^2*S2[2, 1, 1, n])/8 - 
   3*S2[2, Infinity]*S2[2, 1, 1, n] + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/4 - 
   (3*S2[3, 1, -2, n])/2 - Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] + (5*S2[4, 1, 1, n])/2 - 5*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n]/2 + (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 2, 1, 1, n]/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 - 
   (11*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (25*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (83*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (15*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (73*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (39*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (3*S2[2, -2, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - (3*S2[-2, 1, 1, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (5*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (13*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (7*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (11*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (11*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (11*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, 1, -2, n])/2 + 
   S2[1, -1, 1, 1, 2, n]/2 - S2[1, -1, 1, 2, -1, n] - 
   (3*S2[1, 1, -2, -1, 1, n])/2 - 2*S2[1, 1, -2, 1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 2*S2[1, 1, -1, 1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - S2[1, 1, -1, 2, -1, n] - 
   7*S2[1, 1, 1, -2, -1, n] - 4*S2[1, 1, 1, -1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 - 6*S2[1, 1, 1, 2, -1, n] - 
   2*S2[1, 1, 2, -1, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   3*S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, -1, -1, n] - S2[1, 2, 1, 1, -1, n] + 
   (3*S2[2, 1, 1, 1, 1, n])/2 + (7*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (19*S2[-1, -1, 1, -1, -1, -1, n])/8 - S2[-1, -1, 1, 1, -1, -1, n]/4 + 
   (17*S2[-1, 1, -1, -1, -1, -1, n])/4 + (5*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   S2[-1, 1, -1, -1, 1, 1, n]/4 + (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - 
   S2[-1, 1, 1, -1, -1, -1, n]/4 - (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   11*S2[-1, 1, 1, 1, 1, 1, Infinity] + (25*S2[1, -1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/8 - (3*S2[1, -1, -1, 1, -1, -1, n])/4 - 
   S2[1, -1, -1, 1, 1, -1, n]/4 - S2[1, -1, 1, -1, -1, -1, n]/2 - 
   (3*S2[1, 1, -1, -1, -1, -1, n])/2 - S2[1, 1, -1, -1, 1, -1, n]/4 - 
   S2[1, 1, -1, 1, -1, -1, n]/4 - (3*S2[1, 1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, 1, -3, n] -> (23*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (13*Diff[Half[S2[1, n], n], n, 2]^2)/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (1511*Diff[Half[S2[1, n], n], n, 5])/5760 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 - 
   (145*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (365*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (15*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 + 
   (187*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (47*Diff[S2[1, n], n, 1]^3)/32 + (215*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (93*Diff[S2[1, n], n, 2]^2)/32 + 
   (1651*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (1489*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (1781*Diff[S2[1, n], n, 5])/5760 - (5*Diff[S2[-4, 1, n], n, 1])/2 - 
   (31*Diff[S2[-3, 1, n], n, 2])/96 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (83*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (13*Diff[S2[-2, 1, n], n, 3])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (103*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (49*Diff[S2[-1, 1, n], n, 4])/64 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[2, 1, n], n, 3])/12 - 2*Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   Diff[S2[-1, 1, -1, n], n, 3]/32 + (53*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/12 - (9*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (11*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 + Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/4 + Diff[S2[-1, 1, 1, 1, n], n, 2]/
    8 - Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[1, -1, 1, 2, n], n, 1]/
    2 - 2*Diff[S2[1, 1, -2, -1, n], n, 1] + Diff[S2[1, 1, -1, 2, n], n, 1] - 
   Diff[S2[1, 1, 2, -1, n], n, 1] + 2*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 - 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (21*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (21*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (23*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 - (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (397*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (439*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (25*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (49*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (59*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (31*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (37*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (15*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (9*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 + 
   (59*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (101*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 + (251*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 - (17*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/
    96 - (27*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (31*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    12 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/64 + (3*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/
    16 - (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   Half[S2[4, 1, 1, n], n]/16 - Half[S2[2, 2, 1, 1, n], n]/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/128 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 - 
   (13*S2[-1, Infinity]^6)/1440 - (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/9 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/12 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (139*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (973*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (463*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 - 
   (4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (301*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 + 
   (149*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (63*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (37*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (37*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (25*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (73*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 - (185*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (107*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (115*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (37*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (83*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/3 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + (S2[-1, Infinity]^5*S2[1, n])/480 + 
   (71*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 + 
   (143*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 - 
   (433*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (1021*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 + 
   (365*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (211*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (41*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (53*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (53*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (39*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (69*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (25*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/2 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (27*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 - 
   (185*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/8 - 
   (13*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - 
   (29*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (35*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (5*S2[1, n]^6)/32 - (57*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (817*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 - (19*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 + (Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 - (89*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/64 + 
   (655*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 - 
   (211*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (47*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (49*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[2, Infinity] + (61*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (187*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 + (257*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 + 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (163*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (31*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (97*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (67*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (299*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (269*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (95*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (17*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (41*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (75*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (15*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/24 - 
   (257*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (271*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (49*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (81*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (51*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (65*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (93*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (2*S2[1, n]^4*S2[2, Infinity])/3 - 
   (1193*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (2951*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (433*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (67*S2[-1, Infinity]^2*S2[2, Infinity]^2)/20 + 
   (679*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (1017*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (47*S2[1, n]^2*S2[2, Infinity]^2)/384 + (22889*S2[2, Infinity]^3)/4480 + 
   (473*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (189*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (145*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/384 - 
   (103*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (97*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (Half[S2[1, n], n]^3*S2[3, Infinity])/16 + 
   (47*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (139*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (265*S2[1, n]^3*S2[3, Infinity])/384 + 
   (3431*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (35*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (10421*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (3425*S2[3, Infinity]^2)/3072 - (7503*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (16095*S2[1, n]*S2[5, Infinity])/512 + (23*S2[-5, -1, Infinity])/
    16 - 4*S2[-5, 1, n] - (11*Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   7*S2[1, n]*S2[-4, 1, n] - (49*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    96 - (145*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/12 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (7*S2[1, n]^2*S2[-3, 1, n])/24 + (11*S2[2, Infinity]*S2[-3, 1, n])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (59*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (S2[1, n]^3*S2[-2, 1, n])/24 + (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (73*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (125*S2[3, Infinity]*S2[-2, 1, n])/96 + S2[-2, 1, n]^2/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (283*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 + 
   (89*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 + 
   (121*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (2*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (109*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (19*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (271*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (49*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/24 - (73*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (95*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (51*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (67*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (1253*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (123*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (145*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (5*S2[-3, 1, n]*S2[-1, 1, n])/8 - (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (9*S2[1, n]^2*S2[-1, 1, n]^2)/32 - (9*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (5*S2[-1, 1, n]^3)/48 + (35*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    32 - (49*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (S2[1, n]^3*S2[2, 1, n])/2 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (33*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (93*S2[3, Infinity]*S2[2, 1, n])/32 + (3*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + (5*S2[2, 1, n]^2)/4 - 
   3*Half[S2[1, n], n]*S2[4, 1, n] + (5*S2[1, n]*S2[4, 1, n])/2 + 
   S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 - (Half[S2[1, n], n]*S2[-3, 1, 1, n])/
    2 + (S2[1, n]*S2[-3, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-2, 1, -2, n])/
    2 + (3*S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (5*S2[1, n]^2*S2[-2, 1, -1, n])/8 - 
   (5*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - (S2[-1, 1, n]*S2[-2, 1, -1, n])/
    4 - (5*S2[-2, 2, -2, n])/8 - (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/96 - (31*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/6 + (17*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/12 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (119*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/16 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (15*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (39*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (21*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (29*S2[3, Infinity]*S2[-1, 1, 1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/4 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/8 - 
   (3*S2[-1, 1, 1, n]^2)/4 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    8 - 2*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (15*S2[1, n]^2*S2[1, 2, -1, n])/8 + 
   (13*S2[2, Infinity]*S2[1, 2, -1, n])/4 + (3*S2[-1, 1, n]*S2[1, 2, -1, n])/
    4 - (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (43*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (19*S2[1, n]^2*S2[2, 1, -1, n])/12 + (13*S2[2, Infinity]*S2[2, 1, -1, n])/
    6 + (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/8 - (15*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/4 - (3*S2[3, 1, -2, n])/2 + 
   Half[S2[1, n], n]*S2[3, 1, 1, n] - S2[1, n]*S2[3, 1, 1, n] + 
   (5*S2[4, 1, 1, n])/2 - 2*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n]/2 - 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + S2[1, n]*S2[-2, 1, 1, 1, n] - 
   S2[-2, 2, 1, 1, n]/2 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    48 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 - 
   (13*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (17*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (69*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (15*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (19*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 + (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + S2[2, -2, 1, 1, n]/2 - 
   (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - S2[-2, 1, 1, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (7*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] + 
   Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n] - 
   S2[1, n]*S2[1, -1, 1, -1, -1, n] - (3*S2[1, -1, 1, 1, -2, n])/2 + 
   S2[1, -1, 1, 1, 2, n]/2 - S2[1, -1, 1, 2, -1, n] - 
   (3*S2[1, 1, -2, -1, 1, n])/2 - 2*S2[1, 1, -2, 1, -1, n] - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] + 
   (9*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 2*S2[1, 1, -1, 1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - S2[1, 1, -1, 2, -1, n] - 
   7*S2[1, 1, 1, -2, -1, n] - 4*S2[1, 1, 1, -1, -2, n] + 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 - 5*S2[1, 1, 1, 2, -1, n] - 
   2*S2[1, 1, 2, -1, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   3*S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, -1, -1, n] - S2[1, 2, 1, 1, -1, n] + 
   (3*S2[2, 1, 1, 1, 1, n])/2 - (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - 
   (7*S2[-1, -1, 1, -1, -1, -1, n])/8 - S2[-1, -1, 1, 1, -1, -1, n]/4 - 
   (5*S2[-1, 1, -1, -1, -1, -1, n])/4 + (5*S2[-1, 1, -1, -1, -1, 1, n])/8 + 
   S2[-1, 1, -1, -1, 1, 1, n]/4 + (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - 
   S2[-1, 1, 1, -1, -1, -1, n]/4 - S2[-1, 1, 1, 1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + (13*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 - (3*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 + S2[1, -1, -1, 1, 1, -1, n]/4 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 - S2[1, -1, 1, 1, -1, -1, n] - 
   (3*S2[1, 1, -1, -1, -1, -1, n])/2 + S2[1, 1, -1, -1, 1, -1, n]/4 - 
   (3*S2[1, 1, -1, 1, -1, -1, n])/4 - (9*S2[1, 1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, 1, 3, n] -> (-5*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (137*Diff[Half[S2[1, n], n], n, 2]^2)/192 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 - 
   (113*Diff[Half[S2[1, n], n], n, 5])/1152 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 3])/96 - 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/16 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (27*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 + 
   (9*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (169*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (389*Diff[S2[1, n], n, 1]^3)/192 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/8 - 
   (19*Diff[S2[1, n], n, 2]^2)/48 + (15*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/128 - (123*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/128 + (43*Diff[S2[1, n], n, 5])/1440 + 
   (3*Diff[S2[-4, 1, n], n, 1])/2 + Diff[S2[-3, 1, n], n, 2]/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 3]/4 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/96 + 
   (13*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   Diff[S2[-1, 1, n], n, 1]^2/2 - (43*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 + 
   (87*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (13*Diff[S2[-1, 1, n], n, 4])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (23*Diff[S2[2, 1, n], n, 3])/48 + (5*Diff[S2[4, 1, n], n, 1])/2 + 
   2*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/8 - 
   Diff[S2[-2, 1, -1, n], n, 2]/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, 1, n], n, 3]/16 - Diff[S2[2, 1, -2, n], n, 1]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 - Diff[S2[2, 1, 1, n], n, 2]/2 - 
   Diff[S2[3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    16 + (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -2, -1, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1] - 
   Diff[S2[2, 1, 1, 1, n], n, 1] + (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/
    8 + (7*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (9*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (3*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/16 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (107*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 - (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/96 - 
   (35*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 + 
   (65*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (15*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    64 - (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (41*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 - (47*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    96 + Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 + 
   (33*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (53*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (53*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   Half[S2[2, 1, n], n]^2/64 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/16 - (53*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 + (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^5)/64 + 
   (13*S2[-1, Infinity]^6)/2880 + (61*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 - 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 - 
   (3*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (59*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (87*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (37*Diff[S2[1, n], n, 4]*S2[1, n])/384 - 
   (41*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (31*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 + 
   (9*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 + Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] + 
   (31*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (25*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (139*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (145*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (11*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (37*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (83*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 + 
   (9*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (73*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (149*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 - 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (75*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 - 
   (83*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (17*Half[S2[1, n], n]^3*S2[1, n]^3)/24 + 
   (35*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 + 
   (47*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (31*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + S2[1, n]^6/6 + (23*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    16 - (119*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/192 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (87*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (33*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (23*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (51*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (59*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (11*Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (63*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (69*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (83*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (49*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/16 + (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/4 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    64 - (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (75*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (45*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (21*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (91*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (65*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (141*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 + 
   (133*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (7*S2[1, n]^4*S2[2, Infinity])/32 + 
   (957*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/2 - 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/64 - 
   (51*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (601*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (767*S2[1, n]^2*S2[2, Infinity]^2)/640 - (32939*S2[2, Infinity]^3)/13440 - 
   (257*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 - 
   (155*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (77*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (721*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (1643*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 + 
   (133*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (9*Half[S2[2, 1, n], n]*S2[3, Infinity])/16 - 
   (661*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (585*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (1147*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 + 
   (1427*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 - 
   (397*S2[1, n]^3*S2[3, Infinity])/768 + 
   (1625*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (45*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (515*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (2257*S2[3, Infinity]^2)/3072 + (765*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (1711*S2[1, n]*S2[5, Infinity])/256 - (13*S2[-5, -1, Infinity])/8 - 
   2*S2[-5, 1, n] + (Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   S2[1, n]*S2[-4, 1, n] + (29*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    32 + (Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (53*S2[1, n]^2*S2[-3, 1, n])/32 - (5*S2[2, Infinity]*S2[-3, 1, n])/2 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (29*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 + 
   (13*S2[1, n]^3*S2[-2, 1, n])/48 - (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (29*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (7*S2[3, Infinity]*S2[-2, 1, n])/4 - S2[-2, 1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (73*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (51*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 + 
   (17*S2[1, n]^4*S2[-1, 1, n])/48 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (27*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (243*S2[2, Infinity]^2*S2[-1, 1, n])/320 + 
   (337*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (349*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 + (S2[1, n]^2*S2[-1, 1, n]^2)/
    2 - (5*S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 + 
   Diff[S2[1, n], n, 2]*S2[2, 1, n] - (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/
    8 + (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (13*S2[1, n]^3*S2[2, 1, n])/32 - (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (25*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (145*S2[3, Infinity]*S2[2, 1, n])/48 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (5*S2[2, 1, n]^2)/4 + 
   (5*S2[1, n]*S2[4, 1, n])/2 + 2*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 - 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 - (S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (5*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   (7*S2[-2, 2, -2, n])/8 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/32 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/32 - 
   (3*S2[2, Infinity]*S2[-1, -2, -1, n])/8 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/
    16 + (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (113*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] - S2[-1, 1, 1, n]^2/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   2*S2[1, n]^2*S2[1, 2, -1, n] - S2[2, Infinity]*S2[1, 2, -1, n] - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + 
   S2[1, n]*S2[2, 1, -2, n] + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 + Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (31*S2[1, n]^2*S2[2, 1, -1, n])/16 - (S2[2, Infinity]*S2[2, 1, -1, n])/2 - 
   (5*S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + S2[2, Infinity]*S2[2, 1, 1, n] - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + S2[3, 1, -2, n]/2 - 
   2*S2[1, n]*S2[3, 1, 1, n] - (11*S2[4, 1, 1, n])/2 + 3*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n]/2 + (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - 
   2*S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (25*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 + (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/
    2 - (S2[1, n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   S2[2, -2, 1, 1, n]/2 - (S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n] + (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (45*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (37*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] - 
   (7*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (7*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, -1, 1, 1, 2, n]/2 + S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, 1, n]/2 + S2[1, 1, -2, 1, -1, n] - 
   (9*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + S2[1, 1, -1, 1, -2, n] + 
   5*S2[1, 1, 1, -2, -1, n] + 3*S2[1, 1, 1, -1, -2, n] + 
   3*S2[1, 1, 1, 2, -1, n] + 2*S2[1, 1, 2, -1, -1, n] + 
   S2[1, 1, 2, -1, 1, n]/2 + 2*S2[1, 1, 2, 1, -1, n] + 
   S2[1, 2, 1, -1, -1, n] + S2[1, 2, 1, 1, -1, n] + S2[2, 1, 1, 1, 1, n]/2 - 
   S2[-1, -1, -1, 1, -1, -1, n]/8 - (3*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 + S2[-1, 1, -1, 1, -1, -1, n]/4 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + S2[-1, 1, 1, -1, -1, -1, n] - 
   S2[-1, 1, 1, 1, -1, 1, n]/4 - (13*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + (3*S2[1, -1, -1, -1, 1, -1, n])/8 + 
   S2[1, -1, -1, 1, -1, -1, n] + (5*S2[1, -1, 1, -1, -1, -1, n])/4 + 
   3*S2[1, 1, -1, -1, -1, -1, n] - (5*S2[1, 1, 1, -1, 1, -1, n])/4 - 
   S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, -3, -1, n] -> 
  (-31*Diff[Half[S2[1, n], n], n, 1]^3)/96 + 
   (23*Diff[Half[S2[1, n], n], n, 2]^2)/24 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 - 
   (1037*Diff[Half[S2[1, n], n], n, 5])/2880 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/96 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/4 + 
   (185*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (34*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/9 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (25*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/96 - 
   (1405*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (527*Diff[S2[1, n], n, 1]^3)/48 + (39*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (109*Diff[S2[1, n], n, 2]^2)/48 + 
   (1337*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (1775*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (767*Diff[S2[1, n], n, 5])/2880 + (3*Diff[S2[-4, 1, n], n, 1])/2 + 
   (29*Diff[S2[-3, 1, n], n, 2])/48 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (73*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (23*Diff[S2[-2, 1, n], n, 3])/24 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (13*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (347*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 + 
   (393*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (29*Diff[S2[-1, 1, n], n, 4])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (5*Diff[S2[2, 1, n], n, 3])/6 + 4*Diff[S2[4, 1, n], n, 1] + 
   5*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/48 + 
   Diff[S2[-1, 1, -1, n], n, 3]/16 - (57*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/3 - Diff[S2[1, 2, -1, n], n, 2] - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (31*Diff[S2[2, 1, -1, n], n, 2])/24 - 
   (9*Diff[S2[2, 1, 1, n], n, 2])/4 - 2*Diff[S2[3, 1, 1, n], n, 1] + 
   (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 + (13*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, -2, n], n, 
    1] - (5*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 
   4*Diff[S2[1, 1, -2, -1, n], n, 1] - 3*Diff[S2[1, 1, -1, 2, n], n, 1] + 
   Diff[S2[1, 1, 2, -1, n], n, 1] - 4*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (17*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 + 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (79*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (23*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (23*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (121*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (67*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/288 + 
   (37*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    48 - (7*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/48 - 
   2*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n] + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (53*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/144 - 
   (29*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/12 + (59*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/24 - (67*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    72 + (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (95*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/2 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (37*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/12 - 
   Half[S2[2, 1, n], n]^2/32 - (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 + 
   Half[S2[4, 1, 1, n], n]/8 + Half[S2[2, 2, 1, 1, n], n]/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (37*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + 
   (29*S2[-1, Infinity]^6)/1440 + (211*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 + 
   (233*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (29*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (209*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 - 
   (271*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (367*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (301*Diff[S2[1, n], n, 4]*S2[1, n])/288 - 
   (67*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 + 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (437*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (31*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 + 
   (39*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/3 + 
   (19*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/48 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/3 + 
   (15*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (8*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/3 + (301*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (13*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/3 - 
   2*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (43*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (29*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (127*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 + 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (28*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/3 - 
   (605*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (185*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 - 
   (33*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (523*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (43*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   6*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 - 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/2 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/2 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    12 + (115*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (71*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/8 + 
   (19*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 2*Half[S2[1, n], n]^2*S2[1, n]^4 - 
   (21*Half[S2[1, n], n]*S2[1, n]^5)/16 + (5*S2[1, n]^6)/16 + 
   (319*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/96 - 
   (817*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    96 - (45*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (1025*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 - 
   (121*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (685*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 + 
   (11*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (43*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (191*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (53*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    24 - (97*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (3*Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/12 - 
   (21*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (61*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (197*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (37*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (2*S2[-1, Infinity]^4*S2[2, Infinity])/3 + 
   (59*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (221*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/6 - 
   (185*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (125*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 + (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 + (137*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (105*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/8 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/4 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/2 - (7*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 + (179*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/96 + (83*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/48 + (19*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/8 - (87*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/16 - (73*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 - (43*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 + 
   8*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity] + 
   (39*S2[1, n]^4*S2[2, Infinity])/32 + 
   (877*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (157*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/24 + 
   (239*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/480 - 
   (301*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (469*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (161*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 + 
   (1369*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (371*S2[1, n]^2*S2[2, Infinity]^2)/240 - (871*S2[2, Infinity]^3)/64 - 
   (683*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (253*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (671*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 - (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (55*Half[S2[1, n], n]^3*S2[3, Infinity])/192 - 
   (15*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (65*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (29*S2[1, n]^3*S2[3, Infinity])/24 + 
   (575*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (399*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (5455*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (1465*S2[3, Infinity]^2)/1536 + (115*Half[S2[1, n], n]*S2[5, Infinity])/
    32 - (5149*S2[1, n]*S2[5, Infinity])/128 - (5*S2[-5, -1, Infinity])/4 - 
   8*S2[-5, 1, n] + (3*Half[S2[1, n], n]*S2[-4, 1, n])/2 - 
   (11*S2[1, n]*S2[-4, 1, n])/2 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/48 + (115*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (35*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (187*S2[1, n]^2*S2[-3, 1, n])/48 - (239*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (85*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/3 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    4 - (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/3 - (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/12 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (25*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/6 + 
   (3*S2[3, Infinity]*S2[-2, 1, n])/8 - S2[-2, 1, n]^2/2 - 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (407*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/48 - 
   (529*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 + 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/6 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (45*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 - 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (53*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/6 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/2 - 
   (11*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (97*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (137*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 - (91*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/2 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (143*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   2*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n] + (9*S2[1, n]^4*S2[-1, 1, n])/
    16 + (8*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/3 + 
   2*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (43*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (55*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (93*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (41*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (1199*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (109*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (215*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (19*S2[-3, 1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/4 + (39*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   S2[-1, 1, n]^3/4 - (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 + 
   (73*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (5*S2[1, n]^3*S2[2, 1, n])/48 - (45*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (19*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (13*S2[3, Infinity]*S2[2, 1, n])/2 - 3*S2[-2, 1, n]*S2[2, 1, n] - 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (15*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/2 + 
   2*Half[S2[1, n], n]*S2[4, 1, n] - S2[1, n]*S2[4, 1, n] + S2[-4, 1, 1, n] + 
   S2[-3, -2, 1, n] - (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + 
   (S2[1, n]*S2[-3, 1, 1, n])/2 - (S2[1, n]*S2[-2, 1, -2, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + 2*S2[1, n]^2*S2[-2, 1, -1, n] + 
   (21*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   2*S2[-1, 1, n]*S2[-2, 1, -1, n] + (5*S2[-2, 2, -2, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (49*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (25*S2[1, n]^2*S2[-1, -2, -1, n])/48 - 
   (77*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (3*S2[1, n]^3*S2[-1, 1, -1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (157*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (19*S2[3, Infinity]*S2[-1, 1, 1, n])/8 - S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   3*S2[2, 1, n]*S2[-1, 1, 1, n] + (3*S2[-1, 1, 1, n]^2)/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (19*S2[1, n]^2*S2[1, 2, -1, n])/4 - 5*S2[2, Infinity]*S2[1, 2, -1, n] - 
   3*S2[-1, 1, n]*S2[1, 2, -1, n] - (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + 
   3*S2[1, n]*S2[2, 1, -2, n] + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/24 + (127*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (4*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 - 
   (91*S2[1, n]^2*S2[2, 1, -1, n])/24 - (71*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (9*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   2*S2[1, n]^2*S2[2, 1, 1, n] + (29*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (5*S2[3, 1, -2, n])/2 - 
   5*S2[4, 1, 1, n] + 8*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - 4*S2[1, n]*S2[-2, 1, 1, 1, n] + 
   (5*S2[-2, 2, 1, 1, n])/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/12 - (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    24 + (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 + 
   (17*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (7*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (31*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (45*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (37*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 10*S2[2, Infinity]*
    S2[-1, 1, 1, 1, Infinity] + (11*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/
    4 - 3*S2[1, n]*S2[1, 1, -2, -1, n] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 + (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 - (7*S2[1, n]*S2[1, 1, 2, -1, n])/2 - (3*S2[2, -2, 1, 1, n])/2 + 
   3*S2[1, n]*S2[2, 1, 1, 1, n] + (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (19*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (29*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   2*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   2*S2[1, n]*S2[1, -1, -1, -1, -1, n] - Half[S2[1, n], n]*
    S2[1, -1, -1, 1, -1, n] + S2[1, n]*S2[1, -1, -1, 1, -1, n] + 
   2*S2[1, -1, -1, 1, 2, n] - (7*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    8 + (7*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + 3*S2[1, -1, 1, 1, -2, n] - 
   (5*S2[1, -1, 1, 1, 2, n])/2 + 2*S2[1, -1, 1, 2, -1, n] + 
   3*S2[1, 1, -2, -1, 1, n] + 4*S2[1, 1, -2, 1, -1, n] + 
   S2[1, 1, -1, -2, -1, n] + S2[1, 1, -1, -1, -2, n] - 
   (9*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 4*S2[1, 1, -1, 1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 - S2[1, 1, -1, 1, 2, n] + 
   2*S2[1, 1, -1, 2, -1, n] + 14*S2[1, 1, 1, -2, -1, n] + 
   8*S2[1, 1, 1, -1, -2, n] + 2*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] - 
   2*S2[1, n]*S2[1, 1, 1, -1, -1, n] - S2[1, 1, 1, -1, 2, n] + 
   14*S2[1, 1, 1, 2, -1, n] + 4*S2[1, 1, 2, -1, -1, n] + 
   (7*S2[1, 1, 2, -1, 1, n])/2 + 9*S2[1, 1, 2, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 4*S2[1, 2, 1, 1, -1, n] - 
   3*S2[2, 1, 1, 1, 1, n] + S2[-1, -1, -1, 1, -1, -1, n]/4 + 
   S2[-1, -1, 1, -1, -1, -1, n]/4 + S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   S2[-1, 1, -1, -1, -1, -1, n]/2 - (5*S2[-1, 1, -1, -1, -1, 1, n])/4 - 
   S2[-1, 1, -1, -1, 1, 1, n]/2 - (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   S2[-1, 1, 1, -1, -1, -1, n]/2 + S2[-1, 1, 1, -1, -1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   (29*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - (5*S2[1, -1, -1, -1, -1, -1, n])/
    2 + (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, -1, 1, -1, -1, n])/
    2 - S2[1, -1, -1, 1, 1, -1, n] + S2[1, -1, 1, -1, -1, -1, n] + 
   (3*S2[1, -1, 1, 1, -1, -1, n])/2 + 3*S2[1, 1, -1, -1, -1, -1, n] + 
   (3*S2[1, 1, -1, 1, -1, -1, n])/2 + 3*S2[1, 1, 1, -1, -1, -1, n] + 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, -3, 1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/48 - 
   (119*Diff[Half[S2[1, n], n], n, 2]^2)/384 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (43*Diff[Half[S2[1, n], n], n, 5])/288 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 3])/64 + 
   (9*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (133*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (49*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/36 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (113*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 - 
   (355*Diff[S2[1, n], n, 1]^3)/96 - (57*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (269*Diff[S2[1, n], n, 2]^2)/192 - 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/72 + 
   (1651*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (107*Diff[S2[1, n], n, 5])/640 + (7*Diff[S2[-3, 1, n], n, 2])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (47*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (29*Diff[S2[-2, 1, n], n, 3])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (13*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (125*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (83*Diff[S2[-1, 1, n], n, 4])/192 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (13*Diff[S2[2, 1, n], n, 3])/24 - (5*Diff[S2[4, 1, n], n, 1])/2 - 
   (9*Diff[S2[-3, 1, 1, n], n, 1])/2 + (7*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (9*Diff[S2[-2, 1, -1, n], n, 2])/8 - (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 + (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (43*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/16 + (3*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (13*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (11*Diff[S2[2, 1, 1, n], n, 2])/8 - (7*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/4 + (9*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    16 - 2*Diff[S2[-1, 1, 1, 1, n], n, 2] - Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 + Diff[S2[1, -1, 1, 2, n], n, 1] - 2*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 2*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + Diff[S2[1, -1, -1, -1, -1, n], n, 1]/
    4 - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (103*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (61*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + 4*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (55*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 - 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (29*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (25*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n] - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (31*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 - (41*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    192 - (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/6 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/12 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 - 
   (5*Half[S2[2, 1, n], n]^2)/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 + (29*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/192 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 - S2[-1, Infinity]^6/288 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (203*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (25*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (111*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (75*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (631*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (191*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (55*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (149*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (73*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] + (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (19*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] - 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 - 
   (265*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 - (689*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 + (1187*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (185*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (11*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (11*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (17*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (57*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (319*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/6 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/24 - 
   (391*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (839*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (793*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 + 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (301*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (23*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (77*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (65*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (19*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 - 
   (169*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (65*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (121*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/16 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 - 
   (155*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (Half[S2[1, n], n]*S2[1, n]^5)/
    16 + (5*S2[1, n]^6)/96 - (55*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (11*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    576 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (41*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (23*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (47*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (45*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   (85*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (67*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (47*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 - (133*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (25*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (37*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (17*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/32 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (89*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (15*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (65*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (5*S2[1, n]^4*S2[2, Infinity])/24 - 
   (1231*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (899*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 - 
   (337*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (167*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (37*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 + 
   (79*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/60 + 
   (741*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (1153*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (365*S2[2, Infinity]^3)/384 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/48 - 
   (87*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (343*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (497*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/96 + 
   (23*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (45*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (187*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 - 
   (59*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/96 - 
   (S2[1, n]^3*S2[3, Infinity])/128 - (863*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/768 + (2703*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/256 + (67*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/
    768 - (9115*S2[3, Infinity]^2)/6144 - 
   (127*Half[S2[1, n], n]*S2[5, Infinity])/32 + 
   (403*S2[1, n]*S2[5, Infinity])/64 + (25*S2[-5, -1, Infinity])/8 + 
   4*S2[-5, 1, n] - 2*Half[S2[1, n], n]*S2[-4, 1, n] + 
   7*S2[1, n]*S2[-4, 1, n] - (37*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    24 + (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/4 + 
   (67*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 - 
   (31*S2[1, n]^2*S2[-3, 1, n])/48 - (7*S2[2, Infinity]*S2[-3, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (77*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/12 + 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (67*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/12 - 
   (23*S2[1, n]^3*S2[-2, 1, n])/24 - (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (17*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (41*S2[3, Infinity]*S2[-2, 1, n])/64 - (5*S2[-2, 1, n]^2)/8 - 
   (59*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (35*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (79*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/16 - 
   (91*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 + (77*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (163*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (S2[1, n]^4*S2[-1, 1, n])/8 - (85*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (19*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (37*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (9*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (179*S2[2, Infinity]^2*S2[-1, 1, n])/60 - 
   (103*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (239*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/12 - 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (13*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (23*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 - (35*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/12 + 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (5*S2[1, n]^3*S2[2, 1, n])/16 + (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (63*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (19*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (437*S2[3, Infinity]*S2[2, 1, n])/192 - (5*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/8 + 
   (11*S2[1, n]*S2[4, 1, n])/2 - 4*S2[-4, 1, 1, n] - (3*S2[-3, -2, 1, n])/2 - 
   2*Half[S2[1, n], n]*S2[-3, 1, 1, n] + (7*S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/2 - (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + (3*S2[-2, 2, -2, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    6 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (55*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 - S2[-1, 1, -1, n]^2/32 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (39*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - 2*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   S2[-1, 1, 1, n]^2/4 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/2 - (5*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - (3*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/3 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 + 
   (35*S2[1, n]^2*S2[2, 1, -1, n])/24 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    6 + (S2[-1, 1, n]*S2[2, 1, -1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/4 + (S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   S2[-1, 1, n]*S2[2, 1, 1, n] - S2[3, 1, -2, n] + 
   3*S2[1, n]*S2[3, 1, 1, n] + S2[4, 1, 1, n]/2 - 6*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n]/2 + (5*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   S2[-2, 2, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/
    6 - (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (27*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - (S2[1, n]*S2[1, 1, -1, 2, n])/2 + 
   S2[1, n]*S2[1, 1, 2, -1, n] + S2[2, -2, 1, 1, n] - 
   (S2[1, n]*S2[2, 1, 1, 1, n])/2 - S2[2, 2, 1, 1, n] - 
   3*S2[-2, 1, 1, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/
    8 - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (17*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, -2, n]/2 + 
   S2[1, -1, 1, 1, 2, n] - (3*S2[1, 1, -2, -1, 1, n])/2 - 
   2*S2[1, 1, -2, 1, -1, n] + (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - S2[1, 1, -1, 1, -2, n] - 
   6*S2[1, 1, 1, -2, -1, n] - 2*S2[1, 1, 1, -1, -2, n] - 
   6*S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, -1, 1, n] - 
   4*S2[1, 1, 2, 1, -1, n] - 2*S2[1, 2, 1, 1, -1, n] + 
   S2[2, 1, 1, 1, 1, n]/2 + S2[-1, -1, -1, 1, -1, -1, n]/4 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/4 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 - S2[-1, 1, -1, -1, -1, 1, n]/4 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 + S2[-1, 1, -1, 1, 1, 1, n]/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] - S2[-1, 1, 1, 1, -1, 1, n]/4 + 
   (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + (5*S2[1, -1, -1, -1, -1, -1, n])/
    2 + S2[1, -1, -1, -1, 1, -1, n]/2 + (3*S2[1, -1, -1, 1, -1, -1, n])/4 + 
   S2[1, -1, 1, -1, -1, -1, n]/2 + S2[1, 1, -1, -1, -1, -1, n]/2 - 
   S2[1, 1, 1, -1, 1, -1, n]/4 - S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, 3, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/24 - 
   (535*Diff[Half[S2[1, n], n], n, 2]^2)/384 - 
   (323*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (41*Diff[Half[S2[1, n], n], n, 5])/72 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (83*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (23*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   (173*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (38*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/9 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 + 
   (301*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 - 
   (345*Diff[S2[1, n], n, 1]^3)/32 - (163*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (805*Diff[S2[1, n], n, 2]^2)/192 - 
   (805*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (4691*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (2683*Diff[S2[1, n], n, 5])/5760 - (5*Diff[S2[-4, 1, n], n, 1])/2 - 
   (11*Diff[S2[-3, 1, n], n, 2])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (25*Diff[S2[-2, 1, n], n, 3])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (19*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 - 
   (37*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (51*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   (265*Diff[S2[-1, 1, n], n, 4])/192 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (7*Diff[S2[2, 1, n], n, 3])/6 - (11*Diff[S2[4, 1, n], n, 1])/2 - 
   9*Diff[S2[-3, 1, 1, n], n, 1] + (7*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (9*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (13*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (39*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/16 + (11*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1] + (31*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (19*Diff[S2[2, 1, 1, n], n, 2])/8 + 2*Diff[S2[3, 1, 1, n], n, 1] - 
   7*Diff[S2[-2, 1, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, -1, n], n, 2]/2 + 
   (9*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 - 
   4*Diff[S2[-1, 1, 1, 1, n], n, 2] - (3*Diff[S2[1, -1, 1, -2, n], n, 1])/2 + 
   2*Diff[S2[1, -1, 1, 2, n], n, 1] - 3*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   3*Diff[S2[1, 1, -1, 2, n], n, 1] + 4*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - 
   (5*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 + 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   (9*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   6*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (13*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1] - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/2 - 
   3*Diff[S2[1, 1, -1, -1, -1, n], n, 1] - Diff[S2[1, 1, -1, 1, -1, n], n, 1]/
    4 - Diff[S2[1, 1, 1, -1, -1, n], n, 1]/2 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (259*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (7*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/4 + (119*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (37*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (91*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/288 - 
   (37*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (103*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (7*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    16 + (15*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   2*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/3 + 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (47*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (41*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (59*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (181*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (47*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (31*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/3 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/6 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (53*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (79*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (3*Half[S2[2, 1, n], n]^2)/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/4 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/4 + (77*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/192 + (35*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/32 - (11*S2[-1, Infinity]^6)/480 - 
   (181*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    96 - (581*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (13*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (37*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (1061*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (293*Diff[S2[1, n], n, 4]*S2[1, n])/144 + 
   (41*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/6 - 
   (107*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (125*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (79*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 - 
   (111*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] + (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 - 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (4*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/3 - 
   3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/3 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (143*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (365*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (317*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (37*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (55*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (2*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (29*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (7*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 + 
   (7*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (41*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/9 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/24 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (515*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (379*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (2599*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (27*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (635*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 + 
   (57*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (173*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (85*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (51*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (53*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (59*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    12 - (157*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (299*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/8 - 
   (13*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (73*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/8 + (11*Half[S2[1, n], n]*S2[1, n]^5)/
    12 - (19*S2[1, n]^6)/96 - (125*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (959*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    96 + (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 + (33*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (161*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (103*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (151*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (13*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (151*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (249*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   (211*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (251*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/12 + 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 - 
   (77*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (13*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (73*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (69*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (215*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (27*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (331*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (157*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 - (547*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (35*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (35*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (37*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (23*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (29*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/24 - 
   (377*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 + 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (63*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (61*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (119*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (239*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (95*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (23*S2[1, n]^4*S2[2, Infinity])/32 - 
   (1677*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (107*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/48 - 
   (371*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (125*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/64 + 
   (1959*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (2369*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (1013*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (223*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (18191*S2[2, Infinity]^3)/1920 + 
   (539*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (229*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (367*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (2047*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (1189*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (187*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (1075*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/3 + 
   (467*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 - 
   (1157*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (95*S2[1, n]^3*S2[3, Infinity])/192 - 
   (4409*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (3795*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (1577*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (17213*S2[3, Infinity]^2)/6144 + (33*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (6335*S2[1, n]*S2[5, Infinity])/256 + (3*S2[-5, -1, Infinity])/4 + 
   8*S2[-5, 1, n] + (Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   7*S2[1, n]*S2[-4, 1, n] - (47*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    24 - (17*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (43*S2[1, n]^2*S2[-3, 1, n])/48 + (275*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (187*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (115*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 - 
   (53*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (11*S2[1, n]^3*S2[-2, 1, n])/12 + (65*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (161*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (59*S2[3, Infinity]*S2[-2, 1, n])/64 + (3*S2[-2, 1, n]^2)/8 - 
   (49*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 + 
   8*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] - 
   (317*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (4*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 + 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (7*S2[-1, Infinity]^4*S2[-1, 1, n])/48 - 
   (137*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (197*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (29*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (13*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (251*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (21*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (17*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 - 
   (13*S2[1, n]^4*S2[-1, 1, n])/48 - (67*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (21*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (31*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (17*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (79*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (23*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (69*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (539*S2[2, Infinity]^2*S2[-1, 1, n])/120 - 
   (811*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (55*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/12 - 
   (13*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (13*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/4 - 
   (59*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (49*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (31*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (71*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 - 
   (145*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (11*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, 1, n] + (51*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/
    16 + (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (S2[1, n]^3*S2[2, 1, n])/48 + (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (63*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (1289*S2[3, Infinity]*S2[2, 1, n])/192 + (11*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (13*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (19*S2[2, 1, n]^2)/8 + 
   (5*S2[1, n]*S2[4, 1, n])/2 - 8*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + (7*S2[1, n]*S2[-3, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-2, 1, -2, n])/4 + Diff[Half[S2[1, n], n], n, 1]*
    S2[-2, 1, -1, n] + (9*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (13*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - (9*S2[-2, 2, -2, n])/8 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/24 - (23*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 + (47*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 - 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (79*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (49*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (853*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (7*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (7*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (7*S2[-1, 1, -1, n]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   S2[1, n]^3*S2[-1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (39*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    8 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (91*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - 4*S2[2, 1, n]*S2[-1, 1, 1, n] - S2[-1, 1, 1, n]^2/4 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] - 
   (25*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (17*S2[1, n]^2*S2[1, 2, -1, n])/4 + (7*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 - (5*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/12 - 
   (119*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (97*S2[1, n]^2*S2[2, 1, -1, n])/24 + (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/3 + Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] - (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   2*S2[1, n]^2*S2[2, 1, 1, n] - (7*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   2*S2[-1, 1, n]*S2[2, 1, 1, n] - 2*S2[3, 1, -2, n] + 
   4*S2[1, n]*S2[3, 1, 1, n] + (17*S2[4, 1, 1, n])/2 - 
   12*S2[-3, 1, 1, 1, n] + (3*S2[-2, -2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + 
   (11*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 2*S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/3 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (7*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 - 
   (7*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + (39*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (39*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (71*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (35*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (57*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (7*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 + 2*S2[1, n]*S2[1, 1, 2, -1, n] + 2*S2[2, -2, 1, 1, n] - 
   (S2[1, n]*S2[2, 1, 1, 1, n])/2 - 2*S2[2, 2, 1, 1, n] - 
   6*S2[-2, 1, 1, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (15*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (7*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 2*S2[1, -1, -1, 1, 2, n] + 
   Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n] - 
   S2[1, n]*S2[1, -1, 1, -1, -1, n] - (7*S2[1, -1, 1, 1, -2, n])/2 + 
   2*S2[1, -1, 1, 1, 2, n] - 2*S2[1, -1, 1, 2, -1, n] - 
   (3*S2[1, 1, -2, -1, 1, n])/2 - 3*S2[1, 1, -2, 1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (5*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 4*S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] - 12*S2[1, 1, 1, -2, -1, n] - 
   8*S2[1, 1, 1, -1, -2, n] - 12*S2[1, 1, 1, 2, -1, n] - 
   4*S2[1, 1, 2, -1, -1, n] - 2*S2[1, 1, 2, -1, 1, n] - 
   8*S2[1, 1, 2, 1, -1, n] - 2*S2[1, 2, 1, -1, -1, n] - 
   4*S2[1, 2, 1, 1, -1, n] + S2[2, 1, 1, 1, 1, n]/2 + 
   S2[-1, -1, -1, 1, -1, -1, n]/2 + (3*S2[-1, -1, 1, -1, -1, -1, n])/2 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 + 3*S2[-1, 1, -1, -1, -1, -1, n] + 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/4 - S2[-1, 1, -1, 1, -1, -1, n]/4 + 
   (5*S2[-1, 1, -1, 1, 1, 1, n])/4 - S2[-1, 1, 1, -1, -1, -1, n] - 
   S2[-1, 1, 1, 1, -1, 1, n]/4 + (33*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   5*S2[1, -1, -1, -1, -1, -1, n] - S2[1, -1, -1, -1, 1, -1, n]/2 - 
   (5*S2[1, -1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, -1, -1, -1, n])/2 - 
   (7*S2[1, 1, -1, -1, -1, -1, n])/2 + (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 
   S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, 3, 1, n] -> 
  (-59*Diff[Half[S2[1, n], n], n, 5])/120 + 3*Diff[Half[S2[1, n], n], n, 3]*
    Diff[S2[1, n], n, 1] - (25*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]^2)/8 + (25*Diff[S2[1, n], n, 1]^3)/8 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/8 - 
   (35*Diff[S2[1, n], n, 2]^2)/8 + (139*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/48 - (283*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/48 + (59*Diff[S2[1, n], n, 5])/120 + 
   2*Diff[S2[-4, 1, n], n, 1] + (7*Diff[S2[-3, 1, n], n, 2])/4 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (7*Diff[S2[-2, 1, n], n, 3])/12 + 
   (41*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (67*Diff[S2[-1, 1, n], n, 4])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (7*Diff[S2[-3, 1, 1, n], n, 1])/2 - Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - (7*Diff[S2[-1, 1, 1, n], n, 3])/12 - 
   2*Diff[S2[1, 2, -1, n], n, 2] + Diff[S2[2, 1, -2, n], n, 1]/2 - 
   (3*Diff[S2[2, 1, -1, n], n, 2])/2 + (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 - (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - 
   2*Diff[S2[1, 1, 2, -1, n], n, 1] + (7*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/
    2 - (27*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (2*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/3 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (7*S2[-1, Infinity]^6)/1440 + (49*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/
    48 - (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (81*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (27*Diff[S2[1, n], n, 4]*S2[1, n])/16 - 2*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] + 2*Diff[S2[-2, 1, n], n, 2]*S2[1, n] - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (29*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 - Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + 2*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (89*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (S2[-1, Infinity]^5*S2[1, n])/120 - 
   (2*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/3 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (121*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/2 - 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] + 
   (51*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (31*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (41*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 + 
   (11*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (S2[1, n]^4*S2[2, Infinity])/12 + (39*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/20 - (71*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 + 
   (551*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (91*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (7*S2[1, n]^2*S2[2, Infinity]^2)/80 + (5269*S2[2, Infinity]^3)/1680 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 + 
   (131*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 - 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/6 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (69*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 + 
   (23*S2[1, n]^3*S2[3, Infinity])/96 + 
   (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 + 
   (7*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (221*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   (83*S2[3, Infinity]^2)/768 + (9*Half[S2[1, n], n]*S2[5, Infinity])/2 - 
   (163*S2[1, n]*S2[5, Infinity])/32 - (11*S2[-5, -1, Infinity])/8 - 
   5*S2[-5, 1, n] - (S2[1, n]*S2[-4, 1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - (5*S2[1, n]^2*S2[-3, 1, n])/4 + 
   (9*S2[2, Infinity]*S2[-3, 1, n])/4 + (2*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    3 - (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (11*S2[1, n]^3*S2[-2, 1, n])/12 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/
    4 - (7*S2[3, Infinity]*S2[-2, 1, n])/6 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (53*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   (27*S2[2, Infinity]^2*S2[-1, 1, n])/10 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 + Diff[Half[S2[1, n], n], n, 2]*
    S2[2, 1, n] - Diff[S2[1, n], n, 2]*S2[2, 1, n] + 
   2*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n] - Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[2, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
     S2[2, 1, n])/2 + (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (S2[1, n]^3*S2[2, 1, n])/2 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (7*S2[3, Infinity]*S2[2, 1, n])/4 - (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/
    2 - 2*Half[S2[1, n], n]*S2[4, 1, n] + 2*S2[1, n]*S2[4, 1, n] - 
   3*S2[-4, 1, 1, n] + (S2[1, n]*S2[-3, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   2*S2[3, Infinity]*S2[-1, 1, 1, n] + 2*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/4 + (7*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   S2[1, n]*S2[2, 1, -2, n] + (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/4 + (7*S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - S2[2, Infinity]*S2[2, 1, 1, n] - 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - S2[3, 1, -2, n]/2 - 
   2*Half[S2[1, n], n]*S2[3, 1, 1, n] + 2*S2[1, n]*S2[3, 1, 1, n] - 
   3*S2[1, n]*S2[-2, 1, 1, 1, n] + (3*S2[-2, 2, 1, 1, n])/2 - 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (55*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]*S2[1, 1, -1, 2, n])/2 + (S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   S2[2, -2, 1, 1, n] + (7*S2[-2, 1, 1, 1, 1, n])/2 - 
   S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - (3*S2[1, -1, 1, 1, 2, n])/2 - 
   S2[1, 1, -1, 1, 2, n] - 2*S2[1, 1, 1, -1, 2, n] - 
   S2[1, 1, 2, -1, 1, n]/2 + 2*S2[1, 1, 2, 1, -1, n] + 
   2*S2[1, 2, 1, 1, -1, n] - (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, 
 S2[-1, 1, -2, -2, n] -> (23*Diff[Half[S2[1, n], n], n, 1]^3)/96 - 
   (31*Diff[Half[S2[1, n], n], n, 2]^2)/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 + 
   (737*Diff[Half[S2[1, n], n], n, 5])/576 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   3*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1] - 
   (499*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 + 
   (701*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (229*Diff[S2[1, n], n, 1]^3)/12 - (79*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (509*Diff[S2[1, n], n, 2]^2)/48 - 
   (1475*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (73*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/4 - 
   (695*Diff[S2[1, n], n, 5])/576 + 2*Diff[S2[-4, 1, n], n, 1] + 
   (13*Diff[S2[-3, 1, n], n, 2])/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 16*Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + (7*Diff[S2[-2, 1, n], n, 3])/2 + 
   (49*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   9*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1] - 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (89*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   (83*Diff[S2[-1, 1, n], n, 4])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (23*Diff[S2[2, 1, n], n, 3])/24 - 4*Diff[S2[4, 1, n], n, 1] - 
   14*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   (19*Diff[S2[-1, 1, 1, n], n, 3])/12 + (17*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (17*Diff[S2[2, 1, -1, n], n, 2])/4 + (13*Diff[S2[2, 1, 1, n], n, 2])/4 + 
   3*Diff[S2[3, 1, 1, n], n, 1] - 11*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 - 7*Diff[S2[-1, 1, 1, 1, n], n, 2] - Diff[S2[1, -1, 1, -2, n], n, 1] + 
   3*Diff[S2[1, -1, 1, 2, n], n, 1] - 4*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   3*Diff[S2[1, 1, -1, 2, n], n, 1] - Diff[S2[1, 1, 2, -1, n], n, 1] - 
   Diff[S2[1, 2, -1, -1, n], n, 1] + 5*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] + (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   8*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   (13*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/12 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (59*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (667*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (101*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 - 
   (33*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 - (51*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    32 + (161*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (9*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (53*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (59*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (41*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/6 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 + 
   (23*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (17*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/32 - (3*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/
    16 - (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - 
   (19*S2[-1, Infinity]^6)/1440 - (157*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/3 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (397*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (1979*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (895*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (105*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (45*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (229*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (599*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 3*Diff[S2[2, 1, n], n, 2]*
    S2[1, n] - (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (15*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (29*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (25*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (197*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (139*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (17*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (29*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (133*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (173*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (37*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (27*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (25*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (13*S2[-1, Infinity]^5*S2[1, n])/160 + 
   (89*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (71*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/32 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (681*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 - 
   (1595*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 + 5*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (261*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 + 
   (27*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 + 
   (53*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (133*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (103*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (49*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (37*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/32 - 
   (111*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (65*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (85*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (29*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (47*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 - 
   (8*Half[S2[1, n], n]^2*S2[1, n]^4)/3 + (4*Half[S2[1, n], n]*S2[1, n]^5)/
    3 - (11*S2[1, n]^6)/48 - (111*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (157*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/48 - (3*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/16 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (129*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (589*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 + 
   7*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] + 
   (131*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (15*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (29*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (53*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (365*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 - 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (17*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (45*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (63*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (23*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (11*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (31*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (39*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (59*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (11*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 + (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] + (465*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (87*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 + (3*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (57*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (75*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (199*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (219*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (19*S2[1, n]^4*S2[2, Infinity])/16 - 
   (1537*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (1319*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 - 
   (21*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/16 + 
   (689*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (1043*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (145*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/32 - 
   (363*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (45*S2[1, n]^2*S2[2, Infinity]^2)/16 + (55841*S2[2, Infinity]^3)/3360 + 
   (461*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 - 
   (245*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (1199*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 - 
   (431*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (299*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (133*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (61*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/24 + 
   (1387*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (303*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (221*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (353*S2[1, n]^3*S2[3, Infinity])/384 - 
   (457*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (2107*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (1921*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (1923*S2[3, Infinity]^2)/512 + (161*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (6597*S2[1, n]*S2[5, Infinity])/128 + 4*S2[-5, -1, Infinity] + 
   20*S2[-5, 1, n] + 3*Half[S2[1, n], n]*S2[-4, 1, n] + 
   5*S2[1, n]*S2[-4, 1, n] - (21*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 - (11*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - 
   (25*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (13*S2[1, n]^2*S2[-3, 1, n])/16 + (73*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (73*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (17*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (115*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (25*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (33*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (23*S2[1, n]^3*S2[-2, 1, n])/24 + (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (37*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (55*S2[3, Infinity]*S2[-2, 1, n])/48 + S2[-2, 1, n]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (43*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (149*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/6 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (29*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (59*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (25*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (31*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (51*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (43*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   4*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] - 
   3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] - 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (1027*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (31*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (53*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 - Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] + S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 - (35*S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 - 
   (19*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (25*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (31*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (37*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (19*S2[1, n]^3*S2[2, 1, n])/48 + (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - (27*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (163*S2[3, Infinity]*S2[2, 1, n])/16 + 3*S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (25*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/2 + 
   Half[S2[1, n], n]*S2[4, 1, n] - 2*S2[1, n]*S2[4, 1, n] - 
   11*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 5*S2[1, n]*S2[-3, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 + S2[1, n]*S2[-2, 1, -2, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (19*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - (5*S2[-2, 2, -2, n])/4 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/16 - (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/16 + (11*S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (17*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/6 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (183*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n] + 
   2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 3*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (5*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/4 + (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/
    4 + (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (19*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (63*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 6*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (3*S2[-1, 1, 1, n]^2)/2 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    4 - (21*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (21*S2[1, n]^2*S2[1, 2, -1, n])/4 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + S2[-1, 1, n]*S2[1, 2, -1, n] - 3*S2[1, n]*S2[2, 1, -2, n] - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (39*S2[1, n]^2*S2[2, 1, -1, n])/8 + (3*S2[2, Infinity]*S2[2, 1, -1, n])/
    4 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (17*S2[1, n]^2*S2[2, 1, 1, n])/4 - (27*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   3*S2[-1, 1, n]*S2[2, 1, 1, n] - 4*S2[3, 1, -2, n] + 5*S2[4, 1, 1, n] - 
   17*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n] + 
   8*S2[1, n]*S2[-2, 1, 1, 1, n] - 3*S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] - 
   S2[1, n]^2*S2[-1, 1, -1, -1, n] + (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/
    8 - S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (7*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (45*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (75*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (57*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (15*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (147*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (29*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, n]*S2[1, 1, -2, -1, n] + 5*S2[1, n]*S2[1, 1, 2, -1, n] + 
   3*S2[2, -2, 1, 1, n] - 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   8*S2[-2, 1, 1, 1, 1, n] - Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n] + 
   S2[1, n]*S2[-1, -1, 1, -1, -1, n] - 3*Half[S2[1, n], n]*
    S2[-1, 1, -1, -1, -1, n] + (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 + (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (39*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   6*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   6*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 2*S2[1, -1, -1, 1, 2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 3*S2[1, -1, 1, 1, -2, n] + 
   3*S2[1, -1, 1, 1, 2, n] - 2*S2[1, -1, 1, 2, -1, n] - 
   3*S2[1, 1, -2, -1, 1, n] - 4*S2[1, 1, -2, 1, -1, n] - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] + 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 4*S2[1, 1, -1, 1, -2, n] - 
   2*S2[1, 1, -1, 2, -1, n] - 14*S2[1, 1, 1, -2, -1, n] - 
   8*S2[1, 1, 1, -1, -2, n] + Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] - 
   S2[1, n]*S2[1, 1, 1, -1, -1, n] - 23*S2[1, 1, 1, 2, -1, n] - 
   4*S2[1, 1, 2, -1, -1, n] - 5*S2[1, 1, 2, -1, 1, n] - 
   14*S2[1, 1, 2, 1, -1, n] - 2*S2[1, 2, 1, -1, -1, n] - 
   6*S2[1, 2, 1, 1, -1, n] + 3*S2[2, 1, 1, 1, 1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n] + 3*S2[-1, -1, 1, -1, -1, -1, n] - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 + 6*S2[-1, 1, -1, -1, -1, -1, n] + 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 
   S2[-1, 1, 1, -1, -1, -1, n]/2 - S2[-1, 1, 1, 1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + (19*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   10*S2[1, -1, -1, -1, -1, -1, n] - (3*S2[1, -1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/2 - S2[1, -1, 1, -1, -1, -1, n] - 
   S2[1, -1, 1, 1, -1, -1, n] - 3*S2[1, 1, -1, -1, -1, -1, n] - 
   S2[1, 1, -1, 1, -1, -1, n] - 3*S2[1, 1, 1, -1, -1, -1, n] - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, -2, 2, n] -> Diff[Half[S2[1, n], n], n, 1]^3/12 - 
   Diff[Half[S2[1, n], n], n, 2]^2/192 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (95*Diff[Half[S2[1, n], n], n, 5])/72 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/32 + Diff[Half[S2[4, 1, n], n], n, 1]/
    16 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   (67*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (175*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/18 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (355*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 + 
   (643*Diff[S2[1, n], n, 1]^3)/48 + (365*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (381*Diff[S2[1, n], n, 2]^2)/32 + 
   (1187*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/144 - 
   (5203*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (1309*Diff[S2[1, n], n, 5])/960 - (19*Diff[S2[-3, 1, n], n, 2])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (113*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (77*Diff[S2[-2, 1, n], n, 3])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (113*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   (13*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (263*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (359*Diff[S2[-1, 1, n], n, 4])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (3*Diff[S2[2, 1, n], n, 3])/8 + (5*Diff[S2[4, 1, n], n, 1])/2 + 
   11*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   Diff[S2[-2, 1, -1, n], n, 2]/4 - Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/48 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   (15*Diff[S2[-1, 1, 1, n], n, 3])/8 - (19*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1] - (33*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   9*Diff[S2[-2, 1, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, 1, n], n, 2]/8 + 
   6*Diff[S2[-1, 1, 1, 1, n], n, 2] - 2*Diff[S2[1, -1, 1, 2, n], n, 1] + 
   Diff[S2[1, 1, -2, -1, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1] - 
   Diff[S2[2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    2 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/4 + 
   6*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - Diff[S2[1, -1, -1, -1, -1, n], n, 1]/
    2 + Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], 
    n, 1] - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (67*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (193*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (329*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 + (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 - Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n] - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/12 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/3 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/12 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/24 + 
   (5*Half[S2[2, 1, n], n]^2)/64 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   Half[S2[4, 1, 1, n], n]/4 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/96 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/80 + S2[-1, Infinity]^6/144 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 + (979*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (179*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (187*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (971*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (197*Diff[S2[1, n], n, 4]*S2[1, n])/36 - 
   (61*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 + 
   (157*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (63*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/8 + 
   (17*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 + 6*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + (35*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/3 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (205*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (967*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (4*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (17*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (S2[-1, Infinity]^5*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/2 - 
   (179*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/12 - 
   (73*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/6 + 
   (2471*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (143*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 + 
   Diff[S2[2, 1, n], n, 1]*S2[1, n]^2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (25*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/12 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - (3*S2[-1, Infinity]^4*S2[1, n]^2)/
    32 + (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (133*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + 
   (13*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]^4)/12 - (3*Half[S2[1, n], n]*S2[1, n]^5)/
    4 + (7*S2[1, n]^6)/48 + (19*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 - (97*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    288 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/4 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 + 3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity] + 
   (233*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (47*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (49*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/24 - 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (59*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, Infinity]*S2[2, Infinity] + 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (27*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/16 - 
   (103*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (29*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (59*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 + (305*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (19*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 + (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (91*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (23*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
    S2[2, Infinity] - (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (145*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity] + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (47*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (31*S2[1, n]^4*S2[2, Infinity])/48 + 
   (623*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (2413*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 + 
   (337*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (167*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (129*S2[-1, Infinity]^2*S2[2, Infinity]^2)/64 - 
   (431*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/96 - 
   (301*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (4051*S2[1, n]^2*S2[2, Infinity]^2)/960 + (4259*S2[2, Infinity]^3)/6720 - 
   (277*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 + 
   (1513*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (323*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (157*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/12 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/48 - 
   (23*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (503*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (1621*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (205*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/24 + 
   (115*S2[1, n]^3*S2[3, Infinity])/64 + 
   (1127*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (2727*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (1211*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (77*S2[3, Infinity]^2)/3072 - (5*Half[S2[1, n], n]*S2[5, Infinity])/32 - 
   (2635*S2[1, n]*S2[5, Infinity])/128 - 5*S2[-5, -1, Infinity] - 
   8*S2[-5, 1, n] - 9*S2[1, n]*S2[-4, 1, n] + 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/3 - 
   (31*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/2 - 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/6 + 
   (8*S2[1, n]^2*S2[-3, 1, n])/3 + (S2[2, Infinity]*S2[-3, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/3 + 
   (89*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/6 - 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (91*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 + 
   (4*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/3 + 
   (17*S2[1, n]^3*S2[-2, 1, n])/12 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    8 - (17*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (41*S2[3, Infinity]*S2[-2, 1, n])/32 + (5*S2[-2, 1, n]^2)/4 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 - 
   (27*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (439*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 + 
   (2*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n] - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/6 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/24 - 
   (13*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (S2[1, n]^4*S2[-1, 1, n])/8 + (31*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (15*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (7*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (13*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (683*S2[2, Infinity]^2*S2[-1, 1, n])/120 + 
   (103*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (341*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/6 + (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/12 - (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/24 - 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/48 + (23*S2[2, Infinity]*S2[-1, 1, n]^2)/
    24 + (119*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 - 
   (43*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/6 - (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/
    8 - 2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n] - (3*S2[1, n]^3*S2[2, 1, n])/
    4 - (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (437*S2[3, Infinity]*S2[2, 1, n])/96 + (5*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + (5*S2[2, 1, n]^2)/4 - 
   6*S2[1, n]*S2[4, 1, n] + 8*S2[-4, 1, 1, n] + 2*S2[-3, -2, 1, n] + 
   2*Half[S2[1, n], n]*S2[-3, 1, 1, n] - 6*S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/2 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/
    2 + (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 - (S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 
   S2[-2, 2, -2, n]/4 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/6 + (S2[2, Infinity]*S2[-1, -2, -1, n])/3 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/6 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (55*S2[3, Infinity]*S2[-1, 1, -1, n])/192 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/4 + S2[-1, 1, -1, n]^2/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (39*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 4*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, 1, n]^2/2 - Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] + 
   (11*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (7*S2[1, n]^2*S2[1, 2, -1, n])/2 + 
   (7*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 2*S2[1, n]*S2[2, 1, -2, n] - 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/3 + 
   (41*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 - 
   (8*S2[1, n]^2*S2[2, 1, -1, n])/3 + (8*S2[2, Infinity]*S2[2, 1, -1, n])/3 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/3 + (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/
    2 + (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - 2*S2[1, n]^2*S2[2, 1, 1, n] - 
   S2[2, Infinity]*S2[2, 1, 1, n] - 2*S2[-1, 1, n]*S2[2, 1, 1, n] + 
   2*S2[3, 1, -2, n] - S2[1, n]*S2[3, 1, 1, n] - S2[4, 1, 1, n] + 
   12*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n] - 
   6*S2[1, n]*S2[-2, 1, 1, 1, n] + 2*S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/3 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/3 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] - (27*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   2*S2[1, n]*S2[1, 1, -2, -1, n] - 2*S2[1, n]*S2[1, 1, 2, -1, n] - 
   2*S2[2, -2, 1, 1, n] + S2[1, n]*S2[2, 1, 1, 1, n] + S2[2, 2, 1, 1, n]/2 + 
   6*S2[-2, 1, 1, 1, 1, n] + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   2*S2[1, n]*S2[-1, 1, -1, -1, -1, n] + (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    2 - Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n] + 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 2*S2[1, -1, 1, 1, 2, n] + 
   2*S2[1, 1, -2, -1, 1, n] + 2*S2[1, 1, -2, 1, -1, n] - 
   Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] + 6*S2[1, 1, 1, -2, -1, n] + 
   S2[1, 1, 1, -1, -2, n] + 12*S2[1, 1, 1, 2, -1, n] + 
   2*S2[1, 1, 2, -1, 1, n] + 8*S2[1, 1, 2, 1, -1, n] + 
   4*S2[1, 2, 1, 1, -1, n] - S2[2, 1, 1, 1, 1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/2 - (3*S2[-1, -1, 1, -1, -1, -1, n])/2 + 
   S2[-1, -1, 1, 1, -1, -1, n] - 3*S2[-1, 1, -1, -1, -1, -1, n] + 
   S2[-1, 1, -1, -1, -1, 1, n]/2 + S2[-1, 1, -1, 1, -1, -1, n]/2 - 
   S2[-1, 1, -1, 1, 1, 1, n]/2 + 2*S2[-1, 1, 1, -1, -1, -1, n] + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 - 5*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   5*S2[1, -1, -1, -1, -1, -1, n] - S2[1, -1, -1, -1, 1, -1, n] - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/2 - S2[1, -1, 1, -1, -1, -1, n] - 
   S2[1, 1, -1, -1, -1, -1, n] + S2[1, 1, 1, -1, 1, -1, n]/2 + 
   2*S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, 2, -2, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/32 + (47*Diff[Half[S2[1, n], n], n, 2]^2)/
    64 + (67*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    144 - (275*Diff[Half[S2[1, n], n], n, 5])/192 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (25*Diff[Half[S2[2, 1, n], n], n, 3])/96 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 + (179*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (1637*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (2095*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (629*Diff[S2[1, n], n, 1]^3)/32 + (361*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (1123*Diff[S2[1, n], n, 2]^2)/96 + 
   (4811*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (11297*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (3821*Diff[S2[1, n], n, 5])/2880 + 2*Diff[S2[-4, 1, n], n, 1] - 
   (11*Diff[S2[-3, 1, n], n, 2])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (97*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 - 
   (85*Diff[S2[-2, 1, n], n, 3])/24 - Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[-1, 1, n], n, 1] + (167*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + (5*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (187*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (373*Diff[S2[-1, 1, n], n, 4])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (2*Diff[S2[2, 1, n], n, 3])/3 + (5*Diff[S2[4, 1, n], n, 1])/2 + 
   15*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/2 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   Diff[S2[-1, 1, -1, n], n, 3]/24 - (37*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (77*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   2*Diff[S2[-1, 1, 1, n], n, 3] - (19*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   (37*Diff[S2[2, 1, -1, n], n, 2])/8 - (13*Diff[S2[2, 1, 1, n], n, 2])/4 - 
   5*Diff[S2[3, 1, 1, n], n, 1] + 12*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    4 + (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + Diff[S2[1, -1, 1, -2, n], n, 
    1] - 3*Diff[S2[1, -1, 1, 2, n], n, 1] + 
   3*Diff[S2[1, 1, -2, -1, n], n, 1] - 3*Diff[S2[1, 1, -1, 2, n], n, 1] + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - 4*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - Diff[S2[-1, 1, -1, 1, 1, n], 
    n, 1] - Diff[S2[-1, 1, 1, 1, -1, n], n, 1] + 
   9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   4*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 + (185*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (199*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (587*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (851*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 + 
   (43*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (19*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/6 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 + (115*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 - (7*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (25*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (49*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   4*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (23*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/8 - (127*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    96 + (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 + 
   (67*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (17*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/2 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    24 - (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   (5*Half[S2[2, 1, n], n]^2)/64 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Half[S2[4, 1, 1, n], n])/8 - (59*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/192 - (35*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    96 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + S2[-1, Infinity]^6/72 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    2 + (769*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/6 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (409*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (329*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (685*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (2891*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (115*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (43*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 - 
   (57*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (653*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (31*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (25*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (17*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (95*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (15*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] - 
   5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (37*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 + (223*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (275*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (37*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (17*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   6*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (109*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (199*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (97*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Half[S2[1, n], n]^5*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 + 
   (65*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (55*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/4 - 
   (7*S2[-1, Infinity]^5*S2[1, n])/480 - 2*Diff[Half[S2[1, n], n], n, 1]^2*
    S2[1, n]^2 - (677*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (23*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 + 
   (491*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 - 
   (499*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 + 
   (2549*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 - 
   (27*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (803*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   6*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (85*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (81*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (35*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (65*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (9*S2[-1, Infinity]^4*S2[1, n]^2)/64 + 
   (353*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (26*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 + 
   (67*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/3 + 
   (25*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (253*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^4)/6 - (23*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + (3*S2[1, n]^6)/16 + (43*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 - (163*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/72 - (7*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/96 - (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/
    16 - (93*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     S2[2, Infinity])/32 - (81*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (377*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (37*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (107*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (263*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    12 - (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/24 - 
   Half[S2[2, 1, 1, n], n]*S2[2, Infinity] - 
   (93*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (93*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (125*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/16 + 
   (89*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (43*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (145*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 - 
   (275*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (209*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (41*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 - (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (413*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (55*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 - (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (317*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 + 
   (47*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (43*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (105*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (139*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (227*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (17*S2[1, n]^4*S2[2, Infinity])/24 + 
   (1331*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (479*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/120 + 
   (131*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/120 - 
   (111*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (243*S2[-1, Infinity]^2*S2[2, Infinity]^2)/64 - 
   (1549*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (163*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (133*S2[1, n]^2*S2[2, Infinity]^2)/240 - (10039*S2[2, Infinity]^3)/1120 - 
   (519*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (575*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (193*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (221*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/48 - 
   (775*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (111*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/48 - 
   (409*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (905*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 + 
   (1219*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (125*S2[1, n]^3*S2[3, Infinity])/384 + 
   (179*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/24 - 
   (3231*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (181*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (21827*S2[3, Infinity]^2)/3072 - (757*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (3845*S2[1, n]*S2[5, Infinity])/128 + (3*S2[-5, -1, Infinity])/8 - 
   12*S2[-5, 1, n] - 4*Half[S2[1, n], n]*S2[-4, 1, n] + 
   S2[1, n]*S2[-4, 1, n] + (43*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    48 + (23*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 + 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/6 - 
   (175*S2[1, n]^2*S2[-3, 1, n])/48 - (193*S2[2, Infinity]*S2[-3, 1, n])/24 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (49*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] + (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/6 + (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/24 + (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (401*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (55*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 + 
   (65*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (47*S2[1, n]^3*S2[-2, 1, n])/24 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/6 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (31*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/6 + 
   (15*S2[3, Infinity]*S2[-2, 1, n])/32 - (5*S2[-2, 1, n]^2)/4 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/72 + 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (75*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (179*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (541*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 - 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 - 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/24 - (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    2 - (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (7*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (37*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (233*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (23*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (S2[1, n]^4*S2[-1, 1, n])/6 + (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (23*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (41*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (73*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (7*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (27*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (2147*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (421*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (179*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (35*S2[-3, 1, n]*S2[-1, 1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (77*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (29*S2[1, n]^2*S2[-1, 1, n]^2)/48 + (7*S2[2, Infinity]*S2[-1, 1, n]^2)/
    12 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 + 
   (47*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 3*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/8 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    16 + (7*Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (9*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (33*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (5*S2[1, n]^3*S2[2, 1, n])/48 - (35*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (45*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (21*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (881*S2[3, Infinity]*S2[2, 1, n])/96 - (9*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (13*S2[2, 1, n]^2)/4 + 
   5*S2[1, n]*S2[4, 1, n] + 12*S2[-4, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[-3, 1, 1, n] - 4*S2[1, n]*S2[-3, 1, 1, n] - 
   (S2[1, n]*S2[-2, 1, -2, n])/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (13*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   4*S2[2, Infinity]*S2[-2, 1, -1, n] + 2*S2[-2, 2, -2, n] + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (2*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/3 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 - (31*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/3 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/48 + (17*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    48 + (91*S2[3, Infinity]*S2[-1, 1, -1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   S2[2, 1, n]*S2[-1, 1, -1, n] - (5*S2[-1, 1, -1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/2 + 2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + 3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (77*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 6*S2[2, 1, n]*S2[-1, 1, 1, n] + S2[-1, 1, 1, n]^2/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (43*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (11*S2[1, n]^2*S2[1, 2, -1, n])/2 - 
   (S2[2, Infinity]*S2[1, 2, -1, n])/2 - S2[-1, 1, n]*S2[1, 2, -1, n] - 
   Half[S2[1, n], n]*S2[2, 1, -2, n] + 4*S2[1, n]*S2[2, 1, -2, n] + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 + 
   (53*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 - 
   (133*S2[1, n]^2*S2[2, 1, -1, n])/24 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (17*S2[-1, 1, n]*S2[2, 1, -1, n])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (7*S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (9*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 3*S2[-1, 1, n]*S2[2, 1, 1, n] + 
   3*S2[3, 1, -2, n] - 2*S2[1, n]*S2[3, 1, 1, n] - 10*S2[4, 1, 1, n] + 
   18*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n] - 
   9*S2[1, n]*S2[-2, 1, 1, 1, n] + 3*S2[-2, 2, 1, 1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (5*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   (5*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   4*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] + 
   4*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] - 4*S2[1, n]^2*S2[-1, 1, 1, 1, n] - 
   (49*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (35*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   6*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (27*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (25*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (7*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, 1, -2, -1, n] - 3*S2[1, n]*S2[1, 1, 2, -1, n] - 
   3*S2[2, -2, 1, 1, n] + S2[1, n]*S2[2, 1, 1, 1, n] + S2[2, 2, 1, 1, n] + 
   9*S2[-2, 1, 1, 1, 1, n] + (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    4 - (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] + (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    2 - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] + 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (13*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (7*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 2*S2[1, -1, -1, 1, 2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 3*S2[1, -1, 1, 1, -2, n] - 
   3*S2[1, -1, 1, 1, 2, n] + 2*S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, 1, n] + 2*S2[1, 1, -2, 1, -1, n] - 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (5*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 3*S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, -1, n] + 9*S2[1, 1, 1, -2, -1, n] + 
   7*S2[1, 1, 1, -1, -2, n] + 18*S2[1, 1, 1, 2, -1, n] + 
   4*S2[1, 1, 2, -1, -1, n] + 3*S2[1, 1, 2, -1, 1, n] + 
   12*S2[1, 1, 2, 1, -1, n] + 2*S2[1, 2, 1, -1, -1, n] + 
   6*S2[1, 2, 1, 1, -1, n] - S2[2, 1, 1, 1, 1, n] - 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/4 - (9*S2[-1, -1, 1, -1, -1, -1, n])/4 - 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/2 - (5*S2[-1, 1, -1, -1, -1, 1, n])/4 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + S2[-1, 1, 1, 1, -1, 1, n]/2 - 
   10*S2[-1, 1, 1, 1, 1, 1, Infinity] - (15*S2[1, -1, -1, -1, -1, -1, n])/2 + 
   (5*S2[1, -1, -1, -1, 1, -1, n])/4 + (5*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   (5*S2[1, -1, 1, -1, -1, -1, n])/2 + 5*S2[1, 1, -1, -1, -1, -1, n] - 
   S2[1, 1, 1, -1, 1, -1, n]/2 + 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, 2, 2, n] -> (81*Diff[Half[S2[1, n], n], n, 5])/80 - 
   7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1] + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 - 
   (35*Diff[S2[1, n], n, 1]^3)/4 - (35*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (35*Diff[S2[1, n], n, 2]^2)/4 - 
   (143*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (311*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (81*Diff[S2[1, n], n, 5])/80 - 6*Diff[S2[-4, 1, n], n, 1] - 
   (5*Diff[S2[-3, 1, n], n, 2])/4 - 6*Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + 2*Diff[S2[-2, 1, n], n, 3] - 
   (85*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] + 
   (67*Diff[S2[-1, 1, n], n, 4])/24 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] + Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] - 
   8*Diff[S2[-3, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/12 + (15*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (13*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + 2*Diff[S2[1, -1, 1, 2, n], n, 1] + 
   Diff[S2[1, 1, -1, 2, n], n, 1] + Diff[S2[1, 1, 2, -1, n], n, 1] - 
   7*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/2 + 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (7*S2[-1, Infinity]^6)/720 - 3*Diff[Half[S2[1, n], n], n, 4]*S2[1, n] + 
   (39*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   32*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (9*Diff[S2[1, n], n, 4]*S2[1, n])/2 + 2*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] - (25*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (83*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - 6*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - 6*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] - 
   Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 7*Diff[S2[-1, 1, 1, 1, n], n, 1]*
    S2[1, n] - 5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] + 
   (21*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 + 
   Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (S2[-1, Infinity]^5*S2[1, n])/120 + 
   (35*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 - 
   6*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   11*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - 
   (49*Diff[S2[1, n], n, 3]*S2[1, n]^2)/6 + 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 - Diff[S2[2, 1, n], n, 1]*
    S2[1, n]^2 - (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   7*Diff[S2[1, n], n, 2]*S2[1, n]^3 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 + 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   (13*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (13*Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   6*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 - 
   2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 - 
   (7*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (S2[1, n]^4*S2[2, Infinity])/6 - (18*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/5 + (113*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 - 
   (201*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 + 
   (407*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (19*S2[1, n]^2*S2[2, Infinity]^2)/16 - (17879*S2[2, Infinity]^3)/3360 + 
   3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity] - 
   (325*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity] - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] + 
   (103*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (23*S2[1, n]^3*S2[3, Infinity])/12 - 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/3 + 
   (505*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (29*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   (4775*S2[3, Infinity]^2)/768 - (9*Half[S2[1, n], n]*S2[5, Infinity])/2 + 
   (1501*S2[1, n]*S2[5, Infinity])/64 - 3*S2[-5, 1, n] + 
   5*S2[1, n]*S2[-4, 1, n] + (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   S2[1, n]^2*S2[-3, 1, n] - 2*S2[2, Infinity]*S2[-3, 1, n] - 
   (25*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/3 + (7*S2[3, Infinity]*S2[-2, 1, n])/3 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/3 - Diff[S2[2, 1, n], n, 1]*
    S2[-1, 1, n] + 3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (17*S2[2, Infinity]^2*S2[-1, 1, n])/5 - 2*S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] - 2*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] + 
   2*Diff[S2[1, n], n, 2]*S2[2, 1, n] - 4*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n] - 
   6*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 - (7*S2[3, Infinity]*S2[2, 1, n])/
    2 + 2*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] - 3*S2[-4, 1, 1, n] + 
   5*S2[1, n]*S2[-3, 1, 1, n] + 2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 
   4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   4*S2[3, Infinity]*S2[-1, 1, 1, n] - 4*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + (7*S2[1, n]^2*S2[1, 2, -1, n])/
    2 - (7*S2[2, Infinity]*S2[1, 2, -1, n])/2 - S2[1, n]*S2[2, 1, -2, n] - 
   4*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + (7*S2[1, n]^2*S2[2, 1, -1, n])/
    2 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] + 
   2*S2[1, n]^2*S2[2, 1, 1, n] + S2[2, Infinity]*S2[2, 1, 1, n] + 
   2*S2[-1, 1, n]*S2[2, 1, 1, n] + 2*Half[S2[1, n], n]*S2[3, 1, 1, n] - 
   2*S2[1, n]*S2[3, 1, 1, n] - 6*S2[-3, 1, 1, 1, n] + 
   7*S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 2, 1, 1, n] + 
   7*S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (31*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - S2[2, -2, 1, 1, n]/2 - 
   7*S2[-2, 1, 1, 1, 1, n] + S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   2*S2[1, -1, 1, 1, 2, n] + S2[1, 1, 1, -1, 2, n] - 
   6*S2[1, 1, 1, 2, -1, n] - 6*S2[1, 1, 2, 1, -1, n] - 
   4*S2[1, 2, 1, 1, -1, n] + 7*S2[-1, 1, 1, 1, 1, 1, Infinity], 
 S2[-1, 1, -1, -3, n] -> (7*Diff[Half[S2[1, n], n], n, 1]^3)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 + 
   (107*Diff[Half[S2[1, n], n], n, 5])/2880 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 - 
   (83*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (9*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (127*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (17*Diff[S2[1, n], n, 1]^3)/32 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (19*Diff[S2[1, n], n, 2]^2)/48 - 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/64 - 
   (107*Diff[S2[1, n], n, 5])/2880 - 5*Diff[S2[-4, 1, n], n, 1] - 
   (47*Diff[S2[-3, 1, n], n, 2])/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   Diff[S2[-2, 1, n], n, 3]/3 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 - 
   (25*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 + (53*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/96 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   Diff[S2[-1, 1, n], n, 4]/8 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - Diff[S2[-1, -2, -1, n], n, 2]/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, n], n, 3]/24 + Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -1, n], n, 2]/6 + Diff[S2[-1, 1, -1, -1, n], n, 2]/24 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[1, 1, 2, -1, n], n, 1] - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/
    2 + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 - (11*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (101*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (47*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (23*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    3 + (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    48 - (7*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/3 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - (17*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (79*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (7*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 + 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + S2[-1, Infinity]^6/480 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    24 - (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/32 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 - 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (121*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (23*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 - 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (17*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/12 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (49*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (37*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (7*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (S2[-1, Infinity]^5*S2[1, n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (29*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (73*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (61*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (73*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/3 - 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - (7*S2[-1, Infinity]^4*S2[1, n]^2)/
    64 + (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + 
   (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 + (2*Half[S2[1, n], n]^2*S2[1, n]^4)/
    3 - (5*Half[S2[1, n], n]*S2[1, n]^5)/24 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    48 - (25*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/24 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (23*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (47*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (27*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (9*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (43*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (13*S2[1, n]^4*S2[2, Infinity])/48 + 
   (153*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (77*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (13*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (183*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (159*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (19*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (769*S2[1, n]^2*S2[2, Infinity]^2)/320 - (7141*S2[2, Infinity]^3)/1344 - 
   (61*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (43*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (75*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (23*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (77*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (113*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (49*S2[1, n]^3*S2[3, Infinity])/128 - 
   (17*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/12 - 
   (659*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (233*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 - 
   (571*S2[3, Infinity]^2)/384 + (873*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (923*S2[1, n]*S2[5, Infinity])/64 + (3*S2[-5, -1, Infinity])/4 - 
   7*S2[-5, 1, n] - 2*Half[S2[1, n], n]*S2[-4, 1, n] + 
   S2[1, n]*S2[-4, 1, n] + (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (39*S2[1, n]^2*S2[-3, 1, n])/16 - (5*S2[2, Infinity]*S2[-3, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (9*S2[1, n]^3*S2[-2, 1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (25*S2[3, Infinity]*S2[-2, 1, n])/24 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 + 
   (77*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (49*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 + Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] + (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/12 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (61*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/24 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (131*S2[2, Infinity]^2*S2[-1, 1, n])/80 - 
   (7*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (15*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (9*S2[-3, 1, n]*S2[-1, 1, n])/8 + (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/4 - (3*S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   S2[-1, 1, n]^3/24 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/6 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (33*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (31*S2[1, n]^3*S2[2, 1, n])/48 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (7*S2[3, Infinity]*S2[2, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 3*Half[S2[1, n], n]*
    S2[4, 1, n] + 3*S2[1, n]*S2[4, 1, n] + 3*S2[-4, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] - 3*S2[1, n]*S2[-3, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   S2[1, n]^2*S2[-2, 1, -1, n] - (S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/16 + (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/
    8 + (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (17*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + (S2[2, 1, n]*S2[-1, 1, 1, n])/
    2 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (S2[1, n]^2*S2[1, 2, -1, n])/4 + (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   Half[S2[1, n], n]*S2[2, 1, -2, n] - (3*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/8 - (S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - (S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (S2[2, Infinity]*S2[2, 1, 1, n])/4 - S2[-1, 1, n]*S2[2, 1, 1, n] + 
   S2[3, 1, -2, n]/2 - Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] + 2*S2[-3, 1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - (S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   S2[-2, 2, 1, 1, n]/2 + (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    8 - (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (21*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (81*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] - 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 - S2[2, -2, 1, 1, n]/2 - 
   S2[-2, 1, 1, 1, 1, n]/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/
    2 + (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, 2, n]/2 + 
   S2[1, 1, -1, -2, -1, n] + S2[1, 1, -1, -1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[1, 1, -1, 1, 2, n] - 
   (5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 + 
   (5*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + S2[1, 1, 1, -1, 2, n] + 
   2*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n]/2 + 
   S2[1, 1, 2, 1, -1, n] - S2[-1, -1, -1, 1, -1, -1, n]/4 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/4 - (3*S2[-1, 1, -1, -1, -1, -1, n])/2 - 
   S2[-1, 1, 1, -1, -1, 1, n]/2 + S2[-1, 1, 1, 1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - (5*S2[1, -1, -1, -1, -1, -1, n])/
    2 + S2[1, -1, -1, 1, 1, -1, n]/2 + S2[1, -1, 1, 1, -1, -1, n]/2 - 
   S2[1, 1, -1, -1, 1, -1, n]/2 + (3*S2[1, 1, 1, -1, -1, -1, n])/2, 
 S2[-1, 1, -1, 3, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/32 + 
   (77*Diff[Half[S2[1, n], n], n, 2]^2)/128 + 
   (175*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (47*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (41*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (11*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (145*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   Diff[S2[1, n], n, 1]^3 - (195*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (467*Diff[S2[1, n], n, 2]^2)/192 - 
   (1037*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (919*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (1669*Diff[S2[1, n], n, 5])/5760 + 3*Diff[S2[-4, 1, n], n, 1] + 
   (57*Diff[S2[-3, 1, n], n, 2])/32 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (43*Diff[S2[-2, 1, n], n, 3])/48 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (33*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, n], n, 1]^2/32 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/8 - 
   (47*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (161*Diff[S2[-1, 1, n], n, 4])/192 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (7*Diff[S2[2, 1, n], n, 3])/12 + 3*Diff[S2[4, 1, n], n, 1] - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (5*Diff[S2[-2, 1, -1, n], n, 2])/8 + (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 - (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/16 + (9*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (11*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (11*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - (7*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    16 - Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 + Diff[S2[1, 1, -2, -1, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 + 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, 1, -1, -1, n], n, 1]/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (161*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (107*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (233*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (449*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 + 
   (119*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (71*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (49*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (29*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + (35*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (107*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (17*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   (3*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 + S2[-1, Infinity]^6/90 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 - (389*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (21*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (67*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (659*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (227*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (113*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (139*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (57*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (41*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (9*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (91*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (83*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (731*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (17*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n] + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (9*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (S2[-1, Infinity]^5*S2[1, n])/12 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (233*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (1003*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (41*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (23*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (53*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    12 + (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 + 
   (2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    2 + (5*Half[S2[1, n], n]*S2[1, n]^5)/12 - (13*S2[1, n]^6)/96 + 
   (47*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 - 
   (127*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (89*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (299*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 - (47*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (109*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 + 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (57*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (69*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/6 + 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 + (341*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (41*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (67*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 + (127*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (35*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (11*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (11*S2[1, n]^4*S2[2, Infinity])/96 + 
   (201*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (197*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (31*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (273*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (2783*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (187*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (393*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/64 - 
   (1019*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (9137*S2[2, Infinity]^3)/1920 - 
   (95*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (265*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (57*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (335*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (187*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (181*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (105*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (67*S2[1, n]^3*S2[3, Infinity])/192 - 
   (2519*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (147*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (5585*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (1909*S2[3, Infinity]^2)/6144 + (159*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (1723*S2[1, n]*S2[5, Infinity])/256 + (25*S2[-5, -1, Infinity])/8 + 
   Half[S2[1, n], n]*S2[-4, 1, n] - (11*S2[1, n]*S2[-4, 1, n])/2 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 - 
   (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   (43*S2[1, n]^2*S2[-3, 1, n])/48 - (5*S2[2, Infinity]*S2[-3, 1, n])/6 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (S2[1, n]^3*S2[-2, 1, n])/3 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (13*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (3*S2[3, Infinity]*S2[-2, 1, n])/64 - (3*S2[-2, 1, n]^2)/8 + 
   (41*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (221*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (113*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 + 
   (49*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (115*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 - 
   (19*S2[1, n]^4*S2[-1, 1, n])/48 + (67*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (115*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (157*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 
   (67*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (191*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/3 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (43*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (53*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 - (19*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (25*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (33*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (11*S2[1, n]^3*S2[2, 1, n])/16 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (35*S2[3, Infinity]*S2[2, 1, n])/64 - (3*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - (3*S2[2, 1, n]^2)/8 - 
   (7*S2[1, n]*S2[4, 1, n])/2 + S2[-3, -2, 1, n]/2 - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   S2[-2, 2, -2, n]/8 + (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    48 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 - (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (19*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (355*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/32 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (23*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + (3*S2[-1, 1, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (3*S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   (5*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 + 
   (13*S2[1, n]^2*S2[2, 1, -1, n])/24 - (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (7*S2[-1, 1, n]*S2[2, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   S2[1, n]^2*S2[2, 1, 1, n] + (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   (3*S2[4, 1, 1, n])/2 - S2[-2, -2, 1, 1, n]/2 - 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + S2[1, n]*S2[-2, 1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (15*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 - Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + 
   S2[1, n]*S2[1, 1, -1, 2, n] + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (11*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   10*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, -2, n]/2 + 
   S2[1, 1, -2, -1, 1, n]/2 + S2[1, 1, -2, 1, -1, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] + 2*S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, -1, n] + 2*S2[1, 1, 1, -2, -1, n] + 
   2*S2[1, 1, 1, -1, -2, n] - (3*S2[2, 1, 1, 1, 1, n])/2 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - S2[-1, 1, -1, 1, -1, -1, n]/4 + 
   S2[-1, 1, -1, 1, 1, 1, n]/4 - S2[-1, 1, 1, -1, -1, -1, n] + 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - 8*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, -1, -1, 1, -1, n]/4 + S2[1, -1, -1, 1, -1, -1, n]/4 - 
   S2[1, 1, -1, -1, -1, -1, n]/2 + (7*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, 1, -3, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/32 + (33*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 + (37*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    288 + (47*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 3])/64 - 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (41*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (583*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (5*Diff[S2[1, n], n, 1]^3)/3 - (161*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (391*Diff[S2[1, n], n, 2]^2)/192 - 
   (809*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (107*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/36 - 
   (1403*Diff[S2[1, n], n, 5])/5760 + Diff[S2[-4, 1, n], n, 1] + 
   (25*Diff[S2[-3, 1, n], n, 2])/32 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (9*Diff[S2[-2, 1, n], n, 3])/16 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/32 - 
   (31*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, n], n, 1]^2/32 - (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/16 - 
   (81*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (145*Diff[S2[-1, 1, n], n, 4])/192 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   Diff[S2[2, 1, n], n, 3]/2 + 2*Diff[S2[4, 1, n], n, 1] - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (5*Diff[S2[-2, 1, -1, n], n, 2])/8 + (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 - (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (31*Diff[S2[-1, 1, -1, n], n, 3])/96 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/16 + (9*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (11*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (7*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - (5*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    16 - Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 + Diff[S2[1, 1, -2, -1, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    4 + (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (43*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (61*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    4 + (27*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (197*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 + 
   (71*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (23*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (17*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (19*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 + (9*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    64 + (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   (5*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 - (185*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (21*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (359*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (179*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (65*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (73*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (57*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (17*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (77*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (187*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (109*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (83*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (4*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (9*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 + 
   (S2[-1, Infinity]^5*S2[1, n])/160 - Diff[Half[S2[1, n], n], n, 1]^2*
    S2[1, n]^2 - (29*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/3 - 
   (59*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (181*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (85*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (13*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/96 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 + 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/24 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    12 - (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    3 - (Half[S2[1, n], n]*S2[1, n]^5)/4 + (7*S2[1, n]^6)/96 + 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 + 
   (107*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 - 
   (205*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (95*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/192 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 - 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (51*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (73*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (149*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (43*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (25*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/3 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (13*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (S2[1, n]^4*S2[2, Infinity])/32 + (137*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/80 - (2713*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    960 - (569*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (119*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (145*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 + 
   (119*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (127*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (115*S2[1, n]^2*S2[2, Infinity]^2)/384 + (1763*S2[2, Infinity]^3)/13440 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (641*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (187*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (175*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (93*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/96 - 
   (77*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (S2[1, n]^3*S2[3, Infinity])/12 - (347*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/768 - (75*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/256 + (301*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/
    768 + (16451*S2[3, Infinity]^2)/6144 + 
   (225*Half[S2[1, n], n]*S2[5, Infinity])/64 - 
   (283*S2[1, n]*S2[5, Infinity])/256 - (25*S2[-5, -1, Infinity])/8 + 
   2*Half[S2[1, n], n]*S2[-4, 1, n] - (13*S2[1, n]*S2[-4, 1, n])/2 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 - 
   (23*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (67*S2[1, n]^2*S2[-3, 1, n])/48 + (59*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (S2[1, n]^3*S2[-2, 1, n])/12 + (23*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (59*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (5*S2[3, Infinity]*S2[-2, 1, n])/64 + (5*S2[-2, 1, n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (173*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/48 + 
   (77*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (103*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (3*S2[1, n]^4*S2[-1, 1, n])/16 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (7*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (S2[2, Infinity]^2*S2[-1, 1, n])/60 - 
   (37*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (47*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/12 + 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/24 - 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (S2[2, Infinity]*S2[-1, 1, n]^2)/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (31*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (19*S2[1, n]^3*S2[2, 1, n])/48 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (47*S2[3, Infinity]*S2[2, 1, n])/192 + (5*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/8 - 
   (11*S2[1, n]*S2[4, 1, n])/2 + S2[-3, -2, 1, n]/2 + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] - S2[1, n]*S2[-3, 1, 1, n] - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (3*S2[-2, 2, -2, n])/8 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    48 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 + (11*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 - 
   (3*S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (17*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (131*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/32 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[-1, 1, 1, n]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   (S2[2, Infinity]*S2[1, 2, -1, n])/4 - (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (11*S2[1, n]^2*S2[2, 1, -1, n])/24 - (S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (S2[-1, 1, n]*S2[2, 1, -1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - S2[2, Infinity]*S2[2, 1, 1, n] - 
   2*S2[1, n]*S2[3, 1, 1, n] - S2[4, 1, 1, n]/2 - S2[-2, -2, 1, 1, n]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/6 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 + (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (19*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 - (S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n] - (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + S2[1, -1, 1, 1, -2, n]/2 + 
   S2[1, 1, -2, -1, 1, n]/2 + S2[1, 1, -2, 1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + S2[1, 1, -1, 1, -2, n] + 
   3*S2[1, 1, 1, -2, -1, n] + S2[1, 1, 1, -1, -2, n] + 
   S2[2, 1, 1, 1, 1, n]/2 + S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   S2[-1, 1, -1, -1, -1, 1, n]/4 + S2[-1, 1, -1, 1, -1, -1, n]/4 + 
   S2[-1, 1, -1, 1, 1, 1, n]/4 + S2[-1, 1, 1, -1, -1, -1, n] - 
   S2[-1, 1, 1, 1, -1, 1, n]/4 - S2[1, -1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, -1, -1, -1, n]/2 - 
   S2[1, 1, -1, -1, -1, -1, n]/2 - S2[1, 1, 1, -1, 1, -1, n]/4 - 
   S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, 1, 3, n] -> 
  (-7*Diff[Half[S2[1, n], n], n, 5])/80 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (11*Diff[S2[1, n], n, 1]^3)/8 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (5*Diff[S2[1, n], n, 2]^2)/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (65*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (7*Diff[S2[1, n], n, 5])/80 + 2*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/2 + (5*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 - (5*Diff[S2[-2, 1, n], n, 3])/12 + 
   (2*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (11*Diff[S2[-1, 1, n], n, 4])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (3*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/6 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 + Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/4 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[1, 1, 2, -1, n], n, 1] + 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 - S2[-1, Infinity]^6/480 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (17*Diff[S2[1, n], n, 4]*S2[1, n])/24 + Diff[S2[-2, 1, n], n, 2]*
    S2[1, n] - (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (43*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^5*S2[1, n])/240 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (25*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (71*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 - (9*Diff[S2[1, n], n, 2]*S2[1, n]^3)/
    8 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (19*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (S2[1, n]^4*S2[2, Infinity])/6 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/20 + (43*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (299*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (73*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (77*S2[1, n]^2*S2[2, Infinity]^2)/80 + (281*S2[2, Infinity]^3)/672 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 + 
   (25*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 + 
   (37*S2[1, n]^3*S2[3, Infinity])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 - 
   (59*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (169*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 - 
   (1097*S2[3, Infinity]^2)/384 - (7*Half[S2[1, n], n]*S2[5, Infinity])/2 - 
   (689*S2[1, n]*S2[5, Infinity])/128 + (13*S2[-5, -1, Infinity])/8 + 
   6*S2[-5, 1, n] - 2*S2[1, n]*S2[-4, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + (5*S2[1, n]^2*S2[-3, 1, n])/4 - 
   (5*S2[2, Infinity]*S2[-3, 1, n])/4 + (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    12 - Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (S2[1, n]^3*S2[-2, 1, n])/6 - (S2[3, Infinity]*S2[-2, 1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (S2[1, n]^3*S2[2, 1, n])/2 - (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 2*Half[S2[1, n], n]*S2[4, 1, n] - 
   2*S2[1, n]*S2[4, 1, n] + 4*S2[-4, 1, 1, n] - 3*S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[3, Infinity]*S2[-1, 1, 1, n] + (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/
    4 - (S2[1, n]^2*S2[1, 2, -1, n])/4 + (S2[2, Infinity]*S2[1, 2, -1, n])/
    4 - (S2[1, n]*S2[2, 1, -2, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - (S2[1, n]^2*S2[2, 1, -1, n])/
    4 + (S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + (S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + S2[3, 1, -2, n]/2 + 
   Half[S2[1, n], n]*S2[3, 1, 1, n] - S2[1, n]*S2[3, 1, 1, n] + 
   3*S2[-3, 1, 1, 1, n] - (S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   S2[-2, 2, 1, 1, n]/2 - (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   8*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 - S2[2, -2, 1, 1, n]/2 + 
   S2[-2, 1, 1, 1, 1, n]/2 + (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, 1, 1, 2, n]/2 + S2[1, 1, -1, 1, 2, n] + S2[1, 1, 1, -1, 2, n] + 
   3*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n]/2 + 
   S2[1, 1, 2, 1, -1, n] + (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, 
 S2[1, -3, -1, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/64 - 
   (49*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (1367*Diff[Half[S2[1, n], n], n, 5])/1920 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 - 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (1537*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 + 
   (623*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (899*Diff[S2[1, n], n, 1]^3)/96 - (341*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (565*Diff[S2[1, n], n, 2]^2)/96 - 
   (4481*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (5597*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (1277*Diff[S2[1, n], n, 5])/1920 - Diff[S2[-4, 1, n], n, 1] + 
   (17*Diff[S2[-3, 1, n], n, 2])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (347*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (79*Diff[S2[-2, 1, n], n, 3])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (239*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (727*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (365*Diff[S2[-1, 1, n], n, 4])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[2, 1, n], n, 3])/12 - 2*Diff[S2[4, 1, n], n, 1] - 
   (13*Diff[S2[-3, 1, 1, n], n, 1])/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   Diff[S2[-1, 1, -1, n], n, 3]/32 + (49*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/12 + (19*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   (37*Diff[S2[2, 1, -1, n], n, 2])/16 + (9*Diff[S2[2, 1, 1, n], n, 2])/8 + 
   Diff[S2[3, 1, 1, n], n, 1] - 6*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/4 - 
   (31*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 - Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (35*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (249*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 - (1073*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (121*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (2*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (49*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (19*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 - 
   (67*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 + 
   (35*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (167*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 + (425*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 - (13*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (7*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/48 - (17*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (19*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (5*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/48 + (53*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    96 - (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   Half[S2[2, 1, n], n]^2/64 - (9*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   Half[S2[4, 1, 1, n], n]/16 - Half[S2[2, 2, 1, 1, n], n]/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/128 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/192 - (17*S2[-1, Infinity]^6)/
    1440 - (103*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     S2[1, n])/96 - (919*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (347*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 + 
   (187*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (2243*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (3137*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (241*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (83*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (805*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 - 
   (785*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (35*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (23*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (125*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (17*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (27*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 - (299*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (785*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (23*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (145*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (33*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (3*S2[-1, Infinity]^5*S2[1, n])/320 + 
   (73*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 + 
   (845*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (29*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 - 
   (595*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (2191*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 - 
   (5677*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 + 
   (59*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (59*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/12 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (51*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (8*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (87*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (55*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (229*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (269*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/6 - (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 + (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - 
   (25*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (7*Half[S2[1, n], n]*S2[1, n]^5)/
    12 - (11*S2[1, n]^6)/96 - (67*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (697*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 - (19*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 + (Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 + (159*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/64 + 
   (211*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 - 
   (817*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (65*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (61*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (113*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 + (275*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 - 
   (49*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/2 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (127*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (57*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (267*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (45*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (407*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (341*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (275*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (43*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (141*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 + (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/2 + (3*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 - (293*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (25*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (39*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 + (25*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    16 + (47*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (141*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (11*S2[1, n]^4*S2[2, Infinity])/32 - 
   (2301*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (271*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 - 
   (751*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/16 + 
   (29*S2[-1, Infinity]^2*S2[2, Infinity]^2)/10 + 
   (329*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/192 - 
   (289*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (479*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (74407*S2[2, Infinity]^3)/
    13440 + (285*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (709*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (375*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (251*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 - (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (11*Half[S2[1, n], n]^3*S2[3, Infinity])/96 + 
   (51*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (75*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity] - 
   (89*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (71*S2[1, n]^3*S2[3, Infinity])/128 - 
   (1007*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (339*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (4135*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (4873*S2[3, Infinity]^2)/3072 - (1093*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (12469*S2[1, n]*S2[5, Infinity])/512 + (15*S2[-5, -1, Infinity])/
    16 + 6*S2[-5, 1, n] + (5*S2[1, n]*S2[-4, 1, n])/2 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 - 
   (49*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 - 
   (13*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   (77*S2[1, n]^2*S2[-3, 1, n])/48 + (17*S2[2, Infinity]*S2[-3, 1, n])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/6 - 
   (139*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    8 + (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n] - (9*S2[1, n]^3*S2[-2, 1, n])/
    8 + (49*Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (109*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (3*S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (139*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 + 
   (119*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (319*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (97*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (265*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (35*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/48 - (91*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (89*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (57*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (43*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (3029*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (125*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (143*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (5*S2[-3, 1, n]*S2[-1, 1, n])/8 - (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/32 - (5*S2[2, Infinity]*S2[-1, 1, n]^2)/4 - 
   (5*S2[-1, 1, n]^3)/48 - (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    96 - (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (5*S2[1, n]^3*S2[2, 1, n])/48 + (33*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (153*S2[3, Infinity]*S2[2, 1, n])/32 + (3*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + (5*S2[2, 1, n]^2)/4 - 
   (S2[1, n]*S2[4, 1, n])/2 - 4*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 + 
   2*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/8 - 2*S2[2, Infinity]*S2[-2, 1, -1, n] - 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 - (5*S2[-2, 2, -2, n])/8 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (31*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/48 + 
   (17*S2[2, Infinity]*S2[-1, -2, -1, n])/24 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (175*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/16 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (15*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (39*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (53*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (93*S2[3, Infinity]*S2[-1, 1, 1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (11*S2[2, 1, n]*S2[-1, 1, 1, n])/4 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 - (3*S2[-1, 1, 1, n]^2)/4 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - 5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (25*S2[1, n]^2*S2[1, 2, -1, n])/8 + 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + (3*S2[-1, 1, n]*S2[1, 2, -1, n])/
    4 - (3*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (211*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 + 
   (71*S2[1, n]^2*S2[2, 1, -1, n])/24 + (S2[2, Infinity]*S2[2, 1, -1, n])/6 + 
   (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (15*S2[1, n]^2*S2[2, 1, 1, n])/8 - 
   (11*S2[2, Infinity]*S2[2, 1, 1, n])/4 + (5*S2[-1, 1, n]*S2[2, 1, 1, n])/
    4 - (3*S2[3, 1, -2, n])/2 + (5*S2[4, 1, 1, n])/2 - 8*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n]/2 + (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   (3*S2[-2, 2, 1, 1, n])/2 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 + (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    48 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (49*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (81*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (13*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (13*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (19*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (3*S2[2, -2, 1, 1, n])/2 - (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    8 + (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (7*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, -1, 1, 1, -2, n])/2 + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, -1, 1, 2, -1, n] - 
   (3*S2[1, 1, -2, -1, 1, n])/2 - 2*S2[1, 1, -2, 1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 2*S2[1, 1, -1, 1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - S2[1, 1, -1, 2, -1, n] - 
   7*S2[1, 1, 1, -2, -1, n] - 4*S2[1, 1, 1, -1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 - 9*S2[1, 1, 1, 2, -1, n] - 
   2*S2[1, 1, 2, -1, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   6*S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, -1, -1, n] - 
   3*S2[1, 2, 1, 1, -1, n] + (3*S2[2, 1, 1, 1, 1, n])/2 + 
   S2[-1, -1, -1, 1, -1, -1, n]/8 + (5*S2[-1, -1, 1, -1, -1, -1, n])/8 - 
   S2[-1, -1, 1, 1, -1, -1, n]/4 + (7*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 + S2[-1, 1, -1, -1, 1, 1, n]/4 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - S2[-1, 1, 1, -1, -1, -1, n]/4 - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + (17*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 - (3*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 + S2[1, -1, -1, 1, 1, -1, n]/4 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 - (3*S2[1, 1, -1, -1, -1, -1, n])/2 + 
   S2[1, 1, -1, -1, 1, -1, n]/4 + S2[1, 1, -1, 1, -1, -1, n]/4 + 
   (3*S2[1, 1, 1, -1, -1, -1, n])/4 - (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[1, -3, -1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/32 - (37*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/32 - 
   (79*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 - 
   (37*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 + 
   (253*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (49*Diff[S2[1, n], n, 1]^3)/24 + (253*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (659*Diff[S2[1, n], n, 2]^2)/192 + 
   (443*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 + 
   (2227*Diff[S2[1, n], n, 5])/5760 - Diff[S2[-4, 1, n], n, 1] - 
   (37*Diff[S2[-3, 1, n], n, 2])/32 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + (5*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 - (47*Diff[S2[-2, 1, n], n, 3])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (49*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (93*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (221*Diff[S2[-1, 1, n], n, 4])/192 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (39*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (13*Diff[S2[2, 1, n], n, 3])/24 - (3*Diff[S2[4, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (9*Diff[S2[-2, 1, -1, n], n, 2])/8 - (7*Diff[S2[-1, -2, -1, n], n, 2])/
    32 + (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (47*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/16 - (13*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (15*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (15*Diff[S2[2, 1, 1, n], n, 2])/8 + Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + 
   (9*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 + Diff[S2[-1, 1, 1, 1, n], n, 2]/
    2 - Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/
    2 + 2*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (29*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/192 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (133*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (103*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (17*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (17*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (25*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 - (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (13*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   Half[S2[2, 1, n], n]^2/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - S2[-1, Infinity]^6/1440 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/32 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 + 
   (39*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (111*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (41*Diff[S2[1, n], n, 4]*S2[1, n])/32 + 
   (37*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 + 
   (45*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (47*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 - 
   (81*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 + 
   (9*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    32 - (299*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/192 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (17*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 - 
   (S2[-1, Infinity]^5*S2[1, n])/320 + 
   (37*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (15*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/32 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/16 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 + 
   (89*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 - 
   (15*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/16 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/2 - 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (9*Half[S2[1, n], n]^3*S2[1, n]^3)/16 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    8 + (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - 
   (35*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (19*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (7*S2[1, n]^6)/96 - (55*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (85*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    192 - (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (115*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (21*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (121*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (97*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   (89*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 + 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (63*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (29*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (83*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 - 
   (71*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    8 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/64 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/32 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (99*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (47*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (11*S2[1, n]^4*S2[2, Infinity])/24 - 
   (119*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 + 
   (1037*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (103*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (203*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (169*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (291*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (205*S2[1, n]^2*S2[2, Infinity]^2)/128 - (751*S2[2, Infinity]^3)/13440 + 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (1285*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (491*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (191*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (49*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/96 - 
   (71*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (35*S2[1, n]^3*S2[3, Infinity])/96 + 
   (655*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (201*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (767*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (353*S2[3, Infinity]^2)/6144 - (47*Half[S2[1, n], n]*S2[5, Infinity])/64 + 
   (137*S2[1, n]*S2[5, Infinity])/64 - (3*S2[-5, -1, Infinity])/2 + 
   6*S2[1, n]*S2[-4, 1, n] - (15*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (27*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/16 - 
   (15*S2[1, n]^2*S2[-3, 1, n])/8 - (7*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    16 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (3*S2[1, n]^3*S2[-2, 1, n])/4 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (25*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (S2[3, Infinity]*S2[-2, 1, n])/64 - S2[-2, 1, n]^2/8 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (115*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (25*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (33*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (21*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (11*S2[2, Infinity]^2*S2[-1, 1, n])/16 - 
   (55*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - S2[-3, 1, n]*S2[-1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/32 - (5*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (83*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 + (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    16 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (7*S2[1, n]^3*S2[2, 1, n])/24 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (29*S2[3, Infinity]*S2[2, 1, n])/192 - (S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - S2[2, 1, n]^2/8 + 
   (13*S2[1, n]*S2[4, 1, n])/2 - S2[-3, -2, 1, n]/2 - 
   (S2[1, n]*S2[-3, 1, 1, n])/2 + (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - S2[-2, 2, -2, n]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/16 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 - (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (125*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[-1, 1, 1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/8 + Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/8 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 - (3*S2[2, Infinity]*S2[2, 1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/4 + (S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   2*S2[1, n]*S2[3, 1, 1, n] + (3*S2[4, 1, 1, n])/2 + S2[-2, -2, 1, 1, n]/2 - 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/8 - (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/
    4 - (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 + (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (13*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - (S2[1, n]*S2[1, 1, -2, -1, n])/
    2 - (S2[1, n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   S2[2, 2, 1, 1, n] + (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/
    8 - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, -2, n]/2 + 
   S2[1, 1, -2, -1, 1, n]/2 + (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    2 - (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - S2[1, 1, -1, 1, -2, n] - 
   2*S2[1, 1, 1, -1, -2, n] + S2[2, 1, 1, 1, 1, n]/2 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 + S2[-1, 1, -1, -1, -1, 1, n]/4 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 + S2[-1, 1, -1, 1, 1, 1, n]/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] - S2[-1, 1, 1, 1, -1, 1, n]/4 + 
   S2[-1, 1, 1, 1, 1, 1, Infinity]/2 - S2[1, -1, -1, 1, -1, -1, n]/4 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 - (3*S2[1, 1, -1, -1, -1, -1, n])/2 - 
   S2[1, 1, 1, -1, 1, -1, n]/4 - S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -3, 1, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/96 + 
   (65*Diff[Half[S2[1, n], n], n, 2]^2)/384 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 - 
   (191*Diff[Half[S2[1, n], n], n, 5])/576 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 3])/64 - 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   (61*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (193*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (589*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (31*Diff[S2[1, n], n, 1]^3)/6 + (173*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (599*Diff[S2[1, n], n, 2]^2)/192 + 
   (1247*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (1495*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (2057*Diff[S2[1, n], n, 5])/5760 + Diff[S2[-4, 1, n], n, 1]/2 + 
   Diff[S2[-3, 1, n], n, 2]/32 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/6 + 
   (8*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (41*Diff[S2[-2, 1, n], n, 3])/48 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   (127*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (93*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (61*Diff[S2[-1, 1, n], n, 4])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (11*Diff[S2[2, 1, n], n, 3])/24 + (3*Diff[S2[4, 1, n], n, 1])/2 + 
   5*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (7*Diff[S2[-2, 1, -1, n], n, 2])/8 + (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 - (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (37*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/16 - (9*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   (21*Diff[S2[2, 1, -1, n], n, 2])/16 - (13*Diff[S2[2, 1, 1, n], n, 2])/8 - 
   Diff[S2[3, 1, 1, n], n, 1] + 4*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - (9*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    16 + (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 - Diff[S2[1, -1, 1, 2, n], n, 1] + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1] - 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + Diff[S2[1, -1, -1, -1, -1, n], n, 1]/
    4 + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (83*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (251*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (359*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 + 
   (37*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (31*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    48 + (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 - (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 - (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/6 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 + 
   (3*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/8 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/96 + (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 + S2[-1, Infinity]^6/240 + 
   (113*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    96 + (695*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (169*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (133*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (1085*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (145*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (95*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   6*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (89*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (65*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (41*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (5*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (67*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (179*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (287*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (689*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (37*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (19*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 + 
   (S2[-1, Infinity]^5*S2[1, n])/120 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (377*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/3 - 
   (223*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 + 
   (2161*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (181*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (11*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (9*Half[S2[1, n], n]^4*S2[1, n]^2)/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/3 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/192 + 
   (131*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (191*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 - 
   (17*Half[S2[1, n], n]^3*S2[1, n]^3)/24 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 + 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/6 - (11*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + (3*S2[1, n]^6)/32 + (55*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (59*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    576 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (129*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (17*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (23*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (37*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (9*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (55*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (257*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 - (137*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (47*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/12 - 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (35*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (55*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (103*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (119*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (385*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (17*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (65*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (25*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (17*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 + (4*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/3 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (23*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (69*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (7*S2[1, n]^4*S2[2, Infinity])/32 + 
   (539*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (187*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/48 + 
   (347*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (93*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (33*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (1631*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (1191*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (1757*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (12857*S2[2, Infinity]^3)/
    13440 - (737*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (179*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (359*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (479*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/24 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/96 - 
   (25*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (181*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (197*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (187*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/96 + 
   (89*S2[1, n]^3*S2[3, Infinity])/128 + 
   (1193*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (2649*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (653*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (7141*S2[3, Infinity]^2)/6144 - (31*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (2289*S2[1, n]*S2[5, Infinity])/256 - 3*S2[-5, -1, Infinity] - 
   4*S2[-5, 1, n] - (9*S2[1, n]*S2[-4, 1, n])/2 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 - 
   (109*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/4 - 
   (43*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (25*S2[1, n]^2*S2[-3, 1, n])/24 + (7*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (65*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (65*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/8 + (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (43*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (39*S2[3, Infinity]*S2[-2, 1, n])/64 + (3*S2[-2, 1, n]^2)/8 + 
   (61*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (41*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (203*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 - 
   (47*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (73*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (5*S2[1, n]^4*S2[-1, 1, n])/48 + (43*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (31*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (13*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/3 + 
   (29*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (1259*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (85*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (359*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (31*S2[-3, 1, n]*S2[-1, 1, n])/24 + 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/24 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (19*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (71*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 - 
   (7*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/12 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (S2[1, n]^3*S2[2, 1, n])/2 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (57*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (443*S2[3, Infinity]*S2[2, 1, n])/192 + (3*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + (3*S2[2, 1, n]^2)/8 - 
   (9*S2[1, n]*S2[4, 1, n])/2 + 4*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   2*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   S2[-2, 2, -2, n]/8 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    48 - (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 + (7*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 - 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (41*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 - S2[-1, 1, -1, n]^2/32 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (39*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + 2*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, 1, n]^2/4 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (9*S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   (5*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   S2[1, n]*S2[2, 1, -2, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/
    24 + (53*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (23*S2[1, n]^2*S2[2, 1, -1, n])/12 + (19*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   S2[1, n]^2*S2[2, 1, 1, n] - (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   S2[-1, 1, n]*S2[2, 1, 1, n] + S2[3, 1, -2, n] - 
   2*S2[1, n]*S2[3, 1, 1, n] - (3*S2[4, 1, 1, n])/2 + 6*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n]/2 - 3*S2[1, n]*S2[-2, 1, 1, 1, n] + 
   S2[-2, 2, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/
    12 + (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (27*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - S2[1, n]*S2[1, 1, 2, -1, n] - 
   S2[2, -2, 1, 1, n] + (S2[1, n]*S2[2, 1, 1, 1, n])/2 + S2[2, 2, 1, 1, n] + 
   3*S2[-2, 1, 1, 1, 1, n] + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, -2, n]/2 - 
   S2[1, -1, 1, 1, 2, n] + (3*S2[1, 1, -2, -1, 1, n])/2 + 
   2*S2[1, 1, -2, 1, -1, n] - Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] + S2[1, 1, -1, 1, -2, n] + 
   6*S2[1, 1, 1, -2, -1, n] + 2*S2[1, 1, 1, -1, -2, n] + 
   6*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n] + 
   4*S2[1, 1, 2, 1, -1, n] + 2*S2[1, 2, 1, 1, -1, n] - 
   S2[2, 1, 1, 1, 1, n]/2 - S2[-1, -1, -1, 1, -1, -1, n]/4 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + S2[-1, 1, -1, 1, -1, -1, n]/4 - 
   S2[-1, 1, -1, 1, 1, 1, n]/4 + S2[-1, 1, 1, -1, -1, -1, n] + 
   S2[-1, 1, 1, 1, -1, 1, n]/4 - 3*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, -1, 1, -1, n]/4 - 
   S2[1, -1, -1, 1, -1, -1, n]/4 + S2[1, 1, -1, -1, -1, -1, n]/2 + 
   S2[1, 1, 1, -1, 1, -1, n]/4 + S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -3, 1, 1, n] -> -Diff[S2[-3, 1, 1, n], n, 1] - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/4 + (331*S2[2, Infinity]^3)/840 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (19*S2[3, Infinity]^2)/64 + S2[2, Infinity]*S2[-3, 1, n] - 
   2*S2[-4, 1, 1, n] + S2[1, n]*S2[-3, 1, 1, n] - 3*S2[-3, 1, 1, 1, n] + 
   3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity], 
 S2[1, 3, -1, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/64 + 
   (17*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/36 - 
   (89*Diff[Half[S2[1, n], n], n, 5])/128 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 3])/96 - 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/16 + 
   (193*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (373*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (1955*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (591*Diff[S2[1, n], n, 1]^3)/64 + (167*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (571*Diff[S2[1, n], n, 2]^2)/96 + 
   (4567*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (11167*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (479*Diff[S2[1, n], n, 5])/720 + 2*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/4 + (25*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/48 + 
   (163*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (19*Diff[S2[-2, 1, n], n, 3])/12 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (155*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (75*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (177*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (59*Diff[S2[-1, 1, n], n, 4])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (31*Diff[S2[2, 1, n], n, 3])/48 + 3*Diff[S2[4, 1, n], n, 1] + 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   Diff[S2[-2, 1, -1, n], n, 2]/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (89*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (15*Diff[S2[-1, 1, 1, n], n, 3])/16 - (9*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   (9*Diff[S2[2, 1, -1, n], n, 2])/4 - (3*Diff[S2[2, 1, 1, n], n, 2])/2 - 
   Diff[S2[3, 1, 1, n], n, 1] + 6*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 + 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] - (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - 
   (5*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/9 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (715*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (1015*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (167*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (49*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 - (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (29*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (27*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 - (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    12 + (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 + 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (55*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/192 - 
   (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Half[S2[4, 1, 1, n], n])/16 - (27*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/8 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 + 
   (31*S2[-1, Infinity]^6)/2880 + (41*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 + 
   (227*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (15*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (469*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (197*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (2285*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (3151*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (383*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (149*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (133*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (757*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (29*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (21*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (115*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (19*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (25*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (151*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (743*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (41*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (149*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (55*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (61*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (59*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (5*S2[-1, Infinity]^5*S2[1, n])/192 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (847*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (691*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (283*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 + 
   (709*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 - 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (913*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (19*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (121*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (95*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/12 - 
   (91*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    128 + (349*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (77*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 + 
   (133*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (25*Half[S2[1, n], n]^3*S2[1, n]^3)/24 + 
   (41*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (259*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (29*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (5*S2[1, n]^6)/48 + (35*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 - (563*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    192 - (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (227*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (19*Diff[S2[1, n], n, 3]*S2[2, Infinity])/18 - 
   (49*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (103*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (167*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/3 - 
   (87*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (3*Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (29*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (117*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (27*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (21*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (343*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (325*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (173*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 - (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (47*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (481*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (71*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (7*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 + (325*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (125*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (17*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/16 - (53*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 - (99*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    64 - (65*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (247*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (29*S2[1, n]^4*S2[2, Infinity])/96 + 
   (465*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/128 - 
   (47*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (187*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/384 - 
   (733*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (361*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (233*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/96 + 
   (57*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/64 + 
   (1199*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (4359*S2[2, Infinity]^3)/896 - 
   (579*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (45*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 - 
   (361*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (901*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (317*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 + 
   (57*Half[S2[1, n], n]^3*S2[3, Infinity])/256 - 
   (53*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (1135*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 - 
   (331*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 + 
   (311*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (193*S2[1, n]^3*S2[3, Infinity])/768 + 
   (1073*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (1635*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (3691*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (2579*S2[3, Infinity]^2)/1536 + (189*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (5693*S2[1, n]*S2[5, Infinity])/256 - (15*S2[-5, -1, Infinity])/8 - 
   6*S2[-5, 1, n] - (9*S2[1, n]*S2[-4, 1, n])/2 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 - 
   (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (15*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (41*S2[1, n]^2*S2[-3, 1, n])/96 - (73*S2[2, Infinity]*S2[-3, 1, n])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (325*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (67*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (43*S2[1, n]^3*S2[-2, 1, n])/48 - (29*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (71*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (5*S2[3, Infinity]*S2[-2, 1, n])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (57*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (149*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (113*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (31*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (85*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (95*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 - 
   (107*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (289*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 + 
   (S2[1, n]^4*S2[-1, 1, n])/48 + (113*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (33*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (41*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (83*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (25*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (13*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3931*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n] + 
   S2[1, n]*S2[3, Infinity]*S2[-1, 1, n] - (7*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (43*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/48 + (61*S2[2, Infinity]*S2[-1, 1, n]^2)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/32 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (27*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (3*S2[1, n]^3*S2[2, 1, n])/32 - (31*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (155*S2[3, Infinity]*S2[2, 1, n])/32 - S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (23*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - S2[2, 1, n]^2 - 
   (3*S2[1, n]*S2[4, 1, n])/2 + 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   3*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (5*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   (5*S2[-2, 2, -2, n])/8 + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/96 + (11*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/96 - (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    12 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (149*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - S2[-1, 1, -1, n]^2/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    8 + (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (41*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*S2[-1, 1, 1, n]^2)/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (37*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - 3*S2[1, n]^2*S2[1, 2, -1, n] - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + (3*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (101*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (131*S2[1, n]^2*S2[2, 1, -1, n])/48 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (13*S2[-1, 1, n]*S2[2, 1, -1, n])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - 2*S2[1, n]^2*S2[2, 1, 1, n] + 
   2*S2[2, Infinity]*S2[2, 1, 1, n] - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[3, 1, -2, n])/2 - S2[1, n]*S2[3, 1, 1, n] - (5*S2[4, 1, 1, n])/2 + 
   9*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n]/2 - 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (49*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (81*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 
   (31*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   (3*S2[2, -2, 1, 1, n])/2 + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n]/2 + (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (25*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/2 - 
   (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, -1, 1, 2, -1, n] + 
   (3*S2[1, 1, -2, -1, 1, n])/2 + 2*S2[1, 1, -2, 1, -1, n] - 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (7*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 2*S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, -1, n] + 7*S2[1, 1, 1, -2, -1, n] + 
   4*S2[1, 1, 1, -1, -2, n] + 9*S2[1, 1, 1, 2, -1, n] + 
   2*S2[1, 1, 2, -1, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] + S2[1, 2, 1, -1, -1, n] + 
   3*S2[1, 2, 1, 1, -1, n] - (3*S2[2, 1, 1, 1, 1, n])/2 - 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - (9*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - (9*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/8 + S2[-1, 1, -1, 1, -1, -1, n]/4 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + S2[-1, 1, 1, -1, -1, -1, n] + 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - (31*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 + S2[1, -1, -1, -1, 1, -1, n]/8 + 
   S2[1, -1, -1, 1, -1, -1, n]/2 + (3*S2[1, -1, 1, -1, -1, -1, n])/4 + 
   2*S2[1, 1, -1, -1, -1, -1, n] + (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[1, 3, -1, 1, n] -> 
  (19*Diff[Half[S2[1, n], n], n, 5])/240 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 - 
   (15*Diff[S2[1, n], n, 1]^3)/8 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (5*Diff[S2[1, n], n, 2]^2)/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 - 
   (19*Diff[S2[1, n], n, 5])/240 - 2*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/2 - (5*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 + (5*Diff[S2[-2, 1, n], n, 3])/12 - 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (13*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (5*Diff[S2[-3, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/2 + Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -1, n], n, 2]/4 - Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 + S2[-1, Infinity]^6/1440 - 
   (19*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (25*Diff[S2[1, n], n, 4]*S2[1, n])/48 - 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   Diff[S2[-1, 1, n], n, 3]*S2[1, n] - Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n] - 
   Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (17*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (S2[-1, Infinity]^5*S2[1, n])/60 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (27*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (19*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 + (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/
    8 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 + 
   (11*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] - (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/24 - (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*
     S2[2, Infinity])/2 - (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/8 - (S2[-1, Infinity]^4*S2[2, Infinity])/3 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 + 
   (27*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (S2[1, n]^4*S2[2, Infinity])/12 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/20 - (31*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 + 
   (323*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (21*S2[1, n]^2*S2[2, Infinity]^2)/80 - (2567*S2[2, Infinity]^3)/3360 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 - 
   (19*Diff[S2[1, n], n, 2]*S2[3, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (61*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 - 
   (61*S2[1, n]^3*S2[3, Infinity])/96 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 + 
   (55*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (143*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   (937*S2[3, Infinity]^2)/384 + (157*S2[1, n]*S2[5, Infinity])/32 + 
   (3*S2[-5, -1, Infinity])/8 - 7*S2[-5, 1, n] + (3*S2[1, n]*S2[-4, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - (7*S2[1, n]^2*S2[-3, 1, n])/
    4 + (7*S2[2, Infinity]*S2[-3, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (S2[1, n]^3*S2[-2, 1, n])/12 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (S2[3, Infinity]*S2[-2, 1, n])/6 + 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (2*S2[2, Infinity]^2*S2[-1, 1, n])/5 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (S2[1, n]^3*S2[2, 1, n])/2 + (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 7*S2[-4, 1, 1, n] + 
   (7*S2[1, n]*S2[-3, 1, 1, n])/2 - (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/
    4 + (S2[1, n]^2*S2[1, 2, -1, n])/4 + (S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + S2[1, n]*S2[2, 1, -2, n] - (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    4 + (S2[1, n]^2*S2[2, 1, -1, n])/4 + (S2[2, Infinity]*S2[2, 1, -1, n])/
    4 + (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 - 5*S2[-3, 1, 1, 1, n] + S2[-2, 2, 1, 1, n]/2 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (17*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[1, n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (3*S2[2, -2, 1, 1, n])/2 + S2[-2, 1, 1, 1, 1, n]/2 - 
   2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - S2[1, -1, 1, 1, 2, n]/2 - 
   S2[1, 1, -1, 1, 2, n] - 2*S2[1, 1, 1, -1, 2, n] + 
   S2[1, 1, 2, -1, 1, n]/2 - S2[-1, 1, 1, 1, 1, 1, Infinity]/2, 
 S2[1, 3, 1, -1, n] -> (67*Diff[Half[S2[1, n], n], n, 5])/120 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 - 
   (37*Diff[S2[1, n], n, 1]^3)/8 - (39*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (39*Diff[S2[1, n], n, 2]^2)/8 - 
   (155*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (113*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 - 
   (67*Diff[S2[1, n], n, 5])/120 - Diff[S2[-4, 1, n], n, 1]/2 - 
   Diff[S2[-3, 1, n], n, 2]/2 - 3*Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + Diff[S2[-2, 1, n], n, 3] - 
   (47*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (47*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (73*Diff[S2[-1, 1, n], n, 4])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   3*Diff[S2[-3, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/12 + (9*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (7*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   (7*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + Diff[S2[1, 1, -1, 2, n], n, 
    1] + 2*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   (7*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 - 
   (7*S2[-1, Infinity]^6)/1440 - (4*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/
    3 + 4*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (119*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (13*Diff[S2[1, n], n, 4]*S2[1, n])/6 - 3*Diff[S2[-2, 1, n], n, 2]*
    S2[1, n] + (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (35*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (115*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^5*S2[1, n])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (33*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (167*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 3*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (19*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (59*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (13*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 - 
   (7*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (S2[1, n]^4*S2[2, Infinity])/3 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/5 + (263*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (681*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (6*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (83*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (23*S2[1, n]^2*S2[2, Infinity]^2)/40 - (12557*S2[2, Infinity]^3)/3360 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 - 
   (149*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/6 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 - 
   (13*S2[1, n]^3*S2[3, Infinity])/48 - 
   (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 - 
   (7*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (139*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/24 - 
   (391*S2[3, Infinity]^2)/384 - (309*S2[1, n]*S2[5, Infinity])/128 + 
   (23*S2[-5, -1, Infinity])/8 + 5*S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] + 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + (9*S2[1, n]^2*S2[-3, 1, n])/4 - 
   (9*S2[2, Infinity]*S2[-3, 1, n])/4 - (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    6 + (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/6 + (7*S2[3, Infinity]*S2[-2, 1, n])/6 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (55*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (11*S2[2, Infinity]^2*S2[-1, 1, n])/5 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 - Diff[Half[S2[1, n], n], n, 2]*
    S2[2, 1, n] + Diff[S2[1, n], n, 2]*S2[2, 1, n] - 
   2*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n] + Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[2, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
     S2[2, 1, n])/2 - (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (S2[1, n]^3*S2[2, 1, n])/2 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (7*S2[3, Infinity]*S2[2, 1, n])/4 + (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/
    2 + 3*S2[-4, 1, 1, n] - S2[1, n]*S2[-3, 1, 1, n] + 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   2*S2[3, Infinity]*S2[-1, 1, 1, n] - 2*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (7*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (7*S2[1, n]^2*S2[1, 2, -1, n])/4 - (7*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    4 + (7*S2[1, n]^2*S2[2, 1, -1, n])/4 - 
   (7*S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + S2[2, Infinity]*S2[2, 1, 1, n] + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - S2[3, 1, -2, n]/2 - 
   S2[-3, 1, 1, 1, n] + (7*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   (3*S2[-2, 2, 1, 1, n])/2 + (7*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (31*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 - S2[2, -2, 1, 1, n]/2 - 
   (7*S2[-2, 1, 1, 1, 1, n])/2 + (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 + (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, 1, -1, 1, 2, n] + 
   2*S2[1, 1, 1, -1, 2, n] + S2[1, 1, 2, -1, 1, n]/2 - 
   2*S2[1, 1, 2, 1, -1, n] - 2*S2[1, 2, 1, 1, -1, n] + 
   (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, S2[1, 3, 1, 1, n] -> 
  Diff[S2[1, n], n, 1]^3/4 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/8 + 
   Diff[S2[1, n], n, 5]/240 + (3*Diff[S2[2, 1, 1, n], n, 2])/4 + 
   2*Diff[S2[3, 1, 1, n], n, 1] + (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + (2*S2[2, Infinity]^3)/105 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 - (3*S2[3, Infinity]^2)/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + S2[1, n]*S2[3, 1, 1, n] + 
   4*S2[4, 1, 1, n] - (3*S2[2, 2, 1, 1, n])/2, 
 S2[1, -2, -2, -1, n] -> (-5*Diff[Half[S2[1, n], n], n, 1]^3)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 - 
   (227*Diff[Half[S2[1, n], n], n, 5])/160 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/48 + 
   (131*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (485*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 + 
   (37*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/24 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (757*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 + 
   (641*Diff[S2[1, n], n, 1]^3)/48 + (209*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (51*Diff[S2[1, n], n, 2]^2)/4 + 
   (295*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/32 - 
   (1787*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (227*Diff[S2[1, n], n, 5])/160 - Diff[S2[-4, 1, n], n, 1]/2 - 
   (19*Diff[S2[-3, 1, n], n, 2])/12 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (127*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (10*Diff[S2[-2, 1, n], n, 3])/3 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (241*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/4 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/48 + 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (181*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   9*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-1, -2, -1, n], n, 2]/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (17*Diff[S2[-1, 1, 1, n], n, 3])/12 - (9*Diff[S2[1, 2, -1, n], n, 2])/2 + 
   Diff[S2[2, 1, -2, n], n, 1] - (13*Diff[S2[2, 1, -1, n], n, 2])/3 + 
   8*Diff[S2[-2, 1, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, -1, n], n, 2]/12 + 
   (29*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - (5*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 - 2*Diff[S2[1, 1, -1, 2, n], n, 1] - Diff[S2[1, 1, 2, -1, n], n, 1] + 
   (5*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/4 + Diff[S2[-1, 1, 1, -1, -1, n], 
    n, 1] + (15*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/2 + 
   (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 + (7*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/12 + (17*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 + (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 - (169*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (187*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/96 + 
   (15*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (53*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (71*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 - 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (23*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/4 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 - Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2 - 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/60 + S2[-1, Infinity]^6/288 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    24 + (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/2 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 - 
   (743*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 - 
   (157*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (187*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (193*Diff[S2[1, n], n, 4]*S2[1, n])/32 - 
   (31*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 + 
   (20*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (217*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (119*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 + 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 + 
   (23*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/12 - 
   Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n] + 5*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + (25*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] - 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (23*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (155*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (5*S2[-1, Infinity]^5*S2[1, n])/48 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (79*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/24 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (149*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (497*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 - 
   (15*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (233*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (127*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (167*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/12 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - 
   (29*S2[-1, Infinity]^4*S2[1, n]^2)/96 + 
   (119*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (205*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (16*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (2*Half[S2[1, n], n]^3*S2[1, n]^3)/3 + 
   (17*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   4*Diff[S2[1, n], n, 1]*S2[1, n]^4 + (Half[S2[1, n], n]^2*S2[1, n]^4)/3 + 
   (Half[S2[1, n], n]*S2[1, n]^5)/12 - S2[1, n]^6/12 - 
   (35*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/24 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/12 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/3 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (59*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/24 + 
   (9*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (15*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (93*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (39*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/12 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (113*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (31*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (57*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - 2*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
    S2[2, Infinity] - (31*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (129*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (17*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (9*S2[1, n]^4*S2[2, Infinity])/8 + 
   (69*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 - 
   (17*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 - 
   (371*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (259*S2[-1, Infinity]^2*S2[2, Infinity]^2)/32 - 
   (57*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (85*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/8 + 
   (539*S2[1, n]^2*S2[2, Infinity]^2)/160 - (1171*S2[2, Infinity]^3)/672 - 
   (337*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (265*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 - 
   (139*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (305*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/192 - 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/4 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (157*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (413*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (415*S2[1, n]^3*S2[3, Infinity])/192 + 
   (35*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (159*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (33*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (951*S2[3, Infinity]^2)/256 - (653*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (59*S2[1, n]*S2[5, Infinity])/2 - (35*S2[-5, -1, Infinity])/8 - 
   12*S2[-5, 1, n] - 7*S2[1, n]*S2[-4, 1, n] - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/2 + 
   (7*S2[1, n]^2*S2[-3, 1, n])/8 - (9*S2[2, Infinity]*S2[-3, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   3*Diff[S2[1, n], n, 2]*S2[-2, 1, n] + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-2, 1, n] - (21*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/
    4 - (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (11*S2[1, n]^3*S2[-2, 1, n])/12 - 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-2, 1, n] + 6*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (19*S2[3, Infinity]*S2[-2, 1, n])/8 + 2*S2[-2, 1, n]^2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 - 
   (13*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/12 + 
   3*Diff[S2[1, n], n, 3]*S2[-1, 1, n] + 2*Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] + (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n] + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (2*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/3 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/12 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (23*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   2*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (27*S2[2, Infinity]^2*S2[-1, 1, n])/4 + 
   (27*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (61*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 - (9*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/4 - (5*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (11*S2[-1, 1, n]^3)/12 + (11*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    12 - (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (S2[1, n]^3*S2[2, 1, n])/24 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 + 9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] + 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (61*S2[3, Infinity]*S2[2, 1, n])/8 + 2*S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (11*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 3*S2[-4, 1, 1, n] - 
   6*S2[1, n]*S2[-3, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/2 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] - 
   2*S2[1, n]^2*S2[-2, 1, -1, n] + S2[2, Infinity]*S2[-2, 1, -1, n] - 
   2*S2[-1, 1, n]*S2[-2, 1, -1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/8 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    2 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, -1, n] - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, -1, n] - (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/2 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   (17*S2[3, Infinity]*S2[-1, 1, -1, n])/8 + S2[-2, 1, n]*S2[-1, 1, -1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (83*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 3*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   6*S2[2, 1, n]*S2[-1, 1, 1, n] - (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (11*S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   (13*S2[2, Infinity]*S2[1, 2, -1, n])/4 + S2[-1, 1, n]*S2[1, 2, -1, n] + 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/4 + (17*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] - 3*S2[1, n]^2*S2[2, 1, -1, n] + 
   (15*S2[2, Infinity]*S2[2, 1, -1, n])/4 + (S2[-1, 1, n]*S2[2, 1, -1, n])/
    2 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (7*S2[1, n]^2*S2[2, 1, 1, n])/2 + S2[2, Infinity]*S2[2, 1, 1, n] - 
   (7*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (3*S2[3, 1, -2, n])/2 + 
   7*S2[-3, 1, 1, 1, n] - (15*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[-2, 1, 1, 2, n] + (3*S2[-2, 2, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (29*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   12*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + S2[2, -2, 1, 1, n] + 
   (15*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   3*S2[1, n]*S2[-1, 1, -1, -1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   2*S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 14*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + (25*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 + S2[1, -2, -1, 1, -1, n] + 3*Half[S2[1, n], n]*
    S2[1, -1, -1, -1, -1, n] - 3*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 
   2*S2[1, -1, -1, 1, -2, n] - S2[1, -1, 1, -2, -1, n] - 
   (7*S2[1, -1, 1, 1, 2, n])/2 - (5*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/
    2 + (5*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 2*S2[1, 1, -1, 1, 2, n] - 
   5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   5*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 5*S2[1, 1, 1, -1, 2, n] + 
   7*S2[1, 1, 1, 2, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/2 - (3*S2[-1, -1, 1, -1, -1, -1, n])/2 - 
   3*S2[-1, 1, -1, -1, -1, -1, n] + 3*S2[-1, 1, -1, -1, 1, 1, n] + 
   2*S2[-1, 1, 1, -1, -1, 1, n] + 2*S2[-1, 1, 1, 1, -1, -1, n] - 
   (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 5*S2[1, -1, -1, -1, -1, -1, n] + 
   3*S2[1, -1, -1, 1, 1, -1, n] + 2*S2[1, -1, 1, 1, -1, -1, n] + 
   3*S2[1, 1, -1, -1, 1, -1, n] + 3*S2[1, 1, -1, 1, -1, -1, n] + 
   9*S2[1, 1, 1, -1, -1, -1, n], S2[1, -2, -2, 1, n] -> 
  -Diff[S2[1, n], n, 2]^2/8 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    12 + Diff[S2[1, n], n, 5]/120 - Diff[S2[2, 1, n], n, 3]/12 + 
   Diff[S2[4, 1, n], n, 1]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/48 - (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/
    2 - (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + (3*Half[S2[4, 1, n], n]*S2[1, n])/
    16 - (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 - 
   (4*S2[2, Infinity]^3)/105 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
     S2[3, Infinity])/8 - (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/
    8 + (3*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/2 + 
   S2[3, Infinity]^2/2 - (59*S2[1, n]*S2[5, Infinity])/16 - 
   3*S2[1, n]*S2[-4, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
     S2[-2, 1, n])/2 + (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - S2[-2, 1, n]^2/2 - 
   S2[1, n]*S2[4, 1, n] + S2[-3, -2, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   S2[4, 1, 1, n], S2[1, -2, 2, -1, n] -> 
  (-5*Diff[Half[S2[1, n], n], n, 1]^3)/96 + 
   (43*Diff[Half[S2[1, n], n], n, 2]^2)/192 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (631*Diff[Half[S2[1, n], n], n, 5])/576 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 3])/48 + Diff[Half[S2[4, 1, n], n], n, 1]/
    8 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (187*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (1249*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (1439*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (1255*Diff[S2[1, n], n, 1]^3)/96 - 10*Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 2] + (985*Diff[S2[1, n], n, 2]^2)/96 - 
   (4153*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (9157*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (221*Diff[S2[1, n], n, 5])/192 - Diff[S2[-4, 1, n], n, 1]/2 + 
   (3*Diff[S2[-3, 1, n], n, 2])/4 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 - 
   (227*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (11*Diff[S2[-2, 1, n], n, 3])/4 + (35*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 - 
   (401*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (481*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (49*Diff[S2[-1, 1, n], n, 4])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[2, 1, n], n, 3])/8 - (5*Diff[S2[4, 1, n], n, 1])/2 - 
   (21*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   Diff[S2[-2, 1, -1, n], n, 2]/4 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/2 + (15*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (7*Diff[S2[2, 1, -1, n], n, 2])/2 + 
   Diff[S2[2, 1, 1, n], n, 2] + Diff[S2[3, 1, 1, n], n, 1] - 
   (17*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    8 - (11*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + 
   2*Diff[S2[1, -1, 1, 2, n], n, 1] - Diff[S2[1, 1, -2, -1, n], n, 1] + 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + (3*Diff[S2[2, 1, 1, 1, n], n, 1])/
    2 + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   6*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - Diff[S2[1, -1, -1, -1, -1, n], n, 1]/
    2 - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    6 + (207*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (973*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (23*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 - (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 - (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/8 - 
   (19*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/3 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/48 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 + 
   Half[S2[2, 1, n], n]^2/64 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/4 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/192 + (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    64 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - (13*S2[-1, Infinity]^6)/
    1440 - (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     S2[1, n])/12 - (191*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/72 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (167*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (591*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (2641*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (167*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (137*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (75*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (565*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (15*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (17*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (103*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   6*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (227*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (743*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (31*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/3 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (3*S2[-1, Infinity]^5*S2[1, n])/160 + 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (685*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (221*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (709*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (553*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 + 
   (39*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (269*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (39*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/16 + 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/48 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/12 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    8 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (143*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (Half[S2[1, n], n]*S2[1, n]^5)/
    2 - (5*S2[1, n]^6)/48 - (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    2 + (215*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 - (9*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (113*Diff[S2[1, n], n, 3]*S2[2, Infinity])/72 + 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (69*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (11*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (17*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (111*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (67*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (103*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/3 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/3 - (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 + (25*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    48 + (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/96 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (55*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] - (11*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    4 - (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (21*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (47*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (33*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (7*S2[1, n]^4*S2[2, Infinity])/48 - 
   (503*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (607*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (671*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (397*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/3 + 
   (1343*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (133*S2[1, n]^2*S2[2, Infinity]^2)/192 + (1469*S2[2, Infinity]^3)/480 + 
   (859*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (101*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 + 
   (149*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/192 + 
   (29*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (105*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (155*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (133*S2[1, n]^3*S2[3, Infinity])/96 - 
   (445*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (2625*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (31*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (2521*S2[3, Infinity]^2)/1024 - (125*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (1027*S2[1, n]*S2[5, Infinity])/64 - (3*S2[-5, -1, Infinity])/8 + 
   8*S2[-5, 1, n] + 6*S2[1, n]*S2[-4, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 + 
   (35*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (5*S2[1, n]^2*S2[-3, 1, n])/12 + (109*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (43*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 + 
   (4*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/3 - 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/12 - 
   (3*S2[1, n]^3*S2[-2, 1, n])/2 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (11*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (7*S2[3, Infinity]*S2[-2, 1, n])/32 - S2[-2, 1, n]^2/4 + 
   (65*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + 
   (47*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (223*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (19*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/48 - (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/24 + (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, n])/12 + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*
     S2[-1, 1, n])/24 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*
     S2[-1, 1, n])/4 - (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 + (3*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (S2[1, n]^4*S2[-1, 1, n])/8 - (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (23*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (13*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (17*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (23*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (1027*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (131*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (55*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/48 + (S2[2, Infinity]*S2[-1, 1, n]^2)/12 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 + 
   (7*Diff[S2[1, n], n, 2]*S2[2, 1, n])/6 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n] - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (5*S2[1, n]^3*S2[2, 1, n])/12 + (33*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (45*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (21*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (141*S2[3, Infinity]*S2[2, 1, n])/32 + (S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (17*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2/4 + 
   5*S2[1, n]*S2[4, 1, n] - 8*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 
   4*S2[1, n]*S2[-3, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   S2[-2, 2, -2, n]/4 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    48 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 + (7*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/6 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (5*S2[3, Infinity]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + S2[-1, 1, -1, n]^2/16 + 
   2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 4*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - 2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   4*S2[3, Infinity]*S2[-1, 1, 1, n] - 4*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + 4*S2[1, n]^2*S2[1, 2, -1, n] - 
   2*S2[2, Infinity]*S2[1, 2, -1, n] + S2[-1, 1, n]*S2[1, 2, -1, n] - 
   2*S2[1, n]*S2[2, 1, -2, n] + (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/24 - (157*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (23*S2[1, n]^2*S2[2, 1, -1, n])/6 - (41*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (13*S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + 2*S2[1, n]^2*S2[2, 1, 1, n] + 
   2*S2[-1, 1, n]*S2[2, 1, 1, n] - 2*S2[3, 1, -2, n] + 
   3*S2[1, n]*S2[3, 1, 1, n] + 4*S2[4, 1, 1, n] - 12*S2[-3, 1, 1, 1, n] + 
   6*S2[1, n]*S2[-2, 1, 1, 1, n] - 2*S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 6*S2[2, Infinity]*
    S2[-1, 1, 1, 1, n] + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/8 - 
   (39*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (27*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]*S2[1, 1, -2, -1, n] + 2*S2[1, n]*S2[1, 1, 2, -1, n] + 
   2*S2[2, -2, 1, 1, n] - (3*S2[2, 2, 1, 1, n])/2 - 6*S2[-2, 1, 1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (5*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, -2, n] + 
   2*S2[1, -1, 1, 1, 2, n] - S2[1, 1, -2, -1, 1, n] - 
   2*S2[1, 1, -2, 1, -1, n] + (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 2*S2[1, 1, -1, 1, -2, n] - 
   6*S2[1, 1, 1, -2, -1, n] - 3*S2[1, 1, 1, -1, -2, n] - 
   12*S2[1, 1, 1, 2, -1, n] - 2*S2[1, 1, 2, -1, 1, n] - 
   8*S2[1, 1, 2, 1, -1, n] - 4*S2[1, 2, 1, 1, -1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n]/2 + (3*S2[-1, -1, 1, -1, -1, -1, n])/2 + 
   3*S2[-1, 1, -1, -1, -1, -1, n] + S2[-1, 1, -1, -1, -1, 1, n]/4 + 
   (13*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 5*S2[1, -1, -1, -1, -1, -1, n] - 
   S2[1, -1, -1, -1, 1, -1, n]/4 - S2[1, -1, -1, 1, -1, -1, n]/2 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 - S2[1, 1, -1, -1, -1, -1, n], 
 S2[1, -2, 2, 1, n] -> (-13*Diff[Half[S2[1, n], n], n, 5])/48 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 + 
   2*Diff[S2[1, n], n, 1]^3 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/2 - (5*Diff[S2[1, n], n, 2]^2)/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 - 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 + 
   (13*Diff[S2[1, n], n, 5])/48 - Diff[S2[-3, 1, n], n, 2]/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, n], n, 3]/2 + (9*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (3*Diff[S2[-1, 1, n], n, 4])/4 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   2*Diff[S2[-3, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/4 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (3*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   (3*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (3*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/4 - 
   3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (9*Diff[S2[1, n], n, 4]*S2[1, n])/8 + 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 + Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] + 
   Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/2 + 
   (7*Diff[S2[1, n], n, 3]*S2[1, n]^2)/4 - Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 - Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2 + 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 - 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] + 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 + Diff[S2[-1, 1, n], n, 2]*
    S2[2, Infinity] + (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 + 
   (63*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 - 
   (79*S2[2, Infinity]^3)/224 + (9*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (105*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (385*S2[3, Infinity]^2)/256 - (103*S2[1, n]*S2[5, Infinity])/32 + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - S2[2, Infinity]*S2[-3, 1, n] + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] - S2[3, Infinity]*S2[-2, 1, n] - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 - Diff[S2[1, n], n, 2]*S2[1, n]*
    S2[-1, 1, n] - Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, 1, n] + Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 + 2*S2[-4, 1, 1, n] - 
   2*S2[1, n]*S2[-3, 1, 1, n] + (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   S2[2, Infinity]*S2[1, 2, -1, n] - S2[1, n]*S2[2, 1, -2, n] + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + 
   S2[2, Infinity]*S2[2, 1, -1, n] + 3*S2[-3, 1, 1, 1, n] + 
   S2[-2, 1, 1, 2, n] - S2[-2, 2, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - S2[2, -2, 1, 1, n]/2, 
 S2[1, -2, -1, -2, n] -> (25*Diff[Half[S2[1, n], n], n, 1]^3)/96 + 
   (15*Diff[Half[S2[1, n], n], n, 2]^2)/16 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/3 + 
   (959*Diff[Half[S2[1, n], n], n, 5])/2880 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 - Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/12 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (85*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/24 - 
   (323*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (33*Diff[S2[1, n], n, 1]^3)/8 - (39*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (185*Diff[S2[1, n], n, 2]^2)/48 - 
   (569*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 - 
   (1169*Diff[S2[1, n], n, 5])/2880 - (3*Diff[S2[-4, 1, n], n, 1])/2 + 
   (5*Diff[S2[-3, 1, n], n, 2])/12 + (67*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   Diff[S2[-2, 1, n], n, 3]/3 - (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (9*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, n], n, 1]^2/8 - (43*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/96 + 
   (87*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (19*Diff[S2[-1, 1, n], n, 4])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (23*Diff[S2[2, 1, n], n, 3])/24 + 4*Diff[S2[4, 1, n], n, 1] + 
   4*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + Diff[S2[-1, -2, -1, n], n, 2]/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   12*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, 1, n], n, 3]/12 + (3*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1] + (2*Diff[S2[2, 1, -1, n], n, 2])/3 - 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 - 3*Diff[S2[3, 1, 1, n], n, 1] + 
   3*Diff[S2[-2, 1, 1, 1, n], n, 1] - (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    24 - Diff[S2[-1, 1, -1, 1, n], n, 2]/2 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, -2, n], n, 1] - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 4*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   Diff[S2[1, 1, -1, 2, n], n, 1] + 2*Diff[S2[1, 1, 2, -1, n], n, 1] + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - 5*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] - (15*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 + 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/8 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (145*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/8 - (29*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (11*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (77*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (9*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/3 + (173*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (203*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (9*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (53*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (29*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (11*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (39*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + (95*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (39*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (83*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/4 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 - 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   Half[S2[2, 1, n], n]^2/32 + (13*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/8 + Half[S2[2, 2, 1, 1, n], n]/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 - 
   (73*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + S2[-1, Infinity]^6/80 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/3 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 + 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (551*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 + 
   (227*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (631*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (151*Diff[S2[1, n], n, 4]*S2[1, n])/64 - 
   (17*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (35*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (185*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (221*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (11*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (41*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (31*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (9*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (55*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (21*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (95*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (15*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (23*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (41*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (359*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (193*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (9*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (7*S2[-1, Infinity]^5*S2[1, n])/96 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (185*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/4 - 
   5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   (55*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 - 
   (797*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (253*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - 
   (69*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (253*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (127*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (163*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (9*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (11*S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (59*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   6*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 - 
   (23*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (13*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]^4)/6 - (23*Half[S2[1, n], n]*S2[1, n]^5)/
    12 + (23*S2[1, n]^6)/48 + (449*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/96 - (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    3 + (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    24 - (325*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 + 
   (35*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (113*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/24 + 
   (21*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (21*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (23*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (143*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 - 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (35*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (57*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (321*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (27*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (99*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (91*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (43*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (265*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (19*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (555*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (63*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (21*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    6 + (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (69*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (93*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (393*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (53*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (367*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (309*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (143*S2[1, n]^4*S2[2, Infinity])/48 + 
   (1469*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (1797*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (243*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 + 
   (461*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (1223*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (87*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (391*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 - 
   (341*S2[1, n]^2*S2[2, Infinity]^2)/160 - (155*S2[2, Infinity]^3)/12 - 
   (245*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 - 
   (31*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 - 
   (331*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 + 
   (335*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (2035*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (33*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/6 - 
   (1873*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (95*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (889*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (557*S2[1, n]^3*S2[3, Infinity])/128 + 
   (577*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (419*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (2045*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (407*S2[3, Infinity]^2)/1536 + (1307*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (729*S2[1, n]*S2[5, Infinity])/64 + (21*S2[-5, -1, Infinity])/8 - 
   7*S2[-5, 1, n] + 4*S2[1, n]*S2[-4, 1, n] + 
   (45*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + Half[S2[1, n], n]*S2[1, n]*
    S2[-3, 1, n] - (55*S2[1, n]^2*S2[-3, 1, n])/16 - 
   (11*S2[2, Infinity]*S2[-3, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (17*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (77*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (61*S2[1, n]^3*S2[-2, 1, n])/24 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (33*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (29*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (133*S2[3, Infinity]*S2[-2, 1, n])/48 - (5*S2[-2, 1, n]^2)/2 + 
   (2*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/3 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 - 
   (245*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/6 - 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (57*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + Diff[S2[-1, 1, -1, n], n, 1]*
    S2[-1, 1, n] - (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n] + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/2 + 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (33*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (21*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (71*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (23*S2[1, n]^4*S2[-1, 1, n])/24 + (67*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (27*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n] - 
   (39*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] + 
   (21*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (23*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (393*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (15*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (23*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (19*S2[-3, 1, n]*S2[-1, 1, n])/8 - Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] + 5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (33*S2[1, n]^2*S2[-1, 1, n]^2)/16 + (51*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + (4*S2[-1, 1, n]^3)/3 - (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    12 + (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/6 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (29*S2[1, n]^3*S2[2, 1, n])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (27*S2[3, Infinity]*S2[2, 1, n])/16 - 5*S2[-2, 1, n]*S2[2, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/2 + 
   S2[1, n]*S2[4, 1, n] + 7*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] + 
   4*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (13*S2[1, n]^2*S2[-2, 1, -1, n])/4 + (13*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + 3*S2[-1, 1, n]*S2[-2, 1, -1, n] + (5*S2[-2, 2, -2, n])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/2 - 
   (9*S2[1, n]^2*S2[-1, -2, -1, n])/16 - 
   (3*S2[2, Infinity]*S2[-1, -2, -1, n])/4 - 
   (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/3 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, -1, n] - (7*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, -1, n])/8 - (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/
    8 + (7*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (17*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (45*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (29*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (19*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/8 - 
   2*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + Half[S2[2, 1, n], n]*
    S2[-1, 1, 1, n] + 3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (13*S2[1, n]^3*S2[-1, 1, 1, n])/4 - 
   (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (21*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 4*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   2*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] + 
   2*S2[-1, 1, -1, n]*S2[-1, 1, 1, n] + (3*S2[-1, 1, 1, n]^2)/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   3*S2[1, n]^2*S2[1, 2, -1, n] - (11*S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   3*S2[-1, 1, n]*S2[1, 2, -1, n] + (5*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] - (15*S2[1, n]^2*S2[2, 1, -1, n])/8 - 
   (19*S2[2, Infinity]*S2[2, 1, -1, n])/4 - (9*S2[-1, 1, n]*S2[2, 1, -1, n])/
    4 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/
    4 - 2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] + 
   (S2[1, n]^2*S2[2, 1, 1, n])/4 + (23*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (5*S2[3, 1, -2, n])/2 - 
   5*S2[4, 1, 1, n] + 11*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 - S2[-2, 1, 1, 2, n] + 
   (5*S2[-2, 2, 1, 1, n])/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/4 - (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    8 - Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] - 
   S2[1, n]^2*S2[-1, 1, -1, -1, n] + 
   (15*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   2*S2[-1, 1, n]*S2[-1, 1, -1, 1, n] - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (11*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (63*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (51*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (11*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (143*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (39*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   3*S2[1, n]*S2[1, 1, -2, -1, n] - (7*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   5*S2[2, -2, 1, 1, n] + 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   S2[-2, 1, 1, 1, 1, n]/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   4*S2[1, n]*S2[-1, 1, -1, -1, 1, n] + 2*Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (5*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - 6*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] + (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (73*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (35*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - S2[1, -2, -1, 1, -1, n] + 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 2*S2[1, -1, -1, 1, -2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 2*S2[1, -1, -1, 1, 2, n] + 
   S2[1, -1, 1, -2, -1, n] - (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 + (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 3*S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 1, 2, n]/2 + 2*S2[1, -1, 1, 2, -1, n] + 
   3*S2[1, 1, -2, -1, 1, n] + 4*S2[1, 1, -2, 1, -1, n] + 
   S2[1, 1, -1, -2, -1, n] + S2[1, 1, -1, -1, -2, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 4*S2[1, 1, -1, 1, -2, n] + 
   4*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] - 
   4*S2[1, n]*S2[1, 1, -1, 1, -1, n] + 2*S2[1, 1, -1, 1, 2, n] + 
   2*S2[1, 1, -1, 2, -1, n] + 14*S2[1, 1, 1, -2, -1, n] + 
   8*S2[1, 1, 1, -1, -2, n] + 7*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] - 
   7*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 6*S2[1, 1, 1, -1, 2, n] + 
   16*S2[1, 1, 1, 2, -1, n] + 4*S2[1, 1, 2, -1, -1, n] + 
   (7*S2[1, 1, 2, -1, 1, n])/2 + 8*S2[1, 1, 2, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   3*S2[2, 1, 1, 1, 1, n] - S2[-1, -1, -1, 1, -1, -1, n]/2 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/2 + S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   3*S2[-1, 1, -1, -1, -1, -1, n] - (5*S2[-1, 1, -1, -1, -1, 1, n])/4 - 
   4*S2[-1, 1, -1, -1, 1, 1, n] - (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   S2[-1, 1, 1, -1, -1, -1, n]/2 - 2*S2[-1, 1, 1, -1, -1, 1, n] - 
   S2[-1, 1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   9*S2[-1, 1, 1, 1, 1, 1, Infinity] - 5*S2[1, -1, -1, -1, -1, -1, n] + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, -1, 1, -1, -1, n])/2 - 
   4*S2[1, -1, -1, 1, 1, -1, n] + S2[1, -1, 1, -1, -1, -1, n] - 
   S2[1, -1, 1, 1, -1, -1, n] + 3*S2[1, 1, -1, -1, -1, -1, n] - 
   4*S2[1, 1, -1, -1, 1, -1, n] - 3*S2[1, 1, -1, 1, -1, -1, n] - 
   9*S2[1, 1, 1, -1, -1, -1, n] + (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[1, -2, -1, 2, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/32 + (21*Diff[Half[S2[1, n], n], n, 2]^2)/
    64 + (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    48 + (23*Diff[Half[S2[1, n], n], n, 5])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 3])/16 - 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/16 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (5*Diff[S2[1, n], n, 1]^3)/32 - (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (33*Diff[S2[1, n], n, 2]^2)/32 - 
   (157*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (79*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/64 - 
   (137*Diff[S2[1, n], n, 5])/960 + (5*Diff[S2[-4, 1, n], n, 1])/2 + 
   (5*Diff[S2[-3, 1, n], n, 2])/4 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   Diff[S2[-2, 1, n], n, 3]/2 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (17*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (25*Diff[S2[-1, 1, n], n, 4])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[2, 1, n], n, 3])/8 + 3*Diff[S2[4, 1, n], n, 1] - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - Diff[S2[-2, 1, -1, n], n, 2]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, n], n, 3]/4 + (3*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + Diff[S2[2, 1, -1, n], n, 2]/2 - 
   Diff[S2[2, 1, 1, n], n, 2] - Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/
    8 + (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 + (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (73*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (17*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 + (9*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 - 
   (3*Half[S2[2, 1, n], n]^2)/64 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + S2[-1, Infinity]^6/480 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 - (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (35*Diff[S2[1, n], n, 4]*S2[1, n])/64 - 
   (41*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (33*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (13*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (43*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (S2[-1, Infinity]^5*S2[1, n])/160 - 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (51*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (17*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 - 
   (13*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n]^2 - (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[1, n]^2)/8 + (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/
    8 - (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/96 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 + (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/
    8 - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^4)/8 - (Half[S2[1, n], n]*S2[1, n]^5)/4 + 
   S2[1, n]^6/16 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/4 - 
   (59*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (27*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (33*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/2 - 
   (45*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (9*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (51*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (19*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (21*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (3*S2[1, n]^4*S2[2, Infinity])/16 - 
   (303*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (1059*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/64 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (927*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (549*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (577*S2[1, n]^2*S2[2, Infinity]^2)/320 - (9173*S2[2, Infinity]^3)/2240 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (91*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (113*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (27*S2[1, n]^3*S2[3, Infinity])/64 - 
   (227*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (225*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (293*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (613*S2[3, Infinity]^2)/1024 + (375*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (29*S2[1, n]*S2[5, Infinity])/32 + (23*S2[-5, -1, Infinity])/8 - 
   3*S2[1, n]*S2[-4, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (23*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/8 - (39*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (S2[1, n]^3*S2[-2, 1, n])/4 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (55*S2[3, Infinity]*S2[-2, 1, n])/32 - S2[-2, 1, n]^2/4 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n] - 
   (21*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/16 + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    4 - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (7*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n] + Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]*S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[-1, 1, n])/4 - 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n]*S2[-1, 1, n] - (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 + 
   (S2[1, n]^4*S2[-1, 1, n])/8 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (29*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (19*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (21*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (277*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (9*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (5*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 - (S2[2, Infinity]*S2[-1, 1, n]^2)/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 - Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/8 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    8 + (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (3*S2[1, n]^3*S2[2, 1, n])/8 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[3, Infinity]*S2[2, 1, n])/32 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (3*S2[2, 1, n]^2)/4 - 
   4*S2[1, n]*S2[4, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   S2[2, Infinity]*S2[-2, 1, -1, n] + S2[-2, 2, -2, n]/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 - (9*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (3*S2[3, Infinity]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - S2[1, n]^2*S2[1, 2, -1, n] - 
   2*S2[2, Infinity]*S2[1, 2, -1, n] - S2[-1, 1, n]*S2[1, 2, -1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/4 - (9*S2[2, Infinity]*S2[2, 1, -1, n])/8 - 
   (5*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   S2[2, Infinity]*S2[2, 1, 1, n] - 3*S2[1, n]*S2[3, 1, 1, n] - 
   3*S2[4, 1, 1, n] - S2[-2, -2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (51*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (7*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]*S2[1, 1, -2, -1, n] + (3*S2[2, 2, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, -2, n] - 
   S2[1, 1, -2, -1, 1, n] - (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 2*S2[1, 1, -1, 1, -2, n] + 
   3*S2[1, 1, 1, -1, -2, n] - (3*S2[-1, 1, -1, -1, -1, 1, n])/4 - 
   (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + (3*S2[1, -1, -1, -1, 1, -1, n])/
    4 + (3*S2[1, -1, -1, 1, -1, -1, n])/2 + (3*S2[1, -1, 1, -1, -1, -1, n])/
    2 + 3*S2[1, 1, -1, -1, -1, -1, n], S2[1, -2, 1, -2, n] -> 
  (-3*Diff[Half[S2[1, n], n], n, 2]^2)/16 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[Half[S2[1, n], n], n, 3] + Diff[Half[S2[1, n], n], n, 5]/24 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/12 + Diff[Half[S2[4, 1, n], n], n, 1]/8 + 
   2*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1] + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 + 
   2*Diff[S2[1, n], n, 1]^3 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + Diff[S2[1, n], n, 2]^2/4 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/3 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (7*Diff[S2[1, n], n, 5])/480 - 2*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2] - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, n], n, 3]/6 - 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] + 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] + Diff[S2[2, 1, n], n, 3]/8 - 
   Diff[S2[4, 1, n], n, 1]/2 - Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n] - 
   Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   2*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] + 2*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   2*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/3 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/2 - 2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*
    S2[2, Infinity] + 2*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
    S2[2, Infinity] + (S2[-1, Infinity]^4*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] - 3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] + Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (229*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (309*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 - 
   S2[-1, Infinity]^2*S2[2, Infinity]^2 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 - 
   (5701*S2[2, Infinity]^3)/6720 - (3*Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/16 + (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/4 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (13*S2[3, Infinity]^2)/64 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    2 + (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - 
   (3*S2[2, Infinity]*S2[-3, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-2, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] + (3*S2[3, Infinity]*S2[-2, 1, n])/
    4 + S2[-2, 1, n]^2/2 + 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1]*S2[-1, 1, n] - 2*Diff[S2[1, n], n, 1]^2*
    S2[-1, 1, n] + Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   S2[-3, -2, 1, n] + S2[1, n]*S2[-2, 1, -2, n] + S2[-2, 2, -2, n]/4 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - S2[2, Infinity]*S2[1, 2, -1, n] - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] - S2[2, Infinity]*S2[2, 1, -1, n] - 
   S2[4, 1, 1, n] + 2*S2[-2, -2, 1, 1, n] - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + 2*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity], 
 S2[1, -2, 1, 2, n] -> -Diff[Half[S2[1, n], n], n, 5]/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 + 
   Diff[S2[1, n], n, 1]^3 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/2 - Diff[S2[1, n], n, 2]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 + 
   Diff[S2[1, n], n, 5]/16 - (3*Diff[S2[-3, 1, n], n, 2])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, n], n, 3]/2 + (3*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, n], n, 4]/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - Diff[S2[2, 1, -1, n], n, 2]/4 + 
   (3*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[1, n], n, 1]*
    Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/24 + Diff[S2[-3, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/2 + (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    4 + (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] + 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 + 
   Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] - (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/2 + (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/2 - (S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] - 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 + 
   (13*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 + 
   (2617*S2[2, Infinity]^3)/3360 + (Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/2 + (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/2 + 
   (71*S2[3, Infinity]^2)/256 + (31*S2[1, n]*S2[5, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 - Diff[S2[1, n], n, 1]*
    S2[2, Infinity]*S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/2 + (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 + 2*S2[-4, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   S2[2, Infinity]*S2[1, 2, -1, n] + S2[1, n]*S2[2, 1, -2, n] + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + 
   S2[2, Infinity]*S2[2, 1, -1, n] + 3*S2[-3, 1, 1, 1, n] - 
   S2[-2, 1, 1, 2, n] + S2[-2, 2, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - S2[2, -2, 1, 1, n]/2, 
 S2[1, 2, -2, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/64 - 
   (161*Diff[Half[S2[1, n], n], n, 2]^2)/128 - 
   (353*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (71*Diff[Half[S2[1, n], n], n, 5])/128 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (47*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (15*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (37*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (1069*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (1589*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (1549*Diff[S2[1, n], n, 1]^3)/192 - 
   (169*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 + 
   (679*Diff[S2[1, n], n, 2]^2)/192 - 
   (2773*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (7903*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (811*Diff[S2[1, n], n, 5])/1920 - 2*Diff[S2[-4, 1, n], n, 1] - 
   (5*Diff[S2[-3, 1, n], n, 2])/32 - (25*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/48 - 
   (175*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (65*Diff[S2[-2, 1, n], n, 3])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (97*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (55*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (87*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (341*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (269*Diff[S2[-1, 1, n], n, 4])/192 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (25*Diff[S2[2, 1, n], n, 3])/48 - (5*Diff[S2[4, 1, n], n, 1])/2 - 
   7*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-2, 1, -2, n], n, 1]/2 + 
   (5*Diff[S2[-2, 1, -1, n], n, 2])/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   Diff[S2[-1, 1, -1, n], n, 3]/24 + (95*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (139*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/4 + (13*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (29*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (15*Diff[S2[2, 1, 1, n], n, 2])/8 + Diff[S2[3, 1, 1, n], n, 1] - 
   (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 2])/8 - 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1] + 
   (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - Diff[S2[1, 1, -2, -1, n], n, 1] + 
   2*Diff[S2[1, 1, -1, 2, n], n, 1] + (7*Diff[S2[2, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 - 
   (11*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (15*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 - (145*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (167*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (163*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 - (589*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (269*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (19*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 + (19*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 + (11*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (47*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (35*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (47*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 - (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 + 
   (125*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (35*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (35*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (41*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (15*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   Half[S2[2, 1, n], n]^2/128 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (3*Half[S2[4, 1, 1, n], n])/16 + (169*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    32 - (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - 
   (43*S2[-1, Infinity]^6)/2880 - (17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/16 - 
   (599*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/4 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (333*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (263*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (1705*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (2161*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (413*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (13*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (643*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (55*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (47*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (15*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (23*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (15*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (73*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (37*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (239*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (49*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (53*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (43*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (27*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (41*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (221*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (79*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (47*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (143*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (71*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 + 
   (21*S2[-1, Infinity]^5*S2[1, n])/320 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   (667*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (25*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 - 
   (667*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (265*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (2215*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (979*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (37*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (31*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (21*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (73*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (135*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (49*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (133*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + 
   (29*S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (385*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   (109*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (77*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (17*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (65*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (95*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 - 
   (27*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (41*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (13*S2[1, n]^6)/96 - (117*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (119*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/144 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    192 + (425*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     S2[2, Infinity])/64 - (127*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (157*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (41*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (99*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (15*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (59*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (625*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 + (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/3 + 
   (137*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (7*Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (123*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (69*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity] - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (27*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (69*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (47*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (233*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (21*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (197*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (499*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (631*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (41*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (493*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (95*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/8 - (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/8 - (673*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (629*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (37*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (59*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (69*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    64 + (197*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (271*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (9*S2[1, n]^4*S2[2, Infinity])/16 - 
   (3321*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (167*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/96 - 
   (433*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (729*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (147*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (3563*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (533*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1583*S2[1, n]^2*S2[2, Infinity]^2)/480 + (3667*S2[2, Infinity]^3)/840 + 
   (605*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 - 
   (53*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (85*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (107*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/24 + 
   (1579*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (169*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/48 - 
   (445*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (635*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (649*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (343*S2[1, n]^3*S2[3, Infinity])/768 - 
   (29*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (2325*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (1703*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (28165*S2[3, Infinity]^2)/6144 - (253*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (977*S2[1, n]*S2[5, Infinity])/32 - (5*S2[-5, -1, Infinity])/4 + 
   6*S2[-5, 1, n] + 3*S2[1, n]*S2[-4, 1, n] - 
   (149*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 - 
   (11*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (9*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   (59*S2[1, n]^2*S2[-3, 1, n])/96 + (209*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (45*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (337*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (85*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (31*S2[1, n]^3*S2[-2, 1, n])/48 + (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (8*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 - 
   (73*S2[3, Infinity]*S2[-2, 1, n])/64 - S2[-2, 1, n]^2/8 - 
   (71*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (139*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (227*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (71*S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (31*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (167*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (349*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (25*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (15*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (197*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (25*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (49*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (149*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (53*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (55*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (6391*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (253*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (55*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 - 
   (19*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (19*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (31*S2[2, Infinity]*S2[-1, 1, n]^2)/
    12 + (9*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (29*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (3*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (7*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (73*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (3*S2[1, n]^3*S2[2, 1, n])/32 + (37*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (51*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (345*S2[3, Infinity]*S2[2, 1, n])/64 + (7*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (11*S2[2, 1, n]^2)/8 - 
   2*S2[1, n]*S2[4, 1, n] - 6*S2[-4, 1, 1, n] + 3*S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (15*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (5*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - S2[-2, 2, -2, n] - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/96 + 
   (35*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/96 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (43*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    96 - (69*S2[3, Infinity]*S2[-1, 1, -1, n])/32 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (7*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (7*S2[-1, 1, -1, n]^2)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 - 3*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   S2[1, n]^3*S2[-1, 1, 1, n] + 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    4 - 5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (7*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (3*S2[-1, 1, 1, n]^2)/2 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (41*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (15*S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + S2[-1, 1, n]*S2[1, 2, -1, n] - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (71*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 - (77*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (113*S2[1, n]^2*S2[2, 1, -1, n])/48 - (19*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/2 - 4*S2[2, Infinity]*S2[2, 1, 1, n] + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - (3*S2[3, 1, -2, n])/2 - 
   S2[1, n]*S2[3, 1, 1, n] + S2[4, 1, 1, n] - 9*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] + (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   (3*S2[-2, 2, 1, 1, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (13*Diff[S2[1, n], n, 1]*
     S2[-1, 1, -1, -1, n])/48 + (7*Half[S2[1, n], n]*S2[1, n]*
     S2[-1, 1, -1, -1, n])/12 - (7*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (7*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - Diff[S2[1, n], n, 1]*
    S2[-1, 1, -1, 1, n] - (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (31*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (169*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (87*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (71*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (3*S2[2, -2, 1, 1, n])/2 - 
   3*S2[1, n]*S2[2, 1, 1, 1, n] + S2[2, 2, 1, 1, n]/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] - S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (19*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (63*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 2*S2[1, -1, -1, 1, 2, n] + 
   (9*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (9*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - 2*S2[1, -1, 1, 1, -2, n] + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, -1, 1, 2, -1, n] + 
   (13*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (13*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 2*S2[1, 1, -1, 1, -2, n] - 
   2*S2[1, 1, 1, -2, -1, n] - 5*S2[1, 1, 1, -1, -2, n] - 
   9*S2[1, 1, 1, 2, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   6*S2[1, 1, 2, 1, -1, n] + S2[1, 2, -1, 1, -1, n] - 
   3*S2[1, 2, 1, 1, -1, n] + 3*S2[2, 1, 1, 1, 1, n] + 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - 
   S2[-1, -1, 1, 1, -1, -1, n] + (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 - S2[-1, 1, -1, 1, -1, -1, n]/2 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 2*S2[-1, 1, 1, -1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + (43*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 - S2[1, -1, -1, -1, 1, -1, n]/8 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - (5*S2[1, -1, 1, -1, -1, -1, n])/4 - 
   (7*S2[1, 1, -1, -1, -1, -1, n])/2 - (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[1, 2, -2, 1, n] -> 
  (7*Diff[Half[S2[1, n], n], n, 5])/40 - 
   (2*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 + 
   Diff[S2[1, n], n, 1]^3/4 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (7*Diff[S2[1, n], n, 2]^2)/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/8 - 
   (7*Diff[S2[1, n], n, 5])/40 - 4*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2] + Diff[S2[-2, 1, n], n, 3]/6 - 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   Diff[S2[-1, 1, n], n, 4]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   2*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + Diff[S2[-1, 1, 1, n], n, 3]/2 + 
   Diff[S2[1, 2, -1, n], n, 2]/2 + Diff[S2[2, 1, -1, n], n, 2]/2 + 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/6 + Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   Diff[S2[-2, 1, n], n, 2]*S2[1, n] + Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] - (3*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/
    2 - Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n] - Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] + 
   Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - (3*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    2 + Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2 + Diff[S2[-1, 1, n], n, 2]*
    S2[1, n]^2 - Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 + 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   (13*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (13*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/2 - (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
    S2[2, Infinity] - (5*S2[-1, Infinity]^4*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 + 
   (27*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]^2)/2 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 - 
   (13*S2[2, Infinity]^3)/24 - (Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/4 - 
   (17*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (177*S2[3, Infinity]^2)/64 + (239*S2[1, n]*S2[5, Infinity])/32 - 
   5*S2[-5, 1, n] + 4*S2[1, n]*S2[-4, 1, n] + Diff[S2[1, n], n, 1]*
    S2[-3, 1, n] + S2[2, Infinity]*S2[-3, 1, n] + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-2, 1, n] + S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] + 
   S2[3, Infinity]*S2[-2, 1, n] - Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/2 + Diff[S2[1, n], n, 2]*S2[1, n]*
    S2[-1, 1, n] + Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   S2[-2, 1, n]*S2[2, 1, n] - 4*S2[-4, 1, 1, n] + 
   2*S2[1, n]*S2[-3, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 
   S2[2, Infinity]*S2[1, 2, -1, n] + Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] - 
   S2[2, Infinity]*S2[2, 1, -1, n] + S2[3, 1, -2, n] - S2[-2, 1, 1, 2, n] + 
   S2[-2, 2, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - S2[2, -2, 1, 1, n], 
 S2[1, 2, 2, -1, n] -> (-59*Diff[Half[S2[1, n], n], n, 5])/120 + 
   (43*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 + 
   5*Diff[S2[1, n], n, 1]^3 + 4*Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 2] - 4*Diff[S2[1, n], n, 2]^2 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3] - 
   (79*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 + 
   (59*Diff[S2[1, n], n, 5])/120 - (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, n], n, 2]/4 + (17*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 - (5*Diff[S2[-2, 1, n], n, 3])/4 + 
   3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1] + 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (11*Diff[S2[-1, 1, n], n, 4])/8 + (5*Diff[S2[-3, 1, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/6 - (9*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   (7*Diff[S2[2, 1, -1, n], n, 2])/4 + 5*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - 2*Diff[S2[1, -1, 1, 2, n], n, 1] - 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - Diff[S2[1, 1, 2, -1, n], n, 1] + 
   6*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (19*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + S2[-1, Infinity]^6/120 + 
   (13*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (51*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (15*Diff[S2[1, n], n, 4]*S2[1, n])/8 + 2*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] + (15*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/3 - 3*Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   6*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (53*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (S2[-1, Infinity]^5*S2[1, n])/60 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/6 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   (17*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (27*Diff[S2[1, n], n, 3]*S2[1, n]^2)/8 - 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^3 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    4 + (23*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (29*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (65*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 + 
   3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity] - 
   (S2[1, n]^4*S2[2, Infinity])/2 + (79*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/20 - (467*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    80 + (463*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (319*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (13*S2[1, n]^2*S2[2, Infinity]^2)/80 + (16801*S2[2, Infinity]^3)/3360 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 + 
   (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 - 5*Diff[S2[-1, 1, n], n, 1]*
    S2[3, Infinity] + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[3, Infinity] - (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity] + 
   (3*S2[1, n]^3*S2[3, Infinity])/8 + 4*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    32 - 8*S2[1, n]*S2[2, Infinity]*S2[3, Infinity] + 
   (109*S2[3, Infinity]^2)/256 + (409*S2[1, n]*S2[5, Infinity])/64 + 
   S2[-5, -1, Infinity] - 9*S2[-5, 1, n] + 3*S2[1, n]*S2[-4, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-3, 1, n] - (9*S2[1, n]^2*S2[-3, 1, n])/2 + 
   (7*S2[2, Infinity]*S2[-3, 1, n])/2 + 2*Diff[S2[1, n], n, 2]*S2[-2, 1, n] - 
   6*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 2*S2[1, n]^3*S2[-2, 1, n] + 
   S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] - S2[3, Infinity]*S2[-2, 1, n] - 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (39*S2[2, Infinity]^2*S2[-1, 1, n])/10 + S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] + Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] - 
   Diff[S2[1, n], n, 2]*S2[2, 1, n] + 3*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - Half[S2[1, n], n]*S2[1, n]^2*
    S2[2, 1, n] + S2[1, n]^3*S2[2, 1, n] - 2*Half[S2[1, n], n]*
    S2[2, Infinity]*S2[2, 1, n] + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[2, 1, n])/2 + (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (21*S2[3, Infinity]*S2[2, 1, n])/8 - S2[-2, 1, n]*S2[2, 1, n] - 
   S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] - 5*S2[-4, 1, 1, n] + 
   3*S2[1, n]*S2[-3, 1, 1, n] - 2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 
   4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   4*S2[3, Infinity]*S2[-1, 1, 1, n] + 4*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 3*S2[1, n]^2*S2[1, 2, -1, n] + 
   2*S2[2, Infinity]*S2[1, 2, -1, n] + 3*S2[1, n]*S2[2, 1, -2, n] + 
   3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] - 3*S2[1, n]^2*S2[2, 1, -1, n] + 
   2*S2[2, Infinity]*S2[2, 1, -1, n] - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] - 
   3*S2[1, n]^2*S2[2, 1, 1, n] - S2[2, Infinity]*S2[2, 1, 1, n] - 
   3*S2[-1, 1, n]*S2[2, 1, 1, n] + S2[3, 1, -2, n] + 2*S2[-3, 1, 1, 1, n] - 
   6*S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 1, 1, 2, n] + 
   3*S2[-2, 2, 1, 1, n] - 6*S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (89*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, 1, 2, -1, n] + S2[2, -2, 1, 1, n]/2 + 
   6*S2[-2, 1, 1, 1, 1, n] - 2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   3*S2[1, -1, 1, 1, 2, n] - 2*S2[1, 1, -1, 1, 2, n] - 
   3*S2[1, 1, 1, -1, 2, n] + 6*S2[1, 1, 1, 2, -1, n] + 
   S2[1, 1, 2, -1, 1, n] + 6*S2[1, 1, 2, 1, -1, n] + 
   4*S2[1, 2, 1, 1, -1, n] - 6*S2[-1, 1, 1, 1, 1, 1, Infinity], 
 S2[1, 2, 2, 1, n] -> -Diff[S2[1, n], n, 1]^3/6 + 
   (3*Diff[S2[1, n], n, 2]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/8 - 
   (17*Diff[S2[1, n], n, 5])/720 + Diff[S2[2, 1, n], n, 3]/8 - 
   Diff[S2[4, 1, n], n, 1] - Diff[S2[2, 1, 1, n], n, 2]/2 - 
   2*Diff[S2[3, 1, 1, n], n, 1] - Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
    S2[1, n] + (Diff[S2[1, n], n, 4]*S2[1, n])/12 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   (58*S2[2, Infinity]^3)/105 + 2*S2[1, n]*S2[2, Infinity]*S2[3, Infinity] + 
   2*S2[3, Infinity]^2 - 9*S2[1, n]*S2[5, Infinity] + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[2, 1, n] - S2[2, 1, n]^2/2 + 4*S2[1, n]*S2[4, 1, n] + 
   2*S2[1, n]*S2[3, 1, 1, n] - 4*S2[4, 1, 1, n], 
 S2[1, 2, -1, -2, n] -> (-3*Diff[Half[S2[1, n], n], n, 1]^3)/64 + 
   (33*Diff[Half[S2[1, n], n], n, 2]^2)/128 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (107*Diff[Half[S2[1, n], n], n, 5])/128 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 3])/64 + 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (109*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (1819*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (1841*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (575*Diff[S2[1, n], n, 1]^3)/64 - (507*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (527*Diff[S2[1, n], n, 2]^2)/64 - 
   (5977*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (13687*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (1031*Diff[S2[1, n], n, 5])/1152 - 2*Diff[S2[-4, 1, n], n, 1] - 
   (11*Diff[S2[-3, 1, n], n, 2])/32 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (139*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (29*Diff[S2[-2, 1, n], n, 3])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (213*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (35*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (319*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (439*Diff[S2[-1, 1, n], n, 4])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (9*Diff[S2[2, 1, n], n, 3])/16 - (5*Diff[S2[4, 1, n], n, 1])/2 - 
   8*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - 
   Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (11*Diff[S2[-1, 1, -1, n], n, 3])/48 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (9*Diff[S2[-1, 1, 1, n], n, 3])/8 + (23*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (43*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (7*Diff[S2[2, 1, 1, n], n, 2])/8 + 2*Diff[S2[3, 1, 1, n], n, 1] - 
   (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    16 - Diff[S2[-1, 1, -1, 1, n], n, 2]/4 - 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 - 2*Diff[S2[1, 1, -2, -1, n], n, 1] + Diff[S2[1, 1, -1, 2, n], n, 1] - 
   Diff[S2[1, 2, -1, -1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    2 - (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1] - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/
    8 - (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + Diff[S2[1, 1, -1, 1, -1, n], 
    n, 1] + 2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (17*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (133*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (869*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (1441*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (65*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 - (49*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (11*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    16 + (35*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (47*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/192 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   Half[S2[2, 1, n], n]^2/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[4, 1, 1, n], n])/16 - (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    96 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (49*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + 
   (19*S2[-1, Infinity]^6)/2880 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (1181*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (509*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (143*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (867*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (4021*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (209*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (103*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (47*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (839*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (37*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (27*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (157*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (15*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 - (281*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (547*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (29*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (77*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (47*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (61*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   (1027*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 - 
   (427*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (241*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (3349*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (847*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (23*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (29*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (157*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (63*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (31*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (49*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (25*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (265*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (2*Half[S2[1, n], n]^3*S2[1, n]^3)/3 - 
   (17*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 - 
   (149*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (29*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (19*S2[1, n]^6)/96 + (17*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (157*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/288 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    192 + (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (17*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (337*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (49*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/192 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/3 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/24 + 
   (39*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (75*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/2 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (155*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (109*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (133*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (37*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (157*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (47*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 + (31*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 - (169*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (25*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (97*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 + 
   (55*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (151*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (S2[1, n]^4*S2[2, Infinity])/3 - (193*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/128 + (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    120 - (23*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/480 - 
   (101*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (49*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (79*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (763*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (313*S2[1, n]^2*S2[2, Infinity]^2)/192 + (1049*S2[2, Infinity]^3)/1120 + 
   (481*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 - 
   (961*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (195*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (43*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (801*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (93*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (1009*S2[1, n]^3*S2[3, Infinity])/768 - 
   (37*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 + 
   (4335*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (3775*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (14411*S2[3, Infinity]^2)/6144 - (505*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (23*S2[1, n]*S2[5, Infinity])/64 + (33*S2[-5, -1, Infinity])/8 + 
   6*S2[-5, 1, n] + 3*S2[1, n]*S2[-4, 1, n] - 
   (113*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (61*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/6 + 
   (23*S2[1, n]^2*S2[-3, 1, n])/96 + (71*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (39*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (289*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (55*S2[1, n]^3*S2[-2, 1, n])/48 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/6 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (53*S2[3, Infinity]*S2[-2, 1, n])/64 + S2[-2, 1, n]^2/8 + 
   (35*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/72 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (127*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (725*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/48 - (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    3 + (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (13*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (85*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 - 
   (7*S2[1, n]^4*S2[-1, 1, n])/12 + (67*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (19*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (73*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (9*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (181*S2[2, Infinity]^2*S2[-1, 1, n])/192 - 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (17*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (103*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (49*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (49*S2[2, Infinity]*S2[-1, 1, n]^2)/
    24 - (37*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (21*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (67*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (25*S2[1, n]^3*S2[2, 1, n])/32 + (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (69*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (55*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (275*S2[3, Infinity]*S2[2, 1, n])/64 + (S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (25*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (5*S2[2, 1, n]^2)/8 + 
   3*S2[1, n]*S2[4, 1, n] - 6*S2[-4, 1, 1, n] + 3*S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 - 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/96 + 
   (5*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/96 - (25*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    96 - (S2[3, Infinity]*S2[-1, 1, -1, n])/192 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + S2[-1, 1, -1, n]^2/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 + 
   2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (85*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*S2[-1, 1, 1, n]^2)/2 - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (25*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 - (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 - (101*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 + 
   (149*S2[1, n]^2*S2[2, 1, -1, n])/48 - (25*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (25*S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[3, 1, -2, n])/2 + 4*S2[1, n]*S2[3, 1, 1, n] + 6*S2[4, 1, 1, n] - 
   9*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n] + 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - 2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] + 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (25*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (43*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (57*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   S2[1, n]*S2[1, 1, -2, -1, n] + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (3*S2[2, -2, 1, 1, n])/2 + 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   2*S2[2, 2, 1, 1, n] - (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] + (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] - 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (49*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (61*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, -2, n] + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, -1, 1, 2, -1, n] - 
   S2[1, 1, -2, -1, 1, n] - 2*S2[1, 1, -2, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] - 7*S2[1, 1, 1, -2, -1, n] - 
   S2[1, 1, 1, -1, -2, n] - 9*S2[1, 1, 1, 2, -1, n] - 
   4*S2[1, 1, 2, -1, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   6*S2[1, 1, 2, 1, -1, n] - S2[1, 2, -1, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] - 
   3*S2[2, 1, 1, 1, 1, n] + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 + (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   S2[-1, 1, -1, -1, -1, 1, n]/8 - S2[-1, 1, -1, 1, 1, 1, n]/2 + 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - (19*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 - S2[1, -1, -1, -1, 1, -1, n]/8 - 
   S2[1, -1, -1, 1, -1, -1, n]/4 - S2[1, -1, 1, -1, -1, -1, n]/4 - 
   S2[1, 1, -1, -1, -1, -1, n]/2 + (5*S2[1, 1, 1, -1, 1, -1, n])/2 + 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[1, 2, -1, 2, n] -> 
  (-19*Diff[Half[S2[1, n], n], n, 5])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   (13*Diff[S2[1, n], n, 1]^3)/2 + (29*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (29*Diff[S2[1, n], n, 2]^2)/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 - 
   10*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3] + 
   (19*Diff[S2[1, n], n, 5])/24 + (13*Diff[S2[-4, 1, n], n, 1])/2 + 
   (3*Diff[S2[-3, 1, n], n, 2])/4 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (17*Diff[S2[-2, 1, n], n, 3])/12 + 
   (13*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (53*Diff[S2[-1, 1, n], n, 4])/24 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] - Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] + 
   (17*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   2*Diff[S2[-1, 1, 1, n], n, 3] - (9*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1] - (9*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   3*Diff[S2[-2, 1, 1, 1, n], n, 1] + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (9*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/3 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (103*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (83*Diff[S2[1, n], n, 4]*S2[1, n])/24 - 4*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] + (13*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (11*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/2 + 3*Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (17*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (31*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (131*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 + 3*Diff[S2[1, n], n, 2]*
    Half[S2[1, n], n]*S2[1, n]^2 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/
    4 - (11*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (17*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity] + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (85*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   6*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (S2[1, n]^4*S2[2, Infinity])/2 - (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/20 + (79*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (73*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2 + 
   (23*S2[1, n]^2*S2[2, Infinity]^2)/16 - (1231*S2[2, Infinity]^3)/1120 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 + 
   (37*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 - 
   Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity] + Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[3, Infinity] + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[3, Infinity] - 5*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[3, Infinity] - Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity] + 
   (11*S2[1, n]^3*S2[3, Infinity])/8 - 
   (699*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (91*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (2095*S2[3, Infinity]^2)/256 - (811*S2[1, n]*S2[5, Infinity])/32 - 
   S2[-5, -1, Infinity] + 10*S2[-5, 1, n] - 7*S2[1, n]*S2[-4, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-3, 1, n] + (9*S2[1, n]^2*S2[-3, 1, n])/2 - 
   (7*S2[2, Infinity]*S2[-3, 1, n])/2 + Diff[S2[1, n], n, 2]*S2[-2, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] - S2[3, Infinity]*S2[-2, 1, n] - 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (17*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 3*Diff[S2[1, n], n, 2]*S2[1, n]*
    S2[-1, 1, n] - (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*S2[2, Infinity]^2*S2[-1, 1, n])/10 + S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] + Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] - 
   Diff[S2[1, n], n, 2]*S2[2, 1, n] + Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + Half[S2[1, n], n]*S2[1, n]^2*
    S2[2, 1, n] - S2[1, n]^3*S2[2, 1, n] + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   S2[1, n]*S2[2, Infinity]*S2[2, 1, n] + (13*S2[3, Infinity]*S2[2, 1, n])/
    8 + S2[-2, 1, n]*S2[2, 1, n] - S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] + 
   13*S2[-4, 1, 1, n] - 9*S2[1, n]*S2[-3, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 2*S2[2, Infinity]*S2[1, 2, -1, n] - 
   2*S2[1, n]*S2[2, 1, -2, n] + 2*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + 
   S2[2, Infinity]*S2[2, 1, -1, n] - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] + 
   S2[-1, 1, n]*S2[2, 1, 1, n] + 8*S2[-3, 1, 1, 1, n] + S2[-2, 1, 1, 2, n] - 
   2*S2[-2, 2, 1, 1, n] + (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/
    2 - (85*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]*S2[1, 1, 2, -1, n] - (3*S2[2, -2, 1, 1, n])/2 + 
   S2[1, -1, 1, 1, 2, n] + 2*S2[1, 1, -1, 1, 2, n] + 
   3*S2[1, 1, 1, -1, 2, n] - S2[1, 1, 2, -1, 1, n], 
 S2[1, 2, 1, -2, n] -> (-5*Diff[Half[S2[1, n], n], n, 5])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   Diff[S2[1, n], n, 1]^3/2 + Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 2] - Diff[S2[1, n], n, 2]^2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/12 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   (5*Diff[S2[1, n], n, 5])/48 + Diff[S2[-3, 1, n], n, 2]/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, n], n, 4]/4 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - Diff[S2[2, 1, -1, n], n, 2]/4 + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/4 + (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/
    4 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/2 + (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    4 + (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 + Diff[S2[-2, 1, n], n, 1]*
    S2[2, Infinity] + Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] - (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/2 + (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/2 - (7*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] - 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 + 
   (19*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 + 
   (2299*S2[2, Infinity]^3)/3360 - (5*Diff[S2[1, n], n, 2]*S2[3, Infinity])/
    32 + (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (139*S2[3, Infinity]^2)/256 - S2[-5, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + S2[2, Infinity]*S2[-3, 1, n] - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] - S2[3, Infinity]*S2[-2, 1, n] + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 - Diff[S2[1, n], n, 1]*
    S2[2, Infinity]*S2[-1, 1, n] + (3*S2[3, Infinity]*S2[2, 1, n])/4 + 
   S2[-2, 1, n]*S2[2, 1, n] - 2*S2[-4, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   S2[2, Infinity]*S2[1, 2, -1, n] + S2[1, n]*S2[2, 1, -2, n] - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + 
   S2[2, Infinity]*S2[2, 1, -1, n] + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   S2[2, Infinity]*S2[2, 1, 1, n] + S2[3, 1, -2, n] + S2[-3, 1, 1, 1, n] + 
   S2[-2, 1, 1, 2, n] + S2[-2, 2, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + S2[2, -2, 1, 1, n]/2, 
 S2[1, 2, 1, 2, n] -> -Diff[S2[1, n], n, 1]^3/3 - 
   (3*Diff[S2[1, n], n, 2]^2)/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/8 + 
   (11*Diff[S2[1, n], n, 5])/720 - Diff[S2[2, 1, n], n, 3]/8 + 
   Diff[S2[4, 1, n], n, 1] - Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/12 + (Diff[S2[2, 1, n], n, 2]*S2[1, n])/
    2 - 2*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 1]*S2[2, Infinity]^2 + (76*S2[2, Infinity]^3)/105 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[3, Infinity] - 3*S2[1, n]*S2[2, Infinity]*S2[3, Infinity] + 
   (5*S2[3, Infinity]^2)/2 + (29*S2[1, n]*S2[5, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[2, 1, n] + S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - 
   S2[3, Infinity]*S2[2, 1, n] + S2[2, 1, n]^2/2 - 4*S2[1, n]*S2[4, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 2*S2[2, Infinity]*S2[2, 1, 1, n] - 
   4*S2[1, n]*S2[3, 1, 1, n] - 4*S2[4, 1, 1, n] + 2*S2[2, 2, 1, 1, n], 
 S2[1, -1, -3, -1, n] -> (43*Diff[Half[S2[1, n], n], n, 1]^3)/96 + 
   (9*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 - 
   (901*Diff[Half[S2[1, n], n], n, 5])/2880 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 - 
   (335*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (143*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (259*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (11*Diff[S2[1, n], n, 1]^3)/32 + (77*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (43*Diff[S2[1, n], n, 2]^2)/16 + 
   (197*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (647*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (901*Diff[S2[1, n], n, 5])/2880 + 6*Diff[S2[-4, 1, n], n, 1] + 
   (17*Diff[S2[-3, 1, n], n, 2])/12 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   Diff[S2[-2, 1, n], n, 3]/3 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (95*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (185*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (41*Diff[S2[-1, 1, n], n, 4])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-1, -2, -1, n], n, 2]/12 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/24 - (5*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   (13*Diff[S2[2, 1, -1, n], n, 2])/12 + 2*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[1, 1, 2, -1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 + 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   (11*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/3 - (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (65*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (83*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (13*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (9*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (23*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (67*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (73*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/6 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2 - 
   (43*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (55*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (9*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 + (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 - S2[-1, Infinity]^6/1440 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 + (3*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/4 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (121*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (99*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (221*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (9*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (25*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (47*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (163*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (53*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (13*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (S2[-1, Infinity]^5*S2[1, n])/240 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (79*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (61*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[1, n]^2 - (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/64 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (17*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - (11*Half[S2[1, n], n]^2*S2[1, n]^4)/
    12 + (17*Half[S2[1, n], n]*S2[1, n]^5)/24 - (5*S2[1, n]^6)/24 + 
   (83*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/96 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 - 
   (251*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    48 + (359*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 - 
   (13*Diff[S2[1, n], n, 3]*S2[2, Infinity])/64 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (41*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/48 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (55*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    16 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (33*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (25*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (119*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/8 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (63*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (45*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (29*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 - 
   (31*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (11*S2[1, n]^4*S2[2, Infinity])/16 + 
   (1157*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (83*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 + 
   (29*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (4*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/5 + 
   (31*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (363*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (103*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (97*S2[1, n]^2*S2[2, Infinity]^2)/320 + (9745*S2[2, Infinity]^3)/1344 + 
   (133*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (179*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (45*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (211*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (449*S2[1, n]^3*S2[3, Infinity])/384 - 
   (53*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (267*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (155*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (121*S2[3, Infinity]^2)/128 + (Half[S2[1, n], n]*S2[5, Infinity])/64 + 
   (73*S2[1, n]*S2[5, Infinity])/128 - S2[-5, -1, Infinity]/2 + 
   10*S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   3*Diff[S2[1, n], n, 1]*S2[-3, 1, n] - (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/
    16 - (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (15*S2[1, n]^2*S2[-3, 1, n])/16 + (17*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/24 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (S2[3, Infinity]*S2[-2, 1, n])/2 + 
   (71*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 + 
   (161*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 + 
   (23*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 + 2*Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] + (25*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (13*S2[1, n]^4*S2[-1, 1, n])/24 + (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (49*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (33*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (43*S2[2, Infinity]^2*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (127*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (9*S2[-3, 1, n]*S2[-1, 1, n])/8 + (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (33*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/8 + (S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   S2[-1, 1, n]^3/24 + (25*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 - 
   (25*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (25*S2[1, n]^3*S2[2, 1, n])/48 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 3*S2[-4, 1, 1, n] - 
   2*S2[1, n]*S2[-3, 1, 1, n] - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/2 - (5*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/16 + 
   (3*S2[2, Infinity]*S2[-1, -2, -1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (3*S2[3, Infinity]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (17*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (47*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + (S2[2, 1, n]*S2[-1, 1, 1, n])/
    2 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + 2*S2[2, Infinity]*S2[1, 2, -1, n] + 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 - (S2[1, n]*S2[2, 1, -2, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/8 + (3*S2[2, Infinity]*S2[2, 1, -1, n])/2 + 
   (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] - 
   (7*S2[2, Infinity]*S2[2, 1, 1, n])/4 - S2[-1, 1, n]*S2[2, 1, 1, n] - 
   S2[3, 1, -2, n]/2 + 2*S2[-3, 1, 1, 1, n] - (3*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - S2[-2, 2, 1, 1, n]/2 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    8 - Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (15*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (45*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + (3*S2[1, n]*S2[1, 1, 2, -1, n])/
    2 - S2[2, -2, 1, 1, n]/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 - (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + S2[1, -1, 1, 1, 2, n]/2 - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[1, 1, -1, 1, 2, n] - 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + S2[1, 1, 1, -1, 2, n] - 
   2*S2[1, 1, 1, 2, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   S2[1, 1, 2, 1, -1, n] + S2[-1, -1, -1, 1, -1, -1, n]/4 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + (3*S2[-1, 1, -1, -1, -1, -1, n])/2 - 
   S2[-1, 1, 1, -1, -1, 1, n]/2 - S2[-1, 1, 1, 1, -1, -1, n] + 
   S2[-1, 1, 1, 1, 1, 1, Infinity]/2 + (5*S2[1, -1, -1, -1, -1, -1, n])/2 + 
   S2[1, -1, -1, 1, 1, -1, n]/2 - (3*S2[1, -1, 1, 1, -1, -1, n])/2 - 
   S2[1, 1, -1, -1, 1, -1, n]/2 - 2*S2[1, 1, -1, 1, -1, -1, n] - 
   (9*S2[1, 1, 1, -1, -1, -1, n])/2, S2[1, -1, -3, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/16 + (71*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 + (71*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    288 + (19*Diff[Half[S2[1, n], n], n, 5])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (49*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (11*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   (101*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (1187*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/6 - 
   (337*Diff[S2[1, n], n, 1]^3)/96 - (385*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (989*Diff[S2[1, n], n, 2]^2)/192 - 
   (251*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/72 + 
   (4027*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (223*Diff[S2[1, n], n, 5])/384 + Diff[S2[-4, 1, n], n, 1]/2 + 
   (29*Diff[S2[-3, 1, n], n, 2])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (77*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (59*Diff[S2[-2, 1, n], n, 3])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (37*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (77*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (107*Diff[S2[-1, 1, n], n, 4])/64 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (17*Diff[S2[2, 1, n], n, 3])/24 + (5*Diff[S2[4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (11*Diff[S2[-2, 1, -1, n], n, 2])/8 + (7*Diff[S2[-1, -2, -1, n], n, 2])/
    32 - (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (53*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   (15*Diff[S2[-1, 1, 1, n], n, 3])/16 + (19*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1] + (23*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (13*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/4 - (9*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    16 - Diff[S2[-1, 1, 1, 1, n], n, 2] + Diff[S2[1, -1, 1, -2, n], n, 1]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1] - 2*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (107*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 + (89*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 + 4*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (7*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/9 + 
   (23*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (49*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (11*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 - 
   Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n] + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 - (21*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (23*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 - 
   (17*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   (3*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (41*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 - (775*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (31*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (229*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (213*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (155*Diff[S2[1, n], n, 4]*S2[1, n])/72 - 
   (19*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 - 
   (151*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (51*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 + 
   (73*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/3 + 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (8*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/3 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (59*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (245*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (37*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/9 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (11*Half[S2[4, 1, n], n]*S2[1, n])/32 + (Half[S2[3, 1, 1, n], n]*S2[1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 - 
   (11*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/2 + 
   (193*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/3 - 
   (1643*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (73*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/32 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 + 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/6 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    12 - (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    24 + (Half[S2[1, n], n]*S2[1, n]^5)/8 - (7*S2[1, n]^6)/96 + 
   (55*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 + 
   (373*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (123*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (49*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (527*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 + 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (265*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 - (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (47*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 - 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (99*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (293*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (111*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (185*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (95*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (337*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (41*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (35*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (47*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (19*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 + (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 - 
   (107*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (S2[1, n]^4*S2[2, Infinity])/32 + (641*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/320 - (1951*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    480 - (319*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (63*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 - 
   (647*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (159*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (2471*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (601*S2[2, Infinity]^3)/640 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 - 
   (1273*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (509*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (239*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (539*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (267*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (49*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/96 + 
   (287*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 - 
   (101*S2[1, n]^3*S2[3, Infinity])/96 - 
   (313*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (147*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (2641*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (4501*S2[3, Infinity]^2)/6144 - (31*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (3601*S2[1, n]*S2[5, Infinity])/256 + (11*S2[-5, -1, Infinity])/8 - 
   (S2[1, n]*S2[-4, 1, n])/2 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    6 - (67*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (23*S2[1, n]^2*S2[-3, 1, n])/48 + (7*S2[2, Infinity]*S2[-3, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (15*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/12 + (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (49*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (3*S2[3, Infinity]*S2[-2, 1, n])/64 + (3*S2[-2, 1, n]^2)/8 + 
   (91*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (469*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/2 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (67*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 - (143*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (67*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (3*S2[1, n]^4*S2[-1, 1, n])/16 + (83*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 2*Diff[S2[1, n], n, 1]*
    S2[2, Infinity]*S2[-1, 1, n] + (Half[S2[1, n], n]^2*S2[2, Infinity]*
     S2[-1, 1, n])/96 + (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, n])/32 - (7*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/
    16 - (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (41*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (23*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (503*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (73*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (121*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 + 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (17*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (19*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 - (19*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (107*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (25*S2[1, n]^3*S2[2, 1, n])/48 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (23*S2[3, Infinity]*S2[2, 1, n])/192 + (3*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + (3*S2[2, 1, n]^2)/8 - 
   (7*S2[1, n]*S2[4, 1, n])/2 - S2[-3, -2, 1, n]/2 + 
   S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - (S2[1, n]^2*S2[-2, 1, -1, n])/
    4 - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + S2[-2, 2, -2, n]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/12 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/48 + 
   (5*S2[2, Infinity]*S2[-1, -2, -1, n])/24 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (29*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 - S2[-1, 1, -1, n]^2/32 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[-1, 1, 1, n]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + S2[1, n]*S2[2, 1, -2, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/6 - 
   (37*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (17*S2[1, n]^2*S2[2, 1, -1, n])/24 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 + 
   3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - (S2[1, n]^2*S2[2, 1, 1, n])/2 - 
   (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 3*S2[1, n]*S2[3, 1, 1, n] - 
   (5*S2[4, 1, 1, n])/2 - S2[-2, -2, 1, 1, n]/2 + 
   S2[1, n]*S2[-2, 1, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/12 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    3 - (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 - (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (41*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 + S2[1, n]*S2[1, 1, -1, 2, n] + 
   (S2[1, n]*S2[2, 1, 1, 1, n])/2 + S2[2, 2, 1, 1, n] + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (11*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + S2[1, -1, 1, 1, -2, n]/2 - 
   S2[1, 1, -2, -1, 1, n]/2 - Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + S2[1, 1, -1, 1, -2, n] + 
   2*S2[1, 1, 1, -1, -2, n] - S2[2, 1, 1, 1, 1, n]/2 + 
   S2[-1, -1, 1, 1, -1, -1, n]/2 + S2[-1, 1, -1, 1, -1, -1, n]/4 - 
   S2[-1, 1, -1, 1, 1, 1, n]/4 + S2[-1, 1, 1, -1, -1, -1, n] + 
   S2[-1, 1, 1, 1, -1, 1, n]/4 - S2[1, -1, -1, -1, 1, -1, n]/4 - 
   S2[1, -1, -1, 1, -1, -1, n]/4 + S2[1, 1, -1, -1, -1, -1, n]/2 + 
   S2[1, 1, 1, -1, 1, -1, n]/4 + S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -1, 3, -1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (7*Diff[Half[S2[1, n], n], n, 2]^2)/128 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/32 + 
   (31*Diff[Half[S2[1, n], n], n, 5])/192 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/64 + Diff[Half[S2[4, 1, n], n], n, 1]/
    32 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 - 
   (37*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (13*Diff[S2[1, n], n, 1]^3)/24 - (91*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (299*Diff[S2[1, n], n, 2]^2)/192 - 
   (175*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (185*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 - 
   (961*Diff[S2[1, n], n, 5])/5760 - 3*Diff[S2[-4, 1, n], n, 1] - 
   (51*Diff[S2[-3, 1, n], n, 2])/32 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + (13*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - (3*Diff[S2[-2, 1, n], n, 3])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (17*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (23*Diff[S2[-1, 1, n], n, 4])/64 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   Diff[S2[2, 1, n], n, 3]/4 - (3*Diff[S2[4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - Diff[S2[-2, 1, -2, n], n, 1]/8 - 
   Diff[S2[-2, 1, -1, n], n, 2]/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/16 + (5*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (7*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (5*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + Diff[S2[-1, 1, -1, 1, n], n, 2]/16 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, -1, 1, -2, n], n, 1]/2 - 
   Diff[S2[1, 1, -2, -1, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - 
   (5*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    4 + Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (17*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/192 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (23*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (11*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (11*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (19*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 - (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/2 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (29*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (53*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/4 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   (7*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/20 + S2[-1, Infinity]^6/144 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 - (59*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (27*Diff[S2[1, n], n, 4]*S2[1, n])/64 + 
   (23*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (47*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 + (43*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (9*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (11*S2[-1, Infinity]^5*S2[1, n])/240 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/16 - 
   (15*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (49*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/8 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    12 - (Half[S2[1, n], n]*S2[1, n]^5)/12 + (7*S2[1, n]^6)/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/64 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (49*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   (49*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (39*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (33*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (21*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (65*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (69*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (15*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    32 - (9*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/64 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (33*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (3*S2[1, n]^4*S2[2, Infinity])/32 - 
   (63*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/40 + 
   (133*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/64 - 
   (111*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 + 
   (771*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (105*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 + 
   (319*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (1543*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (229*S2[1, n]^2*S2[2, Infinity]^2)/640 - (6721*S2[2, Infinity]^3)/13440 + 
   (85*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (9*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (227*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (605*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (815*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (31*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 + 
   (197*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 - 
   (7*S2[1, n]^3*S2[3, Infinity])/64 + 
   (1981*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (57*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (1737*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (12769*S2[3, Infinity]^2)/6144 + (409*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (2317*S2[1, n]*S2[5, Infinity])/256 + (43*S2[-5, -1, Infinity])/8 + 
   (3*S2[1, n]*S2[-4, 1, n])/2 - (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/16 + (17*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/2 - (11*S2[1, n]^2*S2[-3, 1, n])/
    16 - (7*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (7*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (19*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (7*S2[3, Infinity]*S2[-2, 1, n])/64 - (7*S2[-2, 1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (17*S2[1, n]^4*S2[-1, 1, n])/48 - (37*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (81*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (91*S2[2, Infinity]^2*S2[-1, 1, n])/32 + 
   (19*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (463*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (19*S2[1, n]^2*S2[-1, 1, n]^2)/32 - (33*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 - (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (95*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (7*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (11*S2[1, n]^3*S2[2, 1, n])/48 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (25*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (139*S2[3, Infinity]*S2[2, 1, n])/192 - (7*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (7*S2[2, 1, n]^2)/8 + (S2[1, n]*S2[4, 1, n])/2 - S2[-3, -2, 1, n]/2 - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   S2[-2, 2, -2, n]/8 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    16 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/16 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    4 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (163*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (73*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - (5*S2[-1, 1, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - (S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   (S2[2, Infinity]*S2[1, 2, -1, n])/4 - (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/8 - (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   S2[1, n]^2*S2[2, 1, 1, n] - (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   2*S2[1, n]*S2[3, 1, 1, n] - (7*S2[4, 1, 1, n])/2 - S2[-2, -2, 1, 1, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 + (7*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (19*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - (5*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n] + (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (5*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 6*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (11*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 - (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, -2, n]/2 - 
   (3*S2[1, 1, -2, -1, 1, n])/2 - S2[1, 1, -2, 1, -1, n] - 
   S2[1, 1, -1, 2, -1, n] - 2*S2[1, 1, 1, -2, -1, n] + 
   (5*S2[2, 1, 1, 1, 1, n])/2 - S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   S2[-1, 1, -1, -1, -1, 1, n]/2 - S2[-1, 1, -1, 1, -1, -1, n]/4 + 
   S2[-1, 1, -1, 1, 1, 1, n]/4 - S2[-1, 1, 1, -1, -1, -1, n] - 
   (5*S2[-1, 1, 1, 1, -1, 1, n])/4 - 5*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (5*S2[1, -1, -1, 1, -1, -1, n])/4 + 
   S2[1, -1, 1, -1, -1, -1, n] + (3*S2[1, 1, -1, -1, -1, -1, n])/2 - 
   (9*S2[1, 1, 1, -1, 1, -1, n])/4 - 5*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -1, 3, 1, n] -> (-41*Diff[Half[S2[1, n], n], n, 5])/240 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (9*Diff[S2[1, n], n, 1]^3)/8 + (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (13*Diff[S2[1, n], n, 2]^2)/8 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 + 
   (41*Diff[S2[1, n], n, 5])/240 + (5*Diff[S2[-4, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, n], n, 2]/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, n], n, 3]/3 + (4*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/3 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (19*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   2*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-1, 1, 1, n], n, 3]/3 - 
   Diff[S2[1, 2, -1, n], n, 2]/2 - Diff[S2[2, 1, -1, n], n, 2]/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/4 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1] - Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^6/1440 + 
   (3*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/4 - 
   3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   Diff[S2[1, n], n, 4]*S2[1, n] + (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^5*S2[1, n])/240 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (101*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 - Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 - (11*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (13*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (55*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (37*S2[-1, Infinity]^4*S2[2, Infinity])/96 + Diff[Half[S2[1, n], n], n, 2]*
    S2[1, n]*S2[2, Infinity] - (49*Diff[S2[1, n], n, 2]*S2[1, n]*
     S2[2, Infinity])/24 + Diff[S2[-1, 1, n], n, 1]*S2[1, n]*
    S2[2, Infinity] - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (S2[1, n]^4*S2[2, Infinity])/6 - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/10 + (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/4 - 
   (313*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (9*S2[1, n]^2*S2[2, Infinity]^2)/10 - (1229*S2[2, Infinity]^3)/560 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 + 
   (11*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 + 
   (2*S2[1, n]^3*S2[3, Infinity])/3 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 - 
   (283*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (85*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/24 - 
   (1499*S2[3, Infinity]^2)/768 - (1155*S2[1, n]*S2[5, Infinity])/128 - 
   (15*S2[-5, -1, Infinity])/8 + 3*S2[-5, 1, n] - 2*S2[1, n]*S2[-4, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + (3*S2[1, n]^2*S2[-3, 1, n])/4 - 
   (7*S2[2, Infinity]*S2[-3, 1, n])/4 + (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    12 - (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (S2[1, n]^3*S2[-2, 1, n])/3 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (S2[3, Infinity]*S2[-2, 1, n])/6 - (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/
    8 + (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (9*S2[2, Infinity]^2*S2[-1, 1, n])/10 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (S2[1, n]^3*S2[2, 1, n])/2 - (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 3*S2[-4, 1, 1, n] - 
   3*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 - (S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (S2[1, n]*S2[2, 1, -2, n])/2 + (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/4 - (S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 + 2*S2[-3, 1, 1, 1, n] - (S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - S2[-2, 2, 1, 1, n]/2 + (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (39*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, 1, -1, 2, n] + (S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   S2[-2, 1, 1, 1, 1, n]/2 + (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, 1, 1, 2, n]/2 + S2[1, 1, -1, 1, 2, n] + 
   2*S2[1, 1, 1, -1, 2, n] - S2[1, 1, 2, -1, 1, n]/2 + 
   S2[-1, 1, 1, 1, 1, 1, Infinity]/2, S2[1, -1, -2, -2, n] -> 
  (-17*Diff[Half[S2[1, n], n], n, 1]^3)/48 + Diff[Half[S2[1, n], n], n, 2]^2/
    48 - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/3 - 
   (307*Diff[Half[S2[1, n], n], n, 5])/1440 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/48 + 
   (89*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/8 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/24 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (157*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 + 
   (85*Diff[S2[1, n], n, 1]^3)/48 + (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (47*Diff[S2[1, n], n, 2]^2)/24 + 
   (161*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/96 - 
   (87*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/32 + 
   (307*Diff[S2[1, n], n, 5])/1440 + 3*Diff[S2[-4, 1, n], n, 1] + 
   (13*Diff[S2[-3, 1, n], n, 2])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   Diff[S2[-2, 1, n], n, 3]/3 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/6 + 
   (29*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   Diff[S2[-1, 1, n], n, 1]^2/4 - (35*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/48 + 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (23*Diff[S2[-1, 1, n], n, 4])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-1, -2, -1, n], n, 2]/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, n], n, 3]/12 - Diff[S2[1, 2, -1, n], n, 2]/2 - 
   (7*Diff[S2[2, 1, -1, n], n, 2])/12 - Diff[S2[-1, 1, -1, -1, n], n, 2]/12 + 
   Diff[S2[-1, 1, 1, 1, n], n, 2] + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 + 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/
    2 + Diff[S2[1, -1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 + (19*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/6 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/32 + 
   (9*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (4*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/3 + (47*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    48 - (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/20 - S2[-1, Infinity]^6/360 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    4 + (29*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/6 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/12 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 + 
   (71*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (35*Diff[S2[1, n], n, 4]*S2[1, n])/32 - 
   (25*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 + 
   (53*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 + 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 + 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/12 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (21*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (15*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/12 - 
   (S2[-1, Infinity]^5*S2[1, n])/20 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (41*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (39*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (35*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (2*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/3 - 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[1, n]^2 + (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    12 + (2*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/3 - 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/6 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    2 + (Half[S2[1, n], n]*S2[1, n]^5)/2 - S2[1, n]^6/6 - 
   (35*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/48 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    12 - (47*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (65*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (49*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity] + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/8 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (41*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    2 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 - (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/8 + (17*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/8 - Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity] + 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (17*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (7*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (2*S2[1, n]^4*S2[2, Infinity])/3 - 
   (87*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (37*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/10 - 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (27*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (27*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (5*S2[1, n]^2*S2[2, Infinity]^2)/4 - (1217*S2[2, Infinity]^3)/840 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (95*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (71*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (61*S2[1, n]^3*S2[3, Infinity])/48 - 
   (239*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (13*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/2 + 
   (1187*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (281*S2[3, Infinity]^2)/192 - (215*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (2083*S2[1, n]*S2[5, Infinity])/128 - (9*S2[-5, -1, Infinity])/4 + 
   2*S2[-5, 1, n] - 5*S2[1, n]*S2[-4, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (7*S2[1, n]^2*S2[-3, 1, n])/4 - (11*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (2*S2[1, n]^3*S2[-2, 1, n])/3 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (13*S2[3, Infinity]*S2[-2, 1, n])/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/3 + 
   (13*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 + 
   (13*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] + (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 - 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n] - (S2[1, n]^4*S2[-1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (17*S2[2, Infinity]^2*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + (3*S2[-3, 1, n]*S2[-1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/4 - (3*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (5*S2[-1, 1, n]^3)/12 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (S2[1, n]^3*S2[2, 1, n])/4 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (7*S2[3, Infinity]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + S2[-4, 1, 1, n] - 
   3*S2[1, n]*S2[-3, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/2 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] - 
   S2[1, n]^2*S2[-2, 1, -1, n] + (S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 
   S2[-1, 1, n]*S2[-2, 1, -1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/4 - (S2[2, Infinity]*S2[-1, -2, -1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n] + 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] + (S2[1, n]^2*S2[1, 2, -1, n])/
    2 + S2[-1, 1, n]*S2[1, 2, -1, n] - S2[1, n]*S2[2, 1, -2, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (S2[2, Infinity]*S2[2, 1, -1, n])/4 + (S2[-1, 1, n]*S2[2, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] - 
   S2[-1, 1, n]*S2[2, 1, 1, n] - S2[3, 1, -2, n] - S2[-3, 1, 1, 1, n] - 
   S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 2, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 - S2[2, Infinity]*
    S2[-1, 1, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 5*S2[2, Infinity]*
    S2[-1, 1, 1, 1, Infinity] + 5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[2, -2, 1, 1, n] + S2[-2, 1, 1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, -1, -1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 6*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + 6*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 3*Half[S2[1, n], n]*
    S2[1, 1, 1, -1, -1, n] + 3*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 
   S2[1, 1, 1, -1, 2, n] + S2[-1, 1, -1, -1, 1, 1, n] + 
   2*S2[-1, 1, 1, 1, 1, 1, Infinity] + S2[1, -1, -1, 1, 1, -1, n] + 
   S2[1, 1, -1, -1, 1, -1, n] + S2[1, 1, -1, 1, -1, -1, n] + 
   3*S2[1, 1, 1, -1, -1, -1, n], S2[1, -1, -2, 2, n] -> 
  (-19*Diff[Half[S2[1, n], n], n, 2]^2)/64 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   Diff[Half[S2[1, n], n], n, 5]/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/96 + Diff[Half[S2[4, 1, n], n], n, 1]/
    16 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (37*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 - 
   (23*Diff[S2[1, n], n, 1]^3)/48 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (29*Diff[S2[1, n], n, 2]^2)/96 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/144 + 
   (161*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (13*Diff[S2[1, n], n, 5])/320 - Diff[S2[-4, 1, n], n, 1] - 
   (5*Diff[S2[-3, 1, n], n, 2])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   Diff[S2[-2, 1, n], n, 3]/24 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 - (11*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] + 
   (5*Diff[S2[-1, 1, n], n, 4])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[4, 1, n], n, 1]/2 - Diff[S2[-2, 1, -1, n], n, 2]/4 + 
   Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/8 + Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -1, n], n, 2]/8 + Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/8 + Diff[S2[2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] + Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/4 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (61*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (55*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (17*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 - 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 - (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/6 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 - 
   (3*Half[S2[2, 1, n], n]^2)/64 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (43*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (11*Diff[S2[1, n], n, 4]*S2[1, n])/144 + 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/6 + 
   (13*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 + 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/6 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/3 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/6 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (61*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (121*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 + 
   (S2[-1, Infinity]^5*S2[1, n])/30 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (37*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/12 - 
   (17*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/12 + 
   (131*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/48 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    24 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/3 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 - (5*Half[S2[1, n], n]^2*S2[1, n]^4)/
    6 + (Half[S2[1, n], n]*S2[1, n]^5)/2 - (5*S2[1, n]^6)/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 + 
   (59*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/36 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (97*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (89*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 - (133*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (41*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 - (31*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 - (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/3 + 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (5*S2[1, n]^4*S2[2, Infinity])/16 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 + 
   (19*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/96 + 
   (319*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (183*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]^2)/64 + 
   (281*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (387*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (767*S2[1, n]^2*S2[2, Infinity]^2)/960 - (197*S2[2, Infinity]^3)/336 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 - 
   (5*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 - 
   (35*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (169*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 - (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/64 - 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/24 + 
   (77*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/96 - 
   (35*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/192 + 
   (S2[1, n]^3*S2[3, Infinity])/96 + (481*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/384 - (123*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/128 - (623*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/
    384 - (4237*S2[3, Infinity]^2)/3072 + 
   (31*Half[S2[1, n], n]*S2[5, Infinity])/64 + (37*S2[1, n]*S2[5, Infinity])/
    128 + (5*S2[-5, -1, Infinity])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/6 - (5*S2[1, n]^2*S2[-3, 1, n])/
    24 + (7*S2[2, Infinity]*S2[-3, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/12 + 
   (S2[1, n]^3*S2[-2, 1, n])/3 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (19*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (3*S2[3, Infinity]*S2[-2, 1, n])/32 - (3*S2[-2, 1, n]^2)/4 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 + 
   (7*S2[-1, Infinity]^4*S2[-1, 1, n])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/24 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (17*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (S2[1, n]^4*S2[-1, 1, n])/8 - (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (5*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (437*S2[2, Infinity]^2*S2[-1, 1, n])/240 - 
   (73*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (37*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/12 - 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/24 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/48 - (19*S2[2, Infinity]*S2[-1, 1, n]^2)/
    24 - (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 + 
   (37*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/8 + (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/
    8 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (17*S2[1, n]^3*S2[2, 1, n])/24 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (23*S2[3, Infinity]*S2[2, 1, n])/96 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - (3*S2[2, 1, n]^2)/4 - 
   S2[1, n]*S2[4, 1, n] + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-2, 1, -1, n])/2 - S2[-2, 2, -2, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    12 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/48 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    48 - (29*S2[3, Infinity]*S2[-1, 1, -1, n])/192 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/4 + S2[-1, 1, -1, n]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[-1, 1, 1, n]^2/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (S2[1, n]^2*S2[1, 2, -1, n])/2 + 
   (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/12 + (S2[2, Infinity]*S2[2, 1, -1, n])/6 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/6 - (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/
    2 - (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + S2[1, n]*S2[3, 1, 1, n] + 3*S2[4, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 2*S2[2, Infinity]*
    S2[-1, 1, 1, 1, Infinity] - (7*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/
    2 - S2[1, n]*S2[2, 1, 1, 1, n] - S2[2, 2, 1, 1, n]/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] - S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - 4*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + 2*Half[S2[1, n], n]*
    S2[1, 1, -1, -1, -1, n] - 2*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 
   S2[1, 1, 1, -1, -2, n] + S2[2, 1, 1, 1, 1, n] - 
   S2[-1, -1, 1, 1, -1, -1, n] - S2[-1, 1, -1, 1, -1, -1, n]/2 + 
   S2[-1, 1, -1, 1, 1, 1, n]/2 - 2*S2[-1, 1, 1, -1, -1, -1, n] - 
   S2[-1, 1, 1, 1, -1, 1, n]/2 + S2[1, -1, -1, -1, 1, -1, n]/2 + 
   S2[1, -1, -1, 1, -1, -1, n]/2 - S2[1, 1, -1, -1, -1, -1, n] - 
   S2[1, 1, 1, -1, 1, -1, n]/2 - 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -1, 2, -2, n] -> (13*Diff[Half[S2[1, n], n], n, 2]^2)/64 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   Diff[Half[S2[1, n], n], n, 5]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 3])/96 - Diff[Half[S2[4, 1, n], n], n, 1]/
    16 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   (53*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (205*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 - 
   (133*Diff[S2[1, n], n, 1]^3)/48 - (27*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (47*Diff[S2[1, n], n, 2]^2)/96 - 
   (133*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/144 + 
   (443*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (173*Diff[S2[1, n], n, 5])/2880 + Diff[S2[-4, 1, n], n, 1] + 
   (11*Diff[S2[-3, 1, n], n, 2])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (7*Diff[S2[-2, 1, n], n, 3])/24 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   (19*Diff[S2[-1, 1, n], n, 4])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[2, 1, n], n, 3]/6 + Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-2, 1, -2, n], n, 1]/4 - Diff[S2[-2, 1, -1, n], n, 2]/4 + 
   Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/8 + Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -1, n], n, 2]/8 - Diff[S2[-1, 1, -1, 1, n], n, 2]/8 + 
   Diff[S2[2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] + Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    4 - Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], 
    n, 1] - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (19*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 - (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    16 - (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 - 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 + 
   (5*Half[S2[2, 1, n], n]^2)/64 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 - S2[-1, Infinity]^6/180 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 - (35*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (95*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (17*Diff[S2[1, n], n, 4]*S2[1, n])/72 + 
   (11*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 - 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 - Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] + (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/3 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (59*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (47*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 + 
   (S2[-1, Infinity]^5*S2[1, n])/80 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/6 + 
   (65*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (103*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/48 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    48 - (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    6 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 + (2*Half[S2[1, n], n]^2*S2[1, n]^4)/
    3 - (Half[S2[1, n], n]*S2[1, n]^5)/2 + (7*S2[1, n]^6)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 + 
   (281*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/12 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 + (17*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (71*Diff[S2[1, n], n, 3]*S2[2, Infinity])/72 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 + 
   (33*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/12 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/4 - 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (21*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (175*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (49*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (127*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 + (197*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (43*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 - 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (11*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (3*S2[1, n]^4*S2[2, Infinity])/16 + 
   (409*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (697*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/120 - 
   (569*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (119*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (1117*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (157*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (667*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (997*S2[1, n]^2*S2[2, Infinity]^2)/960 + (28711*S2[2, Infinity]^3)/6720 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/8 + 
   (83*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 + 
   (115*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/64 + 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/48 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/48 - 
   (53*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/192 + 
   (13*S2[1, n]^3*S2[3, Infinity])/24 + 
   (325*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (99*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (2147*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (7787*S2[3, Infinity]^2)/3072 - (47*Half[S2[1, n], n]*S2[5, Infinity])/
    32 + (1839*S2[1, n]*S2[5, Infinity])/128 - (13*S2[-5, -1, Infinity])/4 + 
   3*S2[1, n]*S2[-4, 1, n] + (7*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    3 - (83*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   (19*S2[1, n]^2*S2[-3, 1, n])/24 + (59*S2[2, Infinity]*S2[-3, 1, n])/24 + 
   Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n] - 
   (9*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/4 - 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/3 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/12 - 
   (S2[1, n]^3*S2[-2, 1, n])/6 + (23*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    8 - (59*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (5*S2[3, Infinity]*S2[-2, 1, n])/32 + (5*S2[-2, 1, n]^2)/4 + 
   (47*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 + 
   (23*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (65*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 + 
   (2*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/24 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (3*S2[1, n]^4*S2[-1, 1, n])/8 + (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (149*S2[2, Infinity]^2*S2[-1, 1, n])/120 - 
   (37*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (71*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/6 + (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/12 - (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/24 - 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/48 - (S2[2, Infinity]*S2[-1, 1, n]^2)/24 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 - 
   (35*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/8 - (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/
    8 + (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (19*S2[1, n]^3*S2[2, 1, n])/24 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (47*S2[3, Infinity]*S2[2, 1, n])/96 + (5*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + (5*S2[2, 1, n]^2)/4 - 
   S2[-3, -2, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + S2[-2, 2, -2, n]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 + (11*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 - 
   (3*S2[1, n]^3*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (17*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (131*S2[3, Infinity]*S2[-1, 1, -1, n])/192 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/4 + S2[-1, 1, -1, n]^2/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[1, n]^3*S2[-1, 1, 1, n] - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[-1, 1, 1, n]^2/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (S2[1, n]^2*S2[1, 2, -1, n])/2 + 
   2*S2[2, Infinity]*S2[1, 2, -1, n] + 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/3 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/12 + (17*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 + (S2[-1, 1, n]*S2[2, 1, -1, n])/3 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] - 
   2*S2[2, Infinity]*S2[2, 1, 1, n] - S2[1, n]*S2[3, 1, 1, n] - 
   S2[-2, -2, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/
    3 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/3 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] + S2[1, n]^2*S2[-1, 1, 1, 1, n] + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/4 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (25*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[2, 1, 1, 1, n] + S2[2, 2, 1, 1, n]/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    2 - Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n] + 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - Half[S2[1, n], n]*
    S2[1, 1, -1, -1, -1, n] + S2[1, n]*S2[1, 1, -1, -1, -1, n] - 
   S2[1, 1, 1, -1, -2, n] + S2[2, 1, 1, 1, 1, n] + 
   S2[-1, -1, 1, 1, -1, -1, n] + S2[-1, 1, -1, -1, -1, 1, n]/2 + 
   S2[-1, 1, -1, 1, -1, -1, n]/2 + S2[-1, 1, -1, 1, 1, 1, n]/2 + 
   2*S2[-1, 1, 1, -1, -1, -1, n] - S2[-1, 1, 1, 1, -1, 1, n]/2 + 
   4*S2[-1, 1, 1, 1, 1, 1, Infinity] - S2[1, -1, -1, -1, 1, -1, n] - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/2 - S2[1, -1, 1, -1, -1, -1, n] - 
   S2[1, 1, -1, -1, -1, -1, n] - S2[1, 1, 1, -1, 1, -1, n]/2 - 
   2*S2[1, 1, 1, 1, -1, -1, n], S2[1, -1, 2, 2, n] -> 
  (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   Diff[S2[1, n], n, 1]^3/2 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   Diff[S2[-1, 1, n], n, 4]/24 + Diff[S2[-1, 1, 1, n], n, 3]/6 + 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 + S2[-1, Infinity]^6/720 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - Diff[S2[-1, 1, 1, 1, n], n, 1]*
    S2[1, n] + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (S2[-1, Infinity]^5*S2[1, n])/120 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 + (Diff[S2[1, n], n, 3]*S2[1, n]^2)/6 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/3 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/6 + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (S2[1, n]^4*S2[2, Infinity])/6 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/5 + (109*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (2*S2[-1, Infinity]^2*S2[2, Infinity]^2)/5 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (4*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (89*S2[1, n]^2*S2[2, Infinity]^2)/80 - (551*S2[2, Infinity]^3)/560 - 
   (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (S2[1, n]^3*S2[3, Infinity])/6 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/3 - (S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    2 + (S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/6 - 
   (13*S2[3, Infinity]^2)/24 - (15*S2[1, n]*S2[5, Infinity])/16 - 
   S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] + Diff[S2[1, n], n, 1]*S2[-3, 1, n] - 
   S2[1, n]^2*S2[-3, 1, n] - S2[2, Infinity]*S2[-3, 1, n] - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 + (S2[1, n]^3*S2[-2, 1, n])/3 - 
   (S2[3, Infinity]*S2[-2, 1, n])/3 - (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[2, Infinity]^2*S2[-1, 1, n])/5 + S2[-4, 1, 1, n] + 
   S2[1, n]*S2[-3, 1, 1, n] + S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - (S2[1, n]^2*S2[1, 2, -1, n])/
    2 - (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - (S2[1, n]^2*S2[2, 1, -1, n])/
    2 - (S2[2, Infinity]*S2[2, 1, -1, n])/2 - S2[-3, 1, 1, 1, n] - 
   S2[1, n]*S2[-2, 1, 1, 1, n] - S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + S2[-2, 1, 1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - S2[1, 1, 1, -1, 2, n] - 
   S2[-1, 1, 1, 1, 1, 1, Infinity], S2[1, -1, -1, -3, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/3 - (13*Diff[Half[S2[1, n], n], n, 2]^2)/
    48 - (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    24 + (61*Diff[Half[S2[1, n], n], n, 5])/360 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/6 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 + 
   Diff[S2[1, n], n, 1]^3/24 - (17*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (4*Diff[S2[1, n], n, 2]^2)/3 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (85*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (61*Diff[S2[1, n], n, 5])/360 - 5*Diff[S2[-4, 1, n], n, 1] - 
   (17*Diff[S2[-3, 1, n], n, 2])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   Diff[S2[-2, 1, n], n, 3]/12 - (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 - 
   (19*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   Diff[S2[-1, 1, n], n, 1]^2/2 - (29*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/24 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   Diff[S2[-1, 1, n], n, 4]/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (5*Diff[S2[-3, 1, 1, n], n, 1])/2 - Diff[S2[-1, -2, -1, n], n, 2]/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/12 + (3*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 2])/12 - Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/12 - Diff[S2[-1, 1, 1, 1, n], n, 2]/
    2 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/
    2 + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, -1, 1, -1, -1, n], 
    n, 1] + (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 - (19*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/4 + (121*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    6 - (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/6 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    12 + (47*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 - (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/12 + 
   Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/6 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/2 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 - S2[-1, Infinity]^6/1440 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/6 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (19*Diff[S2[1, n], n, 4]*S2[1, n])/48 + 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/2 - Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] + (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 + (65*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (27*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (S2[-1, Infinity]^5*S2[1, n])/240 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (33*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (11*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (19*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + Diff[S2[-1, 1, -1, n], n, 1]*
    S2[1, n]^2 + (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    48 + (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/6 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 + (Half[S2[1, n], n]^2*S2[1, n]^4)/2 - 
   (Half[S2[1, n], n]*S2[1, n]^5)/2 + S2[1, n]^6/6 - 
   (53*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    6 - (227*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 + 
   (35*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (61*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity] + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (13*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (13*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (5*S2[1, n]^4*S2[2, Infinity])/24 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/40 + 
   (35*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 - 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/16 + 
   (113*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (121*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (181*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (79*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (149*S2[1, n]^2*S2[2, Infinity]^2)/80 - (2993*S2[2, Infinity]^3)/1120 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/48 - 
   (49*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 + 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/96 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (97*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (27*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (43*S2[1, n]^3*S2[3, Infinity])/96 + 
   (227*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (29*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (407*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (1091*S2[3, Infinity]^2)/384 - (Half[S2[1, n], n]*S2[5, Infinity])/64 + 
   (477*S2[1, n]*S2[5, Infinity])/128 - (11*S2[-5, -1, Infinity])/8 - 
   8*S2[-5, 1, n] + 2*S2[1, n]*S2[-4, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (15*S2[1, n]^2*S2[-3, 1, n])/8 + (3*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (2*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 - Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-2, 1, n] + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/
    4 + 2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/6 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (23*S2[3, Infinity]*S2[-2, 1, n])/48 - 
   (47*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 - 
   (125*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 + 
   (13*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/12 + 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n] + (S2[1, n]^4*S2[-1, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (33*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (189*S2[2, Infinity]^2*S2[-1, 1, n])/80 + 
   (15*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (41*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (9*S2[-3, 1, n]*S2[-1, 1, n])/8 - (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/8 + (S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   S2[-1, 1, n]^3/24 - Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] + 
   Diff[S2[1, n], n, 2]*S2[2, 1, n] - Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]^3*S2[2, 1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (5*S2[3, Infinity]*S2[2, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 4*S2[-4, 1, 1, n] + 
   2*S2[1, n]*S2[-3, 1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[-2, 1, -1, n] - Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/2 + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/8 - (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (5*S2[3, Infinity]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (15*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - (S2[2, 1, n]*S2[-1, 1, 1, n])/
    2 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, 2, -1, n] + (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/4 - S2[2, Infinity]*S2[1, 2, -1, n] - 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 + (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/2 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/8 - 
   (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 
   Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] + 
   (3*S2[2, Infinity]*S2[2, 1, 1, n])/4 + S2[-1, 1, n]*S2[2, 1, 1, n] + 
   S2[3, 1, -2, n]/2 - 2*S2[-3, 1, 1, 1, n] + (S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 + S2[-2, 2, 1, 1, n]/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, 1, n])/2 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    8 + (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - (S2[1, n]*S2[1, 1, 2, -1, n])/
    2 + S2[2, -2, 1, 1, n]/2 - S2[-2, 1, 1, 1, 1, n]/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 - S2[1, -1, 1, 1, 2, n]/2 + (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/
    2 - (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - S2[1, 1, -1, 1, 2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 - S2[1, 1, 1, -1, 2, n] + 
   S2[1, 1, 2, -1, 1, n]/2 + S2[-1, 1, 1, -1, -1, 1, n]/2 + 
   S2[-1, 1, 1, 1, 1, 1, Infinity]/2 - S2[1, -1, -1, 1, 1, -1, n]/2 + 
   S2[1, -1, 1, 1, -1, -1, n]/2 + S2[1, 1, -1, -1, 1, -1, n]/2 + 
   S2[1, 1, -1, 1, -1, -1, n] + (3*S2[1, 1, 1, -1, -1, -1, n])/2, 
 S2[1, -1, -1, 3, n] -> Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (19*Diff[Half[S2[1, n], n], n, 2]^2)/128 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 - 
   (43*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 + 
   (397*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (91*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (15*Diff[S2[1, n], n, 1]^3)/16 + (139*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (389*Diff[S2[1, n], n, 2]^2)/192 + 
   (821*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (781*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (1357*Diff[S2[1, n], n, 5])/5760 + Diff[S2[-4, 1, n], n, 1] + 
   (13*Diff[S2[-3, 1, n], n, 2])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (13*Diff[S2[-2, 1, n], n, 3])/48 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (21*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (115*Diff[S2[-1, 1, n], n, 4])/192 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   Diff[S2[2, 1, n], n, 3]/12 + Diff[S2[-3, 1, 1, n], n, 1]/2 + 
   Diff[S2[-2, 1, -2, n], n, 1]/8 + (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - 
   Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (13*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/16 - (7*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (9*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (3*Diff[S2[2, 1, 1, n], n, 2])/8 + Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    16 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    4 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 - 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 + (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (65*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (185*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (23*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (17*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 + (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (11*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 + (9*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    64 - (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (23*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/4 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   (9*Half[S2[2, 1, n], n]^2)/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/96 - S2[-1, Infinity]^6/96 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 + (263*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 - 
   (395*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (13*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (35*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (73*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (19*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (17*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (43*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (209*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 + 
   (S2[-1, Infinity]^5*S2[1, n])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/12 + 
   (19*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/12 + 
   (319*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (43*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    96 - (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (29*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/24 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    24 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/6 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    24 - S2[1, n]^6/96 - (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 + (79*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (85*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (149*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 + (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (61*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/12 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (33*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (27*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (47*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (37*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (29*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 - (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (7*S2[1, n]^4*S2[2, Infinity])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/32 - 
   (1733*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (349*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/64 + 
   (369*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 - 
   (1073*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (59*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/64 + 
   (3161*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (7895*S2[2, Infinity]^3)/2688 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (249*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (53*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (521*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (593*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (73*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (653*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (497*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/24 - 
   (289*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (35*S2[1, n]^3*S2[3, Infinity])/48 + 
   (521*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (255*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (1169*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (23047*S2[3, Infinity]^2)/6144 - (203*Half[S2[1, n], n]*S2[5, Infinity])/
    64 - (613*S2[1, n]*S2[5, Infinity])/256 - (23*S2[-5, -1, Infinity])/4 - 
   (3*S2[1, n]*S2[-4, 1, n])/2 + (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/48 - (23*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (47*S2[1, n]^2*S2[-3, 1, n])/48 + (73*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (9*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/3 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (S2[1, n]^3*S2[-2, 1, n])/12 + (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (27*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (67*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (73*S2[3, Infinity]*S2[-2, 1, n])/64 + (9*S2[-2, 1, n]^2)/8 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (131*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (S2[1, n]^4*S2[-1, 1, n])/16 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (19*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (13*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (17*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (517*S2[2, Infinity]^2*S2[-1, 1, n])/240 - 
   (65*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (149*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/6 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/24 - (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/12 - 
   (11*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (31*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (33*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (133*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (9*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (S2[1, n]^3*S2[2, 1, n])/48 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (27*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (187*S2[3, Infinity]*S2[2, 1, n])/192 + (9*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (9*S2[2, 1, n]^2)/8 - 
   (S2[1, n]*S2[4, 1, n])/2 + S2[-3, -2, 1, n]/2 + 
   (S2[1, n]*S2[-2, 1, -2, n])/4 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (3*S2[-2, 2, -2, n])/8 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/48 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/48 + 
   (13*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 - 
   (3*S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (451*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (5*S2[-1, 1, -1, n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[-1, 1, 1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + (S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (17*S2[1, n]^2*S2[2, 1, -1, n])/24 + (13*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[2, Infinity]*S2[2, 1, 1, n])/2 + S2[1, n]*S2[3, 1, 1, n] + 
   (3*S2[4, 1, 1, n])/2 + S2[-2, -2, 1, 1, n]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 - 
   (5*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 - (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (39*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - (S2[1, n]*S2[1, 1, -2, -1, n])/
    2 + (S2[1, n]*S2[2, 1, 1, 1, n])/2 - S2[2, 2, 1, 1, n]/2 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 - S2[1, -1, 1, 1, -2, n]/2 + 
   S2[1, 1, -2, -1, 1, n]/2 + (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, 1, -1, -2, n] - S2[2, 1, 1, 1, 1, n]/2 + 
   S2[-1, -1, 1, 1, -1, -1, n]/2 + (3*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   S2[-1, 1, -1, 1, -1, -1, n]/4 - S2[-1, 1, -1, 1, 1, 1, n]/4 + 
   S2[-1, 1, 1, -1, -1, -1, n] + S2[-1, 1, 1, 1, -1, 1, n]/4 + 
   (15*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - S2[1, -1, -1, -1, 1, -1, n] - 
   (7*S2[1, -1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, -1, -1, -1, n])/2 - 
   (5*S2[1, 1, -1, -1, -1, -1, n])/2 + S2[1, 1, 1, -1, 1, -1, n]/4 + 
   S2[1, 1, 1, 1, -1, -1, n], S2[1, -1, 1, -3, n] -> 
  Diff[Half[S2[1, n], n], n, 2]^2/128 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 - 
   (5*Diff[Half[S2[1, n], n], n, 5])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 3])/64 + Diff[Half[S2[4, 1, n], n], n, 1]/
    32 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (191*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 + 
   (79*Diff[S2[1, n], n, 1]^3)/96 + (53*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (39*Diff[S2[1, n], n, 2]^2)/64 + 
   (149*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (589*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (143*Diff[S2[1, n], n, 5])/1920 - Diff[S2[-4, 1, n], n, 1]/2 - 
   (17*Diff[S2[-3, 1, n], n, 2])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (5*Diff[S2[-2, 1, n], n, 3])/16 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/32 + 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (53*Diff[S2[-1, 1, n], n, 4])/192 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (5*Diff[S2[2, 1, n], n, 3])/24 - Diff[S2[4, 1, n], n, 1]/2 - 
   Diff[S2[-2, 1, -2, n], n, 1]/8 + (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - 
   (3*Diff[S2[-1, -2, -1, n], n, 2])/32 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/16 - (3*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   (3*Diff[S2[2, 1, -1, n], n, 2])/16 + (5*Diff[S2[2, 1, 1, n], n, 2])/8 + 
   Diff[S2[3, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, 1, n], n, 2]/16 - 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    4 - Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (23*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (41*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/288 - 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (25*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/
    32 - (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 - (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   (3*Half[S2[2, 1, n], n]^2)/128 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/80 - S2[-1, Infinity]^6/720 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 + (49*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (11*Diff[S2[1, n], n, 4]*S2[1, n])/72 - 
   (Diff[S2[-3, 1, n], n, 1]*S2[1, n])/6 + 
   (19*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 - 
   (13*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 + Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/48 - 
   (49*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (29*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (S2[-1, Infinity]^5*S2[1, n])/60 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (59*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (29*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (43*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (53*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    24 - (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/3 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    2 + (5*Half[S2[1, n], n]*S2[1, n]^5)/12 - (13*S2[1, n]^6)/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 - 
   (217*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (23*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (167*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (73*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/192 + 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (59*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 + 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (39*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (9*S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (137*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (109*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (161*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (145*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (41*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 + (13*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 - (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (17*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (5*S2[1, n]^4*S2[2, Infinity])/96 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 + 
   (169*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/120 + 
   (799*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (449*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (759*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (1411*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (1237*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (449*S2[1, n]^2*S2[2, Infinity]^2)/384 - (359*S2[2, Infinity]^3)/384 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/8 + 
   (55*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (117*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (79*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (63*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (21*S2[1, n]^3*S2[3, Infinity])/64 - 
   (285*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (477*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (1499*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (1673*S2[3, Infinity]^2)/2048 - (93*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (2663*S2[1, n]*S2[5, Infinity])/256 - S2[-5, -1, Infinity]/8 - 
   (3*S2[1, n]*S2[-4, 1, n])/2 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/24 + (49*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (5*S2[1, n]^2*S2[-3, 1, n])/48 - (7*S2[2, Infinity]*S2[-3, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 + 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (S2[1, n]^3*S2[-2, 1, n])/6 - (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (49*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (3*S2[3, Infinity]*S2[-2, 1, n])/64 - (3*S2[-2, 1, n]^2)/8 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (37*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (11*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 + (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 - 
   (19*S2[1, n]^4*S2[-1, 1, n])/48 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (19*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (697*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (61*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (65*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (29*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 - (9*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (11*S2[1, n]^3*S2[2, 1, n])/16 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (35*S2[3, Infinity]*S2[2, 1, n])/64 - (3*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - (3*S2[2, 1, n]^2)/8 + 
   (S2[1, n]*S2[4, 1, n])/2 + S2[-3, -2, 1, n]/2 + 
   (S2[1, n]*S2[-2, 1, -2, n])/4 - (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/
    4 - (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   S2[-2, 2, -2, n]/8 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    24 + (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 - (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   (11*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (43*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (33*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   S2[1, n]^3*S2[-1, 1, 1, n] - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (75*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + (3*S2[-1, 1, 1, n]^2)/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (3*S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/12 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 + 
   (13*S2[1, n]^2*S2[2, 1, -1, n])/24 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/12 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   S2[1, n]^2*S2[2, 1, 1, n] + (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   2*S2[1, n]*S2[3, 1, 1, n] + (5*S2[4, 1, 1, n])/2 + S2[-2, -2, 1, 1, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 - (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - S2[2, Infinity]*
    S2[-1, 1, 1, 1, Infinity] + (11*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/
    4 - (S2[1, n]*S2[1, 1, -2, -1, n])/2 + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   S2[2, 2, 1, 1, n] + (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, -2, n]/2 + 
   S2[1, 1, -2, -1, 1, n]/2 + Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] - S2[1, 1, -1, 1, -2, n] - 
   (3*S2[2, 1, 1, 1, 1, n])/2 - S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 - (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   S2[-1, 1, 1, 1, 1, 1, Infinity] + S2[1, -1, -1, -1, 1, -1, n]/4 + 
   S2[1, -1, -1, 1, -1, -1, n]/4 - S2[1, 1, -1, -1, -1, -1, n]/2 + 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -1, 1, 3, n] -> (41*Diff[Half[S2[1, n], n], n, 5])/240 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 - 
   (9*Diff[S2[1, n], n, 1]^3)/8 - (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (13*Diff[S2[1, n], n, 2]^2)/8 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 - 
   (41*Diff[S2[1, n], n, 5])/240 - (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, n], n, 2]/4 - Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + Diff[S2[-2, 1, n], n, 3]/3 - 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (23*Diff[S2[-1, 1, n], n, 4])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   2*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-1, 1, 1, n], n, 3]/3 + 
   Diff[S2[1, 2, -1, n], n, 2]/2 + Diff[S2[2, 1, -1, n], n, 2]/2 - 
   Diff[S2[-2, 1, 1, 1, n], n, 1] - (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 - (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/
    2 + (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + S2[-1, Infinity]^6/288 - 
   (3*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/4 + 
   3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   Diff[S2[1, n], n, 4]*S2[1, n] + Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 3*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   (11*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^5*S2[1, n])/240 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (31*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (101*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (29*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 + 
   (25*S2[-1, Infinity]^2*S2[2, Infinity]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/2 - 
   (13*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (61*S2[2, Infinity]^3)/210 + (Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/4 - (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 - 
   (15*S2[1, n]^3*S2[3, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/2 + 
   (99*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/4 - 
   (95*S2[3, Infinity]^2)/256 + (1199*S2[1, n]*S2[5, Infinity])/128 + 
   (3*S2[-5, -1, Infinity])/8 - S2[-5, 1, n] + 3*S2[1, n]*S2[-4, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - (3*S2[1, n]^2*S2[-3, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-3, 1, n])/4 - (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    4 + Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (S2[1, n]^3*S2[-2, 1, n])/2 + (S2[3, Infinity]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[2, Infinity]^2*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (S2[1, n]^3*S2[2, 1, n])/2 + (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 3*S2[-4, 1, 1, n] + 
   3*S2[1, n]*S2[-3, 1, 1, n] - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - 2*S2[3, Infinity]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + (3*S2[1, n]^2*S2[1, 2, -1, n])/
    4 - (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + (S2[1, n]*S2[2, 1, -2, n])/
    2 - (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/4 - (3*S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 - 2*S2[-3, 1, 1, 1, n] + (3*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 + S2[-2, 2, 1, 1, n]/2 + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 - (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - S2[1, -1, 1, 1, 2, n]/2 - 
   S2[1, 1, -1, 1, 2, n] + S2[1, 1, 2, -1, 1, n]/2 - 
   (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, S2[1, 1, -3, -1, n] -> 
  -Diff[S2[1, 1, -2, -1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/4 - 
   (61*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 - 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/8 + 
   (61*S2[1, n]^2*S2[2, Infinity]^2)/80 + (253*S2[2, Infinity]^3)/240 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/4 - 
   (27*S2[3, Infinity]^2)/16 + (53*S2[1, n]*S2[5, Infinity])/64 + 
   (5*S2[-5, -1, Infinity])/2 - (Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/2 + (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (S2[2, Infinity]*S2[2, 1, -1, n])/2 - 2*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + 2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + S2[1, n]*S2[1, 1, -2, -1, n] - 
   S2[1, 1, -2, -1, 1, n] - S2[1, 1, -2, 1, -1, n] - 
   3*S2[1, 1, 1, -2, -1, n], S2[1, 1, -3, 1, n] -> 
  2*Diff[S2[-4, 1, n], n, 1] + Diff[S2[-3, 1, n], n, 2]/2 + 
   2*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/2 - (13*S2[2, Infinity]^3)/35 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/4 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (29*S2[3, Infinity]^2)/16 - (83*S2[1, n]*S2[5, Infinity])/16 + 
   3*S2[-5, 1, n] - 2*S2[1, n]*S2[-4, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + (S2[1, n]^2*S2[-3, 1, n])/2 - 
   (3*S2[2, Infinity]*S2[-3, 1, n])/2 + 4*S2[-4, 1, 1, n] - 
   2*S2[1, n]*S2[-3, 1, 1, n] + 3*S2[-3, 1, 1, 1, n] - 
   6*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity], 
 S2[1, 1, 3, -1, n] -> -Diff[S2[1, 1, 2, -1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/12 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 + 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 + 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/8 - 
   (15*S2[1, n]^2*S2[2, Infinity]^2)/16 + (35*S2[2, Infinity]^3)/48 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (75*S2[3, Infinity]^2)/64 + (177*S2[1, n]*S2[5, Infinity])/64 - 
   (5*S2[-5, -1, Infinity])/2 + (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (S2[2, Infinity]*S2[2, 1, 1, n])/2 + 2*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - 2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]*S2[1, 1, 2, -1, n] - 3*S2[1, 1, 1, 2, -1, n] - 
   S2[1, 1, 2, -1, 1, n] - S2[1, 1, 2, 1, -1, n], 
 S2[1, 1, 3, 1, n] -> -Diff[S2[1, n], n, 1]^3/8 - Diff[S2[1, n], n, 2]^2/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   Diff[S2[1, n], n, 5]/240 + (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/
    4 - Diff[S2[2, 1, n], n, 3]/8 + Diff[S2[4, 1, n], n, 1]/2 - 
   (3*Diff[S2[2, 1, 1, n], n, 2])/4 - Diff[S2[3, 1, 1, n], n, 1] - 
   (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 + (Diff[S2[2, 1, n], n, 2]*S2[1, n])/
    2 - (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/4 + 
   (S2[1, n]^2*S2[2, Infinity]^2)/4 - (33*S2[2, Infinity]^3)/140 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 + S2[3, Infinity]^2 + 
   (9*S2[1, n]*S2[5, Infinity])/2 - 2*S2[1, n]*S2[4, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 2*S2[1, n]*S2[3, 1, 1, n] - 
   2*S2[4, 1, 1, n] + (3*S2[2, 2, 1, 1, n])/2, 
 S2[1, 1, -2, -2, n] -> Diff[Half[S2[1, n], n], n, 2]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 - 
   (5*Diff[S2[1, n], n, 1]^3)/4 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (3*Diff[S2[1, n], n, 2]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/8 - 
   (3*Diff[S2[1, n], n, 5])/160 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2] - 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] + 
   Diff[S2[2, 1, n], n, 3]/12 - Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[-2, 1, -2, n], n, 1]/4 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/16 + (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/
    2 + (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] + Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] - (Diff[S2[2, 1, n], n, 2]*S2[1, n])/
    4 + Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] - Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   Diff[S2[1, n], n, 1]^2*S2[2, Infinity] - 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/4 - (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/
    4 + (113*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (179*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]^2)/2 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/4 + 
   (13*S2[1, n]^2*S2[2, Infinity]^2)/80 + (1647*S2[2, Infinity]^3)/2240 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (25*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (17*S2[3, Infinity]^2)/64 + (75*S2[1, n]*S2[5, Infinity])/16 + 
   3*S2[1, n]*S2[-4, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + (S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1]*S2[-1, 1, n] + Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   S2[1, n]*S2[4, 1, n] - S2[-3, -2, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   S2[-2, 2, -2, n]/4 + Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + (S2[2, Infinity]*S2[1, 2, -1, n])/
    2 + Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n] - 
   Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + (S2[2, Infinity]*S2[2, 1, -1, n])/
    2 + S2[4, 1, 1, n] - S2[-2, -2, 1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/
    2, S2[1, 1, -2, 2, n] -> Diff[Half[S2[1, n], n], n, 5]/3 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 - 
   3*Diff[S2[1, n], n, 1]^3 - 3*Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 2] + 3*Diff[S2[1, n], n, 2]^2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3] + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 - 
   Diff[S2[1, n], n, 5]/3 - Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/2 - (5*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 + (5*Diff[S2[-2, 1, n], n, 3])/6 - 
   3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1] - 
   4*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] + 
   Diff[S2[-1, 1, n], n, 4] - 3*Diff[S2[-3, 1, 1, n], n, 1] - 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, 1, n], n, 3] + Diff[S2[1, 2, -1, n], n, 2] + 
   Diff[S2[2, 1, -1, n], n, 2] - 2*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/6 + 
   3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   10*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (4*Diff[S2[1, n], n, 4]*S2[1, n])/3 - 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + 3*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 2*Diff[S2[-1, 1, n], n, 3]*S2[1, n] - 
   Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n] - Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] - 
   2*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] + 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   3*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - 2*Diff[S2[1, n], n, 3]*S2[1, n]^2 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + Diff[S2[-1, 1, n], n, 2]*
    S2[1, n]^2 - Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 + 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 1]^2*S2[2, Infinity] + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/2 - (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*
     S2[2, Infinity])/2 - Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
    S2[2, Infinity] - (5*S2[-1, Infinity]^4*S2[2, Infinity])/24 + 
   Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/2 - 
   (41*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]^2)/2 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 - 
   (37*S2[1, n]^2*S2[2, Infinity]^2)/80 + (17*S2[2, Infinity]^3)/1680 - 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/4 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/4 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (43*S2[3, Infinity]^2)/32 + (73*S2[1, n]*S2[5, Infinity])/32 - 
   2*S2[-5, 1, n] - S2[1, n]^2*S2[-3, 1, n] + S2[2, Infinity]*S2[-3, 1, n] - 
   Diff[S2[1, n], n, 2]*S2[-2, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-2, 1, n] + Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] - 
   Diff[S2[1, n], n, 3]*S2[-1, 1, n] + Diff[S2[1, n], n, 2]*S2[1, n]*
    S2[-1, 1, n] + Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   4*S2[-4, 1, 1, n] + 2*S2[1, n]*S2[-3, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - S2[2, Infinity]*S2[1, 2, -1, n] - 
   Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] - S2[2, Infinity]*S2[2, 1, -1, n] - 
   4*S2[-3, 1, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + S2[2, -2, 1, 1, n], 
 S2[1, 1, 2, -2, n] -> (-11*Diff[Half[S2[1, n], n], n, 5])/60 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 + 
   Diff[S2[1, n], n, 1]^3 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (7*Diff[S2[1, n], n, 2]^2)/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/12 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   (11*Diff[S2[1, n], n, 5])/60 + 4*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2] + (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/
    2 - Diff[S2[-2, 1, n], n, 3]/6 + 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 - 
   Diff[S2[-1, 1, n], n, 4]/2 + 2*Diff[S2[-3, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, 1, n], n, 3]/2 - Diff[S2[1, 2, -1, n], n, 2]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/4 + 
   (2*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (11*Diff[S2[1, n], n, 4]*S2[1, n])/12 - 2*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] + (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/2 + Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] + 
   Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] + Diff[S2[1, n], n, 1]^2*
    Half[S2[1, n], n]*S2[1, n] - Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*
    S2[1, n] - (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/2 + 
   (19*Diff[S2[1, n], n, 3]*S2[1, n]^2)/12 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - Diff[S2[-1, 1, n], n, 2]*
    S2[1, n]^2 + Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 - 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/2 + 
   (3*S2[1, n]^2*S2[2, Infinity]^2)/80 - (73*S2[2, Infinity]^3)/336 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/4 + 
   (33*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (177*S2[3, Infinity]^2)/64 - (331*S2[1, n]*S2[5, Infinity])/32 + 
   5*S2[-5, 1, n] - 4*S2[1, n]*S2[-4, 1, n] - Diff[S2[1, n], n, 1]*
    S2[-3, 1, n] + S2[1, n]^2*S2[-3, 1, n] - S2[2, Infinity]*S2[-3, 1, n] + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/2 - Diff[S2[1, n], n, 2]*S2[1, n]*
    S2[-1, 1, n] + 4*S2[-4, 1, 1, n] - 2*S2[1, n]*S2[-3, 1, 1, n] - 
   S2[1, n]*S2[2, 1, -2, n] - Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n] - S2[-2, 2, 1, 1, n] - 6*S2[2, Infinity]*
    S2[-1, 1, 1, 1, Infinity], S2[1, 1, 2, 2, n] -> 
  Diff[S2[1, n], n, 1]^3/12 + Diff[S2[1, n], n, 2]^2/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   Diff[S2[1, n], n, 5]/144 + Diff[S2[3, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 + Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    24 - (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 + 
   (7*S2[1, n]^2*S2[2, Infinity]^2)/20 - (293*S2[2, Infinity]^3)/420 + 
   2*S2[1, n]*S2[2, Infinity]*S2[3, Infinity] - S2[3, Infinity]^2 - 
   (9*S2[1, n]*S2[5, Infinity])/2 - S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + S2[2, Infinity]*S2[2, 1, 1, n] + 
   2*S2[1, n]*S2[3, 1, 1, n] + 4*S2[4, 1, 1, n] - S2[2, 2, 1, 1, n], 
 S2[1, 1, -1, -3, n] -> Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/64 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (31*Diff[Half[S2[1, n], n], n, 5])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/12 + Diff[Half[S2[4, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (59*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/18 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (27*Diff[S2[1, n], n, 1]^3)/32 + (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (131*Diff[S2[1, n], n, 2]^2)/96 + 
   (511*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (1075*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (457*Diff[S2[1, n], n, 5])/2880 + Diff[S2[-4, 1, n], n, 1]/2 + 
   Diff[S2[-3, 1, n], n, 2]/4 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   Diff[S2[-2, 1, n], n, 3]/6 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (19*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (23*Diff[S2[-1, 1, n], n, 4])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (7*Diff[S2[2, 1, n], n, 3])/24 - Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   Diff[S2[-2, 1, -1, n], n, 2]/4 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - Diff[S2[2, 1, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 - Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/4 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    2 + Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/3 + (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (91*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 + 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 + (17*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 + (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/12 - 
   Half[S2[2, 1, n], n]^2/64 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/96 + S2[-1, Infinity]^6/720 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 + (23*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/72 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (247*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (5*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (55*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (7*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (35*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (55*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (47*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (S2[-1, Infinity]^5*S2[1, n])/96 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (47*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (89*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (5*Diff[S2[1, n], n, 3]*S2[1, n]^2)/36 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/3 + 
   (17*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 + 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/96 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/12 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    48 + (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    6 - (Half[S2[1, n], n]*S2[1, n]^5)/6 + S2[1, n]^6/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (13*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (67*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/12 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/3 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    48 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (7*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (S2[1, n]^4*S2[2, Infinity])/48 - (407*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/320 + (1583*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    960 - (23*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/192 + 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 - 
   (183*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (239*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 - 
   (51*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 - 
   (1039*S2[1, n]^2*S2[2, Infinity]^2)/960 - (1123*S2[2, Infinity]^3)/3360 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (155*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 - 
   (137*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/48 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (149*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (167*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (73*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 - 
   (2*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/3 + 
   (119*S2[1, n]^3*S2[3, Infinity])/192 + 
   (121*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (201*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (479*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (4255*S2[3, Infinity]^2)/3072 + (187*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (7*S2[1, n]*S2[5, Infinity])/128 + (3*S2[-5, -1, Infinity])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 + 
   (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/24 - (19*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 - 
   (S2[1, n]^3*S2[-2, 1, n])/12 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (S2[3, Infinity]*S2[-2, 1, n])/32 - S2[-2, 1, n]^2/4 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/36 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 + 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/6 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (5*S2[1, n]^4*S2[-1, 1, n])/24 - (47*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (13*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (689*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 
   (73*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (121*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/48 - (7*S2[2, Infinity]*S2[-1, 1, n]^2)/12 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (7*S2[1, n]^3*S2[2, 1, n])/24 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (29*S2[3, Infinity]*S2[2, 1, n])/96 - (S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - S2[2, 1, n]^2/4 + 
   S2[1, n]*S2[4, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/
    4 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + S2[-2, 2, -2, n]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - S2[-1, 1, -1, n]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[-1, 1, 1, n]^2/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 + 
   (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/12 - (S2[2, Infinity]*S2[2, 1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + (S2[1, n]^2*S2[2, 1, 1, n])/
    2 - (S2[2, Infinity]*S2[2, 1, 1, n])/2 - S2[4, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/8 + 
   (27*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (19*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[2, 1, 1, 1, n] + (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 + (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - S2[1, 1, 1, -1, -2, n] + 
   S2[2, 1, 1, 1, 1, n] - S2[-1, 1, -1, -1, -1, 1, n]/4 + 
   S2[-1, 1, -1, 1, 1, 1, n]/2 - S2[-1, 1, 1, 1, -1, 1, n]/2 - 
   S2[-1, 1, 1, 1, 1, 1, Infinity] + S2[1, -1, -1, -1, 1, -1, n]/4 + 
   S2[1, -1, -1, 1, -1, -1, n]/2 + S2[1, -1, 1, -1, -1, -1, n]/2 + 
   S2[1, 1, -1, -1, -1, -1, n] - S2[1, 1, 1, -1, 1, -1, n]/2 - 
   2*S2[1, 1, 1, 1, -1, -1, n], S2[1, 1, -1, 3, n] -> 
  -Diff[Half[S2[1, n], n], n, 5]/12 + 
   (2*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 + 
   Diff[S2[1, n], n, 1]^3 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (3*Diff[S2[1, n], n, 2]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   Diff[S2[1, n], n, 5]/12 + Diff[S2[-4, 1, n], n, 1]/2 - 
   Diff[S2[-3, 1, n], n, 2]/4 + (3*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 - Diff[S2[-2, 1, n], n, 3]/4 + 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, n], n, 4]/4 + Diff[S2[-3, 1, 1, n], n, 1]/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/6 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 + Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - Diff[S2[1, n], n, 1]*
    Diff[S2[1, n], n, 2]*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^6/720 + 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/12 + Diff[S2[-3, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (2*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/3 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - Diff[S2[-1, 1, 1, 1, n], n, 1]*
    S2[1, n] + Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (S2[-1, Infinity]^5*S2[1, n])/120 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   2*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 + (11*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    12 - (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/
    3 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 + 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (S2[1, n]^4*S2[2, Infinity])/6 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/4 - (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (67*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/2 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (S2[1, n]^2*S2[2, Infinity]^2)/10 + (69*S2[2, Infinity]^3)/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 - 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 + 
   (2*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 - 
   (S2[1, n]^3*S2[3, Infinity])/3 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/6 + (95*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/32 - (67*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   (301*S2[3, Infinity]^2)/768 + 2*S2[1, n]*S2[5, Infinity] + 
   S2[-5, -1, Infinity]/2 + 2*S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] - 
   (S2[1, n]^2*S2[-3, 1, n])/2 + (S2[2, Infinity]*S2[-3, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-2, 1, n] + (S2[1, n]^3*S2[-2, 1, n])/3 - 
   (S2[3, Infinity]*S2[-2, 1, n])/3 - (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/
    2 + (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[2, Infinity]^2*S2[-1, 1, n])/2 - S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] + S2[-4, 1, 1, n] + S2[1, n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + S2[3, Infinity]*S2[-1, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - (S2[1, n]^2*S2[1, 2, -1, n])/
    2 + (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - (S2[1, n]^2*S2[2, 1, -1, n])/
    2 + (S2[2, Infinity]*S2[2, 1, -1, n])/2 + S2[-3, 1, 1, 1, n] - 
   S2[1, n]*S2[-2, 1, 1, 1, n] - S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (13*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - S2[2, -2, 1, 1, n]/2 + 
   S2[-2, 1, 1, 1, 1, n] - S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, 1, 1, -1, 2, n] + S2[-1, 1, 1, 1, 1, 1, Infinity], 
 S2[1, 1, 1, -3, n] -> -Diff[Half[S2[1, n], n], n, 5]/120 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/12 - 
   Diff[S2[1, n], n, 2]^2/12 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    12 + Diff[S2[1, n], n, 5]/120 - 2*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/2 - Diff[S2[-3, 1, 1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 + Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/12 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/4 - 
   (7*S2[1, n]^2*S2[2, Infinity]^2)/40 - (44*S2[2, Infinity]^3)/105 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/6 - 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/24 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (S2[1, n]^3*S2[3, Infinity])/8 + (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/8 - (5*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/4 + 
   (81*S2[3, Infinity]^2)/64 + (17*S2[1, n]*S2[5, Infinity])/4 - 
   3*S2[-5, 1, n] + 2*S2[1, n]*S2[-4, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - (S2[1, n]^2*S2[-3, 1, n])/2 + 
   (S2[2, Infinity]*S2[-3, 1, n])/2 - 2*S2[-4, 1, 1, n] + 
   S2[1, n]*S2[-3, 1, 1, n] - S2[-3, 1, 1, 1, n] + 
   3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity], 
 S2[1, 1, 1, 3, n] -> -Diff[S2[1, n], n, 1]^3/24 + 
   (7*Diff[S2[1, n], n, 2]^2)/48 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 - 
   (11*Diff[S2[1, n], n, 5])/720 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   Diff[S2[2, 1, n], n, 3]/8 - Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[2, 1, 1, 1, n], n, 1]/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/12 - (Diff[S2[2, 1, n], n, 2]*S2[1, n])/
    2 + (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (5*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + (Diff[S2[1, n], n, 2]*S2[1, n]^3)/
    12 - (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 - 
   (S2[1, n]^2*S2[2, Infinity]^2)/20 + (7*S2[2, Infinity]^3)/20 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/3 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (S2[1, n]^3*S2[3, Infinity])/6 + 
   (S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/2 - S2[3, Infinity]^2/6 - 
   (7*S2[1, n]*S2[5, Infinity])/2 + 2*S2[1, n]*S2[4, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + S2[1, n]*S2[3, 1, 1, n] - 
   S2[2, 2, 1, 1, n]/2, S2[-2, -1, -1, -1, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/96 + Diff[Half[S2[1, n], n], n, 2]^2/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 + 
   (481*Diff[Half[S2[1, n], n], n, 5])/2880 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (103*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (119*Diff[S2[1, n], n, 1]^3)/96 - (49*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (73*Diff[S2[1, n], n, 2]^2)/48 - 
   (187*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (135*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/64 - 
   (481*Diff[S2[1, n], n, 5])/2880 + Diff[S2[-3, 1, n], n, 2]/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (5*Diff[S2[-2, 1, n], n, 3])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (59*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   Diff[S2[-1, 1, n], n, 1]^2/8 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   (7*Diff[S2[-1, 1, n], n, 4])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[-3, 1, 1, n], n, 1] + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/24 + Diff[S2[1, 2, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, -1, n], n, 2]/2 - Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, 1, n], n, 
    1] - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, -1, -1, n], n, 1]/4 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (89*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (47*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/144 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    3 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/24 + 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/288 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/40 - S2[-1, Infinity]^6/480 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/2 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (77*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (121*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (103*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (155*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (101*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (77*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (233*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (3*S2[-1, Infinity]^5*S2[1, n])/80 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (17*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/6 - 
   (103*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/24 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (5*S2[-1, Infinity]^4*S2[1, n]^2)/
    192 - (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/12 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    96 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    4 - (Half[S2[1, n], n]*S2[1, n]^5)/4 + S2[1, n]^6/12 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/12 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 3]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (13*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/2 - 
   (65*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (43*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    24 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (21*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (13*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (21*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (S2[1, n]^4*S2[2, Infinity])/2 - (29*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/64 + (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (189*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (89*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (21*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (59*S2[1, n]^2*S2[2, Infinity]^2)/320 + (137*S2[2, Infinity]^3)/6720 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (89*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (7*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (73*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (73*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (197*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (97*S2[1, n]^3*S2[3, Infinity])/128 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 + 
   (77*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (67*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/96 + 
   (37*S2[3, Infinity]^2)/96 + (215*Half[S2[1, n], n]*S2[5, Infinity])/256 + 
   (485*S2[1, n]*S2[5, Infinity])/256 - (7*S2[-5, -1, Infinity])/8 + 
   S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/3 - 
   (25*S2[1, n]^2*S2[-3, 1, n])/48 + (3*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/24 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (S2[3, Infinity]*S2[-2, 1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/32 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/6 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 + 
   (S2[1, n]^4*S2[-1, 1, n])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (23*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (23*S2[2, Infinity]^2*S2[-1, 1, n])/20 - 
   (19*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (15*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/8 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/8 + (3*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   (5*S2[-1, 1, n]^3)/24 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (5*S2[1, n]^3*S2[2, 1, n])/48 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - (S2[3, Infinity]*S2[2, 1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - S2[-4, 1, 1, n] + 
   S2[1, n]*S2[-3, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 + (S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 - 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/48 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - (S2[2, 1, n]*S2[-1, 1, 1, n])/
    2 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 + 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/24 - (3*S2[2, Infinity]*S2[2, 1, -1, n])/
    4 - (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + (S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - S2[-3, 1, 1, 1, n] + 
   S2[1, n]*S2[-2, 1, 1, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + S2[2, Infinity]*
    S2[-1, 1, 1, 1, n] - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - S2[-2, 1, 1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 + 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 - (Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - S2[1, 1, -2, -1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 - S2[1, 1, 1, 2, -1, n] - 
   S2[1, 2, -1, -1, -1, n] + S2[-1, -1, -1, 1, -1, -1, n]/4 + 
   S2[-1, -1, 1, -1, -1, -1, n]/4 + S2[-1, 1, -1, -1, -1, -1, n]/2 - 
   S2[-1, 1, -1, -1, 1, 1, n]/2 + S2[-1, 1, 1, 1, -1, -1, n] + 
   (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + (5*S2[1, -1, -1, -1, -1, -1, n])/
    2 - S2[1, -1, -1, 1, 1, -1, n]/2 + S2[1, -1, 1, 1, -1, -1, n] - 
   S2[1, 1, -1, -1, 1, -1, n]/2 + S2[1, 1, -1, 1, -1, -1, n]/2 + 
   (3*S2[1, 1, 1, -1, -1, -1, n])/2, S2[-2, -1, -1, -1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/64 + Diff[Half[S2[1, n], n], n, 2]^2/64 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (97*Diff[Half[S2[1, n], n], n, 5])/128 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/8 - Diff[Half[S2[4, 1, n], n], n, 1]/4 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   (197*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (925*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (2299*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (691*Diff[S2[1, n], n, 1]^3)/64 + (107*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (109*Diff[S2[1, n], n, 2]^2)/16 + 
   (5423*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (12707*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (2149*Diff[S2[1, n], n, 5])/2880 + Diff[S2[-4, 1, n], n, 1] - 
   (7*Diff[S2[-3, 1, n], n, 2])/16 - (19*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/48 + 
   (221*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (15*Diff[S2[-2, 1, n], n, 3])/8 - (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/32 + 
   (195*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/4 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (195*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (49*Diff[S2[-1, 1, n], n, 4])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (7*Diff[S2[2, 1, n], n, 3])/16 + 2*Diff[S2[4, 1, n], n, 1] + 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   Diff[S2[-2, 1, -1, n], n, 2]/4 - Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (57*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (17*Diff[S2[-1, 1, 1, n], n, 3])/16 - (5*Diff[S2[1, 2, -1, n], n, 2])/2 - 
   (19*Diff[S2[2, 1, -1, n], n, 2])/8 - (5*Diff[S2[2, 1, 1, n], n, 2])/4 - 
   2*Diff[S2[3, 1, 1, n], n, 1] + 6*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    16 + (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] - (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 + Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    8 + (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (13*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (83*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (931*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (1247*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (55*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (31*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (25*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    32 - (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (61*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (101*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   (5*Half[S2[2, 1, n], n]^2)/64 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Half[S2[4, 1, 1, n], n])/16 - (37*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    32 - (17*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 + S2[-1, Infinity]^6/192 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 + (497*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (545*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (2641*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (3503*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (367*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (175*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (149*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (247*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 + 
   (15*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (21*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (131*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (11*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (47*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (115*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (115*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    12 - (997*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (25*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (23*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (101*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (55*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (7*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 - 
   (3*S2[-1, Infinity]^5*S2[1, n])/320 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (995*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (743*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (43*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/3 + 
   (1591*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 - 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (893*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (35*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (23*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (81*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (71*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (13*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (47*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (9*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (401*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (277*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (161*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/24 + 
   (13*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (371*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (Half[S2[1, n], n]*S2[1, n]^5)/
    16 - S2[1, n]^6/12 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    4 - (299*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/192 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (331*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 - (715*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 + 
   (43*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (27*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (93*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (173*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (51*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (11*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (117*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (63*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (45*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (113*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (9*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (57*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (11*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (41*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (251*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (241*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (63*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (41*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    48 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/64 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (605*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (43*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (15*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 + (39*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (407*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (33*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/16 - (97*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 - (111*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/64 - (83*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    48 + (275*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (25*S2[1, n]^4*S2[2, Infinity])/96 + 
   (1029*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (1437*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (307*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 + 
   (333*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (191*S2[-1, Infinity]^2*S2[2, Infinity]^2)/64 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/16 - 
   (357*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (247*S2[1, n]^2*S2[2, Infinity]^2)/640 - (3929*S2[2, Infinity]^3)/640 - 
   (555*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (449*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (611*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (269*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (2483*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 - 
   (685*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 + 
   (785*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 + 
   (87*S2[1, n]^3*S2[3, Infinity])/256 + 
   (4007*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (135*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (175*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (5137*S2[3, Infinity]^2)/3072 + (569*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (3825*S2[1, n]*S2[5, Infinity])/256 - (17*S2[-5, -1, Infinity])/8 - 
   6*S2[-5, 1, n] - (13*S2[1, n]*S2[-4, 1, n])/2 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (109*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (27*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (37*S2[1, n]^2*S2[-3, 1, n])/96 - (31*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 + 
   (29*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (83*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 + 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (473*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (67*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (71*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (47*S2[1, n]^3*S2[-2, 1, n])/48 - (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    8 + (47*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (27*S2[3, Infinity]*S2[-2, 1, n])/16 - (5*S2[-2, 1, n]^2)/4 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (295*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 - 
   (643*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/96 + 
   (37*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (41*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 + 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (29*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 - 
   (131*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (293*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 - 
   (11*S2[1, n]^4*S2[-1, 1, n])/48 - (41*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (89*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (29*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (65*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (19*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (17*S2[2, Infinity]^2*S2[-1, 1, n])/64 + 
   (39*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (41*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (17*S2[-3, 1, n]*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (37*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/8 - (19*S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 + 
   (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (9*Half[S2[1, n], n]^3*S2[2, 1, n])/32 + 
   (7*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (9*S2[1, n]^3*S2[2, 1, n])/32 - (33*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (21*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   3*S2[3, Infinity]*S2[2, 1, n] - (7*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (23*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (9*S2[2, 1, n]^2)/4 - 
   (7*S2[1, n]*S2[4, 1, n])/2 + 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   3*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (19*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (11*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (5*S2[-2, 2, -2, n])/8 + (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/96 + (25*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (19*S2[1, n]^2*S2[-1, -2, -1, n])/96 - 
   (3*S2[2, Infinity]*S2[-1, -2, -1, n])/4 - 
   (7*S2[-1, 1, n]*S2[-1, -2, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (25*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (377*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (13*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 + 3*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    8 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (143*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (3*S2[-1, 1, 1, n]^2)/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (49*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - (5*S2[1, n]^2*S2[1, 2, -1, n])/
    2 - S2[2, Infinity]*S2[1, 2, -1, n] - (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 + (115*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (151*S2[1, n]^2*S2[2, 1, -1, n])/48 - (S2[2, Infinity]*S2[2, 1, -1, n])/
    4 - (11*S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - 2*S2[1, n]^2*S2[2, 1, 1, n] + 
   2*S2[2, Infinity]*S2[2, 1, 1, n] - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[3, 1, -2, n])/2 - 2*S2[1, n]*S2[3, 1, 1, n] - 
   (11*S2[4, 1, 1, n])/2 + 9*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n]/2 - 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (39*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (33*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (17*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (27*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   8*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   (29*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   S2[1, n]*S2[1, 2, -1, -1, n] - (3*S2[2, -2, 1, 1, n])/2 - 
   (S2[1, n]*S2[2, 1, 1, 1, n])/2 + (3*S2[2, 2, 1, 1, n])/2 + 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (7*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (39*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/2 - 
   (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, 1, n]/2 + 2*S2[1, 1, -2, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 2*S2[1, 1, -1, 1, -2, n] + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[1, 1, -1, 2, -1, n] + 
   7*S2[1, 1, 1, -2, -1, n] + 4*S2[1, 1, 1, -1, -2, n] + 
   2*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 9*S2[1, 1, 1, 2, -1, n] + 
   4*S2[1, 1, 2, -1, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] + S2[1, 2, -1, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] + 
   (3*S2[2, 1, 1, 1, 1, n])/2 - (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/4 - (3*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 - S2[-1, 1, -1, 1, 1, 1, n]/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - 
   (15*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - (15*S2[1, -1, -1, -1, -1, -1, n])/
    4 - (3*S2[1, -1, -1, -1, 1, -1, n])/8 - S2[1, -1, 1, -1, -1, -1, n]/4 - 
   S2[1, 1, -1, -1, -1, -1, n] - (7*S2[1, 1, 1, -1, 1, -1, n])/4 - 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[-2, -1, -1, 1, -1, n] -> 
  Diff[Half[S2[1, n], n], n, 2]^2/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 - 
   Diff[Half[S2[1, n], n], n, 5]/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/16 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/12 - (3*Diff[Half[S2[4, 1, n], n], n, 1])/
    16 + (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 - 
   (53*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/16 - 
   (19*Diff[S2[1, n], n, 1]^3)/48 - (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (13*Diff[S2[1, n], n, 2]^2)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/16 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (97*Diff[S2[1, n], n, 5])/2880 + 3*Diff[S2[-4, 1, n], n, 1] + 
   (3*Diff[S2[-3, 1, n], n, 2])/2 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] - (13*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 + (5*Diff[S2[-2, 1, n], n, 3])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   Diff[S2[-1, 1, n], n, 4]/12 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[2, 1, n], n, 3]/4 + 2*Diff[S2[4, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   Diff[S2[-1, 1, -1, n], n, 3]/16 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   Diff[S2[2, 1, 1, n], n, 2]/2 - Diff[S2[-1, 1, -1, 1, n], n, 2]/8 - 
   Diff[S2[2, 1, 1, 1, n], n, 1] + (5*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/
    4 + (5*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    4 + (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 - (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (35*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/16 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 - (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 + (17*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/8 + Half[S2[2, 1, n], n]^2/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/12 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - S2[-1, Infinity]^6/120 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (89*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (19*Diff[S2[1, n], n, 4]*S2[1, n])/48 - 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/4 - Diff[S2[-2, 1, n], n, 2]*
    S2[1, n] + (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     S2[1, n])/2 + (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/
    16 - (17*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 2*Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] + (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 - (19*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (23*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (9*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/32 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/4 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/16 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (5*Diff[S2[1, n], n, 3]*S2[1, n]^2)/8 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (4*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + (7*S2[-1, Infinity]^4*S2[1, n]^2)/
    96 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/2 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/6 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (2*Half[S2[1, n], n]^2*S2[1, n]^4)/3 - (Half[S2[1, n], n]*S2[1, n]^5)/3 + 
   S2[1, n]^6/24 + (17*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/96 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (75*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (61*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (25*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (9*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (47*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/2 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (47*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (181*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/8 + (15*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/8 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (2*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    3 + (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (S2[1, n]^4*S2[2, Infinity])/3 + (55*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/32 - (383*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    160 - (257*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 - 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]^2)/10 + 
   (331*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (203*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (21*S2[1, n]^2*S2[2, Infinity]^2)/80 + (257*S2[2, Infinity]^3)/192 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 - 
   (83*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/24 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/32 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (71*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/96 - 
   (85*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/96 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/96 - 
   (S2[1, n]^3*S2[3, Infinity])/96 - (131*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/64 + (69*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/64 + (1099*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/
    192 + (289*S2[3, Infinity]^2)/512 - (3*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (781*S2[1, n]*S2[5, Infinity])/64 - (17*S2[-5, -1, Infinity])/4 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-3, 1, n] - (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/
    4 + (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (S2[1, n]^2*S2[-3, 1, n])/8 - (3*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/2 - (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    4 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (S2[1, n]^3*S2[-2, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-2, 1, n])/4 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (S2[3, Infinity]*S2[-2, 1, n])/16 + S2[-2, 1, n]^2/2 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (7*S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (S2[1, n]^4*S2[-1, 1, n])/12 + (27*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (27*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (463*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/24 + 
   (49*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/48 + 
   (5*S2[-3, 1, n]*S2[-1, 1, n])/8 - (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/
    4 - (3*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/8 + (3*S2[2, Infinity]*S2[-1, 1, n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/4 - (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    4 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (S2[1, n]^3*S2[2, 1, n])/24 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (21*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (29*S2[3, Infinity]*S2[2, 1, n])/48 + S2[-2, 1, n]*S2[2, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2/2 + 
   2*S2[1, n]*S2[4, 1, n] + Half[S2[1, n], n]^2*S2[-2, 1, -1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] + 
   S2[1, n]^2*S2[-2, 1, -1, n] + S2[-2, 2, -2, n]/2 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 + (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (19*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - S2[-1, 1, -1, n]^2/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   Half[S2[1, n], n]^3*S2[-1, 1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - 3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[1, n]^3*S2[-1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + 3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (13*S2[3, Infinity]*S2[-1, 1, 1, n])/8 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + S2[-1, 1, 1, n]^2 - Half[S2[1, n], n]^2*
    S2[1, 2, -1, n] + 2*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] - 
   S2[1, n]^2*S2[1, 2, -1, n] - (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 + (3*S2[2, Infinity]*S2[2, 1, -1, n])/8 + 
   (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + Half[S2[1, n], n]^2*S2[2, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] + 
   S2[2, Infinity]*S2[2, 1, 1, n] + 2*S2[1, n]*S2[3, 1, 1, n] + 
   2*S2[4, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/
    4 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, -1, 1, n] + (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   2*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (33*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (21*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   2*S2[1, n]*S2[2, 1, 1, 1, n] - S2[2, 2, 1, 1, n] + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 2*Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] + 2*S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   S2[1, n]*S2[-1, 1, 1, 1, -1, n] + 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] - 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (19*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (23*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, 1, -2, 1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - S2[1, 1, 1, -2, -1, n] + 
   S2[1, 1, 1, -1, -2, n] - S2[1, 2, -1, 1, -1, n] - 2*S2[2, 1, 1, 1, 1, n] + 
   2*S2[-1, -1, 1, 1, -1, -1, n] - S2[-1, 1, -1, -1, -1, 1, n]/4 + 
   S2[-1, 1, -1, 1, -1, -1, n]/2 + S2[-1, 1, 1, -1, -1, -1, n] + 
   S2[-1, 1, 1, 1, -1, 1, n] + 6*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + S2[1, -1, -1, 1, -1, -1, n] + 
   S2[1, -1, 1, -1, -1, -1, n]/2 + 2*S2[1, 1, 1, -1, 1, -1, n] + 
   4*S2[1, 1, 1, 1, -1, -1, n], S2[-2, -1, -1, 1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/6 + Diff[Half[S2[1, n], n], n, 2]^2/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/12 + 
   (113*Diff[Half[S2[1, n], n], n, 5])/360 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/3 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/3 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/12 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/6 - 
   3*Diff[S2[1, n], n, 1]^3 - (23*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (17*Diff[S2[1, n], n, 2]^2)/6 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/8 - 
   (113*Diff[S2[1, n], n, 5])/360 - (9*Diff[S2[-4, 1, n], n, 1])/2 - 
   (11*Diff[S2[-3, 1, n], n, 2])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (5*Diff[S2[-2, 1, n], n, 3])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (17*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/6 - 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (11*Diff[S2[-1, 1, n], n, 4])/12 - (7*Diff[S2[-3, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, -2, -1, n], n, 2]/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/6 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/6 - 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/12 + Diff[S2[1, 2, -1, n], n, 2] - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (5*Diff[S2[2, 1, -1, n], n, 2])/6 - 
   (3*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    3 - Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 + Diff[S2[-1, 1, 1, -1, -1, n], n, 
    1] - Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/2 + 
   3*Diff[S2[1, 1, -1, -1, -1, n], n, 1] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (7*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/24 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/12 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/4 - (2*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    6 + (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (31*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (2*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    12 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    6 + (17*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/12 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/30 - (7*S2[-1, Infinity]^6)/360 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (73*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/12 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 + 
   (145*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/24 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (15*Diff[S2[1, n], n, 4]*S2[1, n])/8 + 3*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] - (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 + 
   (83*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (23*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] + (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/12 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n] + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (35*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (137*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (29*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 - 
   (S2[-1, Infinity]^5*S2[1, n])/240 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (37*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (57*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (179*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (47*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/12 - 
   Diff[S2[2, 1, n], n, 1]*S2[1, n]^2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    8 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/12 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 + Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^3 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^3)/2 + (Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 - (Half[S2[1, n], n]^2*S2[1, n]^4)/4 + 
   (Half[S2[1, n], n]*S2[1, n]^5)/4 - S2[1, n]^6/12 - 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    6 - (97*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (25*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (71*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (29*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    2 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (57*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 - 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (S2[1, n]^4*S2[2, Infinity])/24 - (41*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/80 + (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 - 
   (29*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/40 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/5 + 
   (253*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (29*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (S2[1, n]^2*S2[2, Infinity]^2)/5 - (1133*S2[2, Infinity]^3)/280 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 - 
   (5*Diff[S2[1, n], n, 2]*S2[3, Infinity])/6 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (125*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (83*S2[1, n]^3*S2[3, Infinity])/48 + 
   (89*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity] - 
   (365*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (929*S2[3, Infinity]^2)/192 - (219*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (1325*S2[1, n]*S2[5, Infinity])/128 - (15*S2[-5, -1, Infinity])/2 - 
   8*S2[-5, 1, n] + 4*S2[1, n]*S2[-4, 1, n] + 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 - 
   4*S2[1, n]^2*S2[-3, 1, n] - (7*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/6 - 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (4*S2[1, n]^3*S2[-2, 1, n])/3 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (S2[3, Infinity]*S2[-2, 1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/12 - 
   (11*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] - (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + Diff[S2[-1, 1, -1, n], n, 1]*
    S2[-1, 1, n] - Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/2 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] + 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (127*S2[2, Infinity]^2*S2[-1, 1, n])/40 - 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 - 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/2 - Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] + S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2 + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/4 - (3*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   S2[-1, 1, n]^3/3 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (3*S2[1, n]^3*S2[2, 1, n])/2 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 5*S2[-4, 1, 1, n] + 
   6*S2[1, n]*S2[-3, 1, 1, n] + Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] - 
   S2[1, n]^2*S2[-2, 1, -1, n] + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + 
   2*S2[-1, 1, n]*S2[-2, 1, -1, n] + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/
    4 - (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (5*S2[2, Infinity]*S2[-1, -2, -1, n])/8 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/
    2 - (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/3 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, 1, n] + (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   S2[1, n]^3*S2[-1, 1, 1, n] + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (23*S2[3, Infinity]*S2[-1, 1, 1, n])/8 - 2*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] - 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 
   Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/2 - 2*S2[2, Infinity]*S2[1, 2, -1, n] - 
   2*S2[-1, 1, n]*S2[1, 2, -1, n] + 2*S2[1, n]*S2[2, 1, -2, n] - 
   Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   S2[1, n]^2*S2[2, 1, -1, n] - (5*S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   S2[-1, 1, n]*S2[2, 1, -1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - 2*S2[1, n]^2*S2[2, 1, 1, n] + 
   (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 + S2[-1, 1, n]*S2[2, 1, 1, n] - 
   3*S2[-3, 1, 1, 1, n] + S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n] - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   S2[-1, 1, n]*S2[-1, 1, -1, 1, n] + S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, n]*S2[1, -1, 1, 2, n] - 
   S2[1, n]*S2[1, 1, 2, -1, n] + S2[2, -2, 1, 1, n] - S2[-2, 1, 1, 1, 1, n] - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 3*S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 - (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 - S2[1, -1, 1, 1, 2, n] + 
   S2[1, 1, -1, -1, -2, n] - 3*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 2*S2[1, 1, -1, 1, 2, n] - 
   2*S2[1, 1, 1, -1, 2, n] + S2[1, 1, 2, -1, 1, n] + 
   S2[-1, 1, -1, -1, 1, 1, n] + S2[-1, 1, 1, -1, -1, 1, n] + 
   14*S2[-1, 1, 1, 1, 1, 1, Infinity] + S2[1, -1, 1, 1, -1, -1, n] + 
   2*S2[1, 1, -1, -1, 1, -1, n] + 3*S2[1, 1, -1, 1, -1, -1, n] + 
   6*S2[1, 1, 1, -1, -1, -1, n], S2[-2, -1, 1, -1, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 2]^2/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/16 + 
   (21*Diff[S2[1, n], n, 1]^3)/32 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (23*Diff[S2[1, n], n, 2]^2)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (17*Diff[S2[1, n], n, 5])/960 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, n], n, 1]^2/16 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/4 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   Diff[S2[2, 1, n], n, 3]/12 - Diff[S2[4, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   Diff[S2[-1, 1, -1, n], n, 3]/24 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[2, 1, 1, n], n, 2]/2 - Diff[S2[-1, 1, -1, 1, n], n, 2]/8 - 
   Diff[S2[2, 1, 1, 1, n], n, 1] - (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/
    4 - (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    4 + (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (33*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 - (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    64 + (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (21*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 - 
   (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   Half[S2[2, 1, n], n]^2/64 + (3*Diff[S2[1, n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/16 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + S2[-1, Infinity]^6/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 - (25*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/
    32 - (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/
    48 + (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 2*Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] - (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (9*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (29*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/16 - 
   (19*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 - 
   (7*Diff[S2[1, n], n, 3]*S2[1, n]^2)/64 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (19*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/3 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    12 + (Half[S2[1, n], n]*S2[1, n]^5)/6 - S2[1, n]^6/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/24 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (13*Diff[S2[1, n], n, 3]*S2[2, Infinity])/64 - 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^4*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (33*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (27*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (65*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/8 - (3*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/2 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (123*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/2 - (5*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/6 - (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/32 - (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/
    32 + (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (21*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (4*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (S2[1, n]^4*S2[2, Infinity])/8 - (101*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/160 + (293*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    160 + (509*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (107*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (217*S2[-1, Infinity]^2*S2[2, Infinity]^2)/64 - 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (157*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (183*S2[1, n]^2*S2[2, Infinity]^2)/320 - (20717*S2[2, Infinity]^3)/6720 - 
   (33*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (151*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 + 
   (365*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (57*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (127*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (193*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (437*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 - 
   (385*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 - 
   (3*S2[1, n]^3*S2[3, Infinity])/128 - 
   (457*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/96 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (235*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (7571*S2[3, Infinity]^2)/3072 + (247*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (627*S2[1, n]*S2[5, Infinity])/64 + (23*S2[-5, -1, Infinity])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/4 + 
   (29*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 - (5*S2[1, n]^2*S2[-3, 1, n])/
    16 - S2[2, Infinity]*S2[-3, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (9*S2[1, n]^3*S2[-2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (S2[3, Infinity]*S2[-2, 1, n])/32 - S2[-2, 1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 + 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/3 - 
   (S2[1, n]^4*S2[-1, 1, n])/3 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (11*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (97*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (325*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 + (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/8 + (21*S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (3*Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (S2[1, n]^3*S2[2, 1, n])/48 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (67*S2[3, Infinity]*S2[2, 1, n])/96 - (S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (7*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - S2[2, 1, n]^2/4 + 
   2*S2[1, n]*S2[4, 1, n] - (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/4 + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/16 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    4 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (23*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, -1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/2 - S2[-1, 1, -1, n]^2/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (9*S2[3, Infinity]*S2[-1, 1, 1, n])/8 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + S2[-1, 1, 1, n]^2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 - (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/8 - (S2[2, Infinity]*S2[2, 1, -1, n])/2 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 - (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/
    4 - (3*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (7*S2[1, n]^2*S2[2, 1, 1, n])/4 + (7*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   2*S2[1, n]*S2[3, 1, 1, n] + 2*S2[4, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] + (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + (3*Half[S2[1, n], n]^2*
     S2[-1, 1, 1, 1, Infinity])/2 - (5*Half[S2[1, n], n]*S2[1, n]*
     S2[-1, 1, 1, 1, Infinity])/4 - (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/
    4 - (41*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   2*S2[1, n]*S2[2, 1, 1, 1, n] - S2[2, 2, 1, 1, n] + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - S2[1, n]*S2[-1, 1, 1, 1, -1, n] + 
   4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (17*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (29*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, -1, n] - 2*S2[1, 1, 1, -2, -1, n] - 
   S2[1, 1, 2, -1, -1, n] - S2[1, 2, 1, -1, -1, n] - 2*S2[2, 1, 1, 1, 1, n] - 
   (3*S2[-1, -1, 1, 1, -1, -1, n])/2 - (3*S2[-1, 1, -1, -1, -1, 1, n])/4 - 
   S2[-1, 1, -1, 1, -1, -1, n]/2 - (3*S2[-1, 1, 1, -1, -1, -1, n])/2 + 
   S2[-1, 1, 1, 1, -1, 1, n] - (15*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + S2[1, -1, -1, 1, -1, -1, n] + 
   2*S2[1, 1, 1, -1, 1, -1, n] + 4*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-2, -1, 1, -1, 1, n] -> (3*Diff[Half[S2[1, n], n], n, 1]^3)/16 - 
   Diff[Half[S2[1, n], n], n, 2]^2/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 5])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/48 - 
   (73*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (29*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/24 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 + 
   (53*Diff[S2[1, n], n, 1]^3)/48 + 2*Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 2] - (47*Diff[S2[1, n], n, 2]^2)/24 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/32 - 
   (83*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/32 + 
   (7*Diff[S2[1, n], n, 5])/32 + (7*Diff[S2[-4, 1, n], n, 1])/2 - 
   (5*Diff[S2[-3, 1, n], n, 2])/24 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/12 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (2*Diff[S2[-2, 1, n], n, 3])/3 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 + 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/4 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/48 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (31*Diff[S2[-1, 1, n], n, 4])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   3*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-1, -2, -1, n], n, 2]/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (2*Diff[S2[-1, 1, 1, n], n, 3])/3 - Diff[S2[1, 2, -1, n], n, 2]/2 - 
   (7*Diff[S2[2, 1, -1, n], n, 2])/12 + Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/3 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 + Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/
    2 + Diff[S2[1, -1, 1, -1, -1, n], n, 1]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    12 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/48 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    48 - (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/3 - (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/4 + (29*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    48 - (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    8 + (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (2*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/3 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/40 - S2[-1, Infinity]^6/1440 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (27*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/24 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (75*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (59*Diff[S2[1, n], n, 4]*S2[1, n])/48 - 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/2 + 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (13*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (31*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (23*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n] + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/2 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (7*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/24 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (43*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (61*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/12 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - (5*S2[-1, Infinity]^4*S2[1, n]^2)/
    96 + (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (47*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/16 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]^4 + (9*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/8 + (7*Half[S2[1, n], n]*S2[1, n]^5)/
    8 - (7*S2[1, n]^6)/24 + (53*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/96 + (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    3 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (8*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/3 + 
   (143*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 + 
   (13*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (73*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/6 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/8 - 
   (21*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (17*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (11*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (S2[1, n]^4*S2[2, Infinity])/3 + (313*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/160 - (253*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    160 + (63*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 - 
   (291*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (59*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (381*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (481*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (377*S2[1, n]^2*S2[2, Infinity]^2)/160 + (569*S2[2, Infinity]^3)/336 + 
   (193*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (187*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/48 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (63*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (45*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (51*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (5*S2[1, n]^3*S2[3, Infinity])/192 - 
   (779*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (95*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (1535*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (1141*S2[3, Infinity]^2)/768 + (221*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (183*S2[1, n]*S2[5, Infinity])/16 - (3*S2[-5, -1, Infinity])/8 + 
   8*S2[-5, 1, n] - (7*S2[1, n]*S2[-4, 1, n])/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (9*S2[1, n]^2*S2[-3, 1, n])/2 - (19*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/6 + 
   (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (S2[1, n]^3*S2[-2, 1, n])/6 - (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (13*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (127*S2[3, Infinity]*S2[-2, 1, n])/48 + 
   (41*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 + 
   (119*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 + 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (29*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[-1, 1, n] + (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/6 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (2*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 - 
   (3*S2[1, n]^4*S2[-1, 1, n])/4 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (25*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (69*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (283*S2[2, Infinity]^2*S2[-1, 1, n])/80 + 
   (27*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (253*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (15*S2[-3, 1, n]*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (9*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/4 + (7*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   (5*S2[-1, 1, n]^3)/24 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (19*S2[3, Infinity]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 7*S2[-4, 1, 1, n] - 
   (11*S2[1, n]*S2[-3, 1, 1, n])/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/2 + (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] - 
   S2[1, n]^2*S2[-2, 1, -1, n] - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (5*S2[-1, 1, n]*S2[-2, 1, -1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/4 + (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 - 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (7*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (137*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + 
   (7*S2[-2, 1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/2 + (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    4 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (5*S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   S2[2, Infinity]*S2[1, 2, -1, n] + (5*S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   2*S2[1, n]*S2[2, 1, -2, n] + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/4 - (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/4 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/8 + 
   (5*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (3*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   S2[-1, 1, n]*S2[2, 1, 1, n] - S2[3, 1, -2, n]/2 + 3*S2[-3, 1, 1, 1, n] - 
   (3*S2[-2, 2, 1, 1, n])/2 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, -1, 1, n] + Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (5*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, n]*S2[1, -1, 1, 2, n] + 
   (3*S2[1, n]*S2[1, 1, -1, 2, n])/2 + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   S2[2, -2, 1, 1, n] + S2[-2, 1, 1, 1, 1, n]/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + (5*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/
    2 - (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (7*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    4 - (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + (3*S2[1, -1, 1, 1, 2, n])/2 - 
   S2[1, 1, -1, -1, -2, n] - (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 
   2*S2[1, 1, -1, 1, 2, n] - (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + S2[1, 1, 1, -1, 2, n] - 
   S2[1, 1, 2, -1, 1, n]/2 - S2[-1, 1, -1, -1, 1, 1, n] - 
   (3*S2[-1, 1, 1, -1, -1, 1, n])/2 + S2[-1, 1, 1, 1, 1, 1, Infinity]/2 - 
   S2[1, -1, -1, 1, 1, -1, n]/2 - S2[1, -1, 1, 1, -1, -1, n]/2 - 
   (3*S2[1, 1, -1, -1, 1, -1, n])/2 - S2[1, 1, -1, 1, -1, -1, n] - 
   (3*S2[1, 1, 1, -1, -1, -1, n])/2, S2[-2, -1, 1, 1, -1, n] -> 
  (-3*Diff[Half[S2[1, n], n], n, 1]^3)/32 - 
   (17*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 + 
   (437*Diff[Half[S2[1, n], n], n, 5])/960 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (55*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (91*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (101*Diff[S2[1, n], n, 1]^3)/32 - (123*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (193*Diff[S2[1, n], n, 2]^2)/48 - 
   (427*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (1081*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (437*Diff[S2[1, n], n, 5])/960 - Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/2 - (13*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (13*Diff[S2[-2, 1, n], n, 3])/12 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (47*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (69*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (5*Diff[S2[-1, 1, n], n, 4])/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   4*Diff[S2[-3, 1, 1, n], n, 1] + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (17*Diff[S2[-1, 1, 1, n], n, 3])/24 + (3*Diff[S2[1, 2, -1, n], n, 2])/2 + 
   (3*Diff[S2[2, 1, -1, n], n, 2])/2 - 3*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - 
   2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/
    4 + (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/8 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (53*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (137*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (103*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (9*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/4 + 
   (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 + (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 + S2[-1, Infinity]^6/360 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (9*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (109*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (169*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (195*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (343*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (233*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (15*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (121*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (9*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (71*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (23*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (8*Diff[S2[1, n], n, 3]*S2[1, n]^2)/3 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (37*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    64 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (17*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 - (5*Half[S2[1, n], n]^2*S2[1, n]^4)/
    12 + (5*Half[S2[1, n], n]*S2[1, n]^5)/24 - S2[1, n]^6/24 - 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (57*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (77*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (61*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/8 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (21*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (9*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (9*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (7*S2[1, n]^4*S2[2, Infinity])/48 - 
   (779*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (157*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (211*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (253*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (321*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 - 
   (243*S2[1, n]^2*S2[2, Infinity]^2)/320 - (11077*S2[2, Infinity]^3)/6720 - 
   (247*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (47*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (235*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (105*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/16 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (157*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (49*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (197*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (263*S2[1, n]^3*S2[3, Infinity])/384 + 
   (121*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (139*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (83*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (11*S2[3, Infinity]^2)/24 - (Half[S2[1, n], n]*S2[5, Infinity])/64 + 
   (413*S2[1, n]*S2[5, Infinity])/64 + S2[-5, -1, Infinity]/8 + 
   2*S2[1, n]*S2[-4, 1, n] - (15*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 - 
   (13*S2[1, n]^2*S2[-3, 1, n])/16 + (7*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (13*S2[1, n]^3*S2[-2, 1, n])/24 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/2 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (13*S2[3, Infinity]*S2[-2, 1, n])/12 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (95*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] - (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (27*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (13*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (27*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (123*S2[2, Infinity]^2*S2[-1, 1, n])/80 - 
   (21*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (109*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/8 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/8 - (3*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   S2[-1, 1, n]^3/8 - (17*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 + 
   (17*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (25*S2[1, n]^3*S2[2, 1, n])/48 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (7*S2[3, Infinity]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 6*S2[-4, 1, 1, n] + 
   2*S2[1, n]*S2[-3, 1, 1, n] + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/16 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (3*S2[3, Infinity]*S2[-1, 1, -1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (45*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/2 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (S2[1, n]^2*S2[1, 2, -1, n])/2 - (7*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/8 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + (3*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 4*S2[-3, 1, 1, 1, n] + 
   2*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    8 - (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + 
   2*S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + S2[2, -2, 1, 1, n] - 
   2*S2[-2, 1, 1, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + S2[1, 1, -1, -2, -1, n] + 
   S2[1, 1, -1, -1, -2, n] + (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 - 2*S2[1, 1, 1, 2, -1, n] - 
   S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, 1, -1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n]/4 + (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + S2[-1, 1, 1, -1, -1, 1, n]/2 + 
   2*S2[-1, 1, 1, 1, -1, -1, n] - 2*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   (5*S2[1, -1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, 1, 1, -1, n]/2 + 
   (3*S2[1, -1, 1, 1, -1, -1, n])/2 - S2[1, 1, -1, -1, 1, -1, n]/2 + 
   (3*S2[1, 1, 1, -1, -1, -1, n])/2, S2[-2, -1, 1, 1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/32 - (23*Diff[Half[S2[1, n], n], n, 2]^2)/
    64 - (65*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    144 - (7*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/48 + Diff[Half[S2[4, 1, n], n], n, 1]/8 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (49*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (49*Diff[S2[1, n], n, 1]^3)/96 + (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/24 - (101*Diff[S2[1, n], n, 2]^2)/96 + 
   (311*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (719*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (313*Diff[S2[1, n], n, 5])/2880 + Diff[S2[-4, 1, n], n, 1]/2 + 
   (5*Diff[S2[-3, 1, n], n, 2])/8 + (17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 - 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   Diff[S2[-2, 1, n], n, 3]/12 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (31*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   Diff[S2[-1, 1, n], n, 4]/6 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[2, 1, n], n, 3]/12 - Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   Diff[S2[-2, 1, -1, n], n, 2]/4 + Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (11*Diff[S2[-1, 1, -1, n], n, 3])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[1, 2, -1, n], n, 2]/4 + Diff[S2[2, 1, -2, n], n, 1]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 - Diff[S2[2, 1, 1, n], n, 2]/2 - 
   Diff[S2[3, 1, 1, n], n, 1] + Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    2 + Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/6 - (13*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/72 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (131*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (23*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 - (23*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/24 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 + 
   Half[S2[2, 1, n], n]^2/64 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - 
   (7*S2[-1, Infinity]^6)/1440 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/16 + 
   (103*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (75*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (353*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (79*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (61*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (13*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (23*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (67*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (71*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (293*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (2*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/6 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/12 + 
   (3*S2[-1, Infinity]^5*S2[1, n])/80 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (215*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 - 
   (55*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 + 
   (377*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (37*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    48 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/24 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    8 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    6 - (Half[S2[1, n], n]*S2[1, n]^5)/8 + S2[1, n]^6/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 + 
   (101*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/8 + 
   (9*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (19*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (19*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (103*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    12 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    24 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/48 + 
   (23*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 - (3*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (5*S2[1, n]^4*S2[2, Infinity])/48 - 
   (127*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (947*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (49*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/192 + 
   (279*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (533*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (503*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (751*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (91*S2[1, n]^2*S2[2, Infinity]^2)/960 + (166*S2[2, Infinity]^3)/105 - 
   (109*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (9*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 - 
   (89*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/96 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 + 
   (79*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (67*Half[S2[2, 1, n], n]*S2[3, Infinity])/384 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/48 - 
   (109*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/96 + 
   (13*S2[1, n]^3*S2[3, Infinity])/32 + 
   (205*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (259*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (121*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (2275*S2[3, Infinity]^2)/3072 - (Half[S2[1, n], n]*S2[5, Infinity])/128 - 
   (491*S2[1, n]*S2[5, Infinity])/64 - (5*S2[-5, -1, Infinity])/8 - 
   2*S2[1, n]*S2[-4, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    48 - (37*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   (2*S2[1, n]^2*S2[-3, 1, n])/3 + (55*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/3 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/3 - 
   (S2[1, n]^3*S2[-2, 1, n])/2 + (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (41*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (67*S2[3, Infinity]*S2[-2, 1, n])/96 + S2[-2, 1, n]^2/4 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/48 + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    4 + (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 + 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/6 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (31*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (13*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (739*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 
   (119*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (101*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/12 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/48 - (11*S2[2, Infinity]*S2[-1, 1, n]^2)/
    12 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (S2[1, n]^3*S2[2, 1, n])/2 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (33*S2[3, Infinity]*S2[2, 1, n])/32 + (S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2/4 - 
   S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 - S2[2, Infinity]*S2[-2, 1, -1, n] - 
   S2[-2, 2, -2, n]/4 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    48 - (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/6 + (13*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + S2[-1, 1, -1, n]^2/16 - 
   Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (13*S2[3, Infinity]*S2[-1, 1, 1, n])/8 - S2[-1, 1, 1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (S2[1, n]^2*S2[1, 2, -1, n])/2 + S2[2, Infinity]*S2[1, 2, -1, n] - 
   S2[1, n]*S2[2, 1, -2, n] - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/24 + (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 - 
   (2*S2[1, n]^2*S2[2, 1, -1, n])/3 + (13*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 + S2[1, n]*S2[3, 1, 1, n] - 
   S2[4, 1, 1, n] - S2[1, n]*S2[-2, 1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] + S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (15*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[2, 1, 1, 1, n] + 
   S2[2, 2, 1, 1, n]/2 - (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] + (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 
   S2[1, 1, 1, -1, -2, n] + 2*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 
   2*S2[2, 1, 1, 1, 1, n] + S2[-1, 1, -1, -1, -1, 1, n]/4 + 
   S2[-1, 1, -1, 1, 1, 1, n] - S2[-1, 1, 1, 1, -1, 1, n] + 
   (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - S2[1, -1, -1, -1, 1, -1, n]/4 - 
   S2[1, -1, -1, 1, -1, -1, n]/2 - S2[1, -1, 1, -1, -1, -1, n]/2 - 
   S2[1, 1, -1, -1, -1, -1, n] - S2[1, 1, 1, -1, 1, -1, n] - 
   4*S2[1, 1, 1, 1, -1, -1, n], S2[-2, 1, -1, -1, -1, n] -> 
  (-5*Diff[Half[S2[1, n], n], n, 1]^3)/64 - 
   (95*Diff[Half[S2[1, n], n], n, 2]^2)/384 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 5])/640 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/32 + (3*Diff[Half[S2[4, 1, n], n], n, 1])/
    32 - Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (77*Diff[S2[1, n], n, 1]^3)/96 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (35*Diff[S2[1, n], n, 2]^2)/192 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/128 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/64 + 
   (13*Diff[S2[1, n], n, 5])/576 - (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   (2*Diff[S2[-3, 1, n], n, 2])/3 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/16 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (5*Diff[S2[-2, 1, n], n, 3])/24 + (23*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/96 - 
   (11*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (71*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   Diff[S2[-1, 1, n], n, 4]/96 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   Diff[S2[2, 1, n], n, 3]/24 - Diff[S2[4, 1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 + (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/48 + Diff[S2[2, 1, 1, n], n, 2]/4 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/16 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 + Diff[S2[2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/8 - Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/
    4 + Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 - Diff[S2[1, -1, -1, -1, -1, n], n, 
    1] + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   Diff[S2[1, 1, -1, -1, -1, n], n, 1]/8 - 
   (5*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (23*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (79*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (29*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 + (173*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (47*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (29*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (7*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (53*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/192 - 
   (97*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 + 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (209*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 + (383*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 - (17*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/48 - (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/
    6 - (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/48 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (5*Half[S2[2, 1, n], n]^2)/128 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[4, 1, 1, n], n])/16 + Half[S2[2, 2, 1, 1, n], n]/16 + 
   Half[S2[2, 1, 1, 1, 1, n], n]/4 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (29*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - 
   (3*S2[-1, Infinity]^6)/320 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/36 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (185*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (47*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (13*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (157*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 - 
   (7*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (11*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/24 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (35*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (39*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - (Half[S2[3, 1, 1, n], n]*S2[1, n])/
    8 - (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (49*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/192 - 
   (77*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (31*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (59*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 + 
   (301*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (55*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/8 - (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    96 - (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 - (3*Half[S2[1, n], n]^2*S2[1, n]^4)/
    16 + (Half[S2[1, n], n]*S2[1, n]^5)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/72 + 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 - 
   (233*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 + (263*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 - 
   (55*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (45*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    32 + (173*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/12 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (19*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (21*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (37*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (3*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/8 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    24 - (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (163*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (7*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 - (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (13*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/16 + (35*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 + (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    16 + (5*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (17*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (S2[1, n]^4*S2[2, Infinity])/16 + (751*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/640 - (773*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    240 - (79*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/480 + 
   (43*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (3153*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (343*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (1543*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (1219*S2[1, n]^2*S2[2, Infinity]^2)/960 + (129*S2[2, Infinity]^3)/35 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/48 - 
   (17*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (173*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (Half[S2[1, n], n]^3*S2[3, Infinity])/12 - 
   (145*Half[S2[2, 1, n], n]*S2[3, Infinity])/768 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (245*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (129*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (253*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (71*S2[1, n]^3*S2[3, Infinity])/96 + 
   (419*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (275*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (731*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (6033*S2[3, Infinity]^2)/2048 - (1077*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (3013*S2[1, n]*S2[5, Infinity])/512 - (33*S2[-5, -1, Infinity])/8 - 
   S2[-5, 1, n] + (23*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/32 - 
   (41*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/32 - 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (43*S2[1, n]^2*S2[-3, 1, n])/48 + (73*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/3 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/12 + 
   (11*S2[3, Infinity]*S2[-2, 1, n])/64 + (5*S2[-2, 1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/72 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 + 
   (73*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (47*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/576 + 
   (2*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 + 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 + 
   (S2[1, n]^4*S2[-1, 1, n])/12 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (37*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (11*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (469*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (49*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (123*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (11*S2[-3, 1, n]*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/12 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/12 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/48 - (47*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 - (5*S2[-1, 1, n]^3)/48 + (7*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/24 - (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (5*S2[1, n]^3*S2[2, 1, n])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (17*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (31*S2[3, Infinity]*S2[2, 1, n])/192 + (5*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + (5*S2[2, 1, n]^2)/8 - 
   S2[1, n]*S2[4, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/
    8 + (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - (S2[1, n]^2*S2[-2, 1, -1, n])/
    8 - (5*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 - S2[-2, 2, -2, n]/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/48 + 
   (19*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/96 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    96 - (31*S2[3, Infinity]*S2[-1, 1, -1, n])/96 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (5*S2[-1, 1, -1, n]^2)/32 + (3*Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, 1, n])/16 - (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (35*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (29*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (35*S2[3, Infinity]*S2[-1, 1, 1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (9*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (S2[2, 1, n]*S2[-1, 1, 1, n])/4 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/8 - 
   (3*S2[-1, 1, 1, n]^2)/4 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    8 - (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + (S2[1, n]^2*S2[1, 2, -1, n])/8 + 
   (5*S2[2, Infinity]*S2[1, 2, -1, n])/4 + (S2[-1, 1, n]*S2[1, 2, -1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (7*S2[1, n]^2*S2[2, 1, -1, n])/24 + (19*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (S2[-1, 1, n]*S2[2, 1, -1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + (3*S2[1, n]^2*S2[2, 1, 1, n])/8 - 
   (7*S2[2, Infinity]*S2[2, 1, 1, n])/4 - (S2[-1, 1, n]*S2[2, 1, 1, n])/4 - 
   S2[1, n]*S2[3, 1, 1, n] - S2[4, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (5*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (29*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (55*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   6*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   S2[1, n]*S2[2, 1, 1, 1, n] + S2[2, 2, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] + 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (19*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (49*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, 1, -1, 1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - S2[1, 1, -1, 2, -1, n] + 
   S2[1, 1, 1, -2, -1, n] - S2[1, 1, 1, -1, -2, n] - 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + S2[1, 1, 1, 2, -1, n] - 
   S2[1, 1, 2, -1, -1, n] + S2[1, 2, -1, -1, -1, n] + S2[2, 1, 1, 1, 1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/8 - S2[-1, -1, 1, -1, -1, -1, n]/8 + 
   S2[-1, -1, 1, 1, -1, -1, n]/4 - S2[-1, 1, -1, -1, -1, -1, n]/4 + 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 + S2[-1, 1, -1, -1, 1, 1, n]/4 + 
   S2[-1, 1, -1, 1, -1, -1, n]/4 - S2[-1, 1, -1, 1, 1, 1, n]/4 + 
   (5*S2[-1, 1, 1, -1, -1, -1, n])/4 - S2[-1, 1, 1, 1, -1, -1, n]/2 - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + (27*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 - (5*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   S2[1, -1, -1, 1, -1, -1, n] + S2[1, -1, -1, 1, 1, -1, n]/4 - 
   S2[1, -1, 1, 1, -1, -1, n]/2 + S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, -1, -1, 1, -1, n]/4 - S2[1, 1, -1, 1, -1, -1, n]/4 - 
   (3*S2[1, 1, 1, -1, -1, -1, n])/4 - (7*S2[1, 1, 1, -1, 1, -1, n])/4 - 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[-2, 1, -1, -1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/96 - (19*Diff[Half[S2[1, n], n], n, 2]^2)/
    24 - (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    24 + (113*Diff[Half[S2[1, n], n], n, 5])/576 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1] - 
   (29*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 + 
   (15*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (293*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (97*Diff[S2[1, n], n, 1]^3)/12 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (17*Diff[S2[1, n], n, 2]^2)/16 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/64 + 
   (185*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (71*Diff[S2[1, n], n, 5])/576 - Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/2 - (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 7*Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + (2*Diff[S2[-2, 1, n], n, 3])/3 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (35*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (157*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (13*Diff[S2[-1, 1, n], n, 4])/24 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] + 
   (23*Diff[S2[2, 1, n], n, 3])/24 - 4*Diff[S2[4, 1, n], n, 1] - 
   7*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/4 + Diff[S2[1, 2, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (3*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   (9*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 - (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 
    1] + Diff[S2[1, -1, 1, 2, n], n, 1] - 4*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   2*Diff[S2[1, 1, -1, 2, n], n, 1] - 2*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   Diff[S2[1, 2, -1, -1, n], n, 1] + 5*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] + (7*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, 1, -1, -1, n], 
    n, 1] + (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (43*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (61*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (19*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (45*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 - (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (9*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (47*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (39*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (17*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (49*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/3 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/32 - (9*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/96 - S2[-1, Infinity]^6/288 - 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 + (257*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (191*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (169*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/9 + (20*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/
    3 + (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 - 
   (131*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (361*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 - 3*Diff[S2[2, 1, n], n, 2]*
    S2[1, n] - (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 - 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (11*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 - 
   (25*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (83*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/96 - 
   (125*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (589*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 - (161*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 + 
   (4*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (319*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (57*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (115*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (161*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (65*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (55*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 - 
   (37*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (73*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (101*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/48 - 
   (89*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/3 - 
   (217*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (101*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/12 - 
   (101*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/12 + 
   (61*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 + 
   (13*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/12 + 
   6*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (55*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (51*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/12 + 
   (59*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + (9*S2[-1, Infinity]^4*S2[1, n]^2)/
    64 - (69*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (47*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (181*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (21*Half[S2[1, n], n]^3*S2[1, n]^3)/16 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    96 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/3 - 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (5*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (7*S2[1, n]^6)/48 - (67*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 + (39*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    16 - (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 + (51*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (23*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 + 
   (41*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (165*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (27*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (27*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (59*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (91*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (7*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   4*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity] - 
   (19*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 - (135*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (93*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (19*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (37*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (209*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (335*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (479*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (53*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (89*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + 
   (443*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/32 + 
   (25*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/32 - 
   (41*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/32 - 
   (49*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/24 - 
   (203*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (101*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (107*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (151*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (27*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (385*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (159*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (35*S2[1, n]^4*S2[2, Infinity])/32 - 
   (1453*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (1417*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 - 
   (33*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/32 + 
   (59*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/16 + 
   (21*S2[-1, Infinity]^2*S2[2, Infinity]^2)/2 + 
   (961*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (2083*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (971*S2[1, n]^2*S2[2, Infinity]^2)/320 + (49597*S2[2, Infinity]^3)/3360 + 
   (307*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 + 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (413*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/12 + 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (233*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (547*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 + 
   (133*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (29*S2[1, n]^3*S2[3, Infinity])/128 + 
   (91*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (1183*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (7091*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (373*S2[3, Infinity]^2)/512 - (165*Half[S2[1, n], n]*S2[5, Infinity])/32 + 
   (5261*S2[1, n]*S2[5, Infinity])/128 + (3*S2[-5, -1, Infinity])/2 + 
   7*S2[-5, 1, n] + 4*S2[1, n]*S2[-4, 1, n] - 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (47*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 - 
   (19*S2[1, n]^2*S2[-3, 1, n])/24 + (123*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (13*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (203*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (37*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 - 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/24 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-2, 1, n] + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (35*S2[3, Infinity]*S2[-2, 1, n])/48 + (3*S2[-2, 1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/12 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + 
   (143*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (25*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/32 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (95*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (49*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 + (205*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (247*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (11*S2[1, n]^4*S2[-1, 1, n])/16 - (61*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   2*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (37*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (457*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (105*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (15*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[-3, 1, n]*S2[-1, 1, n])/4 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/4 - (19*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   S2[-1, 1, n]^3/8 + (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 - 
   (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (13*S2[1, n]^3*S2[2, 1, n])/12 + (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (41*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (37*S2[3, Infinity]*S2[2, 1, n])/8 + 4*S2[-2, 1, n]*S2[2, 1, n] + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + (5*S2[2, 1, n]^2)/2 - 
   S2[1, n]*S2[4, 1, n] - 9*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 
   2*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 - 
   4*S2[2, Infinity]*S2[-2, 1, -1, n] - (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 - 
   (5*S2[-2, 2, -2, n])/4 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/16 - (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 + (17*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 + 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/6 - 
   (9*S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (113*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/4 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/4 - (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/2 + (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (33*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (23*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (21*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/2 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 - 
   (3*S2[-1, 1, 1, n]^2)/2 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/4 - 6*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 + 
   S2[1, n]^2*S2[1, 2, -1, n] + (9*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 - S2[1, n]*S2[2, 1, -2, n] - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 + 
   (11*S2[1, n]^2*S2[2, 1, -1, n])/12 + (25*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (3*S2[-1, 1, n]*S2[2, 1, -1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/
    4 - (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (7*S2[1, n]^2*S2[2, 1, 1, n])/2 - (13*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 2*S2[3, 1, -2, n] - 
   S2[1, n]*S2[3, 1, 1, n] + 5*S2[4, 1, 1, n] - 12*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] + S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (7*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (21*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (83*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (27*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (37*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (27*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (193*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, n]*S2[1, 1, -2, -1, n] - S2[1, n]*S2[1, 1, -1, 2, n] + 
   3*S2[1, n]*S2[1, 1, 2, -1, n] + S2[1, n]*S2[1, 2, -1, -1, n] + 
   (7*S2[2, -2, 1, 1, n])/2 - 4*S2[1, n]*S2[2, 1, 1, 1, n] - 
   2*S2[-2, 1, 1, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (9*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (73*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + S2[1, -2, -1, 1, -1, n] - 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   (5*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, 1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   S2[1, n]*S2[1, -1, -1, 1, -1, n] - 2*S2[1, -1, -1, 1, 2, n] - 
   S2[1, -1, 1, -2, -1, n] + (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 - (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - 3*S2[1, -1, 1, 1, -2, n] - 
   2*S2[1, -1, 1, 2, -1, n] - 3*S2[1, 1, -2, -1, 1, n] - 
   4*S2[1, 1, -2, 1, -1, n] - S2[1, 1, -1, -2, -1, n] - 
   S2[1, 1, -1, -1, -2, n] + 3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 4*S2[1, 1, -1, 1, -2, n] - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 - S2[1, 1, -1, 1, 2, n] - 
   2*S2[1, 1, -1, 2, -1, n] - 14*S2[1, 1, 1, -2, -1, n] - 
   8*S2[1, 1, 1, -1, -2, n] + (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 - 2*S2[1, 1, 1, -1, 2, n] - 
   16*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   4*S2[1, 1, 2, -1, 1, n] - 8*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] + 
   3*S2[2, 1, 1, 1, 1, n] + S2[-1, -1, -1, 1, -1, -1, n]/2 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/2 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   3*S2[-1, 1, -1, -1, -1, -1, n] + (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   S2[-1, 1, -1, -1, 1, 1, n] + (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 
   S2[-1, 1, 1, -1, -1, -1, n]/2 + (3*S2[-1, 1, 1, -1, -1, 1, n])/2 + 
   S2[-1, 1, 1, 1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 
   (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 5*S2[1, -1, -1, -1, -1, -1, n] - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 - (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   (3*S2[1, -1, -1, 1, 1, -1, n])/2 - S2[1, -1, 1, -1, -1, -1, n] + 
   S2[1, -1, 1, 1, -1, -1, n]/2 - 3*S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, -1, -1, 1, -1, n]/2 - S2[1, 1, -1, 1, -1, -1, n] - 
   (3*S2[1, 1, 1, -1, -1, -1, n])/2 - (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-2, 1, -1, 1, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/12 - Diff[Half[S2[1, n], n], n, 5]/720 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 + 
   Diff[S2[1, n], n, 1]^3/12 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/24 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    24 + Diff[S2[1, n], n, 5]/720 + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1] - Diff[S2[1, -1, 1, -1, -1, n], n, 1]/
    2 - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/2 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/20 - S2[-1, Infinity]^6/144 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 - 
   (7*S2[-1, Infinity]^5*S2[1, n])/120 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    24 + (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + Diff[S2[-1, 1, n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 + (S2[-1, Infinity]^4*S2[1, n]^2)/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity] + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (S2[1, n]^4*S2[2, Infinity])/2 - (31*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/80 + (31*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (9*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/40 - 
   (159*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/4 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (193*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (67*S2[1, n]^2*S2[2, Infinity]^2)/80 + (137*S2[2, Infinity]^3)/280 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/8 - 
   (13*S2[1, n]^3*S2[3, Infinity])/16 - 
   (21*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (21*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (7*S2[3, Infinity]^2)/4 - (215*Half[S2[1, n], n]*S2[5, Infinity])/128 + 
   (281*S2[1, n]*S2[5, Infinity])/128 - S2[-5, -1, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[2, Infinity]^2*S2[-1, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (11*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/2 - (S2[2, Infinity]*S2[-1, 1, n]^2)/4 - 
   S2[-1, 1, n]^3/2 - (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[1, n]^3*S2[-1, 1, 1, n] + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - S2[-1, 1, -1, n]*S2[-1, 1, 1, n] + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + S2[-1, 1, n]*S2[-1, 1, -1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + S2[2, Infinity]*
    S2[-1, 1, 1, 1, Infinity] + 2*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   S2[1, n]*S2[-1, 1, -1, -1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 6*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + 7*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, -2, -1, 1, -1, n] - S2[1, 1, -1, -2, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - S2[1, 1, -1, 1, 2, n] - 
   S2[1, 1, 2, 1, -1, n] + S2[-1, 1, -1, -1, 1, 1, n] - 
   3*S2[-1, 1, 1, 1, -1, -1, n] + 5*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   2*S2[1, -1, 1, 1, -1, -1, n] + 2*S2[1, 1, -1, -1, 1, -1, n] + 
   S2[1, 1, -1, 1, -1, -1, n], S2[-2, 1, -1, 1, 1, n] -> 
  (3*Diff[Half[S2[1, n], n], n, 2]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 + 
   Diff[Half[S2[1, n], n], n, 5]/24 - Diff[Half[S2[2, 1, n], n], n, 3]/16 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 - 
   Diff[S2[1, n], n, 1]^3/4 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (41*Diff[S2[1, n], n, 2]^2)/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (7*Diff[S2[1, n], n, 5])/96 - Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   Diff[S2[-1, 1, n], n, 4]/24 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (7*Diff[S2[2, 1, n], n, 3])/24 - Diff[S2[4, 1, n], n, 1] - 
   Diff[S2[-2, 1, -2, n], n, 1]/4 + Diff[S2[-1, 1, -1, n], n, 3]/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/4 - Diff[S2[2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1] - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    2 + Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/12 - 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/40 + S2[-1, Infinity]^6/288 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 - (21*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/32 + 
   (59*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (197*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (83*Diff[S2[1, n], n, 4]*S2[1, n])/96 + 
   (13*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (65*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 2*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   2*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 - (51*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (133*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (13*S2[-1, Infinity]^5*S2[1, n])/160 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (65*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (87*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (239*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (39*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - (5*S2[-1, Infinity]^4*S2[1, n]^2)/
    32 - (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/8 - (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/12 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    2 + (5*Half[S2[1, n], n]*S2[1, n]^5)/8 - S2[1, n]^6/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/2 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/4 + Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
    S2[2, Infinity] + (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/
    2 - (73*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    16 + (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (33*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + 2*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity] + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (9*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (21*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (3*S2[1, n]^4*S2[2, Infinity])/8 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/8 - 
   (12*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/5 - 
   (31*S2[-1, Infinity]^2*S2[2, Infinity]^2)/32 - 
   (103*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (237*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (131*S2[1, n]^2*S2[2, Infinity]^2)/40 - (521*S2[2, Infinity]^3)/2240 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 + 
   (41*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/3 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (287*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (77*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (71*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/4 - 
   (57*S2[1, n]^3*S2[3, Infinity])/64 - 
   (65*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (127*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (83*S2[3, Infinity]^2)/256 - (93*Half[S2[1, n], n]*S2[5, Infinity])/64 + 
   (59*S2[1, n]*S2[5, Infinity])/32 - S2[-5, -1, Infinity]/8 + 
   4*S2[1, n]*S2[-4, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (3*S2[1, n]^2*S2[-3, 1, n])/8 - (S2[2, Infinity]*S2[-3, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (S2[1, n]^3*S2[-2, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/2 + S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n] + 
   Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] - 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + Diff[S2[-1, 1, n], n, 2]*
    S2[-1, 1, n] - (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (7*S2[-1, Infinity]^4*S2[-1, 1, n])/24 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n] - (3*S2[1, n]^4*S2[-1, 1, n])/
    4 + (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (25*S2[2, Infinity]^2*S2[-1, 1, n])/8 + Half[S2[1, n], n]*S2[3, Infinity]*
    S2[-1, 1, n] - (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - Diff[S2[1, n], n, 1]*
    S2[-1, 1, n]^2 + (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/8 + (3*S2[2, Infinity]*S2[-1, 1, n]^2)/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (11*S2[1, n]^3*S2[2, 1, n])/8 - (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/
    4 + S2[3, Infinity]*S2[2, 1, n] + (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 
   3*S2[1, n]*S2[4, 1, n] + S2[1, n]*S2[-3, 1, 1, n] + 
   (3*S2[1, n]*S2[-2, 1, -2, n])/2 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/
    2 + (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-2, 1, -1, n])/2 + S2[-2, 2, -2, n]/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + 2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (51*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (3*S2[-1, 1, 1, n]^2)/2 - (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/
    2 + (5*S2[1, n]^2*S2[1, 2, -1, n])/2 + S2[-1, 1, n]*S2[1, 2, -1, n] + 
   S2[1, n]*S2[2, 1, -2, n] - (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/
    4 + (9*S2[1, n]^2*S2[2, 1, -1, n])/4 + S2[-1, 1, n]*S2[2, 1, -1, n] - 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   2*S2[1, n]^2*S2[2, 1, 1, n] + (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   2*S2[1, n]*S2[3, 1, 1, n] + 3*S2[4, 1, 1, n] + S2[-2, -2, 1, 1, n] + 
   S2[1, n]*S2[-2, 1, 1, 1, n] - (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] - 3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (15*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   7*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, n]*S2[1, -1, 1, -2, n] - 
   S2[1, n]*S2[1, 1, -2, -1, n] + S2[1, n]*S2[1, 1, -1, 2, n] + 
   3*S2[1, n]*S2[2, 1, 1, 1, n] - (3*S2[2, 2, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   (39*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, -2, n] + 
   S2[1, 1, -2, -1, 1, n] - (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 
   S2[1, 1, -1, 1, -2, n] - 3*S2[2, 1, 1, 1, 1, n] - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-2, 1, 1, -1, -1, n] -> 
  (23*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (31*Diff[Half[S2[1, n], n], n, 2]^2)/48 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 + 
   (649*Diff[Half[S2[1, n], n], n, 5])/5760 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/192 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 - 
   (83*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/192 - 
   (105*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (29*Diff[S2[1, n], n, 1]^3)/16 - (133*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (133*Diff[S2[1, n], n, 2]^2)/96 - 
   (1381*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3] - (919*Diff[S2[1, n], n, 5])/
    5760 + Diff[S2[-4, 1, n], n, 1]/2 + (7*Diff[S2[-3, 1, n], n, 2])/96 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (85*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (3*Diff[S2[-2, 1, n], n, 3])/16 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 - 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/192 + 
   (175*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (17*Diff[S2[-1, 1, n], n, 4])/64 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (5*Diff[S2[2, 1, n], n, 3])/12 + 2*Diff[S2[4, 1, n], n, 1] + 
   2*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + (5*Diff[S2[-1, -2, -1, n], n, 2])/
    96 - (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/48 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/96 + 
   Diff[S2[-1, 1, -1, n], n, 3]/32 - (47*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (51*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/8 + (5*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (17*Diff[S2[2, 1, -1, n], n, 2])/48 - 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - (13*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    48 - Diff[S2[-1, 1, -1, 1, n], n, 2]/4 - 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 + Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + 2*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (17*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (107*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (61*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/12 - (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (59*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (325*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (67*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (33*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (115*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (9*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (23*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 + 
   (215*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (271*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 - (445*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 + (25*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/48 + (7*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/96 + (11*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (19*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (13*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (23*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/96 - (71*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    96 + (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/24 - 
   Half[S2[2, 1, n], n]^2/64 + (11*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   Half[S2[4, 1, 1, n], n]/16 + Half[S2[2, 2, 1, 1, n], n]/16 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (53*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + S2[-1, Infinity]^6/72 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 - (281*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (27*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (227*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (853*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (187*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (129*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/32 - 
   (53*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (23*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 + 
   (33*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (73*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (11*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (41*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/9 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (19*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (347*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (113*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (37*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (121*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (175*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (S2[-1, Infinity]^5*S2[1, n])/320 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 + 
   (347*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (37*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (299*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 - 
   (1351*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 + 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 - 
   (119*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (25*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (59*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (49*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (113*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/6 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (45*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    96 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + (19*Half[S2[1, n], n]^2*S2[1, n]^4)/
    24 - (Half[S2[1, n], n]*S2[1, n]^5)/3 + S2[1, n]^6/32 + 
   (233*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/96 - 
   (365*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (123*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (93*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (73*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 - 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 - 
   (107*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 - (463*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 - 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 - 
   (61*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (125*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (243*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (39*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (89*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (457*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (427*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (67*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (49*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (323*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (27*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (7*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 + (613*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (295*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (91*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (69*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/16 - (45*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 - (103*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (23*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (101*S2[1, n]^4*S2[2, Infinity])/96 + 
   (1007*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (743*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 + 
   (2141*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (79*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 - 
   (2033*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (1547*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (1883*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (37291*S2[2, Infinity]^3)/
    4480 - (113*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (107*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (235*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (165*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity] + 
   (17*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (23*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (169*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (45*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (81*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (175*S2[1, n]^3*S2[3, Infinity])/192 - 
   (1447*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (315*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (6325*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (5041*S2[3, Infinity]^2)/3072 + (2407*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (6559*S2[1, n]*S2[5, Infinity])/512 + (87*S2[-5, -1, Infinity])/
    16 + S2[-5, 1, n] - (S2[1, n]*S2[-4, 1, n])/2 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (39*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/32 + 
   (5*Half[S2[1, n], n]^2*S2[-3, 1, n])/12 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (25*S2[1, n]^2*S2[-3, 1, n])/24 - (191*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (53*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/6 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (77*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (S2[1, n]^3*S2[-2, 1, n])/12 + (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] + 
   (71*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (5*S2[3, Infinity]*S2[-2, 1, n])/32 - (5*S2[-2, 1, n]^2)/4 + 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/96 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 + 
   (155*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 - 
   (13*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/3 - 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (197*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (7*S2[1, n]^4*S2[-1, 1, n])/48 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (19*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (139*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (45*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (89*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (47*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (45*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (105*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (5*S2[-3, 1, n]*S2[-1, 1, n])/8 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (11*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 + 
   (15*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (3*S2[2, Infinity]*S2[-1, 1, n]^2)/2 + 
   (25*S2[-1, 1, n]^3)/48 - (23*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    32 + (37*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/8 + (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/
    8 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (33*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (S2[1, n]^3*S2[2, 1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (5*S2[3, Infinity]*S2[2, 1, n])/32 - (5*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - (5*S2[2, 1, n]^2)/4 + 
   (S2[1, n]*S2[4, 1, n])/2 + 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/8 + S2[2, Infinity]*S2[-2, 1, -1, n] + 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 + (5*S2[-2, 2, -2, n])/8 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 - (11*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/3 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (25*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (27*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (43*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (51*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (7*S2[1, n]^3*S2[-1, 1, 1, n])/4 - (35*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (27*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (33*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (199*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - 
   (5*S2[-2, 1, n]*S2[-1, 1, 1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (9*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (5*S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (9*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 + (3*S2[-1, 1, 1, n]^2)/4 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (S2[1, n]^2*S2[1, 2, -1, n])/8 - 
   (11*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (3*S2[-1, 1, n]*S2[1, 2, -1, n])/
    4 - (S2[1, n]*S2[2, 1, -2, n])/2 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (21*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/12 - (53*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (S2[1, n]^2*S2[2, 1, 1, n])/8 + 
   (11*S2[2, Infinity]*S2[2, 1, 1, n])/4 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/
    4 + S2[3, 1, -2, n]/2 - (5*S2[4, 1, 1, n])/2 + 5*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n]/2 + (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   S2[-2, 2, 1, 1, n]/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    16 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (41*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (9*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (9*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 - (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (137*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   (5*S2[2, -2, 1, 1, n])/2 + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (7*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (7*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (21*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (15*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (53*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + S2[1, -1, -1, 1, -2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] + 
   S2[1, -1, 1, -2, -1, n] - (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    8 + (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/
    2 + (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, -1, n] + (3*S2[1, 1, -2, -1, 1, n])/2 + 
   2*S2[1, 1, -2, 1, -1, n] + S2[1, 1, -1, -2, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 2*S2[1, 1, -1, 1, -2, n] + 
   (9*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (9*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 + 2*S2[1, 1, -1, 1, 2, n] + 
   S2[1, 1, -1, 2, -1, n] + 7*S2[1, 1, 1, -2, -1, n] + 
   4*S2[1, 1, 1, -1, -2, n] + (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/
    4 - (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + 3*S2[1, 1, 1, -1, 2, n] + 
   6*S2[1, 1, 1, 2, -1, n] + 2*S2[1, 1, 2, -1, -1, n] + 
   (3*S2[1, 1, 2, -1, 1, n])/2 + 2*S2[1, 1, 2, 1, -1, n] + 
   S2[1, 2, 1, -1, -1, n] - (3*S2[2, 1, 1, 1, 1, n])/2 - 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - (7*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   S2[-1, -1, 1, 1, -1, -1, n]/4 - (5*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 - (7*S2[-1, 1, -1, -1, 1, 1, n])/4 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + S2[-1, 1, 1, -1, -1, -1, n]/4 - 
   (3*S2[-1, 1, 1, -1, -1, 1, n])/2 + (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - 
   10*S2[-1, 1, 1, 1, 1, 1, Infinity] - (5*S2[1, -1, -1, -1, -1, -1, n])/4 + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/8 + (3*S2[1, -1, -1, 1, -1, -1, n])/4 - 
   (5*S2[1, -1, -1, 1, 1, -1, n])/4 + S2[1, -1, 1, -1, -1, -1, n]/2 - 
   S2[1, -1, 1, 1, -1, -1, n]/2 + (3*S2[1, 1, -1, -1, -1, -1, n])/2 - 
   (9*S2[1, 1, -1, -1, 1, -1, n])/4 - (7*S2[1, 1, -1, 1, -1, -1, n])/4 - 
   (15*S2[1, 1, 1, -1, -1, -1, n])/4 + (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[-2, 1, 1, -1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/32 + (39*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 + (59*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    288 + (35*Diff[Half[S2[1, n], n], n, 5])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 3])/64 - 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 - 
   (353*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (25*Diff[S2[1, n], n, 1]^3)/48 - (131*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (341*Diff[S2[1, n], n, 2]^2)/192 - 
   (637*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (629*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (1177*Diff[S2[1, n], n, 5])/5760 + Diff[S2[-4, 1, n], n, 1] + 
   (19*Diff[S2[-3, 1, n], n, 2])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (7*Diff[S2[-2, 1, n], n, 3])/16 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/32 - 
   (25*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (17*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 - 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (115*Diff[S2[-1, 1, n], n, 4])/192 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   Diff[S2[2, 1, n], n, 3]/4 + Diff[S2[4, 1, n], n, 1] - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - Diff[S2[-2, 1, -2, n], n, 1]/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (13*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/16 + (7*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (9*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (3*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + Diff[S2[-1, 1, -1, 1, n], n, 2]/16 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, -1, 1, -2, n], n, 1]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    4 + Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 + 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (41*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (47*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (145*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (7*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 - (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 - (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   (5*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + S2[-1, Infinity]^6/160 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n] + 
   (37*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (107*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/9 + (Diff[S2[-3, 1, n], n, 1]*S2[1, n])/
    6 + (23*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 + 
   (23*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/6 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/3 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/6 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 + 
   (167*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (8*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/3 + (439*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 - (457*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 + 
   (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (121*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (35*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (11*S2[-1, Infinity]^5*S2[1, n])/320 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (269*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (185*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 - 
   (523*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 + 
   (95*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 - 
   (21*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (53*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (31*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   (57*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (113*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (4*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/3 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (11*S2[-1, Infinity]^4*S2[1, n]^2)/64 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 - 
   (161*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (49*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (19*Half[S2[1, n], n]^3*S2[1, n]^3)/48 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    12 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (5*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (13*S2[1, n]^6)/96 + (25*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (131*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    24 + (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (47*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/192 + 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 + 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (33*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (277*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (73*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/3 - (5*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/12 - (41*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (77*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/32 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    4 - (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 + 
   (437*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (73*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (21*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (89*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (17*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (3*S2[1, n]^4*S2[2, Infinity])/4 + 
   (167*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (97*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (329*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (137*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (1097*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (319*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/96 - 
   (101*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (8551*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (7377*S2[2, Infinity]^3)/4480 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (217*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (111*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (281*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (509*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (505*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (373*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 - 
   (45*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (5*S2[1, n]^3*S2[3, Infinity])/48 + 
   (931*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (333*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (2251*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (14203*S2[3, Infinity]^2)/6144 + (39*Half[S2[1, n], n]*S2[5, Infinity])/
    32 - (27*S2[1, n]*S2[5, Infinity])/128 + (13*S2[-5, -1, Infinity])/4 - 
   S2[1, n]*S2[-4, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 + 
   (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (109*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 - 
   (59*S2[1, n]^2*S2[-3, 1, n])/24 - (35*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/3 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (7*S2[1, n]^3*S2[-2, 1, n])/12 + (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (39*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (11*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (99*S2[3, Infinity]*S2[-2, 1, n])/64 - (5*S2[-2, 1, n]^2)/8 - 
   (161*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (41*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (17*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 - 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n] - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (7*S2[-1, Infinity]^4*S2[-1, 1, n])/48 + 
   (187*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (10*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 + 
   (89*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (131*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/3 + 
   (13*S2[1, n]^4*S2[-1, 1, n])/24 + (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (13*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (35*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (25*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (47*S2[2, Infinity]^2*S2[-1, 1, n])/24 - 
   (91*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (205*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (19*S2[-3, 1, n]*S2[-1, 1, n])/12 - 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (23*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/12 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (13*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (23*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 - (25*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (85*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (11*S2[1, n]^3*S2[2, 1, n])/24 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (17*S2[3, Infinity]*S2[2, 1, n])/192 - (5*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/8 - 
   (S2[1, n]*S2[4, 1, n])/2 - S2[-3, -2, 1, n]/2 - 
   (S2[1, n]*S2[-3, 1, 1, n])/2 - (5*S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - S2[-2, 2, -2, n]/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/24 - 
   (11*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (31*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (67*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 - S2[-1, 1, -1, n]^2/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   S2[1, n]^3*S2[-1, 1, 1, n] + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (73*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - 2*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   S2[-1, 1, 1, n]^2/4 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   2*S2[1, n]^2*S2[1, 2, -1, n] - (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 - (S2[1, n]*S2[2, 1, -2, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (43*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 - 
   (29*S2[1, n]^2*S2[2, 1, -1, n])/12 - (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/4 + (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   2*S2[1, n]*S2[3, 1, 1, n] - S2[4, 1, 1, n]/2 - (3*S2[-2, -2, 1, 1, n])/2 - 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (35*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (33*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (13*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (7*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]*S2[1, -1, 1, -2, n] + (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, 2, n])/2 - (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n]/2 + (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] - (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (33*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, 1, -2, -1, 1, n]/2 + (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + S2[1, 1, -1, 1, -2, n] - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[1, 1, 1, -1, -2, n] - 
   2*S2[1, n]*S2[1, 1, 1, -1, -1, n] + S2[2, 1, 1, 1, 1, n]/2 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - S2[-1, 1, -1, -1, -1, 1, n]/4 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 + S2[-1, 1, -1, 1, 1, 1, n]/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] - S2[-1, 1, 1, 1, -1, 1, n]/4 - 
   (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + S2[1, -1, -1, -1, 1, -1, n]/2 + 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, -1, -1, -1, n]/2 + 
   S2[1, 1, -1, -1, -1, -1, n]/2 - S2[1, 1, 1, -1, 1, -1, n]/4 - 
   S2[1, 1, 1, 1, -1, -1, n], S2[-2, 1, 1, 1, -1, n] -> 
  (7*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (19*Diff[Half[S2[1, n], n], n, 2]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/3 - 
   (557*Diff[Half[S2[1, n], n], n, 5])/1152 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/16 + Diff[Half[S2[4, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 + 
   (27*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (225*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (685*Diff[S2[1, n], n, 1]^3)/192 + 
   (39*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/8 - 
   (455*Diff[S2[1, n], n, 2]^2)/96 + (395*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/128 - (2485*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/384 + (379*Diff[S2[1, n], n, 5])/720 - 
   Diff[S2[-4, 1, n], n, 1]/2 - (11*Diff[S2[-3, 1, n], n, 2])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (29*Diff[S2[-2, 1, n], n, 3])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   (349*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (131*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (11*Diff[S2[-1, 1, n], n, 4])/8 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[2, 1, n], n, 3]/48 + 3*Diff[S2[-3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, -2, n], n, 1]/8 + Diff[S2[-2, 1, -1, n], n, 2]/2 - 
   Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (13*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/16 - (7*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (11*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, 1, n], n, 2]/2 + (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/16 + (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    16 + (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    8 + (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (415*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (281*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 + (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    32 - (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    64 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 + 
   Half[S2[2, 1, n], n]^2/32 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/16 + (31*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 + (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 - S2[-1, Infinity]^6/320 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    96 + (31*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/32 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (195*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (379*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (697*Diff[S2[1, n], n, 4]*S2[1, n])/384 - 
   (21*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 + 
   (33*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (135*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (13*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (25*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 - 
   (9*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (53*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 - 
   (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (67*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (73*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (11*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/64 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (17*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (71*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (29*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 + 
   (25*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (191*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (67*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/6 - 
   (15*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (31*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 + 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/24 + 
   (23*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 + 
   (29*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (19*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (5*S2[1, n]^6)/48 - Diff[Half[S2[1, n], n], n, 1]^2*
    S2[2, Infinity] - (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/192 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (21*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/16 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (11*Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (23*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (41*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 + (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/64 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (33*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (93*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (93*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (47*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (23*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (5*S2[1, n]^4*S2[2, Infinity])/32 - 
   (63*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (103*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 - 
   (77*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 + 
   (141*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (71*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 - 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (1357*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (627*S2[1, n]^2*S2[2, Infinity]^2)/640 + (2467*S2[2, Infinity]^3)/1920 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (349*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (45*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (281*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (517*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 + 
   (133*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (403*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (103*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 + 
   (227*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 + 
   (143*S2[1, n]^3*S2[3, Infinity])/768 + 
   (491*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (603*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (381*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (77*S2[3, Infinity]^2)/48 - (63*Half[S2[1, n], n]*S2[5, Infinity])/256 - 
   (109*S2[1, n]*S2[5, Infinity])/256 - (11*S2[-5, -1, Infinity])/4 - 
   2*S2[-5, 1, n] - (3*S2[1, n]*S2[-4, 1, n])/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/32 - 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/2 + 
   (39*S2[1, n]^2*S2[-3, 1, n])/32 + (11*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (17*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 - 
   (11*S2[1, n]^3*S2[-2, 1, n])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (17*S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/32 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (21*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (55*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (11*S2[1, n]^4*S2[-1, 1, n])/48 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (27*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (21*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (429*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/48 - 
   (25*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/48 + 
   (23*S2[-3, 1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (27*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 - (S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 - 
   (17*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/96 - (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    4 - (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (79*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (17*S2[1, n]^3*S2[2, 1, n])/32 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (83*S2[3, Infinity]*S2[2, 1, n])/96 + S2[-2, 1, n]*S2[2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (11*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + S2[2, 1, n]^2/2 - 
   (3*S2[1, n]*S2[4, 1, n])/2 + 2*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   S2[-2, 2, -2, n]/8 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    32 - (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/32 + (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (3*S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (77*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (9*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   S2[2, 1, n]*S2[-1, 1, 1, n] - S2[-1, 1, 1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - (S2[1, n]^2*S2[1, 2, -1, n])/2 + 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 + (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/16 + (9*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - S2[2, Infinity]*S2[2, 1, 1, n] - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + S2[3, 1, -2, n]/2 - 
   S2[1, n]*S2[3, 1, 1, n] - (3*S2[4, 1, 1, n])/2 + 3*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n]/2 - (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[-2, 2, 1, 1, n]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    16 + (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - (5*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 + (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (13*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 - (S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   S2[2, -2, 1, 1, n]/2 - (S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n]/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (11*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, -2, n]/2 - 
   S2[1, -1, 1, 1, 2, n]/2 + S2[1, 1, -2, -1, 1, n]/2 + 
   S2[1, 1, -2, 1, -1, n] - (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 2*S2[1, 1, 1, -2, -1, n] + 
   3*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n]/2 + 
   2*S2[1, 1, 2, 1, -1, n] + S2[1, 2, 1, 1, -1, n] + S2[2, 1, 1, 1, 1, n]/2 - 
   S2[-1, -1, -1, 1, -1, -1, n]/8 - (3*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   S2[-1, 1, -1, -1, -1, 1, n]/8 + S2[-1, 1, -1, 1, -1, -1, n]/4 + 
   S2[-1, 1, -1, 1, 1, 1, n]/4 + S2[-1, 1, 1, -1, -1, -1, n] - 
   S2[-1, 1, 1, 1, -1, 1, n]/4 + (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 - (3*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   S2[1, -1, -1, 1, -1, -1, n]/2 - S2[1, -1, 1, -1, -1, -1, n]/4 - 
   S2[1, 1, 1, -1, 1, -1, n]/4 - S2[1, 1, 1, 1, -1, -1, n], 
 S2[2, -1, -1, -1, -1, n] -> (-5*Diff[Half[S2[1, n], n], n, 1]^3)/64 - 
   (17*Diff[Half[S2[1, n], n], n, 2]^2)/384 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (7*Diff[Half[S2[1, n], n], n, 5])/640 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/96 + Diff[Half[S2[4, 1, n], n], n, 1]/
    32 - Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/18 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   Diff[S2[1, n], n, 1]^3/24 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (35*Diff[S2[1, n], n, 2]^2)/192 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (23*Diff[S2[1, n], n, 5])/1440 - Diff[S2[-4, 1, n], n, 1]/2 - 
   Diff[S2[-3, 1, n], n, 2]/6 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/48 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   Diff[S2[-2, 1, n], n, 3]/24 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/96 - 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   Diff[S2[-1, 1, n], n, 4]/32 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   Diff[S2[2, 1, n], n, 3]/24 - Diff[S2[4, 1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/48 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/48 - Diff[S2[2, 1, 1, n], n, 2]/4 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/16 - Diff[S2[-1, 1, -1, 1, n], n, 2]/16 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 - Diff[S2[2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/8 - Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/
    4 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/
    8 - (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   Diff[S2[1, 1, -1, -1, -1, n], n, 1]/8 + Diff[S2[1, 1, -1, 1, -1, n], n, 1]/
    8 - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 + (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    32 + (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/64 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/96 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    6 + (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    96 + (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/192 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/192 - 
   (67*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/1152 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    24 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/96 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 - 
   Half[S2[2, 1, n], n]^2/128 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[4, 1, 1, n], n])/16 + Half[S2[2, 2, 1, 1, n], n]/16 + 
   Half[S2[2, 1, 1, 1, 1, n], n]/4 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 + (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/64 + (7*S2[-1, Infinity]^6)/2880 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (13*Diff[S2[1, n], n, 4]*S2[1, n])/384 - 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 - 
   (31*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (9*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 - 
   (5*S2[-1, Infinity]^5*S2[1, n])/192 - 
   (67*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/192 + 
   (85*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/64 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (43*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 - 
   (125*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 + 
   (19*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (11*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (19*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/8 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    24 - (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 - (13*Half[S2[1, n], n]^2*S2[1, n]^4)/
    48 + (Half[S2[1, n], n]*S2[1, n]^5)/4 - S2[1, n]^6/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/72 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 + (19*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 + 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (29*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (67*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (49*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/8 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    24 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 - (91*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (109*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (19*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (13*S2[1, n]^4*S2[2, Infinity])/48 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/128 - 
   (139*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 + 
   (83*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/192 - 
   (77*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/64 - 
   (13*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (493*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 + 
   (93*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/64 + 
   (359*S2[1, n]^2*S2[2, Infinity]^2)/480 - (3287*S2[2, Infinity]^3)/6720 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (37*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/48 - 
   (25*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (163*Half[S2[2, 1, n], n]*S2[3, Infinity])/768 - 
   (83*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (101*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/96 - 
   (31*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/96 + 
   (95*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/96 - 
   (101*S2[1, n]^3*S2[3, Infinity])/128 - 
   (129*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (149*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (923*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (629*S2[3, Infinity]^2)/2048 - (89*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (2019*S2[1, n]*S2[5, Infinity])/512 + (11*S2[-5, -1, Infinity])/8 - 
   S2[-5, 1, n] - (11*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (47*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/6 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (5*S2[1, n]^2*S2[-3, 1, n])/24 - (17*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 + 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (3*S2[1, n]^3*S2[-2, 1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/6 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/6 + 
   (17*S2[3, Infinity]*S2[-2, 1, n])/64 - S2[-2, 1, n]^2/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (59*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/576 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/24 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 - 
   (17*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/24 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (S2[1, n]^4*S2[-1, 1, n])/4 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (49*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (155*S2[2, Infinity]^2*S2[-1, 1, n])/192 + 
   (7*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/24 - 
   (25*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/96 + 
   (S2[-3, 1, n]*S2[-1, 1, n])/24 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/6 - (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/48 + (5*S2[2, Infinity]*S2[-1, 1, n]^2)/24 - 
   (5*S2[-1, 1, n]^3)/48 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/24 + (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    16 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (S2[1, n]^3*S2[2, 1, n])/4 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (115*S2[3, Infinity]*S2[2, 1, n])/192 - (S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - S2[2, 1, n]^2/8 + 
   S2[1, n]*S2[4, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/
    8 - (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/8 - (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/6 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/96 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    96 + (41*S2[3, Infinity]*S2[-1, 1, -1, n])/96 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - S2[-1, 1, -1, n]^2/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (37*S2[3, Infinity]*S2[-1, 1, 1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + (S2[2, 1, n]*S2[-1, 1, 1, n])/
    4 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/8 + S2[-1, 1, 1, n]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/8 + (S2[-1, 1, n]*S2[1, 2, -1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/6 + (S2[2, Infinity]*S2[2, 1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (7*S2[1, n]^2*S2[2, 1, 1, n])/8 + (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/4 + S2[1, n]*S2[3, 1, 1, n] + 
   S2[4, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (13*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/
    8 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - (5*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 - (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (19*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (17*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   S2[1, n]*S2[2, 1, 1, 1, n] - S2[2, 2, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (15*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (25*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + S2[1, 1, 1, 2, -1, n] - 
   S2[1, 1, 2, -1, -1, n] + S2[1, 2, -1, -1, -1, n] - S2[2, 1, 1, 1, 1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/8 - S2[-1, -1, 1, -1, -1, -1, n]/8 - 
   S2[-1, -1, 1, 1, -1, -1, n]/4 - S2[-1, 1, -1, -1, -1, -1, n]/4 - 
   S2[-1, 1, -1, -1, -1, 1, n]/8 + S2[-1, 1, -1, -1, 1, 1, n]/4 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 - S2[-1, 1, -1, 1, 1, 1, n]/4 - 
   S2[-1, 1, 1, -1, -1, -1, n]/4 - S2[-1, 1, 1, 1, -1, -1, n]/2 + 
   S2[-1, 1, 1, 1, -1, 1, n]/4 - (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + S2[1, -1, -1, -1, 1, -1, n]/8 + 
   S2[1, -1, -1, 1, 1, -1, n]/4 - S2[1, -1, 1, 1, -1, -1, n]/2 + 
   S2[1, 1, -1, -1, -1, -1, n] + S2[1, 1, -1, -1, 1, -1, n]/4 - 
   S2[1, 1, -1, 1, -1, -1, n]/4 - (3*S2[1, 1, 1, -1, -1, -1, n])/4 + 
   S2[1, 1, 1, -1, 1, -1, n]/4 + S2[1, 1, 1, 1, -1, -1, n], 
 S2[2, -1, -1, -1, 1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/96 - 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/2 + 
   (179*Diff[Half[S2[1, n], n], n, 5])/2880 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (97*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (43*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 + 
   (67*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (913*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (119*Diff[S2[1, n], n, 1]^3)/16 + (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - Diff[S2[1, n], n, 2]^2/48 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (215*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (31*Diff[S2[1, n], n, 5])/2880 + (5*Diff[S2[-4, 1, n], n, 1])/2 - 
   (3*Diff[S2[-3, 1, n], n, 2])/8 - (17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 - 
   (20*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   Diff[S2[-2, 1, n], n, 3]/4 + (49*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 - 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, n], n, 1]^2/8 + (233*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/96 - 
   (73*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   Diff[S2[-1, 1, n], n, 4]/6 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 2*Diff[S2[1, n], n, 1]*
    Diff[S2[2, 1, n], n, 1] + (23*Diff[S2[2, 1, n], n, 3])/24 - 
   4*Diff[S2[4, 1, n], n, 1] - (11*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - 
   Diff[S2[-1, -2, -1, n], n, 2]/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/12 + Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (5*Diff[S2[2, 1, -1, n], n, 2])/12 + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   (7*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 - Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - Diff[S2[1, -1, 1, -2, n], n, 1] + 
   Diff[S2[1, -1, 1, 2, n], n, 1] - 4*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - 2*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   Diff[S2[1, 2, -1, -1, n], n, 1] + 5*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] + (9*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - Diff[S2[-1, 1, 1, 1, 1, n], n, 
    1] - 3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   (7*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (5*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (85*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 + (13*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (41*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 + (51*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 - 
   (27*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (19*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (109*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (109*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (25*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (23*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (71*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - (83*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (47*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (61*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/32 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + S2[-1, Infinity]^6/288 - 
   (167*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    96 + (127*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/12 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (149*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/9 + (35*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/
    6 + (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (151*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (41*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 - 
   (17*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 + 
   (23*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (2*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/3 - 
   (19*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (175*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/96 - 
   (107*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (25*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 - (493*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 - (221*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (165*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (47*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (59*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (69*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (275*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (119*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (223*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (19*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 - 
   (13*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (55*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/48 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 - 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/24 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/16 + 
   (55*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/6 - 
   (179*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 + 3*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (31*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/6 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (4*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/3 + 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (77*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (119*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/12 + 
   (53*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/2 - 
   (31*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (59*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (211*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (125*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (85*Half[S2[1, n], n]^3*S2[1, n]^3)/48 - 
   (29*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/6 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^4)/6 - 
   (39*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (71*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (5*S2[1, n]^6)/16 - (367*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/96 + (47*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    16 - (41*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    24 + (509*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 - 
   (223*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 + 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (317*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/48 - 
   (15*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (35*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   8*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (431*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] + 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (19*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (23*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 - (249*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (21*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (45*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (43*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (145*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (119*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (343*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (193*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 + (65*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    32 - (175*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (607*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (35*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (53*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/32 - (23*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 - (211*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/48 + (25*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/32 - (139*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (349*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 + (23*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    16 + (569*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (305*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (205*S2[1, n]^4*S2[2, Infinity])/96 - 
   (427*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (515*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/64 - 
   (151*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 + 
   (129*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (393*S2[-1, Infinity]^2*S2[2, Infinity]^2)/32 - 
   (237*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (503*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (291*S2[1, n]^2*S2[2, Infinity]^2)/320 + (31583*S2[2, Infinity]^3)/1680 + 
   (751*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (5*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (613*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/12 - 
   (1339*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (481*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (683*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (199*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 + 
   (1903*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 - 
   (1343*S2[1, n]^3*S2[3, Infinity])/384 - 
   (67*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (1145*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (3785*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (2959*S2[3, Infinity]^2)/1536 - (873*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (6125*S2[1, n]*S2[5, Infinity])/128 + (17*S2[-5, -1, Infinity])/4 + 
   14*S2[-5, 1, n] + 4*S2[1, n]*S2[-4, 1, n] - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (61*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 + 
   (35*S2[1, n]^2*S2[-3, 1, n])/24 + (69*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (223*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 + 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (17*S2[1, n]^3*S2[-2, 1, n])/8 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + 6*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] - 
   (35*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (41*S2[3, Infinity]*S2[-2, 1, n])/24 + (3*S2[-2, 1, n]^2)/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/6 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 + 
   (277*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   Diff[S2[1, n], n, 3]*S2[-1, 1, n] + 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (63*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[-1, 1, n] + (19*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 - 
   (23*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 + 
   (173*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 + (75*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (111*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (39*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (115*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (9*S2[1, n]^4*S2[-1, 1, n])/16 - (49*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (57*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (41*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (131*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (117*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (101*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (329*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (43*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (237*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (25*S2[-3, 1, n]*S2[-1, 1, n])/8 + Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] - (15*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (29*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/2 - (45*S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   (7*S2[-1, 1, n]^3)/12 + (11*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    24 - (41*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (33*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (11*S2[1, n]^3*S2[2, 1, n])/12 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (15*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (53*S2[3, Infinity]*S2[2, 1, n])/16 + 4*S2[-2, 1, n]*S2[2, 1, n] + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (13*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/2 - 
   S2[1, n]*S2[4, 1, n] - 6*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 
   2*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   4*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 - 
   3*S2[1, n]^2*S2[-2, 1, -1, n] - (21*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   3*S2[-1, 1, n]*S2[-2, 1, -1, n] - (5*S2[-2, 2, -2, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 + 
   (17*S2[1, n]^2*S2[-1, -2, -1, n])/24 + 
   (11*S2[2, Infinity]*S2[-1, -2, -1, n])/8 + 
   (7*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 + 
   (65*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (33*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (71*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, -1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (11*S2[1, n]^3*S2[-1, 1, 1, n])/4 + 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/4 + 3*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - (3*S2[-1, 1, 1, n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   7*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 + 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/2 + (25*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + 4*S2[-1, 1, n]*S2[1, 2, -1, n] - S2[1, n]*S2[2, 1, -2, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (55*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 + 
   (35*S2[1, n]^2*S2[2, 1, -1, n])/12 + (17*S2[2, Infinity]*S2[2, 1, -1, n])/
    4 + (11*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (31*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   2*S2[-1, 1, n]*S2[2, 1, 1, n] - 2*S2[3, 1, -2, n] - 
   S2[1, n]*S2[3, 1, 1, n] + 5*S2[4, 1, 1, n] - 10*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] + S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (5*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (17*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (69*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (31*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (221*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (23*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, n]*S2[1, 1, -2, -1, n] + 3*S2[1, n]*S2[1, 1, 2, -1, n] + 
   S2[1, n]*S2[1, 2, -1, -1, n] + 3*S2[2, -2, 1, 1, n] - 
   4*S2[1, n]*S2[2, 1, 1, 1, n] - S2[-2, 1, 1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (15*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] - (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] - (5*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (33*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (13*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + S2[1, -2, -1, 1, -1, n] - 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   (5*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, 1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 2*S2[1, -1, -1, 1, 2, n] - 
   S2[1, -1, 1, -2, -1, n] + (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 - (9*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - 3*S2[1, -1, 1, 1, -2, n] - 
   2*S2[1, -1, 1, 2, -1, n] - 3*S2[1, 1, -2, -1, 1, n] - 
   4*S2[1, 1, -2, 1, -1, n] - S2[1, 1, -1, -2, -1, n] - 
   S2[1, 1, -1, -1, -2, n] + 3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   (9*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 4*S2[1, 1, -1, 1, -2, n] - 
   2*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] + 
   (7*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 - S2[1, 1, -1, 1, 2, n] - 
   2*S2[1, 1, -1, 2, -1, n] - 14*S2[1, 1, 1, -2, -1, n] - 
   8*S2[1, 1, 1, -1, -2, n] - 4*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 3*S2[1, 1, 1, -1, 2, n] - 
   16*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   4*S2[1, 1, 2, -1, 1, n] - 8*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] + 
   3*S2[2, 1, 1, 1, 1, n] + S2[-1, -1, -1, 1, -1, -1, n]/2 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/2 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   3*S2[-1, 1, -1, -1, -1, -1, n] + (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   2*S2[-1, 1, -1, -1, 1, 1, n] + (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 
   S2[-1, 1, 1, -1, -1, -1, n]/2 + S2[-1, 1, 1, -1, -1, 1, n] + 
   S2[-1, 1, 1, 1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 5*S2[1, -1, -1, -1, -1, -1, n] - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 - (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   3*S2[1, -1, -1, 1, 1, -1, n] - S2[1, -1, 1, -1, -1, -1, n] - 
   3*S2[1, 1, -1, -1, -1, -1, n] + S2[1, 1, -1, -1, 1, -1, n] - 
   S2[1, 1, -1, 1, -1, -1, n] - (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[2, -1, -1, 1, -1, n] -> 
  (3*Diff[Half[S2[1, n], n], n, 1]^3)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 + 
   (49*Diff[Half[S2[1, n], n], n, 5])/320 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (21*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (11*Diff[S2[1, n], n, 1]^3)/32 - (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (59*Diff[S2[1, n], n, 2]^2)/48 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/64 + 
   (109*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/64 - 
   (49*Diff[S2[1, n], n, 5])/320 - 3*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   Diff[S2[-2, 1, n], n, 3]/4 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 - 
   (19*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   Diff[S2[-1, 1, n], n, 4]/3 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/24 + Diff[S2[1, 2, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, -1, n], n, 2]/2 - Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - 
   2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/2 - (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (115*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (77*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 - 
   (21*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (9*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (39*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n] - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/4 + 
   (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 - 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 - S2[-1, Infinity]^6/90 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/3 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (77*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (145*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (21*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (55*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n] + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (9*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (15*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (9*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (133*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (S2[-1, Infinity]^5*S2[1, n])/10 + 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   2*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - (23*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    16 - (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 + 
   (21*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (161*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + 
   (15*S2[-1, Infinity]^4*S2[1, n]^2)/64 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 + 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (2*Half[S2[1, n], n]^3*S2[1, n]^3)/3 + (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    96 + (47*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 + (7*Half[S2[1, n], n]^2*S2[1, n]^4)/
    6 - (23*Half[S2[1, n], n]*S2[1, n]^5)/24 + (7*S2[1, n]^6)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (79*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (53*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 - 
   2*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (101*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    16 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (59*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (45*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (147*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (21*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (4*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (35*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (79*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/8 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/8 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (207*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (63*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/8 + (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/2 + (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/
    8 - (231*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/
    32 + (45*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (67*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (131*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (61*S2[1, n]^4*S2[2, Infinity])/48 - 
   (1117*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (407*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (123*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (223*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (653*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (549*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (87*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (1129*S2[1, n]^2*S2[2, Infinity]^2)/320 - (32267*S2[2, Infinity]^3)/6720 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (67*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (327*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/16 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (443*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (147*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (603*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (383*S2[1, n]^3*S2[3, Infinity])/128 + 
   (187*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (11*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (211*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (91*S2[3, Infinity]^2)/48 + (213*Half[S2[1, n], n]*S2[5, Infinity])/128 - 
   (63*S2[1, n]*S2[5, Infinity])/128 - (27*S2[-5, -1, Infinity])/8 - 
   4*S2[-5, 1, n] + 2*S2[1, n]*S2[-4, 1, n] - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 + 
   Diff[S2[1, n], n, 1]*S2[-3, 1, n] + (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/
    16 + Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n] - 
   (23*S2[1, n]^2*S2[-3, 1, n])/16 - (19*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (13*S2[1, n]^3*S2[-2, 1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/2 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (13*S2[3, Infinity]*S2[-2, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (51*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (37*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n] - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (97*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n] + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 - 
   (91*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/3 + 
   (19*S2[1, n]^4*S2[-1, 1, n])/24 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (49*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (75*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (17*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (473*S2[2, Infinity]^2*S2[-1, 1, n])/80 - 
   (45*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (121*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (15*S2[-3, 1, n]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (15*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (29*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (9*S2[1, n]^2*S2[-1, 1, n]^2)/8 + (11*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   (5*S2[-1, 1, n]^3)/8 - (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 + 
   (7*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (37*S2[1, n]^3*S2[2, 1, n])/48 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (7*S2[3, Infinity]*S2[2, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 2*S2[-4, 1, 1, n] + 
   2*S2[1, n]*S2[-3, 1, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (5*S2[1, n]^2*S2[-2, 1, -1, n])/2 + (5*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (5*S2[-1, 1, n]*S2[-2, 1, -1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/2 - 
   (9*S2[1, n]^2*S2[-1, -2, -1, n])/16 - 
   (3*S2[2, Infinity]*S2[-1, -2, -1, n])/8 - 
   (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (17*S2[3, Infinity]*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (11*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (5*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 - (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (5*S2[2, 1, n]*S2[-1, 1, 1, n])/2 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/2 - (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (5*S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] - (S2[1, n]^2*S2[2, 1, -1, n])/8 - 
   (7*S2[2, Infinity]*S2[2, 1, -1, n])/4 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/
    4 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/2 + (5*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (5*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 2*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    8 - (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + 
   2*S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (45*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (77*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   10*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - S2[2, -2, 1, 1, n] - 
   2*S2[-2, 1, 1, 1, 1, n] + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   S2[1, n]*S2[-1, 1, -1, -1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/
    2 - (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 7*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - 12*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, -2, -1, 1, -1, n] + (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/
    2 - (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   2*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] - 
   2*S2[1, n]*S2[1, 1, -1, 1, -1, n] + 
   (7*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (7*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + S2[1, 1, 1, -1, 2, n] - 
   S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, 1, -1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/4 - (3*S2[-1, -1, 1, -1, -1, -1, n])/4 - 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 - S2[-1, 1, -1, -1, 1, 1, n] + 
   S2[-1, 1, 1, -1, -1, 1, n]/2 + S2[-1, 1, 1, 1, -1, -1, n] + 
   8*S2[-1, 1, 1, 1, 1, 1, Infinity] - (5*S2[1, -1, -1, -1, -1, -1, n])/2 - 
   (5*S2[1, -1, -1, 1, 1, -1, n])/2 + (3*S2[1, -1, 1, 1, -1, -1, n])/2 - 
   S2[1, 1, -1, -1, 1, -1, n]/2 - (3*S2[1, 1, 1, -1, -1, -1, n])/2, 
 S2[2, -1, -1, 1, 1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (13*Diff[Half[S2[1, n], n], n, 2]^2)/64 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (3*Diff[Half[S2[1, n], n], n, 5])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 3])/48 + Diff[Half[S2[4, 1, n], n], n, 1]/
    4 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (47*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (47*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (23*Diff[S2[1, n], n, 1]^3)/32 + (13*Diff[S2[1, n], n, 2]^2)/32 - 
   (113*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (53*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (59*Diff[S2[1, n], n, 5])/2880 - (3*Diff[S2[-4, 1, n], n, 1])/2 - 
   (3*Diff[S2[-3, 1, n], n, 2])/8 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   Diff[S2[-2, 1, n], n, 3]/12 + (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   Diff[S2[-1, 1, n], n, 4]/12 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (11*Diff[S2[2, 1, n], n, 3])/24 - (5*Diff[S2[4, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - Diff[S2[-2, 1, -1, n], n, 2]/4 + 
   Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 - (13*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[1, 2, -1, n], n, 2]/4 + Diff[S2[2, 1, -2, n], n, 1]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 - Diff[S2[2, 1, 1, n], n, 2]/4 + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/4 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 + 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/3 - (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    36 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    6 - (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/24 + (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/48 - (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 + 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 + (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/12 - 
   Half[S2[2, 1, n], n]^2/64 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + 
   (11*S2[-1, Infinity]^6)/1440 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (29*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (185*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (197*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (103*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (25*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/18 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (73*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (139*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (23*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (59*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (7*S2[-1, Infinity]^5*S2[1, n])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (155*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (91*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (143*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (10*Diff[S2[1, n], n, 3]*S2[1, n]^2)/9 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/12 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (73*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/32 - 
   (55*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   2*Diff[S2[1, n], n, 2]*S2[1, n]^3 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/
    24 - (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/12 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    48 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    24 + (Half[S2[1, n], n]*S2[1, n]^5)/12 - S2[1, n]^6/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (19*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (35*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (43*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/3 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/6 + (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    48 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/96 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (35*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (23*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (77*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (115*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (95*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (41*S2[1, n]^4*S2[2, Infinity])/48 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (983*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (341*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (363*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (929*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (523*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 + 
   (163*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (1667*S2[1, n]^2*S2[2, Infinity]^2)/960 - (8213*S2[2, Infinity]^3)/6720 - 
   (89*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (25*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (149*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (565*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (119*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 - 
   (55*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/96 + 
   (197*S2[1, n]^3*S2[3, Infinity])/192 - 
   (1451*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (27*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (2245*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (8155*S2[3, Infinity]^2)/3072 - (3*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (39*S2[1, n]*S2[5, Infinity])/8 + (23*S2[-5, -1, Infinity])/8 + 
   6*S2[1, n]*S2[-4, 1, n] - (43*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    48 + (43*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/24 - (31*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/3 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/12 - (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (29*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (S2[3, Infinity]*S2[-2, 1, n])/32 - S2[-2, 1, n]^2/4 + 
   (91*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (4*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/9 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (71*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 - (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (7*S2[1, n]^4*S2[-1, 1, n])/24 + (37*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (931*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 
   (73*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (205*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (47*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (25*S2[1, n]^2*S2[-1, 1, n]^2)/48 + (17*S2[2, Infinity]*S2[-1, 1, n]^2)/
    12 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (5*S2[1, n]^3*S2[2, 1, n])/24 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (67*S2[3, Infinity]*S2[2, 1, n])/96 - (S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - S2[2, 1, n]^2/4 + 
   7*S2[1, n]*S2[4, 1, n] + S2[1, n]*S2[-2, 1, -2, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 + (S2[2, Infinity]*S2[-2, 1, -1, n])/2 + 
   S2[-2, 2, -2, n]/2 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    48 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 + 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (23*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - S2[-1, 1, -1, n]^2/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   2*S2[1, n]^3*S2[-1, 1, 1, n] - 3*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + 4*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (19*S2[3, Infinity]*S2[-1, 1, 1, n])/8 + S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, 1, n]^2 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + S2[1, n]^2*S2[1, 2, -1, n] + 
   S2[-1, 1, n]*S2[1, 2, -1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/24 + (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (11*S2[1, n]^2*S2[2, 1, -1, n])/12 - (S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (11*S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - S2[1, n]^2*S2[2, 1, 1, n] + 
   S2[2, Infinity]*S2[2, 1, 1, n] + 3*S2[1, n]*S2[3, 1, 1, n] + 
   2*S2[4, 1, 1, n] + S2[-2, -2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   S2[1, n]^2*S2[-1, 1, -1, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, n])/2 + (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (21*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (19*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, -1, 1, -2, n] - S2[1, n]*S2[1, 1, -2, -1, n] + 
   2*S2[1, n]*S2[2, 1, 1, 1, n] - S2[2, 2, 1, 1, n] + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + S2[1, n]*S2[-1, 1, -1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, 1, 1, -1, n] + 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] - 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (19*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (35*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, -2, n] + 
   S2[1, 1, -2, -1, 1, n] - (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - S2[1, 1, -1, 1, -2, n] - 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] - S2[1, 1, 1, -1, -2, n] - 
   2*S2[2, 1, 1, 1, 1, n] - S2[-1, 1, -1, -1, -1, 1, n]/4 + 
   S2[-1, 1, 1, 1, -1, 1, n] - (11*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, -1, -1, 1, -1, n]/4 + S2[1, -1, -1, 1, -1, -1, n]/2 + 
   S2[1, -1, 1, -1, -1, -1, n]/2 + S2[1, 1, -1, -1, -1, -1, n] + 
   2*S2[1, 1, 1, -1, 1, -1, n] + 4*S2[1, 1, 1, 1, -1, -1, n], 
 S2[2, -1, 1, -1, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/192 + 
   (65*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (2567*Diff[Half[S2[1, n], n], n, 5])/5760 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/192 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 + 
   (53*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (797*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (101*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/192 + 
   (167*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (143*Diff[S2[1, n], n, 1]^3)/96 - (331*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (427*Diff[S2[1, n], n, 2]^2)/96 - 
   (3547*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (3133*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (2837*Diff[S2[1, n], n, 5])/5760 - Diff[S2[-4, 1, n], n, 1]/2 + 
   (71*Diff[S2[-3, 1, n], n, 2])/96 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (53*Diff[S2[-2, 1, n], n, 3])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (59*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (191*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/192 - 
   (105*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (247*Diff[S2[-1, 1, n], n, 4])/192 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[2, 1, n], n, 3])/12 + 2*Diff[S2[4, 1, n], n, 1] - 
   2*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + (5*Diff[S2[-1, -2, -1, n], n, 2])/
    96 + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/48 - 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/96 + 
   Diff[S2[-1, 1, -1, n], n, 3]/32 - (53*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, n], n, 3]/2 + (13*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (65*Diff[S2[2, 1, -1, n], n, 2])/48 - 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[3, 1, 1, n], n, 1] - 
   (3*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (19*Diff[S2[-1, 1, -1, -1, n], n, 2])/48 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    4 - (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 + 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + 2*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (15*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (101*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (25*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (89*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 + (425*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (907*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (85*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (41*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (85*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (21*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 + 
   (91*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 + 
   (157*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (215*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 - (305*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 + (Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/
    24 + (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   Half[S2[2, 1, n], n]^2/64 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   Half[S2[4, 1, 1, n], n]/16 + Half[S2[2, 2, 1, 1, n], n]/16 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 + 
   (11*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + S2[-1, Infinity]^6/160 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 - (617*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (137*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (985*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (2035*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (205*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (19*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (149*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 - 
   (299*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (27*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 + 
   (27*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (9*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (79*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (13*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (35*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/3 - (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (71*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (119*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (49*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (53*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (3*S2[-1, Infinity]^5*S2[1, n])/320 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 + 
   (259*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (29*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (19*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 - 
   (2447*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (29*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 - 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (49*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (55*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 - 
   (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 + 
   (25*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (97*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/12 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    12 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + (11*Half[S2[1, n], n]^2*S2[1, n]^4)/
    24 - (5*Half[S2[1, n], n]*S2[1, n]^5)/12 + (11*S2[1, n]^6)/96 + 
   (97*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/48 - 
   (685*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (163*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 + 
   (187*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 - (171*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (61*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (227*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 + 
   (13*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (35*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (133*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (263*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 - (227*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 + 
   (31*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (9*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (81*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (155*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (17*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/16 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (37*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (137*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (293*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (119*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (49*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (23*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (43*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (99*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (35*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity] + 
   (509*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (117*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (31*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (113*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (79*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (23*S2[1, n]^4*S2[2, Infinity])/32 + 
   (721*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (655*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 - 
   (989*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (131*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (1173*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (1703*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (767*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (151*S2[1, n]^2*S2[2, Infinity]^2)/384 - (19181*S2[2, Infinity]^3)/1920 - 
   (207*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (251*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (243*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 + (143*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (Half[S2[1, n], n]^3*S2[3, Infinity])/64 + 
   (15*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (193*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 - 
   (243*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (515*S2[1, n]^3*S2[3, Infinity])/384 - 
   (547*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (45*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (9649*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (1799*S2[3, Infinity]^2)/3072 + (1977*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (9881*S2[1, n]*S2[5, Infinity])/512 + (37*S2[-5, -1, Infinity])/
    16 - S2[-5, 1, n] - (S2[1, n]*S2[-4, 1, n])/2 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (145*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 - 
   (29*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 + 
   (53*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (17*S2[1, n]^2*S2[-3, 1, n])/48 - (127*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n] + (13*S2[1, n]^3*S2[-2, 1, n])/
    24 - (43*Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (115*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (3*S2[3, Infinity]*S2[-2, 1, n])/32 - (5*S2[-2, 1, n]^2)/4 - 
   (29*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/96 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (323*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 - 
   (167*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (199*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (85*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (205*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (43*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (13*S2[1, n]^4*S2[-1, 1, n])/48 + (67*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (35*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/6 + 
   (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (19*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (77*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (91*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (439*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (143*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (181*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   S2[-3, 1, n]*S2[-1, 1, n] - (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (9*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (15*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + S2[-1, 1, n]^3/16 - (19*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    32 + (33*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] - 
   (3*Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (7*S2[1, n]^3*S2[2, 1, n])/16 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (19*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (3*S2[3, Infinity]*S2[2, 1, n])/32 - (5*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/4 + 
   (S2[1, n]*S2[4, 1, n])/2 - 2*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (7*S2[1, n]^2*S2[-2, 1, -1, n])/8 + 
   (9*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/
    4 + (5*S2[-2, 2, -2, n])/8 + (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/96 + (31*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (17*S2[1, n]^2*S2[-1, -2, -1, n])/48 - 
   (31*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/6 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 + 
   (91*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/8 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/8 + (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (33*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (69*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (7*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 + (3*S2[-1, 1, 1, n]^2)/4 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/8 - 4*S2[2, Infinity]*S2[1, 2, -1, n] - 
   (5*S2[-1, 1, n]*S2[1, 2, -1, n])/4 - (S2[1, n]*S2[2, 1, -2, n])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (11*S2[1, n]^2*S2[2, 1, -1, n])/24 - (73*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - S2[-1, 1, n]*S2[2, 1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/8 + 4*S2[2, Infinity]*S2[2, 1, 1, n] + 
   (5*S2[-1, 1, n]*S2[2, 1, 1, n])/4 + S2[3, 1, -2, n]/2 - 
   (5*S2[4, 1, 1, n])/2 + S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n]/2 + 
   (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - S2[-2, 2, 1, 1, n]/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (25*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (5*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 - (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (11*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (25*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (63*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   S2[2, -2, 1, 1, n]/2 + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   (3*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (5*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (7*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (15*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (29*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + S2[1, -1, -1, 1, -2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] + 
   S2[1, -1, 1, -2, -1, n] - (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    8 + (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/
    2 + (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, -1, n] + (3*S2[1, 1, -2, -1, 1, n])/2 + 
   2*S2[1, 1, -2, 1, -1, n] + 2*S2[1, 1, -1, -2, -1, n] + 
   2*S2[1, 1, -1, -1, -2, n] - (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    2 + (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 2*S2[1, 1, -1, 1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 + S2[1, 1, -1, 1, 2, n] + 
   S2[1, 1, -1, 2, -1, n] + 7*S2[1, 1, 1, -2, -1, n] + 
   4*S2[1, 1, 1, -1, -2, n] + (5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/
    4 - (5*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + 2*S2[1, 1, 1, -1, 2, n] + 
   5*S2[1, 1, 1, 2, -1, n] + 2*S2[1, 1, 2, -1, -1, n] + 
   (3*S2[1, 1, 2, -1, 1, n])/2 + 2*S2[1, 1, 2, 1, -1, n] + 
   S2[1, 2, 1, -1, -1, n] - (3*S2[2, 1, 1, 1, 1, n])/2 + 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + (7*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   S2[-1, -1, 1, 1, -1, -1, n]/4 + (5*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 - (5*S2[-1, 1, -1, -1, 1, 1, n])/4 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + S2[-1, 1, 1, -1, -1, -1, n]/4 - 
   (3*S2[-1, 1, 1, -1, -1, 1, n])/2 - 2*S2[-1, 1, 1, 1, -1, -1, n] + 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + (3*S2[1, -1, -1, -1, 1, -1, n])/8 + 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, -1, 1, 1, -1, n])/4 + 
   S2[1, -1, 1, -1, -1, -1, n]/2 - (3*S2[1, -1, 1, 1, -1, -1, n])/2 + 
   (3*S2[1, 1, -1, -1, -1, -1, n])/2 - (3*S2[1, 1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, 1, -1, 1, -1, -1, n])/4 + (3*S2[1, 1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[2, -1, 1, -1, 1, n] -> (47*Diff[Half[S2[1, n], n], n, 2]^2)/128 + 
   (119*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   Diff[Half[S2[1, n], n], n, 5]/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (311*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 - 
   (103*Diff[S2[1, n], n, 1]^3)/96 - (85*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (55*Diff[S2[1, n], n, 2]^2)/64 - 
   (245*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (805*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (191*Diff[S2[1, n], n, 5])/1920 + (3*Diff[S2[-4, 1, n], n, 1])/2 + 
   (33*Diff[S2[-3, 1, n], n, 2])/32 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (47*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (19*Diff[S2[-2, 1, n], n, 3])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   (53*Diff[S2[-1, 1, n], n, 4])/192 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (5*Diff[S2[2, 1, n], n, 3])/24 + Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[-2, 1, -2, n], n, 1]/8 - (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + 
   (3*Diff[S2[-1, -2, -1, n], n, 2])/32 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/16 + (3*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   (3*Diff[S2[2, 1, -1, n], n, 2])/16 - (5*Diff[S2[2, 1, 1, n], n, 2])/8 - 
   Diff[S2[3, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, 1, n], n, 2]/16 + 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    4 + Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (23*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (41*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/288 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (25*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/3 + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 + (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   (3*Half[S2[2, 1, n], n]^2)/128 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^5)/80 - S2[-1, Infinity]^6/720 + 
   (199*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (149*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (341*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (187*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (61*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (33*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/2 + 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (35*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 + 
   (53*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (169*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 - (439*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (109*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (2*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (49*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (43*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (17*S2[-1, Infinity]^5*S2[1, n])/192 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (205*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/24 - 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 + 
   (221*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 - 
   (487*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 + 
   (161*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (83*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 + 
   (25*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (55*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (13*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (53*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + 
   (37*S2[-1, Infinity]^4*S2[1, n]^2)/192 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (131*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (35*Half[S2[1, n], n]^3*S2[1, n]^3)/48 + 
   (23*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (77*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (25*Half[S2[1, n], n]*S2[1, n]^5)/
    16 + (53*S2[1, n]^6)/96 + (31*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (313*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    48 - (99*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     S2[2, Infinity])/32 + (39*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (203*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (265*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 - (91*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (203*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 - 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (239*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (245*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    6 + (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    24 + (19*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/48 + 
   (55*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/192 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (73*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/32 - (13*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    6 + (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (79*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (19*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (11*S2[1, n]^4*S2[2, Infinity])/48 + 
   (319*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (65*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/24 - 
   (991*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (737*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (951*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (205*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/96 - 
   (425*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/64 - 
   (5059*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (26729*S2[2, Infinity]^3)/
    13440 - (15*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/16 + 
   (153*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (213*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (99*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/48 + 
   (127*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 - 
   (349*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (235*S2[1, n]^3*S2[3, Infinity])/192 + 
   (845*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (429*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (1643*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (1433*S2[3, Infinity]^2)/2048 + (97*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (1257*S2[1, n]*S2[5, Infinity])/128 - (3*S2[-5, -1, Infinity])/8 - 
   7*S2[1, n]*S2[-4, 1, n] + (35*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    24 - (97*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (59*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 + 
   (17*S2[1, n]^2*S2[-3, 1, n])/12 + (13*S2[2, Infinity]*S2[-3, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 - 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 + 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (S2[1, n]^3*S2[-2, 1, n])/6 + (73*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (145*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (107*S2[3, Infinity]*S2[-2, 1, n])/64 + (3*S2[-2, 1, n]^2)/8 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (37*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (127*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (41*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (35*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/6 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (25*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (125*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] - 
   (17*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 + 
   (4*S2[1, n]^4*S2[-1, 1, n])/3 + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (15*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (13*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (25*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (601*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (67*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (25*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (31*S2[-3, 1, n]*S2[-1, 1, n])/24 + 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (35*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/12 - 
   (35*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (53*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (9*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (39*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (11*S2[1, n]^3*S2[2, 1, n])/4 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (35*S2[3, Infinity]*S2[2, 1, n])/64 + (3*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] + (3*S2[2, 1, n]^2)/8 - 
   (9*S2[1, n]*S2[4, 1, n])/2 - S2[-3, -2, 1, n]/2 - 
   (3*S2[1, n]*S2[-3, 1, 1, n])/2 - (7*S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   S2[1, n]^2*S2[-2, 1, -1, n] - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (3*S2[-2, 2, -2, n])/8 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    24 - (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 + (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (43*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (29*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 - S2[-1, 1, -1, n]^2/32 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   3*S2[1, n]^3*S2[-1, 1, 1, n] + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (9*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (75*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - 2*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   (3*S2[-1, 1, 1, n]^2)/4 - (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   4*S2[1, n]^2*S2[1, 2, -1, n] + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 - (3*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/12 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (43*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 - 
   (19*S2[1, n]^2*S2[2, 1, -1, n])/6 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (17*S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (11*S2[1, n]^2*S2[2, 1, 1, n])/4 - (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   S2[1, n]*S2[3, 1, 1, n] - (3*S2[4, 1, 1, n])/2 - 
   (3*S2[-2, -2, 1, 1, n])/2 - (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (11*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 + (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (43*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (37*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   2*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   (15*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]*S2[1, -1, 1, -2, n] + (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, 2, n])/2 - (5*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n] - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (5*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (85*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (11*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, 1, -2, -1, 1, n]/2 - Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   (13*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + S2[1, 1, -1, 1, -2, n] + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 2*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 
   (3*S2[2, 1, 1, 1, 1, n])/2 + S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   S2[-1, 1, -1, 1, -1, -1, n]/4 - S2[-1, 1, -1, 1, 1, 1, n]/4 + 
   S2[-1, 1, 1, -1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   S2[-1, 1, 1, 1, 1, 1, Infinity] - S2[1, -1, -1, -1, 1, -1, n]/4 - 
   S2[1, -1, -1, 1, -1, -1, n]/4 + S2[1, 1, -1, -1, -1, -1, n]/2 - 
   (7*S2[1, 1, 1, -1, 1, -1, n])/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[2, -1, 1, 1, -1, n] -> (7*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (11*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 - 
   (581*Diff[Half[S2[1, n], n], n, 5])/1152 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 + 
   (349*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (317*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (303*Diff[S2[1, n], n, 1]^3)/64 + (147*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (147*Diff[S2[1, n], n, 2]^2)/32 + 
   (387*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/128 - 
   (2593*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/384 + 
   (163*Diff[S2[1, n], n, 5])/320 + (3*Diff[S2[-4, 1, n], n, 1])/2 + 
   (5*Diff[S2[-3, 1, n], n, 2])/16 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/16 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (23*Diff[S2[-2, 1, n], n, 3])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   (337*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (181*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (4*Diff[S2[-1, 1, n], n, 4])/3 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 - Diff[S2[1, n], n, 1]*
    Diff[S2[2, 1, n], n, 1] - (3*Diff[S2[2, 1, n], n, 3])/16 + 
   Diff[S2[4, 1, n], n, 1] + 3*Diff[S2[-3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, -2, n], n, 1]/8 + Diff[S2[-2, 1, -1, n], n, 2]/2 - 
   Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/16 - (7*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (11*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/16 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1]/2 - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 - Diff[S2[2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 + Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    8 + (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (47*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (133*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 + (241*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (17*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (17*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (19*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (27*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (23*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 - (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    24 + (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (17*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 - 
   (11*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   Half[S2[2, 1, n], n]^2/32 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/16 + (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (11*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/192 + 
   (7*S2[-1, Infinity]^6)/576 + (31*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 + 
   (29*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/32 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (251*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (205*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (1165*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (641*Diff[S2[1, n], n, 4]*S2[1, n])/384 - 
   (21*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 + 
   (33*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (123*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (23*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (13*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (25*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (39*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (119*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (89*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (67*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (59*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (9*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (17*Diff[S2[1, n], n, 3]*S2[1, n]^2)/8 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 - 
   (41*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/24 - (13*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    192 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (13*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (5*S2[1, n]^6)/48 - (Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/2 - (39*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    64 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (89*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (91*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (83*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (109*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (61*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (13*Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity] - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (79*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (103*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/8 - (9*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/16 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    64 + (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (195*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (13*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (7*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 - (109*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (129*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/
    16 + (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/
    64 + (39*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (37*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (41*S2[1, n]^4*S2[2, Infinity])/96 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/128 + 
   (187*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (443*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 - 
   (95*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/64 - 
   (125*S2[-1, Infinity]^2*S2[2, Infinity]^2)/32 - 
   (87*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (959*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (369*S2[1, n]^2*S2[2, Infinity]^2)/640 - (3119*S2[2, Infinity]^3)/896 - 
   (137*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 - 
   (41*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (517*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (401*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (9*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (505*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (845*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (183*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (99*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (47*S2[1, n]^3*S2[3, Infinity])/256 - 
   (1873*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (639*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (4333*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (1939*S2[3, Infinity]^2)/768 - (69*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (2125*S2[1, n]*S2[5, Infinity])/256 + (9*S2[-5, -1, Infinity])/2 - 
   2*S2[-5, 1, n] - (3*S2[1, n]*S2[-4, 1, n])/2 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (13*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (41*S2[1, n]^2*S2[-3, 1, n])/32 - (15*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 + 
   (11*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-2, 1, n] - (37*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/
    16 - (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 + 
   (S2[1, n]^3*S2[-2, 1, n])/48 - (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (19*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (21*S2[3, Infinity]*S2[-2, 1, n])/32 - S2[-2, 1, n]^2/2 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (45*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (21*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (7*S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (17*S2[1, n]^4*S2[-1, 1, n])/48 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (33*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (13*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (227*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (17*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (35*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (23*S2[-3, 1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/16 + (17*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 - 
   (29*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (13*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (53*S2[1, n]^3*S2[2, 1, n])/96 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (53*S2[3, Infinity]*S2[2, 1, n])/32 - S2[-2, 1, n]*S2[2, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - S2[2, 1, n]^2/2 + 
   (S2[1, n]*S2[4, 1, n])/2 + 2*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   S2[-2, 2, -2, n]/8 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    32 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/32 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    4 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/16 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (25*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (15*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*S2[-1, 1, 1, n]^2)/4 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    8 + (21*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   (S2[1, n]*S2[2, 1, -2, n])/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 + 2*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/16 + (S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (3*S2[-1, 1, n]*S2[2, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 - (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 + S2[1, n]*S2[3, 1, 1, n] + S2[4, 1, 1, n]/2 + 
   3*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n]/2 - 
   (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + S2[-2, 2, 1, 1, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (31*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (11*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (39*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (17*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (21*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 - (S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   S2[2, -2, 1, 1, n]/2 + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   S2[2, 2, 1, 1, n]/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (35*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (67*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, -2, n]/2 - 
   S2[1, -1, 1, 1, 2, n]/2 + S2[1, 1, -2, -1, 1, n]/2 + 
   S2[1, 1, -2, 1, -1, n] + (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, -1, n] + S2[1, 1, 1, -2, -1, n] + S2[1, 1, 1, -1, -2, n] + 
   3*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n]/2 + 
   2*S2[1, 1, 2, 1, -1, n] + S2[1, 2, 1, 1, -1, n] - 
   (3*S2[2, 1, 1, 1, 1, n])/2 - S2[-1, -1, -1, 1, -1, -1, n]/8 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/8 - S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - S2[-1, 1, -1, -1, -1, 1, n]/8 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 + S2[-1, 1, -1, 1, 1, 1, n]/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - 
   (35*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - (5*S2[1, -1, -1, -1, -1, -1, n])/
    4 + (3*S2[1, -1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, -1, -1, n]/2 + 
   S2[1, -1, 1, -1, -1, -1, n]/4 + (7*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[2, -1, 1, 1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 5]/12 - (2*Diff[Half[S2[1, n], n], n, 3]*
     Diff[S2[1, n], n, 1])/3 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1]^2 - Diff[S2[1, n], n, 1]^3 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/4 + 
   (3*Diff[S2[1, n], n, 2]^2)/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/2 + (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    6 - Diff[S2[1, n], n, 5]/12 - Diff[S2[-4, 1, n], n, 1]/2 + 
   Diff[S2[-3, 1, n], n, 2]/4 - (3*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 + Diff[S2[-2, 1, n], n, 3]/4 - 
   (2*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 - 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] + 
   (5*Diff[S2[-1, 1, n], n, 4])/24 - Diff[S2[-3, 1, 1, n], n, 1]/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/6 + Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -1, n], n, 2]/4 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + S2[-1, Infinity]^6/360 - 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/12 - Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] - (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/
    2 - (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - Diff[S2[1, n], n, 1]^2*
    Half[S2[1, n], n]*S2[1, n] + (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*
     S2[1, n])/2 + (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   2*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - (11*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    12 + (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/
    6 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   Diff[S2[1, n], n, 1]^2*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 - 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (S2[1, n]^4*S2[2, Infinity])/3 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/4 - (79*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (61*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/4 + 
   (73*S2[1, n]^2*S2[2, Infinity]^2)/80 + (3959*S2[2, Infinity]^3)/3360 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (5*S2[1, n]^3*S2[3, Infinity])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/3 + 
   (89*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (37*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   (139*S2[3, Infinity]^2)/768 + (3*S2[-5, -1, Infinity])/2 - S2[-5, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + S2[1, n]^2*S2[-3, 1, n] + 
   S2[2, Infinity]*S2[-3, 1, n] - (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (S2[1, n]^3*S2[-2, 1, n])/6 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (S2[3, Infinity]*S2[-2, 1, n])/3 + (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/
    2 - (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[2, Infinity]^2*S2[-1, 1, n])/2 - S2[-4, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + (S2[1, n]^2*S2[1, 2, -1, n])/
    2 + (S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + (S2[1, n]^2*S2[2, 1, -1, n])/
    2 + (S2[2, Infinity]*S2[2, 1, -1, n])/2 - Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, n] - S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (19*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]*S2[1, 1, -1, 2, n] + S2[2, -2, 1, 1, n]/2 + 
   2*S2[-2, 1, 1, 1, 1, n] - S2[1, 1, 1, -1, 2, n] - 
   2*S2[-1, 1, 1, 1, 1, 1, Infinity], S2[2, 1, -1, -1, -1, n] -> 
  (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/12 - 
   Diff[S2[1, 1, -1, -1, -1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + S2[-1, Infinity]^6/240 - (S2[-1, Infinity]^5*S2[1, n])/120 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (19*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (S2[1, n]^4*S2[2, Infinity])/8 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/8 - (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/16 - 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/8 + 
   (49*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (7*S2[1, n]^2*S2[2, Infinity]^2)/40 + (669*S2[2, Infinity]^3)/560 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[3, Infinity] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[3, Infinity])/2 - Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[3, Infinity] + (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 - 
   (S2[1, n]^3*S2[3, Infinity])/2 - (51*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/64 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/2 - (119*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   S2[3, Infinity]^2/8 + (125*S2[1, n]*S2[5, Infinity])/32 + 
   2*S2[-5, -1, Infinity] + (3*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   S2[1, n]*S2[3, Infinity]*S2[-1, 1, n] + (S2[2, Infinity]*S2[-1, 1, n]^2)/
    8 + (Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (S2[2, Infinity]*S2[-2, 1, -1, n])/2 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[3, Infinity]*S2[-1, 1, 1, n] + (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (S2[2, Infinity]*S2[2, 1, -1, n])/4 - (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - S2[1, 1, -2, -1, -1, n] - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] - 
   S2[1, 2, -1, -1, -1, n] - 3*S2[-1, 1, 1, 1, 1, 1, Infinity], 
 S2[2, 1, -1, -1, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/64 + 
   (35*Diff[Half[S2[1, n], n], n, 2]^2)/64 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (253*Diff[Half[S2[1, n], n], n, 5])/384 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 3])/96 - 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/16 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (167*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (40*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/9 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (1681*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (1483*Diff[S2[1, n], n, 1]^3)/192 + 
   (155*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 - 
   (253*Diff[S2[1, n], n, 2]^2)/48 + (4313*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 - (9713*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 + (337*Diff[S2[1, n], n, 5])/576 + 
   (3*Diff[S2[-4, 1, n], n, 1])/2 - (3*Diff[S2[-3, 1, n], n, 2])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (79*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (5*Diff[S2[-2, 1, n], n, 3])/3 - (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/32 + 
   (145*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (305*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (161*Diff[S2[-1, 1, n], n, 4])/96 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (9*Diff[S2[2, 1, n], n, 3])/16 + (7*Diff[S2[4, 1, n], n, 1])/2 + 
   7*Diff[S2[-3, 1, 1, n], n, 1] - (5*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   Diff[S2[-2, 1, -1, n], n, 2]/4 - Diff[S2[-1, -2, -1, n], n, 2]/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/96 - (29*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (15*Diff[S2[-1, 1, 1, n], n, 3])/16 - 2*Diff[S2[1, 2, -1, n], n, 2] - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - 2*Diff[S2[2, 1, -1, n], n, 2] - 
   Diff[S2[2, 1, 1, n], n, 2] - Diff[S2[3, 1, 1, n], n, 1] + 
   (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    16 + (13*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] - 2*Diff[S2[1, 1, -1, 2, n], n, 1] + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - 2*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (15*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (43*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (2*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/9 + (9*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (581*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (833*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (157*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (35*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (23*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    64 - (7*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (15*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (31*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (31*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 + (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (25*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 + 
   (19*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   Half[S2[2, 1, n], n]^2/64 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Half[S2[4, 1, 1, n], n])/16 - (29*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    64 - (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + 
   (17*S2[-1, Infinity]^6)/2880 + (31*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 + 
   (287*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (25*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (269*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (553*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (2309*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (337*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (127*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (87*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (153*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 + 
   (33*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (53*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (13*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (29*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (145*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (259*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (275*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (37*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (29*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   4*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (61*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (91*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (41*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (79*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (65*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (67*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (13*Half[S2[4, 1, n], n]*S2[1, n])/32 + (Half[S2[3, 1, 1, n], n]*S2[1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/4 - 
   (41*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (329*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/24 + 
   (575*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (203*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 + 
   (949*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 - 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 - (605*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (57*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (41*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (31*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (103*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/3 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (19*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (59*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (25*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (341*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (175*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (149*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/6 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    192 - (139*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (325*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (29*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (Half[S2[1, n], n]*S2[1, n]^5)/
    48 - S2[1, n]^6/8 + (23*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    16 - (505*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (179*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (51*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (59*Diff[S2[1, n], n, 3]*S2[2, Infinity])/72 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (69*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (9*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (83*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (65*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (151*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (3*Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (31*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (123*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (21*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (21*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (81*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/6 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (35*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (341*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (199*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 - (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (79*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (377*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (79*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (5*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/6 + (425*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (433*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (11*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/8 - (85*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 - (75*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    64 - 2*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity] + 
   (239*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (17*S2[1, n]^4*S2[2, Infinity])/32 + 
   (2323*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (143*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/120 + 
   (253*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (529*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (163*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/60 - 
   (273*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (4237*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (41417*S2[2, Infinity]^3)/
    13440 - (449*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (103*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 - 
   (401*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (1175*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (1093*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 + 
   (57*Half[S2[1, n], n]^3*S2[3, Infinity])/256 - 
   (13*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (497*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (1625*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 + 
   (1909*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 - 
   (599*S2[1, n]^3*S2[3, Infinity])/768 + 
   (1229*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (915*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (1823*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (2401*S2[3, Infinity]^2)/1024 + (195*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (1485*S2[1, n]*S2[5, Infinity])/256 - (13*S2[-5, -1, Infinity])/4 - 
   6*S2[-5, 1, n] - (9*S2[1, n]*S2[-4, 1, n])/2 + 
   (145*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 - 
   (2*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/3 + 
   (15*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (35*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (23*S2[1, n]^2*S2[-3, 1, n])/96 - (127*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 + 
   3*Diff[S2[1, n], n, 2]*S2[-2, 1, n] - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (317*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (55*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (59*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (35*S2[1, n]^3*S2[-2, 1, n])/48 - (31*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (61*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (S2[3, Infinity]*S2[-2, 1, n])/8 + S2[-2, 1, n]^2/4 - 
   (85*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (57*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (137*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (127*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/12 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (95*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/24 - 
   (139*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (257*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (7*S2[1, n]^4*S2[-1, 1, n])/16 + (4*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (103*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (5*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   2*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (2693*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (265*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (7*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (41*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/3 - (7*S2[2, Infinity]*S2[-1, 1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/6 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/32 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (51*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (103*S2[1, n]^3*S2[2, 1, n])/96 - 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] + (33*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (247*S2[3, Infinity]*S2[2, 1, n])/48 - (S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (13*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (3*S2[2, 1, n]^2)/4 - 
   (7*S2[1, n]*S2[4, 1, n])/2 + 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   2*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - (S2[1, n]^2*S2[-2, 1, -1, n])/
    4 + (5*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + (3*S2[-2, 2, -2, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (17*S2[1, n]^2*S2[-1, -2, -1, n])/96 - 
   (19*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (11*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 + 
   (117*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - S2[-1, 1, -1, n]^2/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 + 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    8 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (93*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 3*S2[2, 1, n]*S2[-1, 1, 1, n] - S2[-1, 1, 1, n]^2/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/2 + (S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + (5*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (67*S2[1, n]^2*S2[2, 1, -1, n])/48 + (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (11*S2[-1, 1, n]*S2[2, 1, -1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/2 + S2[2, Infinity]*S2[2, 1, 1, n] - 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (3*S2[3, 1, -2, n])/2 - 
   3*S2[1, n]*S2[3, 1, 1, n] - (9*S2[4, 1, 1, n])/2 + 9*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n]/2 - (7*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   (3*S2[-2, 2, 1, 1, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 + (17*Diff[S2[1, n], n, 1]*
     S2[-1, 1, -1, -1, n])/48 - (Half[S2[1, n], n]*S2[1, n]*
     S2[-1, 1, -1, -1, n])/6 - (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (45*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (87*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   6*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (75*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 + S2[1, n]*S2[1, 1, -1, 2, n] - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - S2[1, n]*S2[1, 2, -1, -1, n] - 
   (3*S2[2, -2, 1, 1, n])/2 + (S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n] + (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] + (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (29*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (41*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/2 - 
   (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, 1, n]/2 + 2*S2[1, 1, -2, 1, -1, n] - 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 2*S2[1, 1, -1, 1, -2, n] + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[1, 1, -1, 2, -1, n] + 
   7*S2[1, 1, 1, -2, -1, n] + 5*S2[1, 1, 1, -1, -2, n] + 
   2*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 9*S2[1, 1, 1, 2, -1, n] + 
   4*S2[1, 1, 2, -1, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] + S2[1, 2, -1, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] + 
   S2[2, 1, 1, 1, 1, n]/2 - (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 + S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/4 - S2[-1, 1, -1, -1, -1, 1, n]/8 + 
   S2[-1, 1, -1, 1, -1, -1, n]/4 - (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + 
   S2[-1, 1, 1, -1, -1, -1, n] - S2[-1, 1, 1, 1, -1, 1, n]/4 - 
   (17*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - (15*S2[1, -1, -1, -1, -1, -1, n])/
    4 - S2[1, -1, -1, -1, 1, -1, n]/8 + S2[1, -1, 1, -1, -1, -1, n]/4 + 
   S2[1, 1, -1, -1, -1, -1, n] - (5*S2[1, 1, 1, -1, 1, -1, n])/4 - 
   S2[1, 1, 1, 1, -1, -1, n], S2[2, 1, -1, 1, -1, n] -> 
  -Diff[S2[1, 1, -1, 1, -1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - S2[-1, Infinity]^6/144 + 
   (S2[-1, Infinity]^5*S2[1, n])/30 - (S2[-1, Infinity]^4*S2[1, n]^2)/24 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/2 - (7*S2[-1, Infinity]^4*S2[2, Infinity])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (2*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/2 - 
   (15*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/4 + 
   (45*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/2 - 
   (53*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (15*S2[1, n]^2*S2[2, Infinity]^2)/16 + (1049*S2[2, Infinity]^3)/560 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/16 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/16 - 
   (S2[1, n]^3*S2[3, Infinity])/16 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/2 + (S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/2 + 
   (21*S2[3, Infinity]^2)/64 - (277*S2[1, n]*S2[5, Infinity])/64 - 
   (7*S2[-5, -1, Infinity])/4 + (Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*
     S2[-1, 1, n])/2 - (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[2, Infinity]^2*S2[-1, 1, n])/4 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/8 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - S2[1, 1, -2, 1, -1, n] - 
   S2[1, 1, -1, 1, -2, n] - S2[1, 1, -1, 2, -1, n] - S2[1, 2, -1, 1, -1, n] + 
   5*S2[-1, 1, 1, 1, 1, 1, Infinity], S2[2, 1, -1, 1, 1, n] -> 
  (7*Diff[Half[S2[1, n], n], n, 5])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 + 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 - 
   4*Diff[S2[1, n], n, 1]^3 - 4*Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 2] + 4*Diff[S2[1, n], n, 2]^2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 - 
   (7*Diff[S2[1, n], n, 5])/16 - 3*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/4 - (5*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 + (5*Diff[S2[-2, 1, n], n, 3])/6 - 
   (15*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   (29*Diff[S2[-1, 1, n], n, 4])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   4*Diff[S2[-3, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/4 + (5*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (5*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 2*Diff[S2[-1, 1, 1, 1, n], n, 2] - 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^6/720 - 
   (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/3 + 
   7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (73*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (55*Diff[S2[1, n], n, 4]*S2[1, n])/24 + 3*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] - (9*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   (49*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 - 2*Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] - 3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] - 
   3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] + 2*Diff[S2[-1, 1, 1, 1, n], n, 1]*
    S2[1, n] - (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (21*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (S2[-1, Infinity]^5*S2[1, n])/60 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 - 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   (31*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (101*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 + 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/12 + (11*Diff[S2[1, n], n, 2]*S2[1, n]^3)/
    4 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] + (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/4 - (15*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
    S2[2, Infinity] - (49*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   6*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity] + 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (S2[1, n]^4*S2[2, Infinity])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/5 - (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 + 
   (137*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (5*S2[1, n]^2*S2[2, Infinity]^2)/4 - (799*S2[2, Infinity]^3)/3360 + 
   Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity] - 
   (55*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 + 
   Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 - 
   (37*S2[1, n]^3*S2[3, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/2 + 
   (279*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (53*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (775*S2[3, Infinity]^2)/256 + (291*S2[1, n]*S2[5, Infinity])/16 - 
   4*S2[-5, 1, n] + 5*S2[1, n]*S2[-4, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - 4*S2[1, n]^2*S2[-3, 1, n] + 
   S2[2, Infinity]*S2[-3, 1, n] - (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (S2[1, n]^3*S2[-2, 1, n])/2 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   S2[3, Infinity]*S2[-2, 1, n] + (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*S2[2, Infinity]^2*S2[-1, 1, n])/10 - S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (3*S2[1, n]^3*S2[2, 1, n])/2 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 + (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] - 5*S2[-4, 1, 1, n] + 
   7*S2[1, n]*S2[-3, 1, 1, n] - 2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   S2[3, Infinity]*S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + (S2[1, n]^2*S2[1, 2, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 2*S2[1, n]*S2[2, 1, -2, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + S2[1, n]^2*S2[2, 1, -1, n] - 
   S2[2, Infinity]*S2[2, 1, -1, n] + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] - 
   S2[-1, 1, n]*S2[2, 1, 1, n] - 4*S2[-3, 1, 1, 1, n] + 
   2*S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n] + 
   3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (33*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, -1, 1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] - 
   S2[1, n]*S2[1, 1, 2, -1, n] + S2[2, -2, 1, 1, n]/2 - 
   3*S2[-2, 1, 1, 1, 1, n] - 2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, -1, 1, 1, 2, n] - S2[1, 1, -1, 1, 2, n] + S2[1, 1, 2, -1, 1, n] + 
   S2[-1, 1, 1, 1, 1, 1, Infinity], S2[2, 1, 1, -1, -1, n] -> 
  -Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^6/240 + 
   (S2[-1, Infinity]^5*S2[1, n])/60 - (S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (2*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 + 
   (S2[1, n]^4*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 + 
   (53*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/4 - 
   (8*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (S2[1, n]^2*S2[2, Infinity]^2)/10 + S2[2, Infinity]^3/2 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (S2[1, n]^3*S2[3, Infinity])/6 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/6 - (31*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   S2[3, Infinity]^2/12 + (S2[1, n]*S2[5, Infinity])/32 - 
   S2[-5, -1, Infinity]/2 - (Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/4 + (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[2, Infinity]^2*S2[-1, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - S2[1, 1, 1, -2, -1, n] - 
   S2[1, 1, 1, -1, -2, n] - S2[1, 1, 2, -1, -1, n] - S2[1, 2, 1, -1, -1, n] + 
   3*S2[-1, 1, 1, 1, 1, 1, Infinity], S2[2, 1, 1, -1, 1, n] -> 
  (-61*Diff[Half[S2[1, n], n], n, 5])/240 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (17*Diff[S2[1, n], n, 1]^3)/8 + (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (19*Diff[S2[1, n], n, 2]^2)/8 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (155*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (61*Diff[S2[1, n], n, 5])/240 + 3*Diff[S2[-4, 1, n], n, 1] + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (7*Diff[S2[-2, 1, n], n, 3])/12 + 
   (13*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (31*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (5*Diff[S2[-3, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/3 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 2])/4 + Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (7*S2[-1, Infinity]^6)/1440 + (21*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/
    16 - (23*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (111*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (27*Diff[S2[1, n], n, 4]*S2[1, n])/16 - 2*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] + (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (19*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + 2*Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + 3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (27*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (33*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (S2[-1, Infinity]^5*S2[1, n])/120 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (57*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (57*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (21*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 - (21*Diff[S2[1, n], n, 2]*S2[1, n]^3)/
    8 + (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   (21*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (43*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] - (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[2, Infinity])/24 + Diff[S2[1, n], n, 2]*S2[-1, Infinity]*
    S2[2, Infinity] + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/8 + (7*S2[-1, Infinity]^4*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (39*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 + 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (5*S2[1, n]^4*S2[2, Infinity])/12 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 + 
   (47*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 - 
   (191*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (4*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (33*S2[1, n]^2*S2[2, Infinity]^2)/40 - (167*S2[2, Infinity]^3)/160 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 + 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/6 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (129*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 + 
   (209*S2[1, n]^3*S2[3, Infinity])/96 - 
   (11*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 - 
   (47*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (397*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 - 
   (215*S2[3, Infinity]^2)/384 - (281*S2[1, n]*S2[5, Infinity])/16 - 
   (15*S2[-5, -1, Infinity])/8 + 6*S2[-5, 1, n] - 
   (9*S2[1, n]*S2[-4, 1, n])/2 + (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + 
   (15*S2[1, n]^2*S2[-3, 1, n])/4 - (7*S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/12 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/
    4 - (S2[3, Infinity]*S2[-2, 1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (17*S2[2, Infinity]^2*S2[-1, 1, n])/10 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 - Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (3*S2[1, n]^3*S2[2, 1, n])/2 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   2*S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - (13*S2[3, Infinity]*S2[2, 1, n])/
    8 - (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 5*S2[-4, 1, 1, n] - 
   (13*S2[1, n]*S2[-3, 1, 1, n])/2 + S2[1, n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + 2*S2[3, Infinity]*S2[-1, 1, 1, n] - 
   2*S2[2, 1, n]*S2[-1, 1, 1, n] + (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/
    4 - (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + (S2[2, Infinity]*S2[1, 2, -1, n])/
    4 - 2*S2[1, n]*S2[2, 1, -2, n] + (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    4 - (3*S2[1, n]^2*S2[2, 1, -1, n])/4 + (S2[2, Infinity]*S2[2, 1, -1, n])/
    4 - (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 + 2*S2[-3, 1, 1, 1, n] - S2[1, n]*S2[-2, 1, 1, 1, n] - 
   (3*S2[-2, 2, 1, 1, n])/2 - 3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] + 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 5*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (23*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]*S2[1, -1, 1, 2, n] + (S2[1, n]*S2[1, 1, -1, 2, n])/2 + 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - S2[2, -2, 1, 1, n]/2 + 
   S2[-2, 1, 1, 1, 1, n]/2 + S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, 1, -1, 1, 2, n] + 
   S2[1, 1, 1, -1, 2, n] - S2[1, 1, 2, -1, 1, n]/2 + 
   (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, S2[2, 1, 1, 1, -1, n] -> 
  (2*Diff[Half[S2[1, n], n], n, 5])/15 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 - 
   Diff[S2[1, n], n, 1]^3 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/6 + (7*Diff[S2[1, n], n, 2]^2)/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 - 
   (2*Diff[S2[1, n], n, 5])/15 - Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] + 
   Diff[S2[-2, 1, n], n, 3]/3 - (5*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/6 - Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] + Diff[S2[-1, 1, n], n, 4]/3 - 
   Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + Diff[S2[1, 2, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, -1, n], n, 2]/2 - Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, 1, 1, n], n, 2] - Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   (4*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 + S2[-1, Infinity]^6/720 - 
   (11*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 + 
   (2*Diff[S2[1, n], n, 4]*S2[1, n])/3 - Diff[S2[-2, 1, n], n, 2]*S2[1, n] + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   Diff[S2[-1, 1, n], n, 3]*S2[1, n] - Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] - 
   Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] + Diff[S2[-1, 1, 1, 1, n], n, 1]*
    S2[1, n] - Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] + 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (S2[-1, Infinity]^5*S2[1, n])/120 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   2*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - (4*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    3 + Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2 + Diff[S2[-1, 1, n], n, 2]*
    S2[1, n]^2 - Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/6 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/3 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 + 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (41*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 + 
   (23*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (129*S2[2, Infinity]^3)/140 + (Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/6 - (Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/3 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/3 - 
   (7*S2[1, n]^3*S2[3, Infinity])/24 + 
   (29*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (259*S2[3, Infinity]^2)/384 + (135*S2[1, n]*S2[5, Infinity])/32 - 
   S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] - (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    3 + Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (S2[1, n]^3*S2[-2, 1, n])/3 + (S2[3, Infinity]*S2[-2, 1, n])/3 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/3 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - S2[-4, 1, 1, n] + 
   S2[1, n]*S2[-3, 1, 1, n] + (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + (S2[1, n]^2*S2[1, 2, -1, n])/
    2 - (S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + (S2[1, n]^2*S2[2, 1, -1, n])/
    2 - (S2[2, Infinity]*S2[2, 1, -1, n])/2 - S2[-3, 1, 1, 1, n] + 
   S2[1, n]*S2[-2, 1, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - S2[-2, 1, 1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - S2[1, 1, 1, 2, -1, n] - 
   S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, 1, -1, n] - 
   S2[-1, 1, 1, 1, 1, 1, Infinity], S2[-1, -2, -1, -1, -1, n] -> 
  (-17*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (11*Diff[Half[S2[1, n], n], n, 2]^2)/24 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 + 
   (269*Diff[Half[S2[1, n], n], n, 5])/5760 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 + 
   (29*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 - 
   (451*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (85*Diff[S2[1, n], n, 1]^3)/48 - (73*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (61*Diff[S2[1, n], n, 2]^2)/96 - 
   (397*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/72 - 
   (539*Diff[S2[1, n], n, 5])/5760 - 5*Diff[S2[-4, 1, n], n, 1] - 
   (193*Diff[S2[-3, 1, n], n, 2])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (169*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (19*Diff[S2[-2, 1, n], n, 3])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (15*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (123*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (47*Diff[S2[-1, 1, n], n, 4])/192 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (5*Diff[S2[2, 1, n], n, 3])/12 + 2*Diff[S2[4, 1, n], n, 1] - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/32 - (47*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, n], n, 3]/24 + (5*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1] + (3*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1] - (11*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    16 - Diff[S2[-1, 1, -1, 1, n], n, 2]/4 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 + Diff[S2[1, -1, 1, -2, n], n, 1]/2 + 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 2*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 2*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 + 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (11*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (23*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (51*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (227*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (11*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (37*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (301*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (115*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (25*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/32 + (109*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 - (15*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (49*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n] - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (11*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (49*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 - 
   (21*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (65*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 + (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/64 - 
   (45*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/128 + 
   (65*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (65*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (27*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (27*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 - 
   Half[S2[2, 1, n], n]^2/64 + (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   Half[S2[4, 1, 1, n], n]/16 + Half[S2[2, 2, 1, 1, n], n]/16 - 
   (115*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (17*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (83*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + 
   (17*S2[-1, Infinity]^6)/1440 + (233*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 - 
   (245*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (11*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (79*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (365*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (181*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (139*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (125*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/32 - 
   (101*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (47*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (49*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (11*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (49*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (19*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (19*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (63*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 - 
   (89*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (89*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (127*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (161*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (153*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 + 
   (37*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 + 
   (153*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (425*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/64 + 
   (67*Diff[S2[1, n], n, 3]*S2[1, n]^2)/384 + 
   (101*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 + 
   (59*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (57*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (95*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (83*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (51*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (13*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (49*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (41*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (2*Half[S2[1, n], n]^3*S2[1, n]^3)/3 + 
   (17*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (103*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/24 - (Half[S2[1, n], n]*S2[1, n]^5)/
    12 - (5*S2[1, n]^6)/96 + (61*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (175*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/192 + (83*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 - (Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/16 + (79*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/192 - 
   (475*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 + 
   (55*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 - 
   3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (45*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (9*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (29*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (85*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    32 + (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 + 
   (37*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (81*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (113*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/
    64 + (255*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (35*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (211*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   (319*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 + (31*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 - (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    64 - (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (109*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (111*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (13*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/3 - (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (275*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (69*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/8 - (91*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 + (211*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (45*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (33*S2[1, n]^4*S2[2, Infinity])/32 + 
   (587*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (305*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/64 - 
   (301*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 - 
   (983*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (131*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (913*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (241*S2[1, n]^2*S2[2, Infinity]^2)/640 - (170029*S2[2, Infinity]^3)/
    13440 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/8 - 
   (1885*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (701*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/384 + 
   (369*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 - (719*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 - 
   (91*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (105*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (277*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (1879*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (289*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (325*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (325*S2[1, n]^3*S2[3, Infinity])/96 - 
   (341*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (97*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (3023*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (10063*S2[3, Infinity]^2)/3072 - (3559*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (5433*S2[1, n]*S2[5, Infinity])/512 + (71*S2[-5, -1, Infinity])/
    16 - 12*S2[-5, 1, n] - 2*Half[S2[1, n], n]*S2[-4, 1, n] - 
   (S2[1, n]*S2[-4, 1, n])/2 + (103*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/96 + (473*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (5*S2[1, n]^2*S2[-3, 1, n])/4 - (81*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (61*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (31*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (13*S2[1, n]^3*S2[-2, 1, n])/6 - (37*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (41*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (299*S2[3, Infinity]*S2[-2, 1, n])/96 - S2[-2, 1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 + 
   (67*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (27*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/64 + Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] + (15*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (7*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 - 
   (33*S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (71*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (19*S2[1, n]^4*S2[-1, 1, n])/48 + (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (23*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (27*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (1343*S2[2, Infinity]^2*S2[-1, 1, n])/320 + 
   (241*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (69*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 + (11*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 - (25*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (41*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (3*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (35*S2[-1, 1, n]^3)/48 - (181*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    96 + (223*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/12 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (S2[1, n]^3*S2[2, 1, n])/12 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (71*S2[3, Infinity]*S2[2, 1, n])/32 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 - (5*S2[2, 1, n]^2)/4 - 
   Half[S2[1, n], n]*S2[4, 1, n] + (3*S2[1, n]*S2[4, 1, n])/2 + 
   S2[-3, -2, 1, n]/2 - S2[1, n]*S2[-3, 1, 1, n] - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (13*S2[1, n]^2*S2[-2, 1, -1, n])/8 + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/
    2 - (7*S2[-1, 1, n]*S2[-2, 1, -1, n])/4 + (5*S2[-2, 2, -2, n])/8 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/8 - (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (13*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   (45*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   (355*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 - 
   (7*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (27*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 - 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (21*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (91*S2[3, Infinity]*S2[-1, 1, 1, n])/64 + (7*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 + (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (7*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/4 - (7*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 + (3*S2[-1, 1, 1, n]^2)/4 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (7*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (7*S2[1, n]^2*S2[1, 2, -1, n])/8 - 
   (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 + (5*S2[-1, 1, n]*S2[1, 2, -1, n])/
    4 + (S2[1, n]*S2[2, 1, -2, n])/2 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (3*S2[2, Infinity]*S2[2, 1, -1, n])/8 + (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 - (7*S2[1, n]^2*S2[2, 1, 1, n])/8 + 
   (15*S2[2, Infinity]*S2[2, 1, 1, n])/4 - (5*S2[-1, 1, n]*S2[2, 1, 1, n])/
    4 + S2[3, 1, -2, n]/2 + Half[S2[1, n], n]*S2[3, 1, 1, n] - 
   S2[1, n]*S2[3, 1, 1, n] - (5*S2[4, 1, 1, n])/2 + 3*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n]/2 - (S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[-2, 2, 1, 1, n]/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 + (65*Diff[S2[1, n], n, 1]*
     S2[-1, 1, -1, -1, n])/48 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/
    8 - (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 - 
   (29*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + S2[2, Infinity]*
    S2[-1, 1, -1, 1, n] + (7*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (17*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (115*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (17*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (49*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (77*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (99*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] - (S2[1, n]*S2[1, 1, -2, -1, n])/2 - 
   (5*S2[1, n]*S2[1, 1, 2, -1, n])/2 - Half[S2[1, n], n]*
    S2[1, 2, -1, -1, n] + S2[1, n]*S2[1, 2, -1, -1, n] - 
   S2[2, -2, 1, 1, n]/2 + Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + 
   (S2[1, n]*S2[2, 1, 1, 1, n])/2 + S2[-2, 1, 1, 1, 1, n]/2 + 
   (7*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (7*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (9*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (17*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (23*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (83*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (161*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/2 + 
   S2[1, -1, 1, 1, 2, n]/2 + S2[1, -1, 1, 2, -1, n] + 
   4*S2[1, 1, -2, -1, -1, n] + (3*S2[1, 1, -2, -1, 1, n])/2 + 
   2*S2[1, 1, -2, 1, -1, n] + S2[1, 1, -1, -2, -1, n] + 
   S2[1, 1, -1, -1, -2, n] - (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    2 + (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 2*S2[1, 1, -1, 1, -2, n] - 
   (17*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (17*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 + S2[1, 1, -1, 2, -1, n] + 
   7*S2[1, 1, 1, -2, -1, n] + 4*S2[1, 1, 1, -1, -2, n] - 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + S2[1, 1, 1, -1, 2, n] + 
   9*S2[1, 1, 1, 2, -1, n] + 2*S2[1, 1, 2, -1, -1, n] + 
   (5*S2[1, 1, 2, -1, 1, n])/2 + S2[1, 1, 2, 1, -1, n] + 
   4*S2[1, 2, -1, -1, -1, n] + S2[1, 2, 1, -1, -1, n] - 
   S2[1, 2, 1, 1, -1, n] - (3*S2[2, 1, 1, 1, 1, n])/2 - 
   (11*S2[-1, -1, -1, 1, -1, -1, n])/8 - (11*S2[-1, -1, 1, -1, -1, -1, n])/
    8 + S2[-1, -1, 1, 1, -1, -1, n]/4 - (5*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 + (7*S2[-1, 1, -1, -1, 1, 1, n])/4 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + S2[-1, 1, 1, -1, -1, -1, n]/4 - 
   3*S2[-1, 1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - 
   (17*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - (25*S2[1, -1, -1, -1, -1, -1, n])/
    4 + (3*S2[1, -1, -1, -1, 1, -1, n])/8 + (3*S2[1, -1, -1, 1, -1, -1, n])/
    4 + (7*S2[1, -1, -1, 1, 1, -1, n])/4 + S2[1, -1, 1, -1, -1, -1, n]/2 - 
   3*S2[1, -1, 1, 1, -1, -1, n] + (3*S2[1, 1, -1, -1, -1, -1, n])/2 + 
   (7*S2[1, 1, -1, -1, 1, -1, n])/4 - (5*S2[1, 1, -1, 1, -1, -1, n])/4 - 
   (15*S2[1, 1, 1, -1, -1, -1, n])/4 + (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -2, -1, -1, 1, n] -> 
  (-17*Diff[Half[S2[1, n], n], n, 2]^2)/16 - 
   (173*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (23*Diff[Half[S2[1, n], n], n, 5])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/32 + 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/8 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/4 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (37*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 - 
   (3131*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (521*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 - 
   (469*Diff[S2[1, n], n, 1]^3)/24 - (175*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (187*Diff[S2[1, n], n, 2]^2)/16 - 
   (143*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/18 + 
   (5507*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (407*Diff[S2[1, n], n, 5])/320 - (11*Diff[S2[-4, 1, n], n, 1])/2 - 
   (11*Diff[S2[-3, 1, n], n, 2])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   (25*Diff[S2[-2, 1, n], n, 3])/8 + 2*Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[-1, 1, n], n, 1] - (21*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/2 + (5*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (735*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (349*Diff[S2[-1, 1, n], n, 4])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (9*Diff[S2[2, 1, n], n, 3])/8 - (13*Diff[S2[4, 1, n], n, 1])/2 - 
   (29*Diff[S2[-3, 1, 1, n], n, 1])/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   Diff[S2[-2, 1, -1, n], n, 2]/2 + (3*Diff[S2[-1, -2, -1, n], n, 2])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (39*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   2*Diff[S2[-1, 1, 1, n], n, 3] + (9*Diff[S2[1, 2, -1, n], n, 2])/2 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (35*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 + 5*Diff[S2[3, 1, 1, n], n, 1] - 
   (23*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    2 + Diff[S2[-1, 1, -1, 1, n], n, 2]/8 - 
   7*Diff[S2[-1, 1, 1, 1, n], n, 2] - Diff[S2[1, -1, 1, -2, n], n, 1] + 
   3*Diff[S2[1, -1, 1, 2, n], n, 1] - 4*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   (7*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - 2*Diff[S2[1, 2, -1, -1, n], n, 1] + 
   (9*Diff[S2[2, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/2 - 
   2*Diff[S2[-1, 1, -1, -1, -1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/4 - 
   9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   5*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - Diff[S2[1, -1, -1, 1, -1, n], n, 
    1] - (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/2 - 
   3*Diff[S2[1, 1, -1, -1, -1, n], n, 1] - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/3 - (289*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 - (7*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/4 + (377*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (205*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (107*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (71*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/72 - 
   (85*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (67*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (57*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (25*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/12 + 
   (11*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] - 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   2*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] - 
   (31*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (23*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/4 - 
   (97*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (29*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 - (117*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 + (265*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    96 - (31*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 - 
   (263*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (21*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/96 + 
   (13*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   (3*Half[S2[2, 1, n], n]^2)/32 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/2 - 
   (3*Half[S2[4, 1, 1, n], n])/8 + (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/24 + (89*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 + (15*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - S2[-1, Infinity]^6/180 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 - (1129*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (323*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (597*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (2353*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (389*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (13*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 - 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (215*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (155*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 - 
   (49*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (35*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 3*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (61*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (15*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 + 
   (809*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (31*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (413*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 - (259*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 + 
   (32*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (397*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (41*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (39*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (185*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (173*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (143*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (361*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/8 - 
   (95*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (161*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (179*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (133*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (105*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (53*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/24 - 
   (343*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (1559*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (3323*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (215*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (45*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 + 
   (47*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (149*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (233*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (43*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (193*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (9*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (53*S2[-1, Infinity]^4*S2[1, n]^2)/96 - 
   (247*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (115*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (239*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 - 
   (103*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (109*Half[S2[1, n], n]^3*S2[1, n]^3)/48 - 
   (71*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (197*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (35*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (25*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + S2[1, n]^6/6 - (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    2 + (439*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/144 + 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (75*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (397*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (22*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 + 
   (125*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (105*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (173*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (197*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    24 + (83*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]^4*S2[2, Infinity])/16 - 
   (41*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/2 + 
   (33*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (27*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (251*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (33*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (97*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (265*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (451*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (1097*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (287*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (499*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (185*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (59*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/32 - (13*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 - (59*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/12 + (365*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/96 - (265*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (133*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 + (25*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    16 + (799*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (169*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (63*S2[1, n]^4*S2[2, Infinity])/32 - 
   (423*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 - 
   (6527*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (3389*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (289*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 + 
   (11677*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (683*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (385*S2[1, n]^2*S2[2, Infinity]^2)/48 + (5325*S2[2, Infinity]^3)/448 + 
   (283*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 - 
   (31*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 + 
   (235*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 - 
   (497*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (453*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (29*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/8 + 
   (407*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (565*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (761*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (757*S2[1, n]^3*S2[3, Infinity])/384 - 
   (3385*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (57*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/2 - 
   (1615*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (8837*S2[3, Infinity]^2)/1536 + (511*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (10353*S2[1, n]*S2[5, Infinity])/256 + (53*S2[-5, -1, Infinity])/
    8 + 12*S2[-5, 1, n] + 3*Half[S2[1, n], n]*S2[-4, 1, n] + 
   (13*S2[1, n]*S2[-4, 1, n])/2 - (61*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/24 - (85*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (45*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (259*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 - 
   (13*S2[1, n]^2*S2[-3, 1, n])/12 + (233*S2[2, Infinity]*S2[-3, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 - 
   (25*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (13*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (143*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (361*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (209*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 - 
   (295*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (59*S2[1, n]^3*S2[-2, 1, n])/24 + (41*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (131*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (S2[3, Infinity]*S2[-2, 1, n])/2 + (3*S2[-2, 1, n]^2)/2 + 
   (89*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 - 
   (557*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 + 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (85*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/6 + 
   (7*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (79*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 + 
   (8*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 - (197*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (47*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (37*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (127*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (33*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (49*S2[1, n]^4*S2[-1, 1, n])/48 - (4*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (29*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (143*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (23*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (2287*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 
   (91*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (77*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (10*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (37*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/6 - 
   (17*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/24 + 
   (65*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (55*S2[1, n]^2*S2[-1, 1, n]^2)/48 + (S2[2, Infinity]*S2[-1, 1, n]^2)/3 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 - 
   (25*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - 3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[2, 1, n] - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    16 - (15*Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/2 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n] - 
   (43*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (7*S2[1, n]^3*S2[2, 1, n])/8 + (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (143*S2[3, Infinity]*S2[2, 1, n])/16 + 6*S2[-2, 1, n]*S2[2, 1, n] - 
   (15*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (37*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (9*S2[2, 1, n]^2)/2 - 
   S2[1, n]*S2[4, 1, n] - 12*S2[-4, 1, 1, n] + 3*Half[S2[1, n], n]*
    S2[-3, 1, 1, n] + (5*S2[1, n]*S2[-3, 1, 1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n] + 
   5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 2*Half[S2[1, n], n]^2*
    S2[-2, 1, -1, n] - (17*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (9*S2[1, n]^2*S2[-2, 1, -1, n])/4 - 6*S2[2, Infinity]*S2[-2, 1, -1, n] - 
   (9*S2[-2, 2, -2, n])/4 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/24 - (67*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (11*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/6 + (41*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 + (25*S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/8 - 
   (35*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (137*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (4*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 - 
   (79*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (11*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/6 - 
   (889*S2[3, Infinity]*S2[-1, 1, -1, n])/192 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (9*S2[-1, 1, -1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]^3*S2[-1, 1, 1, n] - 3*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - 3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   5*S2[1, n]^3*S2[-1, 1, 1, n] - 3*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (23*S2[3, Infinity]*S2[-1, 1, 1, n])/4 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - 6*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] - 
   12*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 2*Half[S2[1, n], n]^2*
    S2[1, 2, -1, n] + (13*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 + 
   (11*S2[1, n]^2*S2[1, 2, -1, n])/4 + (5*S2[2, Infinity]*S2[1, 2, -1, n])/
    2 + S2[-1, 1, n]*S2[1, 2, -1, n] + Half[S2[1, n], n]*S2[2, 1, -2, n] - 
   (9*S2[1, n]*S2[2, 1, -2, n])/2 - (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/12 - (211*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (11*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (49*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 + 
   (10*S2[1, n]^2*S2[2, 1, -1, n])/3 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 + (25*S2[-1, 1, n]*S2[2, 1, -1, n])/12 + Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   2*Half[S2[1, n], n]^2*S2[2, 1, 1, n] - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (33*S2[1, n]^2*S2[2, 1, 1, n])/4 - 6*S2[2, Infinity]*S2[2, 1, 1, n] + 
   3*S2[-1, 1, n]*S2[2, 1, 1, n] - 3*S2[3, 1, -2, n] - 
   S2[1, n]*S2[3, 1, 1, n] + 12*S2[4, 1, 1, n] - 18*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] + (17*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   3*S2[-2, 2, 1, 1, n] - (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/12 + (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    12 + (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (25*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (8*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, -1, 1, n] + (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - 
   S2[2, Infinity]*S2[-1, 1, -1, 1, n] + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   6*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   6*S2[1, n]^2*S2[-1, 1, 1, 1, n] + 12*S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 11*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - (89*Diff[S2[1, n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/8 - 
   (45*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (179*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (53*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (57*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   Half[S2[1, n], n]*S2[1, -1, 1, 2, n] + S2[1, n]*S2[1, -1, 1, 2, n] + 
   4*S2[1, n]*S2[1, 1, -2, -1, n] - (S2[1, n]*S2[1, 1, -1, 2, n])/2 + 
   3*S2[1, n]*S2[1, 1, 2, -1, n] + 3*S2[1, n]*S2[1, 2, -1, -1, n] + 
   3*S2[2, -2, 1, 1, n] - 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   (3*S2[2, 2, 1, 1, n])/2 - 9*S2[-2, 1, 1, 1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   3*S2[1, n]*S2[-1, -1, 1, -1, -1, n] - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (13*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (5*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] - 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (13*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (133*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   6*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (11*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 3*S2[1, -1, -1, 1, 2, n] + 
   (11*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (19*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - 3*S2[1, -1, 1, 1, -2, n] + 
   3*S2[1, -1, 1, 1, 2, n] - 2*S2[1, -1, 1, 2, -1, n] - 
   S2[1, 1, -2, -1, 1, n] - 3*S2[1, 1, -2, 1, -1, n] + 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (11*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 4*S2[1, 1, -1, 1, -2, n] - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 2*S2[1, 1, -1, 2, -1, n] - 
   13*S2[1, 1, 1, -2, -1, n] - 10*S2[1, 1, 1, -1, -2, n] - 
   6*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 18*S2[1, 1, 1, 2, -1, n] - 
   8*S2[1, 1, 2, -1, -1, n] - 3*S2[1, 1, 2, -1, 1, n] - 
   12*S2[1, 1, 2, 1, -1, n] - S2[1, 2, -1, 1, -1, n] - 
   4*S2[1, 2, 1, -1, -1, n] - 6*S2[1, 2, 1, 1, -1, n] + 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/4 + (9*S2[-1, -1, 1, -1, -1, -1, n])/4 - 
   2*S2[-1, -1, 1, 1, -1, -1, n] + (9*S2[-1, 1, -1, -1, -1, -1, n])/2 + 
   (11*S2[-1, 1, -1, -1, -1, 1, n])/4 - S2[-1, 1, -1, 1, -1, -1, n]/2 + 
   S2[-1, 1, -1, 1, 1, 1, n] - S2[-1, 1, 1, -1, -1, -1, n] + 
   4*S2[-1, 1, 1, 1, 1, 1, Infinity] + (15*S2[1, -1, -1, -1, -1, -1, n])/2 - 
   S2[1, -1, -1, -1, 1, -1, n]/4 - 3*S2[1, -1, -1, 1, -1, -1, n] - 
   (5*S2[1, -1, 1, -1, -1, -1, n])/2 - 4*S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, 1, -1, 1, -1, n], S2[-1, -2, -1, 1, -1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/192 + (77*Diff[Half[S2[1, n], n], n, 2]^2)/
    192 + (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    48 - (371*Diff[Half[S2[1, n], n], n, 5])/1152 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/24 - Diff[Half[S2[4, 1, n], n], n, 1]/
    16 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 + 
   (115*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (275*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (823*Diff[S2[1, n], n, 1]^3)/192 + 2*Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 2] - (21*Diff[S2[1, n], n, 2]^2)/8 + 
   (599*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/384 - 
   (541*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/128 + 
   (167*Diff[S2[1, n], n, 5])/576 - (7*Diff[S2[-3, 1, n], n, 2])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (7*Diff[S2[-2, 1, n], n, 3])/8 + (47*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/96 + 
   (151*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   Diff[S2[-1, 1, n], n, 1]^2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 + 5*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] - (41*Diff[S2[-1, 1, n], n, 4])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   Diff[S2[2, 1, n], n, 3]/16 + Diff[S2[4, 1, n], n, 1]/2 + 
   (5*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-2, 1, -2, n], n, 1]/8 + 
   Diff[S2[-2, 1, -1, n], n, 2]/4 - Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (19*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/16 - Diff[S2[1, 2, -1, n], n, 2] - 
   (7*Diff[S2[2, 1, -1, n], n, 2])/8 + Diff[S2[2, 1, 1, n], n, 2]/2 - 
   Diff[S2[3, 1, 1, n], n, 1] + 2*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/16 + (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    16 + (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 + (71*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (335*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (63*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 + (107*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 + 
   (27*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (21*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (41*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (9*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (19*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (47*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (173*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (141*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (151*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 - (133*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    96 + 3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (133*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 + 
   (27*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (167*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 + (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    64 - (47*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 + 
   Half[S2[2, 1, n], n]^2/64 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/16 - (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    32 - (21*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (131*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + 
   (3*S2[-1, Infinity]^6)/320 - (107*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/3 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (623*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (331*Diff[S2[1, n], n, 4]*S2[1, n])/384 - 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 + 
   (15*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (235*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (9*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (15*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (15*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 - 
   (15*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (21*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (35*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (135*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 - (25*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    4 + (127*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (49*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (27*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (295*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (631*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (75*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (75*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 + 
   (41*S2[-1, Infinity]^5*S2[1, n])/320 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (41*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (141*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (9*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (15*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 + 
   (15*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 + 
   (43*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 - 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (455*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (313*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (365*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (17*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (103*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 + 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (63*S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 + 
   (77*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (101*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   10*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 - 
   (29*Half[S2[1, n], n]^3*S2[1, n]^3)/24 + 
   (131*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (295*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (89*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (67*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (5*S2[1, n]^6)/12 + (9*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 - (145*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/192 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    64 + (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (167*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (103*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (29*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (43*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (69*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (161*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (61*Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (7*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (13*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (129*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (87*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (213*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (33*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/16 - Diff[Half[S2[1, n], n], n, 2]*
    S2[1, n]*S2[2, Infinity] - (91*Diff[S2[1, n], n, 2]*S2[1, n]*
     S2[2, Infinity])/96 - (27*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*
     S2[2, Infinity])/32 - (81*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/8 - 
   (23*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/8 + 
   (13*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/64 - 
   (147*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (117*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (213*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (3*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 + (149*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (133*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (21*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/4 + (381*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 - (69*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    64 - (109*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 - 
   (107*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (161*S2[1, n]^4*S2[2, Infinity])/96 + 
   (603*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (1087*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (417*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/128 + 
   (1267*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (621*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (641*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (1791*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (521*S2[1, n]^2*S2[2, Infinity]^2)/128 - (35129*S2[2, Infinity]^3)/13440 + 
   (169*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (143*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (1415*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (3211*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (467*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (35*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (1763*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (1691*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 - 
   (1987*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 + 
   (4787*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 - 
   (1805*S2[1, n]^3*S2[3, Infinity])/768 + 
   (1379*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (5881*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (1293*S2[3, Infinity]^2)/1024 + (1739*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (859*S2[1, n]*S2[5, Infinity])/256 + 3*S2[-5, -1, Infinity] - 
   2*S2[-5, 1, n] - (Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   2*S2[1, n]*S2[-4, 1, n] + (27*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    32 + (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (49*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (19*S2[1, n]^2*S2[-3, 1, n])/32 - (7*S2[2, Infinity]*S2[-3, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (29*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 + 
   (47*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 - 
   (103*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 + 
   (155*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 - 
   (179*S2[1, n]^3*S2[-2, 1, n])/48 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (17*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (27*S2[3, Infinity]*S2[-2, 1, n])/16 + S2[-2, 1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (83*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (11*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (19*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (83*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (129*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (179*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (77*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (71*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (63*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 - (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 + 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (93*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (175*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 + 
   (53*S2[1, n]^4*S2[-1, 1, n])/48 - (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (27*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (39*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (241*S2[2, Infinity]^2*S2[-1, 1, n])/320 + 
   (589*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (949*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (21*S2[-3, 1, n]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (19*S2[1, n]^2*S2[-1, 1, n]^2)/8 - (39*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 - (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 + 
   (7*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (49*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (67*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (85*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (53*S2[1, n]^3*S2[2, 1, n])/32 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (25*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (97*S2[3, Infinity]*S2[2, 1, n])/48 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (37*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (45*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (7*S2[2, 1, n]^2)/4 + 
   (5*S2[1, n]*S2[4, 1, n])/2 + 2*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 - 
   (3*Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + (S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (13*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (7*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (7*S2[1, n]^2*S2[-2, 1, -1, n])/4 + (7*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (5*S2[-2, 2, -2, n])/8 - (15*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/32 + (15*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (15*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (11*S2[1, n]^2*S2[-1, -2, -1, n])/32 - 
   (7*S2[2, Infinity]*S2[-1, -2, -1, n])/8 - 
   (13*S2[-1, 1, n]*S2[-1, -2, -1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (11*S2[1, n]^3*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (27*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (955*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (9*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (9*S2[-1, 1, -1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (5*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/2 + (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (15*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (19*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (75*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - 3*S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] - (7*S2[-1, 1, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (7*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   S2[2, Infinity]*S2[1, 2, -1, n] - (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + S2[1, n]*S2[2, 1, -2, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (15*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (23*S2[1, n]^2*S2[2, 1, -1, n])/16 - (S2[2, Infinity]*S2[2, 1, -1, n])/2 - 
   (9*S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (7*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   S2[2, Infinity]*S2[2, 1, 1, n] - (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 - 2*S2[1, n]*S2[3, 1, 1, n] - (11*S2[4, 1, 1, n])/2 + 
   3*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - 2*S2[1, n]*S2[-2, 1, 1, 1, n] + 
   S2[-2, 2, 1, 1, n]/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/8 - (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    16 - (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (11*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (19*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (63*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (189*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (39*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   Half[S2[1, n], n]*S2[1, -1, 1, 2, n] - S2[1, n]*S2[1, -1, 1, 2, n] + 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, 2, n])/2 + Half[S2[1, n], n]*S2[1, 1, 2, -1, n] - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - S2[2, -2, 1, 1, n]/2 - 
   (7*S2[1, n]*S2[2, 1, 1, 1, n])/2 + S2[2, 2, 1, 1, n] + 
   (3*S2[-2, 1, 1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    8 - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 + (3*Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (7*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 12*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] + 12*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (131*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (123*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (13*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (13*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 2*S2[1, -1, -1, 1, 2, n] - 
   (13*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (13*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, -1, 1, 1, 2, n]/2 + S2[1, -1, 1, 2, -1, n] - 
   S2[1, 1, -2, -1, 1, n]/2 + S2[1, 1, -2, 1, -1, n] - 
   (15*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (15*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - S2[1, 1, -1, 2, -1, n] + 
   4*S2[1, 1, 1, -2, -1, n] + 2*S2[1, 1, 1, -1, -2, n] + 
   3*S2[1, 1, 1, 2, -1, n] + 2*S2[1, 1, 2, -1, -1, n] + 
   S2[1, 1, 2, -1, 1, n]/2 + 2*S2[1, 1, 2, 1, -1, n] + 
   S2[1, 2, -1, 1, -1, n] + 2*S2[1, 2, 1, -1, -1, n] + 
   S2[1, 2, 1, 1, -1, n] + (7*S2[2, 1, 1, 1, 1, n])/2 - 
   S2[-1, -1, -1, 1, -1, -1, n]/8 - (3*S2[-1, -1, 1, -1, -1, -1, n])/8 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (9*S2[-1, 1, -1, -1, -1, 1, n])/8 - (3*S2[-1, 1, -1, 1, -1, -1, n])/4 - 
   (5*S2[-1, 1, -1, 1, 1, 1, n])/4 - (7*S2[-1, 1, 1, 1, -1, 1, n])/4 - 
   (27*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - (5*S2[1, -1, -1, -1, -1, -1, n])/
    4 - (9*S2[1, -1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, -1, -1, n] - 
   (3*S2[1, -1, 1, -1, -1, -1, n])/4 + 3*S2[1, 1, -1, -1, -1, -1, n] - 
   (19*S2[1, 1, 1, -1, 1, -1, n])/4 - 7*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -2, -1, 1, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (13*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 - 
   (181*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (625*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (241*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (261*Diff[S2[1, n], n, 1]^3)/32 + (277*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (409*Diff[S2[1, n], n, 2]^2)/48 + 
   (1051*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (779*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/64 + 
   (181*Diff[S2[1, n], n, 5])/192 + (13*Diff[S2[-4, 1, n], n, 1])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (25*Diff[S2[-2, 1, n], n, 3])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   (367*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (169*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (8*Diff[S2[-1, 1, n], n, 4])/3 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   10*Diff[S2[-3, 1, 1, n], n, 1] - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (49*Diff[S2[-1, 1, 1, n], n, 3])/24 - (11*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (11*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   2*Diff[S2[-1, 1, 1, -1, -1, n], n, 1] + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 + (7*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (139*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (241*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (19*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (65*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (31*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 - 
   (11*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   (3*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + 
   (47*S2[-1, Infinity]^6)/1440 + (43*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/48 + 
   (131*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (375*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (601*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (1579*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (269*Diff[S2[1, n], n, 4]*S2[1, n])/64 - 
   (27*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (39*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (157*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (589*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (15*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (13*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (31*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (127*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (145*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (77*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (11*S2[-1, Infinity]^5*S2[1, n])/80 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/2 - 
   (113*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (69*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (229*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (707*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 - 
   (31*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (123*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (11*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - 
   (127*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (39*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/12 + 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/192 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (47*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (43*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (11*Half[S2[1, n], n]*S2[1, n]^5)/
    12 - (7*S2[1, n]^6)/24 + (3*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/8 + (71*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    48 - Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity] + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (119*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 + (41*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (83*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (21*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (77*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (33*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    16 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (73*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (105*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (57*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (29*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/2 + 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 - (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (15*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    8 - (29*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (141*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (147*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/4 + (3*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/2 - (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/8 + (35*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/16 - (25*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/4 + (237*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 - (49*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 + 7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity] - 
   (41*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (127*S2[1, n]^4*S2[2, Infinity])/48 + 
   (1203*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (329*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (349*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (549*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (419*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 + 
   (87*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (153*S2[1, n]^2*S2[2, Infinity]^2)/320 + (13309*S2[2, Infinity]^3)/2240 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (467*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (967*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (67*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (35*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (155*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (399*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (849*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (863*S2[1, n]^3*S2[3, Infinity])/384 + 
   (1117*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (591*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (2017*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (1281*S2[3, Infinity]^2)/128 - (1997*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (67*S2[1, n]*S2[5, Infinity])/8 + (47*S2[-5, -1, Infinity])/4 + 
   10*S2[-5, 1, n] - 2*Half[S2[1, n], n]*S2[-4, 1, n] - 
   (9*S2[1, n]*S2[-4, 1, n])/2 + (15*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/16 - (9*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + 
   (13*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (51*S2[1, n]^2*S2[-3, 1, n])/16 - (15*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (61*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (11*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-2, 1, n] - (57*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/
    8 - (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (61*S2[1, n]^3*S2[-2, 1, n])/24 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (11*S2[3, Infinity]*S2[-2, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (79*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 2*Diff[S2[-1, 1, -1, n], n, 1]*
    S2[-1, 1, n] + 2*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] - 
   (91*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   Half[S2[2, 1, 1, n], n]*S2[-1, 1, n] - 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (103*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (23*S2[1, n]^4*S2[-1, 1, n])/24 + (27*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (109*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (29*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (35*S2[2, Infinity]^2*S2[-1, 1, n])/4 + 
   (19*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (149*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   3*S2[-3, 1, n]*S2[-1, 1, n] + (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 - 2*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (51*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   3*S2[1, n]^2*S2[-1, 1, n]^2 - (S2[2, Infinity]*S2[-1, 1, n]^2)/4 - 
   S2[-1, 1, n]^3/2 + (11*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 - 
   (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (13*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (41*S2[1, n]^3*S2[2, 1, n])/48 - (41*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (69*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (49*S2[3, Infinity]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + Half[S2[1, n], n]*S2[4, 1, n] - 
   S2[1, n]*S2[4, 1, n] + 16*S2[-4, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] - (15*S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 + (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   3*S2[2, Infinity]*S2[-2, 1, -1, n] - 4*S2[-1, 1, n]*S2[-2, 1, -1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (9*S2[1, n]^2*S2[-1, -2, -1, n])/16 + 
   (19*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   S2[-1, 1, n]*S2[-1, -2, -1, n] + (23*Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, -1, n])/48 - (23*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n] + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (25*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   (29*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + Diff[Half[S2[1, n], n], n, 2]*
    S2[-1, 1, 1, n] - (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   2*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, 1, n] - Half[S2[2, 1, n], n]*
    S2[-1, 1, 1, n] + 4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   4*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   8*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   4*S2[1, n]^3*S2[-1, 1, 1, n] - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + 3*S2[-1, Infinity]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (11*S2[3, Infinity]*S2[-1, 1, 1, n])/4 + 4*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   4*S2[2, 1, n]*S2[-1, 1, 1, n] + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/4 + 2*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + (21*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + 4*S2[-1, 1, n]*S2[1, 2, -1, n] - Half[S2[1, n], n]*S2[2, 1, -2, n] - 
   S2[1, n]*S2[2, 1, -2, n] + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/8 + (11*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/8 + (29*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + 2*S2[-1, 1, n]*S2[2, 1, -1, n] - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + (S2[1, n]^2*S2[2, 1, 1, n])/2 - 
   (7*S2[2, Infinity]*S2[2, 1, 1, n])/2 - (7*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 + 2*Half[S2[1, n], n]*S2[3, 1, 1, n] - 
   2*S2[1, n]*S2[3, 1, 1, n] + 10*S2[-3, 1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 3*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   (3*S2[-2, 2, 1, 1, n])/2 + (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    8 + (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 + Half[S2[1, n], n]^2*
    S2[-1, 1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] - (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (13*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (13*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, n]*S2[1, -1, 1, 2, n] - 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + (S2[1, n]*S2[1, 1, -1, 2, n])/2 + 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 - (5*S2[2, -2, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - S2[1, n]*S2[2, 1, 1, 1, n] + 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    4 - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 + 
   4*S2[1, n]*S2[-1, 1, 1, -1, -1, n] + Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] - S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 
   (27*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (33*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 - 
   2*S2[1, n]*S2[1, -1, -1, 1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + S2[1, -1, 1, 1, 2, n]/2 - 
   S2[1, 1, -1, -2, -1, n] - 2*S2[1, 1, -1, -1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   2*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] + 
   2*S2[1, n]*S2[1, 1, -1, 1, -1, n] + 2*S2[1, 1, -1, 1, 2, n] - 
   2*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   2*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 2*S2[1, 1, 1, -1, 2, n] + 
   2*S2[1, 1, 1, 2, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 + 
   S2[1, 1, 2, 1, -1, n] + S2[1, 2, 1, 1, -1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/4 - (3*S2[-1, -1, 1, -1, -1, -1, n])/4 - 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + S2[-1, 1, -1, -1, 1, 1, n] - 
   S2[-1, 1, 1, -1, -1, 1, n] - 2*S2[-1, 1, 1, 1, -1, -1, n] - 
   (47*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - (5*S2[1, -1, -1, -1, -1, -1, n])/
    2 + 2*S2[1, -1, -1, 1, 1, -1, n] - 3*S2[1, -1, 1, 1, -1, -1, n] - 
   3*S2[1, 1, -1, 1, -1, -1, n] - 6*S2[1, 1, 1, -1, -1, -1, n], 
 S2[-1, -2, 1, -1, -1, n] -> (13*Diff[Half[S2[1, n], n], n, 1]^3)/48 - 
   (95*Diff[Half[S2[1, n], n], n, 2]^2)/384 - 
   (245*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 - 
   (1127*Diff[Half[S2[1, n], n], n, 5])/2880 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/12 + (3*Diff[Half[S2[4, 1, n], n], n, 1])/
    32 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/2 - 
   (3*Diff[Half[S2[2, 1, 1, 1, n], n], n, 1])/8 + 
   (209*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (487*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 - 
   (265*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 + 
   (805*Diff[S2[1, n], n, 1]^3)/192 + 
   (65*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/16 - 
   (243*Diff[S2[1, n], n, 2]^2)/64 + (203*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/72 - (6467*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 + (1229*Diff[S2[1, n], n, 5])/2880 - 
   Diff[S2[-3, 1, n], n, 2]/2 - (4*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/3 + 
   (133*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (7*Diff[S2[-2, 1, n], n, 3])/8 - (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 + 
   (385*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (37*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (333*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (59*Diff[S2[-1, 1, n], n, 4])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (7*Diff[S2[2, 1, n], n, 3])/48 + 3*Diff[S2[-3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, -2, n], n, 1]/8 + Diff[S2[-2, 1, -1, n], n, 2]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, 1, n], n, 3] - (3*Diff[S2[1, 2, -1, n], n, 2])/2 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (5*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, 1, n], n, 2] + Diff[S2[3, 1, 1, n], n, 1] + 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    4 + (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 - 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    8 + (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (7*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 + 
   (5*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/3 + (151*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (335*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (161*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (29*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (163*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (7*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   2*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n] + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (13*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (11*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (35*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (121*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/192 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/72 + 
   (41*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/48 + (97*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 - (301*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 - (9*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (61*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/192 - (5*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 - (11*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/48 - (11*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (37*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/192 + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    4 - (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/32 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 - (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 - 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   (7*Half[S2[2, 1, n], n]^2)/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/2 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 + 
   (5*Half[S2[4, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, 1, n], n])/4 - 
   (3*Half[S2[2, 2, 1, 1, n], n])/16 - (3*Half[S2[2, 1, 1, 1, 1, n], n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 + 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + S2[-1, Infinity]^6/80 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (455*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 - 
   (409*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/192 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (707*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (65*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (13*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (233*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 + 
   (13*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + (23*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (35*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/12 - 
   (137*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (79*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (101*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (65*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (89*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (53*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (13*S2[-1, Infinity]^5*S2[1, n])/192 + 
   (103*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/192 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/64 + 
   (467*Diff[S2[1, n], n, 3]*S2[1, n]^2)/384 - 
   (89*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 + 
   (39*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (45*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (37*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/6 + 
   (133*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (9*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 + 
   (17*S2[-1, Infinity]^4*S2[1, n]^2)/64 - 
   (103*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/8 - 
   (49*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (17*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - (5*S2[1, n]^6)/24 - (37*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (65*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    576 - (23*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/96 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (17*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (155*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (89*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/192 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/96 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 - 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (73*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (89*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (165*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (51*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (39*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (51*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (15*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (19*S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (2*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/48 - 
   (25*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/192 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 - (411*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (83*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (139*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (99*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (115*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (5*S2[1, n]^4*S2[2, Infinity])/48 - 
   (377*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (931*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 - 
   (257*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (167*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (4779*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/60 + 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/8 - 
   (2207*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (18607*S2[2, Infinity]^3)/
    13440 - (1031*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (1027*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (433*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (8*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/3 + 
   (755*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 + 
   (85*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (203*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (14*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/3 - 
   (4993*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (1369*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 - 
   (2945*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 + 
   (547*S2[1, n]^3*S2[3, Infinity])/256 - 
   (553*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (2811*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (2011*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (22621*S2[3, Infinity]^2)/6144 + (817*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (763*S2[1, n]*S2[5, Infinity])/512 + (11*S2[-5, -1, Infinity])/4 + 
   S2[-5, 1, n] + (3*S2[1, n]*S2[-4, 1, n])/2 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 + 
   (37*Half[S2[1, n], n]^2*S2[-3, 1, n])/96 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (23*S2[1, n]^2*S2[-3, 1, n])/32 + (5*S2[2, Infinity]*S2[-3, 1, n])/12 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (4*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (7*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (69*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 + 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (109*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (79*S2[1, n]^3*S2[-2, 1, n])/48 + (47*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (39*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (17*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (171*S2[3, Infinity]*S2[-2, 1, n])/64 - (7*S2[-2, 1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 - 
   (85*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (67*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (713*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/576 - 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/3 + 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (59*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 - 
   (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (13*S2[1, n]^4*S2[-1, 1, n])/24 - (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (31*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (23*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (13*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (31*S2[2, Infinity]^2*S2[-1, 1, n])/96 - 
   (103*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/48 + 
   (413*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/96 - 
   (41*S2[-3, 1, n]*S2[-1, 1, n])/48 - 
   (17*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (13*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (77*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (11*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (2*S2[1, n]^2*S2[-1, 1, n]^2)/3 + (59*S2[2, Infinity]*S2[-1, 1, n]^2)/48 + 
   (5*S2[-1, 1, n]^3)/16 + (29*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    48 - (29*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (91*S2[1, n]^3*S2[2, 1, n])/96 + (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (85*S2[3, Infinity]*S2[2, 1, n])/192 - (3*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + S2[2, 1, n]^2/8 + 
   (S2[1, n]*S2[4, 1, n])/2 + 2*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] + (3*S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (5*S2[1, n]^2*S2[-2, 1, -1, n])/8 + (S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/4 + (3*S2[-2, 2, -2, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (7*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/96 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/32 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (11*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/2 + 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (41*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/96 - (33*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 + (17*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    96 - (551*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (5*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (11*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/8 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/8 + (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (45*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (57*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (39*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (41*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 - (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (19*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/8 + 
   S2[-1, 1, 1, n]^2 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (S2[1, n]^2*S2[1, 2, -1, n])/8 + 
   S2[2, Infinity]*S2[1, 2, -1, n] - (S2[-1, 1, n]*S2[1, 2, -1, n])/4 + 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/12 + (137*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/48 - 
   (4*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 + 
   (7*S2[1, n]^2*S2[2, 1, -1, n])/16 + (S2[2, Infinity]*S2[2, 1, -1, n])/3 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (9*S2[1, n]^2*S2[2, 1, 1, n])/8 - 
   (S2[2, Infinity]*S2[2, 1, 1, n])/2 + (S2[-1, 1, n]*S2[2, 1, 1, n])/4 + 
   S2[3, 1, -2, n]/2 - Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] - S2[4, 1, 1, n]/2 + 3*S2[-3, 1, 1, 1, n] + 
   (3*S2[-2, -2, 1, 1, n])/2 - Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 + S2[-2, 2, 1, 1, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/3 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/8 + 
   (17*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n])/2 - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] + (7*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (27*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (51*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - (3*S2[1, n]*S2[1, 1, -2, -1, n])/
    2 - Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + S2[1, n]*S2[1, 1, -1, 2, n] - 
   Half[S2[1, n], n]*S2[1, 1, 2, -1, n] + (S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   Half[S2[1, n], n]*S2[1, 2, -1, -1, n] - S2[1, n]*S2[1, 2, -1, -1, n] - 
   S2[2, -2, 1, 1, n]/2 - Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + 
   (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (7*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (9*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 8*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] - 8*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (31*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (65*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - S2[1, -1, -1, 1, 2, n] + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, -1, 1, 1, 2, n]/2 - S2[1, -1, 1, 2, -1, n] + 
   (3*S2[1, 1, -2, -1, 1, n])/2 + S2[1, 1, -2, 1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (5*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (7*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 + S2[1, 1, -1, 2, -1, n] + 
   S2[1, 1, 1, -2, -1, n] - (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + 2*S2[1, 1, 2, -1, -1, n] + 
   S2[1, 1, 2, -1, 1, n]/2 + 2*S2[1, 1, 2, 1, -1, n] - 
   3*S2[1, 2, -1, -1, -1, n] + S2[1, 2, 1, 1, -1, n] - 
   S2[2, 1, 1, 1, 1, n]/2 + S2[-1, -1, -1, 1, -1, -1, n]/4 + 
   (5*S2[-1, -1, 1, 1, -1, -1, n])/4 - (3*S2[-1, 1, -1, -1, 1, 1, n])/4 + 
   S2[-1, 1, -1, 1, -1, -1, n]/2 + S2[-1, 1, -1, 1, 1, 1, n] - 
   S2[-1, 1, 1, -1, -1, -1, n]/4 + (3*S2[-1, 1, 1, 1, -1, -1, n])/2 + 
   S2[-1, 1, 1, 1, -1, 1, n] - 9*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   (5*S2[1, -1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, -1, 1, -1, n]/4 + 
   S2[1, -1, -1, 1, -1, -1, n] - (3*S2[1, -1, -1, 1, 1, -1, n])/4 + 
   (3*S2[1, -1, 1, -1, -1, -1, n])/4 + (3*S2[1, -1, 1, 1, -1, -1, n])/2 - 
   2*S2[1, 1, -1, -1, -1, -1, n] - (3*S2[1, 1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, 1, -1, 1, -1, -1, n])/4 + (9*S2[1, 1, 1, -1, -1, -1, n])/4 + 
   3*S2[1, 1, 1, -1, 1, -1, n] + 4*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -2, 1, -1, 1, n] -> (-11*Diff[Half[S2[1, n], n], n, 1]^3)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 2]^2)/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 - 
   (53*Diff[Half[S2[1, n], n], n, 5])/960 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 - Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (305*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (65*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (1613*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (515*Diff[S2[1, n], n, 1]^3)/48 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (5*Diff[S2[1, n], n, 2]^2)/48 + 
   (281*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (313*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 - 
   (17*Diff[S2[1, n], n, 5])/960 - (9*Diff[S2[-4, 1, n], n, 1])/2 - 
   (17*Diff[S2[-3, 1, n], n, 2])/24 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (115*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   Diff[S2[-2, 1, n], n, 3]/2 - (33*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 - 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (517*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (23*Diff[S2[2, 1, n], n, 3])/24 + 4*Diff[S2[4, 1, n], n, 1] + 
   3*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/24 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, n], n, 3]/6 - Diff[S2[2, 1, -2, n], n, 1]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/3 - (13*Diff[S2[2, 1, 1, n], n, 2])/4 - 
   3*Diff[S2[3, 1, 1, n], n, 1] + (7*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (17*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 + (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + Diff[S2[1, -1, 1, -2, n], n, 
    1] - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 
   4*Diff[S2[1, 1, -2, -1, n], n, 1] - 2*Diff[S2[1, 1, -1, 2, n], n, 1] + 
   2*Diff[S2[1, 1, 2, -1, n], n, 1] + Diff[S2[1, 2, -1, -1, n], n, 1] - 
   5*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - 
   (5*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   (5*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (19*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/3 - (89*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 - (11*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (141*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (145*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (215*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (57*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 + 
   (29*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (19*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (257*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (93*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 + 
   (9*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (29*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (9*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (109*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (71*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (37*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   Half[S2[2, 1, n], n]^2/32 + (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/2 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 + 
   Half[S2[4, 1, 1, n], n]/8 + Half[S2[2, 2, 1, 1, n], n]/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (89*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/15 + S2[-1, Infinity]^6/144 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    24 + (67*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 - 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (683*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (749*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (329*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (271*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (23*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (607*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (163*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (11*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 - 
   (9*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (13*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (11*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (23*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (43*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/24 + 
   (53*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (37*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/6 + (359*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (443*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (10*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (305*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (71*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (119*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (29*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/16 + Half[S2[1, n], n]*
    Half[S2[2, 1, 1, n], n]*S2[1, n] - (3*Half[S2[3, 1, 1, n], n]*S2[1, n])/
    4 - (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (S2[-1, Infinity]^5*S2[1, n])/240 - 
   (143*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/96 - 
   (253*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/3 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/6 - 
   (1463*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 + 
   (1493*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (23*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/6 - 
   (179*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (27*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (35*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   (49*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (103*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (125*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (65*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (111*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/16 - 
   (121*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (11*S2[-1, Infinity]^4*S2[1, n]^2)/96 + 
   (235*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (61*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (79*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (9*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + 
   (23*Half[S2[2, 1, n], n]*S2[1, n]^3)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]^4)/6 - (23*Half[S2[1, n], n]*S2[1, n]^5)/
    12 + (19*S2[1, n]^6)/48 + (17*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/6 - (11*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    3 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (149*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    24 - (455*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (15*Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 - 
   (53*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (749*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (37*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (73*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/2 - 
   (87*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (29*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (69*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (69*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (237*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (29*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (35*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (65*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (8*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/3 - 
   (211*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (277*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (17*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/12 + (15*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    16 + (77*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (589*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (61*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (23*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (7*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/6 + (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/24 + (79*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/48 + (27*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/4 - (377*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 - (17*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 - (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 + 
   (301*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (67*S2[1, n]^4*S2[2, Infinity])/24 - 
   (577*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (3707*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 - 
   (37*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 + 
   (107*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (319*S2[-1, Infinity]^2*S2[2, Infinity]^2)/32 + 
   (231*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (583*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (129*S2[1, n]^2*S2[2, Infinity]^2)/80 - (9623*S2[2, Infinity]^3)/480 - 
   (811*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (57*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 - 
   (1087*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 + 
   (1447*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (175*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (53*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (13*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (767*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (41*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 - 
   (1859*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (967*S2[1, n]^3*S2[3, Infinity])/384 + 
   (25*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/24 - 
   (1265*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (181*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (259*S2[3, Infinity]^2)/1536 + (1995*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (8275*S2[1, n]*S2[5, Infinity])/128 - (27*S2[-5, -1, Infinity])/8 - 
   18*S2[-5, 1, n] + Half[S2[1, n], n]*S2[-4, 1, n] - 
   6*S2[1, n]*S2[-4, 1, n] - (21*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (25*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + 
   (5*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (37*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (101*S2[1, n]^2*S2[-3, 1, n])/48 - (125*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (43*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (265*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (35*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 + 
   (61*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (19*S2[1, n]^3*S2[-2, 1, n])/24 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 - 6*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (59*S2[3, Infinity]*S2[-2, 1, n])/24 - S2[-2, 1, n]^2/2 - 
   (73*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/48 - 
   (43*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/3 - 
   (727*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 + 
   (47*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/32 - 6*Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] - (43*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (9*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (65*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (161*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   4*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n] - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 - (109*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (139*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (37*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 + 
   (2*S2[1, n]^4*S2[-1, 1, n])/3 + (35*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (79*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   4*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n] - 
   (145*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (153*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (31*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (379*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (103*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (401*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (17*S2[-3, 1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (9*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (43*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 + 
   (37*S2[1, n]^2*S2[-1, 1, n]^2)/16 + (5*S2[2, Infinity]*S2[-1, 1, n]^2)/2 + 
   (11*S2[-1, 1, n]^3)/24 - (35*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    24 + (65*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (57*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (53*S2[1, n]^3*S2[2, 1, n])/48 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (99*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (15*S2[3, Infinity]*S2[2, 1, n])/4 - 3*S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 
   3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] - (5*S2[2, 1, n]^2)/2 - 
   Half[S2[1, n], n]*S2[4, 1, n] + 2*S2[1, n]*S2[4, 1, n] + 
   S2[-3, -2, 1, n] + Half[S2[1, n], n]*S2[-3, 1, 1, n] - 
   S2[1, n]*S2[-3, 1, 1, n] + Half[S2[1, n], n]*S2[-2, 1, -2, n] - 
   (3*S2[1, n]*S2[-2, 1, -2, n])/2 + (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - 6*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (5*S2[1, n]^2*S2[-2, 1, -1, n])/4 + 
   6*S2[2, Infinity]*S2[-2, 1, -1, n] + (7*S2[-1, 1, n]*S2[-2, 1, -1, n])/2 + 
   (5*S2[-2, 2, -2, n])/4 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/16 + (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (35*S2[1, n]^2*S2[-1, -2, -1, n])/48 - 
   (27*S2[2, Infinity]*S2[-1, -2, -1, n])/16 - 
   (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (17*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 - 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   (23*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   (137*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/8 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (11*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (9*S2[1, n]^3*S2[-1, 1, 1, n])/2 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (19*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (131*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - 
   (11*S2[-2, 1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - (S2[2, 1, n]*S2[-1, 1, 1, n])/
    2 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 + (3*S2[-1, 1, 1, n]^2)/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (37*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 6*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (11*S2[1, n]^2*S2[1, 2, -1, n])/2 - 
   (27*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (11*S2[-1, 1, n]*S2[1, 2, -1, n])/
    2 + Half[S2[1, n], n]*S2[2, 1, -2, n] + (3*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (43*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (89*S2[1, n]^2*S2[2, 1, -1, n])/24 - (33*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (7*S2[-1, 1, n]*S2[2, 1, -1, n])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (11*S2[1, n]^2*S2[2, 1, 1, n])/4 + 9*S2[2, Infinity]*S2[2, 1, 1, n] + 
   2*S2[-1, 1, n]*S2[2, 1, 1, n] + (7*S2[3, 1, -2, n])/2 - 
   Half[S2[1, n], n]*S2[3, 1, 1, n] + 3*S2[1, n]*S2[3, 1, 1, n] - 
   5*S2[4, 1, 1, n] + 8*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - (5*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   (5*S2[-2, 2, 1, 1, n])/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    8 - (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (15*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + S2[2, Infinity]*
    S2[-1, 1, -1, 1, n] - (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   4*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   4*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (23*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (89*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (11*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (159*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (19*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] + S2[1, n]*S2[1, -1, 1, -2, n] - 
   S2[1, n]*S2[1, -1, 1, 2, n] - 3*S2[1, n]*S2[1, 1, -2, -1, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] - 
   (7*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 2*S2[1, n]*S2[1, 2, -1, -1, n] - 
   (3*S2[2, -2, 1, 1, n])/2 + 5*S2[1, n]*S2[2, 1, 1, 1, n] + 
   (5*S2[-2, 1, 1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    2 - S2[1, n]*S2[-1, -1, 1, -1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   2*S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 8*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 + 3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   2*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (11*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 2*S2[1, -1, -1, 1, 2, n] + 
   S2[1, -1, 1, -2, -1, n] - 2*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n] + 
   3*S2[1, n]*S2[1, -1, 1, -1, -1, n] + 3*S2[1, -1, 1, 1, -2, n] - 
   (3*S2[1, -1, 1, 1, 2, n])/2 + 2*S2[1, -1, 1, 2, -1, n] + 
   3*S2[1, 1, -2, -1, 1, n] + 4*S2[1, 1, -2, 1, -1, n] + 
   2*S2[1, 1, -1, -2, -1, n] + 2*S2[1, 1, -1, -1, -2, n] - 
   (9*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (9*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 4*S2[1, 1, -1, 1, -2, n] + 
   2*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + 2*S2[1, 1, -1, 2, -1, n] + 
   14*S2[1, 1, 1, -2, -1, n] + 8*S2[1, 1, 1, -1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + 16*S2[1, 1, 1, 2, -1, n] + 
   4*S2[1, 1, 2, -1, -1, n] + (9*S2[1, 1, 2, -1, 1, n])/2 + 
   9*S2[1, 1, 2, 1, -1, n] + 2*S2[1, 2, 1, -1, -1, n] + 
   3*S2[1, 2, 1, 1, -1, n] - 3*S2[2, 1, 1, 1, 1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/2 - (3*S2[-1, -1, 1, -1, -1, -1, n])/2 + 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - 3*S2[-1, 1, -1, -1, -1, -1, n] - 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/4 - S2[-1, 1, -1, -1, 1, 1, n] - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + S2[-1, 1, 1, -1, -1, -1, n]/2 + 
   S2[-1, 1, 1, -1, -1, 1, n]/2 + 2*S2[-1, 1, 1, 1, -1, -1, n] + 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 5*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   5*S2[1, -1, -1, -1, -1, -1, n] + (3*S2[1, -1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, -1, -1, 1, -1, -1, n])/2 - (3*S2[1, -1, -1, 1, 1, -1, n])/2 + 
   S2[1, -1, 1, -1, -1, -1, n] + (5*S2[1, -1, 1, 1, -1, -1, n])/2 + 
   3*S2[1, 1, -1, -1, -1, -1, n] - S2[1, 1, -1, -1, 1, -1, n]/2 + 
   2*S2[1, 1, -1, 1, -1, -1, n] + (9*S2[1, 1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -2, 1, 1, -1, n] -> (7*Diff[Half[S2[1, n], n], n, 1]^3)/24 - 
   (23*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (83*Diff[Half[S2[1, n], n], n, 5])/1440 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/48 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/96 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/4 - 
   (499*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (133*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/6 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (219*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/16 - 
   (277*Diff[S2[1, n], n, 1]^3)/32 + (29*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - Diff[S2[1, n], n, 2]^2 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/72 + 
   (253*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (109*Diff[S2[1, n], n, 5])/720 + 4*Diff[S2[-4, 1, n], n, 1] + 
   (101*Diff[S2[-3, 1, n], n, 2])/48 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (13*Diff[S2[-2, 1, n], n, 3])/24 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (7*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, n], n, 1]^2/4 + (235*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/48 - 
   (285*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (23*Diff[S2[-1, 1, n], n, 4])/96 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[2, 1, n], n, 3])/6 - 4*Diff[S2[4, 1, n], n, 1] - 
   3*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + (7*Diff[S2[-1, -2, -1, n], n, 2])/
    48 - (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 + 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/48 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 + (31*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (101*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (19*Diff[S2[-1, 1, 1, n], n, 3])/24 - (5*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1] - (5*Diff[S2[2, 1, -1, n], n, 2])/24 + 
   (9*Diff[S2[2, 1, 1, n], n, 2])/4 + 2*Diff[S2[3, 1, 1, n], n, 1] - 
   2*Diff[S2[-2, 1, 1, 1, n], n, 1] + (11*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    12 + Diff[S2[-1, 1, -1, 1, n], n, 2]/2 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - Diff[S2[1, -1, 1, -2, n], n, 1] - 
   4*Diff[S2[1, 1, -2, -1, n], n, 1] + Diff[S2[1, 1, -1, 2, n], n, 1] - 
   4*Diff[S2[1, 1, 2, -1, n], n, 1] + 4*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/4 + 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + Diff[S2[-1, 1, 1, -1, -1, n], 
    n, 1] + (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/2 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 - 
   3*Diff[S2[1, 1, -1, -1, -1, n], n, 1] - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 - 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (311*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/12 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (361*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    6 + (493*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (251*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (73*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (29*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (191*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (7*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (23*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/4 - 
   (43*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/144 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/24 + (13*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/48 - (25*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    72 - (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (23*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 - 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n] + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/32 - (3*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/
    16 + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (13*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 - 
   (17*S2[-1, Infinity]^6)/720 - (395*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 - 
   (83*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (265*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (737*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (179*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (193*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (59*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (57*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 - 
   (39*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/48 - 
   (35*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (19*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (163*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (155*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (749*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (161*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (193*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (43*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (79*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (11*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 + 
   (3*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 + 
   (83*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (8*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/9 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/3 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/6 + 
   (841*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (341*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 + 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/12 + 
   (227*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (33*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (31*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   (19*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (9*Half[S2[1, n], n]^4*S2[1, n]^2)/16 + 
   (21*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/64 - 
   (233*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (107*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (41*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (31*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^4)/4 + (21*Half[S2[1, n], n]*S2[1, n]^5)/
    16 - (13*S2[1, n]^6)/48 - (325*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/96 + (737*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/288 + (53*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/96 - (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/
    16 - (127*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     S2[2, Infinity])/32 + (139*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (679*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (85*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (215*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/48 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (27*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   4*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (143*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/3 + 
   (3*Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (29*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (19*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (171*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (175*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (127*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (7*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (249*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (11*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (257*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (227*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/6 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (113*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (661*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (39*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (29*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (29*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 - (103*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/96 - (265*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/48 - (11*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/8 + (135*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 + (21*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    8 + (61*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 - 
   (151*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (31*S2[1, n]^4*S2[2, Infinity])/32 + 
   (369*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (1349*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/96 + 
   (271*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (73*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (2493*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (913*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (1329*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (113*S2[1, n]^2*S2[2, Infinity]^2)/192 + (37883*S2[2, Infinity]^3)/1680 + 
   (745*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (91*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 - 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/48 - 
   (995*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 + (1207*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (67*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (15*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (267*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (133*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (223*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (49*S2[1, n]^3*S2[3, Infinity])/384 + 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 + 
   (1141*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (4003*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (1455*S2[3, Infinity]^2)/512 - (135*Half[S2[1, n], n]*S2[5, Infinity])/
    32 + (1273*S2[1, n]*S2[5, Infinity])/32 - (27*S2[-5, -1, Infinity])/4 + 
   10*S2[-5, 1, n] + (Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   (9*S2[1, n]*S2[-4, 1, n])/2 + (2*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/3 - (123*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[-3, 1, n])/24 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (13*S2[1, n]^2*S2[-3, 1, n])/12 + (251*S2[2, Infinity]*S2[-3, 1, n])/24 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 + 4*Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - (55*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/24 - (79*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/24 - (Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (259*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (7*S2[1, n]^3*S2[-2, 1, n])/8 + (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    4 - (95*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (61*S2[3, Infinity]*S2[-2, 1, n])/48 + S2[-2, 1, n]^2/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/6 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/2 - 
   (431*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/48 + 
   (569*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/12 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (41*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   2*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n] + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 + 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 + 
   (23*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (137*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 + (101*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (3*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/4 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/16 - (155*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (107*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (49*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (69*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (59*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (583*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 
   (167*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (61*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (13*S2[-3, 1, n]*S2[-1, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, n]^2 - (39*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/8 - (37*S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   S2[-1, 1, n]^3/6 + (143*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 - 
   (185*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 4*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/16 - (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/8 - (Half[S2[1, n], n]^3*S2[2, 1, n])/12 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (29*S2[1, n]^3*S2[2, 1, n])/24 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - (47*S2[3, Infinity]*S2[2, 1, n])/
    16 + 3*S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/2 + 
   Half[S2[1, n], n]*S2[4, 1, n] - 2*S2[1, n]*S2[4, 1, n] - 
   8*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] - (Half[S2[1, n], n]*S2[-3, 1, 1, n])/
    2 + (9*S2[1, n]*S2[-3, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-2, 1, -2, n])/
    2 + S2[1, n]*S2[-2, 1, -2, n] - Diff[Half[S2[1, n], n], n, 1]*
    S2[-2, 1, -1, n] + (19*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (17*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - (5*S2[-2, 2, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/6 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/12 + 
   (29*S2[2, Infinity]*S2[-1, -2, -1, n])/24 + 
   (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (17*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (3*S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (17*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (23*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (171*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/2 + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + (Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/4 + (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/
    4 - (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (15*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (27*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 2*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - (3*S2[-1, 1, 1, n]^2)/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] - 
   (29*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/2 + (25*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + 2*S2[-1, 1, n]*S2[1, 2, -1, n] - (Half[S2[1, n], n]*S2[2, 1, -2, n])/
    2 + (S2[1, n]*S2[2, 1, -2, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/3 - 
   (29*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (11*S2[1, n]^2*S2[2, 1, -1, n])/6 + (47*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 + (7*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + (13*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] - 
   (33*S2[2, Infinity]*S2[2, 1, 1, n])/4 - S2[-1, 1, n]*S2[2, 1, 1, n] - 
   2*S2[3, 1, -2, n] - Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] + 5*S2[4, 1, 1, n] - 10*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] - (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/12 + (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/
    12 + (23*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 - 
   (19*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (5*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (5*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] + 2*S2[1, n]^2*S2[-1, 1, 1, 1, n] + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (33*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (13*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (275*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (23*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] - S2[1, n]*S2[1, -1, 1, -2, n] + 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] + 2*S2[1, n]*S2[1, 1, -2, -1, n] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 + (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 + 4*S2[1, n]*S2[1, 1, 2, -1, n] + 3*S2[2, -2, 1, 1, n] - 
   Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - 2*S2[1, n]*S2[2, 1, 1, 1, n] + 
   S2[-2, 1, 1, 1, 1, n] - (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (33*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (83*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (5*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 2*S2[1, -1, -1, 1, 2, n] - 
   S2[1, -1, 1, -2, -1, n] + (13*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    8 - (13*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - 3*S2[1, -1, 1, 1, -2, n] - 
   S2[1, -1, 1, 1, 2, n] - 2*S2[1, -1, 1, 2, -1, n] - 
   2*S2[1, 1, -2, -1, -1, n] - 3*S2[1, 1, -2, -1, 1, n] - 
   4*S2[1, 1, -2, 1, -1, n] - 2*S2[1, 1, -1, -2, -1, n] - 
   S2[1, 1, -1, -1, -2, n] + (15*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    4 - (15*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 4*S2[1, 1, -1, 1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 - 2*S2[1, 1, -1, 1, 2, n] - 
   2*S2[1, 1, -1, 2, -1, n] - 14*S2[1, 1, 1, -2, -1, n] - 
   8*S2[1, 1, 1, -1, -2, n] - Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   S2[1, n]*S2[1, 1, 1, -1, -1, n] - 3*S2[1, 1, 1, -1, 2, n] - 
   14*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   4*S2[1, 1, 2, -1, 1, n] - 5*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] + 3*S2[2, 1, 1, 1, 1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n] + (5*S2[-1, -1, 1, -1, -1, -1, n])/2 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 + 4*S2[-1, 1, -1, -1, -1, -1, n] + 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + S2[-1, 1, -1, -1, 1, 1, n]/2 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - S2[-1, 1, 1, -1, -1, -1, n]/2 + 
   S2[-1, 1, 1, -1, -1, 1, n]/2 - S2[-1, 1, 1, 1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 17*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   5*S2[1, -1, -1, -1, -1, -1, n] - (3*S2[1, -1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/2 - S2[1, -1, 1, -1, -1, -1, n] - 
   S2[1, -1, 1, 1, -1, -1, n]/2 - 3*S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, -1, -1, 1, -1, n] + S2[1, 1, -1, 1, -1, -1, n]/2 - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -2, 1, 1, 1, n] -> (-7*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (197*Diff[Half[S2[1, n], n], n, 2]^2)/384 + 
   (311*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (293*Diff[Half[S2[1, n], n], n, 5])/1152 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (251*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (875*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (1039*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (281*Diff[S2[1, n], n, 1]^3)/64 - (599*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/192 + (571*Diff[S2[1, n], n, 2]^2)/192 - 
   (2759*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (5633*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (1997*Diff[S2[1, n], n, 5])/5760 + 2*Diff[S2[-4, 1, n], n, 1] + 
   (31*Diff[S2[-3, 1, n], n, 2])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (65*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (41*Diff[S2[-2, 1, n], n, 3])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (75*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (147*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (173*Diff[S2[-1, 1, n], n, 4])/192 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   Diff[S2[2, 1, n], n, 3]/16 + Diff[S2[4, 1, n], n, 1] - 
   3*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-2, 1, -1, n], n, 2]/8 - 
   (3*Diff[S2[-1, -2, -1, n], n, 2])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/8 + (9*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (17*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   Diff[S2[2, 1, 1, n], n, 2]/8 - Diff[S2[3, 1, 1, n], n, 1] - 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/
    16 - (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 - Diff[S2[2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + Diff[S2[1, -1, -1, -1, -1, n], 
    n, 1] + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (91*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (467*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (719*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (65*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (41*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 - (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 + (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (13*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/192 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   Half[S2[2, 1, n], n]^2/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   Half[S2[4, 1, 1, n], n]/16 - (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - S2[-1, Infinity]^6/576 - 
   (127*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    96 - (115*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 + 
   (11*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (251*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (1109*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (1673*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (49*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (19*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (109*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (9*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (77*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 - 
   (133*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (115*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (383*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 + (1199*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (67*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 + 
   (Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (11*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 - 
   (S2[-1, Infinity]^5*S2[1, n])/480 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (467*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 - 
   (263*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (419*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (679*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 + Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (191*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (55*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (79*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/48 + (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    192 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    24 - S2[1, n]^6/96 + (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 + (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (161*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (83*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/192 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/48 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (21*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/2 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (89*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (73*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/3 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/12 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/96 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (71*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (11*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/32 + (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (181*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (143*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (9*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (31*S2[1, n]^4*S2[2, Infinity])/96 + 
   (213*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/30 - 
   (41*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/240 - 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (33*S2[-1, Infinity]^2*S2[2, Infinity]^2)/128 - 
   (49*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 + 
   (103*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (5*S2[1, n]^2*S2[2, Infinity]^2)/48 + (157*S2[2, Infinity]^3)/1120 + 
   (469*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 - 
   (197*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (41*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (475*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (89*Half[S2[2, 1, n], n]*S2[3, Infinity])/768 - 
   (119*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (1105*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (149*S2[1, n]^3*S2[3, Infinity])/768 - 
   (91*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (1553*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (21*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (9469*S2[3, Infinity]^2)/6144 + (125*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (1655*S2[1, n]*S2[5, Infinity])/256 + S2[-5, -1, Infinity]/4 + 
   2*S2[-5, 1, n] + (S2[1, n]*S2[-4, 1, n])/2 + 
   (113*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 - 
   (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 + 
   (19*S2[1, n]^2*S2[-3, 1, n])/96 - (17*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 - 
   (17*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (95*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/48 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/12 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (19*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (185*S2[3, Infinity]*S2[-2, 1, n])/192 - S2[-2, 1, n]^2/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/72 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (49*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (211*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (S2[1, n]^4*S2[-1, 1, n])/16 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (5*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (17*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (929*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (57*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (S2[2, Infinity]*S2[-1, 1, n]^2)/24 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 + 
   (53*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (11*S2[1, n]^3*S2[2, 1, n])/96 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (27*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (143*S2[3, Infinity]*S2[2, 1, n])/192 - (S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (11*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - S2[2, 1, n]^2/8 - 
   S2[1, n]*S2[4, 1, n] - 2*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 
   (3*S2[1, n]*S2[-3, 1, 1, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (S2[2, Infinity]*S2[-2, 1, -1, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (11*S2[1, n]^2*S2[-1, -2, -1, n])/96 - 
   (11*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - S2[-1, 1, -1, n]^2/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   S2[3, Infinity]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (15*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 + 
   (S2[1, n]^2*S2[1, 2, -1, n])/2 - (5*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (61*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 + 
   (49*S2[1, n]^2*S2[2, 1, -1, n])/48 - (17*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (S2[-1, 1, n]*S2[2, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/4 + (S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - S2[3, 1, -2, n]/2 - S2[4, 1, 1, n] - 
   3*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + S2[1, n]*S2[-2, 1, 1, 1, n] - 
   S2[-2, 2, 1, 1, n]/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    48 - (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 + (S2[1, n]*S2[1, 1, 2, -1, n])/2 + S2[2, -2, 1, 1, n]/2 + 
   S2[2, 2, 1, 1, n]/2 - (3*S2[-2, 1, 1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/
    8 + (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, 2, n]/2 - 
   S2[1, 1, -2, -1, 1, n] - S2[1, 1, -2, 1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 2*S2[1, 1, 1, -2, -1, n] - 
   3*S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, -1, 1, n]/2 - 
   2*S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, 1, -1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n]/8 + (3*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - S2[-1, 1, -1, -1, -1, 1, n]/8 + 
   (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + (5*S2[1, -1, -1, -1, -1, -1, n])/
    4 + S2[1, -1, -1, -1, 1, -1, n]/8 + S2[1, -1, -1, 1, -1, -1, n]/4 + 
   S2[1, -1, 1, -1, -1, -1, n]/4 + S2[1, 1, -1, -1, -1, -1, n]/2, 
 S2[-1, 2, -1, -1, -1, n] -> (73*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (11*Diff[Half[S2[1, n], n], n, 2]^2)/32 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 - 
   (2887*Diff[Half[S2[1, n], n], n, 5])/5760 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/8 + (3*Diff[Half[S2[4, 1, n], n], n, 1])/
    16 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 + 
   (3*Diff[Half[S2[3, 1, 1, n], n], n, 1])/4 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/2 + 
   (233*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (293*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (1057*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (757*Diff[S2[1, n], n, 1]^3)/192 + 
   (85*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/16 - 
   (169*Diff[S2[1, n], n, 2]^2)/32 + (4229*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 - (8279*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 + (1703*Diff[S2[1, n], n, 5])/2880 + 
   Diff[S2[-4, 1, n], n, 1] + (5*Diff[S2[-3, 1, n], n, 2])/48 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 - 
   (7*Diff[S2[-2, 1, n], n, 3])/8 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/32 + 
   (449*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (17*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (157*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (19*Diff[S2[-1, 1, n], n, 4])/12 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[2, 1, n], n, 3])/48 + Diff[S2[4, 1, n], n, 1]/2 + 
   (7*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-2, 1, -2, n], n, 1]/8 + 
   Diff[S2[-2, 1, -1, n], n, 2]/4 + Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (61*Diff[S2[-1, 1, 1, n], n, 3])/48 - 2*Diff[S2[1, 2, -1, n], n, 2] + 
   Diff[S2[2, 1, -2, n], n, 1] - (13*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   (5*Diff[S2[2, 1, 1, n], n, 2])/4 + 3*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1]/2 - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   (5*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, 1, -1, -1, n], n, 
    1] + (7*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (7*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (13*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, 1, -1, -1, n], n, 1]/2 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (43*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (7*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (205*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (101*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 + (839*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (29*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (21*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (31*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (23*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (23*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (23*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (27*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 + (19*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (89*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    12 + (67*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   Half[S2[2, 1, n], n]^2/32 - (23*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 + 
   (13*Half[S2[4, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, 1, n], n])/4 - 
   Half[S2[2, 2, 1, 1, n], n]/4 - Half[S2[2, 1, 1, 1, 1, n], n] + 
   (125*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/60 - (7*S2[-1, Infinity]^6)/960 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (871*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 + 
   (15*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (31*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (181*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (395*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (2375*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (101*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (139*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (199*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - Diff[S2[2, 1, n], n, 2]*
    S2[1, n] - (7*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (23*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (23*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (119*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (31*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (23*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (23*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/18 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (85*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (593*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (113*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (127*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (37*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (3*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (3*Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 - 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (S2[-1, Infinity]^5*S2[1, n])/20 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/2 - 
   (487*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/24 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (13*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (397*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 - 
   (8*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/3 - 
   (383*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (61*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (73*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (119*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (65*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (9*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (97*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (179*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (41*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 + 
   (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (101*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (5*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + S2[1, n]^6/12 - (53*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 + (511*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 - 
   (41*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 + (361*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 + 
   (83*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (31*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (59*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/2 + 
   (33*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (73*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    24 - (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (91*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (51*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (55*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (105*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 - (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (47*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (115*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (101*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (99*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/3 - (29*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (125*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (133*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (845*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (197*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (83*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (73*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (147*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (17*S2[1, n]^4*S2[2, Infinity])/24 - 
   (1421*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (1787*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (793*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (1477*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (109*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (551*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (2861*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (2113*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (13247*S2[2, Infinity]^3)/
    2688 - (973*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (1393*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (1313*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/384 - 
   (183*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (2731*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 + 
   (107*Half[S2[1, n], n]^3*S2[3, Infinity])/768 + 
   (401*Half[S2[2, 1, n], n]*S2[3, Infinity])/384 + 
   (295*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (2273*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 + 
   (2075*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 - 
   (4171*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 + 
   (2965*S2[1, n]^3*S2[3, Infinity])/768 + 
   (547*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (1471*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (5171*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   S2[3, Infinity]^2/96 + (973*Half[S2[1, n], n]*S2[5, Infinity])/256 + 
   (2901*S2[1, n]*S2[5, Infinity])/256 - (45*S2[-5, -1, Infinity])/8 + 
   2*S2[-5, 1, n] + Half[S2[1, n], n]*S2[-4, 1, n] + 
   (S2[1, n]*S2[-4, 1, n])/2 - (71*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/96 - (8*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (23*S2[1, n]^2*S2[-3, 1, n])/96 + (133*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 - 
   (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (65*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (49*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (113*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (91*S2[1, n]^3*S2[-2, 1, n])/48 + (91*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (121*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (99*S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/8 - 
   (113*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 - 
   (101*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/96 + 
   (235*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (19*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (37*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 + 
   (17*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (47*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/24 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (143*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (7*S2[1, n]^4*S2[-1, 1, n])/24 - (65*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (29*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (33*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (1631*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (437*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (617*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (S2[-3, 1, n]*S2[-1, 1, n])/48 - (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/6 + (11*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/6 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (55*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/48 - (S2[2, Infinity]*S2[-1, 1, n]^2)/24 + 
   (5*S2[-1, 1, n]^3)/12 + (15*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (125*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (99*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/32 - (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    2 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (195*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (43*S2[1, n]^3*S2[2, 1, n])/96 + (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (179*S2[3, Infinity]*S2[2, 1, n])/96 + 2*S2[-2, 1, n]*S2[2, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (3*S2[2, 1, n]^2)/2 - 
   (5*S2[1, n]*S2[4, 1, n])/2 + 2*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   S2[1, n]*S2[-3, 1, 1, n] + (3*S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (5*S2[1, n]^2*S2[-2, 1, -1, n])/4 - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/
    2 + S2[-1, 1, n]*S2[-2, 1, -1, n] + S2[-2, 2, -2, n]/8 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (17*S2[1, n]^2*S2[-1, -2, -1, n])/96 + 
   (25*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (7*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/6 - (27*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    48 - (1015*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (33*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    8 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (75*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - S2[-1, 1, 1, n]^2/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (3*S2[1, n]^2*S2[1, 2, -1, n])/2 + 
   (11*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (S2[-1, 1, n]*S2[1, 2, -1, n])/
    2 + (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (101*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (19*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (29*S2[1, n]^2*S2[2, 1, -1, n])/48 + (31*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + S2[1, n]^2*S2[2, 1, 1, n] - 
   (15*S2[2, Infinity]*S2[2, 1, 1, n])/4 + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 - Half[S2[1, n], n]*S2[3, 1, 1, n] - 
   2*S2[1, n]*S2[3, 1, 1, n] - (7*S2[4, 1, 1, n])/2 + 3*S2[-3, 1, 1, 1, n] + 
   (3*S2[-2, -2, 1, 1, n])/2 - (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[-2, 2, 1, 1, n]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (43*Diff[S2[1, n], n, 1]*
     S2[-1, 1, -1, -1, n])/48 + (13*Half[S2[1, n], n]*S2[1, n]*
     S2[-1, 1, -1, -1, n])/24 - (25*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (53*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (15*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 - (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (125*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (97*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (51*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - Half[S2[1, n], n]*
    S2[1, 1, 2, -1, n] + (S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   Half[S2[1, n], n]*S2[1, 2, -1, -1, n] - S2[1, n]*S2[1, 2, -1, -1, n] - 
   S2[2, -2, 1, 1, n]/2 - Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - 
   (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + (3*S2[2, 2, 1, 1, n])/2 + 
   (3*S2[-2, 1, 1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    8 + (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (7*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] - 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   6*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, -1, 1, 1, 2, n]/2 - S2[1, -1, 1, 2, -1, n] + 
   (3*S2[1, 1, -2, -1, 1, n])/2 + S2[1, 1, -2, 1, -1, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] - S2[1, 1, -1, 1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 + S2[1, 1, 1, -2, -1, n] - 
   2*S2[1, 1, 1, -1, -2, n] - S2[1, 1, 1, 2, -1, n] + 
   2*S2[1, 1, 2, -1, -1, n] + S2[1, 1, 2, -1, 1, n]/2 + 
   2*S2[1, 1, 2, 1, -1, n] - 4*S2[1, 2, -1, -1, -1, n] - 
   S2[1, 2, 1, -1, -1, n] + S2[1, 2, 1, 1, -1, n] + 
   (5*S2[2, 1, 1, 1, 1, n])/2 + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   S2[-1, -1, 1, -1, -1, -1, n]/8 + S2[-1, -1, 1, 1, -1, -1, n] + 
   S2[-1, 1, -1, -1, -1, -1, n]/4 + (7*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   S2[-1, 1, -1, -1, 1, 1, n] + (5*S2[-1, 1, -1, 1, -1, -1, n])/4 + 
   (5*S2[-1, 1, -1, 1, 1, 1, n])/4 + (3*S2[-1, 1, 1, -1, -1, -1, n])/2 + 
   2*S2[-1, 1, 1, 1, -1, -1, n] - S2[-1, 1, 1, 1, -1, 1, n]/4 + 
   (21*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + (15*S2[1, -1, -1, -1, -1, -1, n])/
    4 - (5*S2[1, -1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 1, -1, n] + 
   (3*S2[1, -1, 1, -1, -1, -1, n])/4 + 2*S2[1, -1, 1, 1, -1, -1, n] - 
   3*S2[1, 1, -1, -1, -1, -1, n] - S2[1, 1, -1, -1, 1, -1, n] + 
   S2[1, 1, -1, 1, -1, -1, n] + 3*S2[1, 1, 1, -1, -1, -1, n] + 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 - S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 2, -1, -1, 1, n] -> (-5*Diff[Half[S2[1, n], n], n, 1]^3)/96 + 
   (155*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 - 
   (1357*Diff[Half[S2[1, n], n], n, 5])/2880 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/4 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/24 - Diff[Half[S2[4, 1, n], n], n, 
    1] - Diff[Half[S2[2, 1, 1, n], n], n, 2]/8 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   (355*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (547*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (103*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (59*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/96 - 
   (2057*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (565*Diff[S2[1, n], n, 1]^3)/32 + (29*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (43*Diff[S2[1, n], n, 2]^2)/16 + 
   (497*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (583*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/64 + 
   (937*Diff[S2[1, n], n, 5])/2880 + (11*Diff[S2[-4, 1, n], n, 1])/2 + 
   (31*Diff[S2[-3, 1, n], n, 2])/24 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (353*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (3*Diff[S2[-2, 1, n], n, 3])/2 - (41*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 + 
   (143*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (439*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 + 
   (81*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (7*Diff[S2[-1, 1, n], n, 4])/6 - (17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 + 
   (47*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (23*Diff[S2[2, 1, n], n, 3])/12 + 8*Diff[S2[4, 1, n], n, 1] + 
   (25*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/2 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/2 - Diff[S2[-1, -2, -1, n], n, 2]/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (105*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (171*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (23*Diff[S2[-1, 1, 1, n], n, 3])/24 - (5*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1] - (11*Diff[S2[2, 1, -1, n], n, 2])/6 - 
   (13*Diff[S2[2, 1, 1, n], n, 2])/2 - 6*Diff[S2[3, 1, 1, n], n, 1] + 
   9*Diff[S2[-2, 1, 1, 1, n], n, 1] - (29*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    24 - Diff[S2[-1, 1, -1, 1, n], n, 2] + 3*Diff[S2[-1, 1, 1, 1, n], n, 2] + 
   2*Diff[S2[1, -1, 1, -2, n], n, 1] - 2*Diff[S2[1, -1, 1, 2, n], n, 1] + 
   8*Diff[S2[1, 1, -2, -1, n], n, 1] - (7*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 
   4*Diff[S2[1, 1, 2, -1, n], n, 1] + 2*Diff[S2[1, 2, -1, -1, n], n, 1] - 
   10*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1] + 
   2*Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - 
   (19*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - 
   3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1] - 
   2*Diff[S2[-1, 1, 1, -1, -1, n], n, 1] - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 + 
   5*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   6*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (17*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (21*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + Diff[S2[1, 1, -1, 1, -1, n], 
    n, 1] + 2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 + (31*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (83*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (463*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (23*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 + 
   (117*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (77*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (77*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (35*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (15*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (33*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (15*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 - 
   (25*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (49*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (31*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (27*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (83*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (35*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (27*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (91*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (61*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   Half[S2[2, 1, n], n]^2/16 - (3*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/
    16 + (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   Half[S2[4, 1, 1, n], n]/4 + Half[S2[2, 2, 1, 1, n], n]/4 - 
   (151*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (23*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/48 + S2[-1, Infinity]^6/120 + 
   (185*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 + (25*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/64 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/4 - 
   (19*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/24 - 
   (23*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (973*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (187*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (85*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 - 
   (41*Diff[S2[1, n], n, 4]*S2[1, n])/24 - 
   (139*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 + 
   (263*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (953*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (25*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/8 + 
   (55*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 + 
   (59*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/48 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (55*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 + 
   2*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (35*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 + (481*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    32 - (53*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/64 - 
   (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (485*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (59*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (87*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (63*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (59*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (101*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Half[S2[1, n], n]^5*S2[1, n])/8 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (27*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (7*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (3*Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/64 - 
   (161*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (163*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (59*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 + 
   (9*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (253*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/16 - 
   (803*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 + 
   (847*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (187*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 - 
   5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - 
   (81*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (127*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 - 
   (59*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (15*Half[S2[1, n], n]^4*S2[1, n]^2)/16 - 
   (53*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (23*S2[-1, Infinity]^4*S2[1, n]^2)/96 + 
   (475*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (329*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (121*Half[S2[1, n], n]^3*S2[1, n]^3)/48 + 
   (17*Half[S2[2, 1, n], n]*S2[1, n]^3)/32 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (161*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (43*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (15*Half[S2[1, n], n]*S2[1, n]^5)/
    16 - S2[1, n]^6/24 + (191*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/24 - (43*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    8 + (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    48 - (413*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (241*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (83*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (1151*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 + 
   (55*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (57*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (67*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (22*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (73*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    16 - (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   2*Half[S2[2, 1, 1, n], n]*S2[2, Infinity] - 
   (241*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (117*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (75*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (225*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (21*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   12*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] - 
   (41*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (61*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (367*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (43*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   12*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (177*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 + (187*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 + (5*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 + (9*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    32 + (177*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (915*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (81*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (99*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/32 + (41*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 + (109*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/16 + (17*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/32 + (115*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (213*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 - (55*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    16 - (545*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (305*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (155*S2[1, n]^4*S2[2, Infinity])/96 + 
   (2569*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (393*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (173*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (257*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 - 
   (1537*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (1223*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (517*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (547*S2[1, n]^2*S2[2, Infinity]^2)/80 - (62609*S2[2, Infinity]^3)/2240 - 
   (2425*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (155*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 - 
   (857*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 + 
   (1919*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 - (721*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (71*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (47*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (157*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (137*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (317*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (77*S2[1, n]^3*S2[3, Infinity])/384 - 
   (409*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (2557*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (8843*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (1435*S2[3, Infinity]^2)/384 + (455*Half[S2[1, n], n]*S2[5, Infinity])/
    64 - (847*S2[1, n]*S2[5, Infinity])/8 - (45*S2[-5, -1, Infinity])/8 - 
   7*S2[-5, 1, n] + 3*Half[S2[1, n], n]*S2[-4, 1, n] - 
   (35*S2[1, n]*S2[-4, 1, n])/2 + (45*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/16 + (37*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (15*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/16 + 
   (7*S2[1, n]^2*S2[-3, 1, n])/2 - (235*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (67*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (149*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (123*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (47*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (35*S2[1, n]^3*S2[-2, 1, n])/24 - (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (61*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (S2[3, Infinity]*S2[-2, 1, n])/3 - 2*S2[-2, 1, n]^2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/3 - 
   (413*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 + 
   (23*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   7*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (67*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 - 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/48 + 
   (217*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (117*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (19*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (159*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (47*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (17*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 - 
   (13*S2[1, n]^4*S2[-1, 1, n])/16 + (121*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   4*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n] - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (105*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (35*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (579*S2[2, Infinity]^2*S2[-1, 1, n])/80 + 
   (77*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (211*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (5*S2[-3, 1, n]*S2[-1, 1, n])/2 + 2*Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] - (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (49*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 + (19*S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   S2[-1, 1, n]^3/12 - Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] + 
   (7*Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/2 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 + 
   (65*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (3*S2[1, n]^3*S2[2, 1, n])/8 - (65*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (115*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (167*S2[3, Infinity]*S2[2, 1, n])/16 - 7*S2[-2, 1, n]*S2[2, 1, n] - 
   (17*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 5*S2[2, 1, n]^2 + 
   4*Half[S2[1, n], n]*S2[4, 1, n] - 2*S2[1, n]*S2[4, 1, n] + 
   14*S2[-4, 1, 1, n] + 2*S2[-3, -2, 1, n] - (19*S2[1, n]*S2[-3, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 - 
   (3*S2[1, n]*S2[-2, 1, -2, n])/2 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (23*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 - 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/4 + (17*S2[2, Infinity]*S2[-2, 1, -1, n])/
    2 + (5*S2[-2, 2, -2, n])/2 + (15*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/16 + (9*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/16 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/4 - (37*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/2 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (35*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (17*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (69*S2[3, Infinity]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/2 - (3*S2[-1, 1, -1, n]^2)/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/2 + 5*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (9*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/2 - 2*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (7*S2[1, n]^3*S2[-1, 1, 1, n])/2 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + 9*S2[-1, Infinity]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (5*S2[3, Infinity]*S2[-1, 1, 1, n])/4 - 2*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 4*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] + 3*S2[-1, 1, 1, n]^2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (53*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   (21*S2[1, n]^2*S2[1, 2, -1, n])/4 - (19*S2[2, Infinity]*S2[1, 2, -1, n])/
    2 - 3*S2[-1, 1, n]*S2[1, 2, -1, n] + (3*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (35*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/8 - 
   (9*S2[1, n]^2*S2[2, 1, -1, n])/2 - (49*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - 3*S2[-1, 1, n]*S2[2, 1, -1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 - 
   (27*S2[1, n]^2*S2[2, 1, 1, n])/4 + 14*S2[2, Infinity]*S2[2, 1, 1, n] - 
   S2[-1, 1, n]*S2[2, 1, 1, n] + 5*S2[3, 1, -2, n] + 
   Half[S2[1, n], n]*S2[3, 1, 1, n] + 2*S2[1, n]*S2[3, 1, 1, n] - 
   10*S2[4, 1, 1, n] + 22*S2[-3, 1, 1, 1, n] - 2*S2[-2, -2, 1, 1, n] - 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 2*S2[-2, 2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/2 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (9*S2[1, n]^2*S2[-1, 1, -1, -1, n])/8 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/4 + 
   2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (23*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   6*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (151*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (33*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (23*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (39*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (23*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (373*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (19*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] + S2[1, n]*S2[1, -1, 1, -2, n] - 
   6*S2[1, n]*S2[1, 1, -2, -1, n] + (S2[1, n]*S2[1, 1, -1, 2, n])/2 - 
   5*S2[1, n]*S2[1, 1, 2, -1, n] - 3*S2[1, n]*S2[1, 2, -1, -1, n] - 
   (11*S2[2, -2, 1, 1, n])/2 + 9*S2[1, n]*S2[2, 1, 1, 1, n] + 
   5*S2[-2, 1, 1, 1, 1, n] + (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    4 - (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (11*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 + 2*Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] + (7*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n] + 
   (5*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (161*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - S2[1, -2, -1, 1, -1, n] + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + S2[1, -1, -1, 1, -2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (15*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 4*S2[1, -1, -1, 1, 2, n] + 
   2*S2[1, -1, 1, -2, -1, n] - (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    2 + (23*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + 6*S2[1, -1, 1, 1, -2, n] + 
   4*S2[1, -1, 1, 2, -1, n] + 6*S2[1, 1, -2, -1, 1, n] + 
   8*S2[1, 1, -2, 1, -1, n] + 2*S2[1, 1, -1, -2, -1, n] + 
   2*S2[1, 1, -1, -1, -2, n] - 6*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   (21*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 8*S2[1, 1, -1, 1, -2, n] - 
   Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] + 
   (7*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 + 2*S2[1, 1, -1, 1, 2, n] + 
   4*S2[1, 1, -1, 2, -1, n] + 28*S2[1, 1, 1, -2, -1, n] + 
   16*S2[1, 1, 1, -1, -2, n] + 3*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 
   4*S2[1, 1, 1, -1, 2, n] + 33*S2[1, 1, 1, 2, -1, n] + 
   8*S2[1, 1, 2, -1, -1, n] + 8*S2[1, 1, 2, -1, 1, n] + 
   17*S2[1, 1, 2, 1, -1, n] + 4*S2[1, 2, 1, -1, -1, n] + 
   6*S2[1, 2, 1, 1, -1, n] - 6*S2[2, 1, 1, 1, 1, n] - 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/4 - (9*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   S2[-1, -1, 1, 1, -1, -1, n] - (9*S2[-1, 1, -1, -1, -1, -1, n])/2 - 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/2 - 2*S2[-1, 1, -1, -1, 1, 1, n] - 
   3*S2[-1, 1, -1, 1, 1, 1, n] + S2[-1, 1, 1, -1, -1, -1, n] - 
   3*S2[-1, 1, 1, -1, -1, 1, n] - 3*S2[-1, 1, 1, 1, -1, -1, n] + 
   3*S2[-1, 1, 1, 1, -1, 1, n] - 6*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   (15*S2[1, -1, -1, -1, -1, -1, n])/2 + (3*S2[1, -1, -1, -1, 1, -1, n])/2 + 
   3*S2[1, -1, -1, 1, -1, -1, n] - 2*S2[1, -1, -1, 1, 1, -1, n] + 
   2*S2[1, -1, 1, -1, -1, -1, n] - 2*S2[1, -1, 1, 1, -1, -1, n] + 
   6*S2[1, 1, -1, -1, -1, -1, n] - S2[1, 1, -1, -1, 1, -1, n] + 
   2*S2[1, 1, -1, 1, -1, -1, n] + 3*S2[1, 1, 1, -1, -1, -1, n] + 
   3*S2[1, 1, 1, -1, 1, -1, n] + 12*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 2, -1, 1, -1, n] -> (5*Diff[Half[S2[1, n], n], n, 1]^3)/32 - 
   (13*Diff[Half[S2[1, n], n], n, 2]^2)/12 - 
   (4*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/9 - 
   (413*Diff[Half[S2[1, n], n], n, 5])/960 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/96 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/4 - 
   (47*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 + 
   (281*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 + 
   (61*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (569*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (145*Diff[S2[1, n], n, 1]^3)/48 + (193*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (233*Diff[S2[1, n], n, 2]^2)/48 + 
   (1435*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (1201*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (503*Diff[S2[1, n], n, 5])/960 - (7*Diff[S2[-4, 1, n], n, 1])/2 - 
   (13*Diff[S2[-3, 1, n], n, 2])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (73*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (19*Diff[S2[-2, 1, n], n, 3])/24 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (11*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (307*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 - 
   (87*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (125*Diff[S2[-1, 1, n], n, 4])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (5*Diff[S2[2, 1, n], n, 3])/6 - 4*Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/48 - 
   Diff[S2[-1, 1, -1, n], n, 3]/16 + (57*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - 2*Diff[S2[1, 2, -1, n], n, 2] + 
   Diff[S2[2, 1, -2, n], n, 1] - (31*Diff[S2[2, 1, -1, n], n, 2])/24 + 
   (9*Diff[S2[2, 1, 1, n], n, 2])/4 + 2*Diff[S2[3, 1, 1, n], n, 1] + 
   (29*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 + (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - Diff[S2[1, -1, 1, -2, n], n, 
    1] - 4*Diff[S2[1, 1, -2, -1, n], n, 1] + Diff[S2[1, 1, -1, 2, n], n, 1]/
    2 - 4*Diff[S2[1, 1, 2, -1, n], n, 1] + 4*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 + 
   (11*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   2*Diff[S2[-1, 1, 1, -1, -1, n], n, 1] + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 + 
   2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 - 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (185*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (13*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (101*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (113*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/6 + 
   (83*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/288 - 
   (35*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (31*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (29*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (23*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/16 + 
   (17*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (19*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/36 + 
   (53*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/6 - (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    24 - (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/72 - 
   (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (37*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/12 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 - 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 + 
   Half[S2[2, 1, n], n]^2/32 - (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/4 - 
   (3*Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/6 - 
   (13*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 + 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - S2[-1, Infinity]^6/60 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 + (463*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 + 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (329*Diff[S2[1, n], n, 4]*S2[1, n])/288 + 
   (25*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/3 + 
   (67*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (91*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (129*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 - 
   (49*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 - 
   (23*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/48 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 - 
   (19*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (209*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (41*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/6 - (451*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (23*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (31*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (43*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (59*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (53*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 + 
   (5*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (35*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (3*S2[-1, Infinity]^5*S2[1, n])/64 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/36 - 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (41*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (22*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/3 + 
   (503*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (7*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (103*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 + 
   (11*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (113*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (79*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (13*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - 
   (11*S2[-1, Infinity]^4*S2[1, n]^2)/96 - 
   (55*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 + 
   (67*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (59*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/8 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/6 + (67*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (5*S2[1, n]^6)/16 - (359*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/96 + (715*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/288 - (91*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/96 + (7*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 - (275*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/96 + 
   (325*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 - 
   (263*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (115*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (479*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (23*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (19*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (161*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    12 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (13*Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/48 + 
   (21*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (29*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (163*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (155*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (37*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (49*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (295*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (115*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (223*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (41*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    3 - (53*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (213*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 + (27*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 - (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/8 - (9*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/8 - (143*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/96 - (215*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/48 + (23*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/8 + (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/2 + (79*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 - (4*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 - 
   (39*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (5*S2[1, n]^4*S2[2, Infinity])/32 - 
   (389*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (805*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/96 + 
   (241*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/120 + 
   (469*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (2063*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (1207*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 - 
   (499*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 + 
   (391*S2[1, n]^2*S2[2, Infinity]^2)/480 + (119561*S2[2, Infinity]^3)/6720 + 
   (547*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (353*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 - 
   (779*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 + (187*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (131*Half[S2[1, n], n]^3*S2[3, Infinity])/96 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/4 - 
   (69*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (67*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/16 + 
   (31*S2[1, n]^3*S2[3, Infinity])/192 + 
   (2779*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (577*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (11953*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (5579*S2[3, Infinity]^2)/1536 - (2665*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (7931*S2[1, n]*S2[5, Infinity])/128 - (37*S2[-5, -1, Infinity])/8 - 
   5*S2[-5, 1, n] - (11*Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   (19*S2[1, n]*S2[-4, 1, n])/2 - (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/48 - (205*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (43*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 - 
   (8*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/3 - 
   (35*S2[1, n]^2*S2[-3, 1, n])/48 + (329*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (103*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n] - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (19*S2[1, n]^3*S2[-2, 1, n])/12 + (2*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/3 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (41*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/12 - 
   (5*S2[3, Infinity]*S2[-2, 1, n])/3 + S2[-2, 1, n]^2/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (113*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (55*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (107*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (31*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (127*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (131*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 + (103*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (2*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (113*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (23*S2[1, n]^4*S2[-1, 1, n])/48 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/3 - 2*Diff[S2[1, n], n, 1]*S2[2, Infinity]*
    S2[-1, 1, n] + (29*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (33*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (1223*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 
   (173*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (127*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 - (11*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   S2[1, n]^2*S2[-1, 1, n]^2 - (35*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   S2[-1, 1, n]^3/12 + (27*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 - 
   (41*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (53*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (25*S2[1, n]^3*S2[2, 1, n])/16 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (81*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   3*S2[3, Infinity]*S2[2, 1, n] + 3*S2[-2, 1, n]*S2[2, 1, n] - 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/2 - 
   2*Half[S2[1, n], n]*S2[4, 1, n] + S2[1, n]*S2[4, 1, n] - S2[-4, 1, 1, n] - 
   S2[-3, -2, 1, n] - (3*Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + 
   (9*S2[1, n]*S2[-3, 1, 1, n])/2 - Half[S2[1, n], n]*S2[-2, 1, -2, n] + 
   (3*S2[1, n]*S2[-2, 1, -2, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   Half[S2[1, n], n]^2*S2[-2, 1, -1, n] + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (19*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   S2[-1, 1, n]*S2[-2, 1, -1, n] - (5*S2[-2, 2, -2, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (43*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (13*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/3 + 
   (19*S2[1, n]^2*S2[-1, -2, -1, n])/48 + 
   (71*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (23*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (19*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (153*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (7*S2[1, n]^3*S2[-1, 1, 1, n])/4 + 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (5*S2[3, Infinity]*S2[-1, 1, 1, n])/8 + S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - (3*S2[-1, 1, 1, n]^2)/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   Half[S2[1, n], n]^2*S2[1, 2, -1, n] - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/2 + (29*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + S2[-1, 1, n]*S2[1, 2, -1, n] - (3*Half[S2[1, n], n]*S2[2, 1, -2, n])/
    2 + (3*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (43*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (13*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (55*S2[1, n]^2*S2[2, 1, -1, n])/24 + (119*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - Half[S2[1, n], n]^2*
    S2[2, 1, 1, n] + 3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (35*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   2*S2[3, 1, -2, n] + Half[S2[1, n], n]*S2[3, 1, 1, n] - 
   S2[1, n]*S2[3, 1, 1, n] + 5*S2[4, 1, 1, n] - 6*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] - (3*Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/12 - (19*Diff[S2[1, n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/
    12 + (37*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 - 
   (29*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, -1, 1, n] - (9*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (11*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   4*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] + 5*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] - S2[1, n]^2*S2[-1, 1, 1, 1, n] + 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   4*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (13*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (35*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (11*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (67*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (31*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] - S2[1, n]*S2[1, -1, 1, -2, n] + 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] + 2*S2[1, n]*S2[1, 1, -2, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, 2, n])/2 + 4*S2[1, n]*S2[1, 1, 2, -1, n] + 
   (3*S2[2, -2, 1, 1, n])/2 - Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - 
   2*S2[1, n]*S2[2, 1, 1, 1, n] + 2*S2[-2, 1, 1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, -1, -1, -1, n] - (9*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   2*S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (31*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (45*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + S2[1, -2, -1, 1, -1, n] + 
   Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   S2[1, n]*S2[1, -1, -1, -1, -1, n] + 2*Half[S2[1, n], n]*
    S2[1, -1, -1, 1, -1, n] - 2*S2[1, n]*S2[1, -1, -1, 1, -1, n] - 
   2*S2[1, -1, -1, 1, 2, n] - S2[1, -1, 1, -2, -1, n] + 
   (19*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (19*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - 3*S2[1, -1, 1, 1, -2, n] - 
   S2[1, -1, 1, 1, 2, n] - 2*S2[1, -1, 1, 2, -1, n] - 
   2*S2[1, 1, -2, -1, -1, n] - 3*S2[1, 1, -2, -1, 1, n] - 
   4*S2[1, 1, -2, 1, -1, n] - 3*S2[1, 1, -1, -2, -1, n] - 
   3*S2[1, 1, -1, -1, -2, n] + (21*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    4 - (21*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 4*S2[1, 1, -1, 1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 - S2[1, 1, -1, 1, 2, n] - 
   2*S2[1, 1, -1, 2, -1, n] - 14*S2[1, 1, 1, -2, -1, n] - 
   8*S2[1, 1, 1, -1, -2, n] - 3*S2[1, 1, 1, -1, 2, n] - 
   13*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   4*S2[1, 1, 2, -1, 1, n] - 5*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - S2[1, 2, 1, 1, -1, n] + 
   3*S2[2, 1, 1, 1, 1, n] - (3*S2[-1, -1, -1, 1, -1, -1, n])/4 - 
   (7*S2[-1, -1, 1, -1, -1, -1, n])/4 - S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   (5*S2[-1, 1, -1, -1, -1, -1, n])/2 + (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   S2[-1, 1, -1, -1, 1, 1, n]/2 + (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 
   S2[-1, 1, 1, -1, -1, -1, n]/2 + (3*S2[-1, 1, 1, -1, -1, 1, n])/2 + 
   S2[-1, 1, 1, 1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 
   12*S2[-1, 1, 1, 1, 1, 1, Infinity] - (5*S2[1, -1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 - (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   S2[1, -1, -1, 1, 1, -1, n] - S2[1, -1, 1, -1, -1, -1, n] + 
   S2[1, -1, 1, 1, -1, -1, n]/2 - 3*S2[1, 1, -1, -1, -1, -1, n] - 
   (3*S2[1, 1, -1, 1, -1, -1, n])/2 - 3*S2[1, 1, 1, -1, -1, -1, n] - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 2, -1, 1, 1, n] -> (-7*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (133*Diff[Half[S2[1, n], n], n, 2]^2)/384 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/96 + 
   (557*Diff[Half[S2[1, n], n], n, 5])/1152 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 - 
   (79*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (329*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (895*Diff[S2[1, n], n, 1]^3)/192 - 
   (221*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 + 
   (231*Diff[S2[1, n], n, 2]^2)/64 - (1021*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/384 + (745*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/128 - (2489*Diff[S2[1, n], n, 5])/5760 + 
   (17*Diff[S2[-3, 1, n], n, 2])/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   4*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] + 
   (17*Diff[S2[-2, 1, n], n, 3])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (301*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (45*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (81*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (217*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (263*Diff[S2[-1, 1, n], n, 4])/192 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (3*Diff[S2[2, 1, n], n, 3])/16 - Diff[S2[4, 1, n], n, 1]/2 - 
   3*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   (5*Diff[S2[-2, 1, -1, n], n, 2])/8 + (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 - (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/16 + 
   (57*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (65*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/4 + (15*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (23*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (7*Diff[S2[2, 1, 1, n], n, 2])/8 - 2*Diff[S2[3, 1, 1, n], n, 1] - 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/
    16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/4 - 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, 1, 1, -1, n], n, 
    1] - (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   2*Diff[S2[1, 1, -1, 1, -1, n], n, 1] - 
   4*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/12 - (101*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/192 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (509*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (9*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (85*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 - 
   (29*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (49*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (15*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (25*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 + (43*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    64 - (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   (3*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   Half[S2[4, 1, 1, n], n]/16 + (31*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    48 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^5)/64 - (9*S2[-1, Infinity]^6)/320 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    96 - (21*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (109*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (605*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (419*Diff[S2[1, n], n, 4]*S2[1, n])/384 + 
   (107*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (113*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 + 
   (23*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (9*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (15*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 - 
   (19*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 + 
   (63*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 + (183*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    32 - (77*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/64 + 
   (23*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (91*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (289*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 + 
   (Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/64 + 
   (3*S2[-1, Infinity]^5*S2[1, n])/20 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (157*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (105*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (101*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 - 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 - 
   (19*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (533*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 + 
   (295*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (131*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (13*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    128 + (135*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 - 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (51*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (19*Half[S2[1, n], n]^3*S2[1, n]^3)/48 - 
   (35*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (259*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (Half[S2[1, n], n]*S2[1, n]^5)/
    3 - (7*S2[1, n]^6)/96 - (43*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (31*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    96 - (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (145*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (35*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (13*Diff[S2[1, n], n, 3]*S2[2, Infinity])/16 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (191*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 + (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (133*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (55*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (51*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 - 
   (77*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (91*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - 6*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/8 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (135*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (375*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (21*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (87*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/32 - (3*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 - (127*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (377*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - 2*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity] - 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (75*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 + 
   (55*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (37*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (145*S2[1, n]^4*S2[2, Infinity])/96 - 
   (883*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 - 
   (157*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (123*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 + 
   (3389*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (879*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1119*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1409*S2[1, n]^2*S2[2, Infinity]^2)/320 + (12389*S2[2, Infinity]^3)/3360 + 
   (1265*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 - 
   (1679*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (53*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (1643*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/768 + 
   (11*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (2083*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (4993*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (379*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 + 
   (979*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 - 
   (505*S2[1, n]^3*S2[3, Infinity])/256 + 
   (1603*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (1359*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (6155*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (24847*S2[3, Infinity]^2)/6144 + (1091*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (5495*S2[1, n]*S2[5, Infinity])/256 - (11*S2[-5, -1, Infinity])/2 + 
   2*S2[-5, 1, n] + Half[S2[1, n], n]*S2[-4, 1, n] + 
   (7*S2[1, n]*S2[-4, 1, n])/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/32 - (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (57*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/16 - 
   (99*S2[1, n]^2*S2[-3, 1, n])/32 + (S2[2, Infinity]*S2[-3, 1, n])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 - 
   (67*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (45*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 - 
   (13*S2[1, n]^3*S2[-2, 1, n])/48 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (21*S2[3, Infinity]*S2[-2, 1, n])/64 - (3*S2[-2, 1, n]^2)/8 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (15*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (17*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (37*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (27*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (91*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (55*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (87*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (3*S2[1, n]^4*S2[-1, 1, n])/16 - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (43*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (93*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (41*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (1873*S2[2, Infinity]^2*S2[-1, 1, n])/320 + 
   (95*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (1121*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (37*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - (S2[1, n]^2*S2[-1, 1, n]^2)/32 - 
   (29*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (79*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 + 
   (119*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (87*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (23*S2[1, n]^3*S2[2, 1, n])/96 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (33*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - (521*S2[3, Infinity]*S2[2, 1, n])/
    192 - (3*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (3*S2[2, 1, n]^2)/8 - 
   2*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + Half[S2[1, n], n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-3, 1, 1, n])/2 - S2[1, n]*S2[-2, 1, -2, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 - 
   (5*S2[1, n]^2*S2[-2, 1, -1, n])/4 - S2[2, Infinity]*S2[-2, 1, -1, n] - 
   S2[-2, 2, -2, n]/4 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    32 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/16 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/32 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/
    16 + (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (3*S2[1, n]^3*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (21*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (37*S2[3, Infinity]*S2[-1, 1, -1, n])/192 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - (3*S2[-1, 1, -1, n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 + (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (59*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (5*S2[-1, 1, 1, n]^2)/2 + (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (23*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   (S2[1, n]^2*S2[1, 2, -1, n])/2 - (S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   S2[-1, 1, n]*S2[1, 2, -1, n] + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 - (23*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/8 - 
   (17*S2[1, n]^2*S2[2, 1, -1, n])/16 - (S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (9*S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (7*S2[1, n]^2*S2[2, 1, 1, n])/4 - (5*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - S2[3, 1, -2, n]/2 - 
   5*S2[1, n]*S2[3, 1, 1, n] - 5*S2[4, 1, 1, n] - 3*S2[-3, 1, 1, 1, n] - 
   2*S2[-2, -2, 1, 1, n] + 2*Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   S2[-2, 2, 1, 1, n]/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/8 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    16 - (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/8 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] + (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   7*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (39*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (91*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   S2[1, n]*S2[1, -1, 1, -2, n] + S2[1, n]*S2[1, 1, -2, -1, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - (S2[1, n]*S2[1, 1, -1, 2, n])/2 + 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 + S2[2, -2, 1, 1, n]/2 - 
   4*S2[1, n]*S2[2, 1, 1, 1, n] + (5*S2[2, 2, 1, 1, n])/2 - 
   (3*S2[-2, 1, 1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    8 + (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - S2[1, n]*S2[-1, 1, -1, 1, 1, n] + 
   2*S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 8*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] + 8*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (75*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   18*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 1, 2, n]/2 - 2*S2[1, 1, -2, -1, 1, n] - 
   S2[1, 1, -2, 1, -1, n] - (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - S2[1, 1, -1, 2, -1, n] - 
   S2[1, 1, 1, -2, -1, n] + 2*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 
   3*S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, -1, 1, n]/2 - 
   2*S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, 1, -1, n] + 5*S2[2, 1, 1, 1, 1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n]/8 + (3*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - (3*S2[-1, 1, -1, -1, -1, 1, n])/8 + 
   S2[-1, 1, -1, 1, 1, 1, n]/2 - (5*S2[-1, 1, 1, 1, -1, 1, n])/2 + 
   (81*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + (5*S2[1, -1, -1, -1, -1, -1, n])/
    4 + (3*S2[1, -1, -1, -1, 1, -1, n])/8 + (3*S2[1, -1, -1, 1, -1, -1, n])/
    4 + (3*S2[1, -1, 1, -1, -1, -1, n])/4 + (3*S2[1, 1, -1, -1, -1, -1, n])/
    2 - (9*S2[1, 1, 1, -1, 1, -1, n])/2 - 10*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 2, 1, -1, -1, n] -> (-13*Diff[Half[S2[1, n], n], n, 1]^3)/96 - 
   (13*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 + 
   (601*Diff[Half[S2[1, n], n], n, 5])/2880 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 + 
   (65*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (485*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (37*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (187*Diff[S2[1, n], n, 1]^3)/96 - (51*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (83*Diff[S2[1, n], n, 2]^2)/48 - 
   (175*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (1555*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (601*Diff[S2[1, n], n, 5])/2880 - 4*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2] - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   Diff[S2[-2, 1, n], n, 3]/4 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/12 - 
   (89*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (2*Diff[S2[-1, 1, n], n, 4])/3 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   4*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-1, -2, -1, n], n, 2]/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (17*Diff[S2[-1, 1, 1, n], n, 3])/24 + (3*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (7*Diff[S2[2, 1, -1, n], n, 2])/12 - 
   (3*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 - Diff[S2[-1, 1, 1, 1, n], n, 2]/
    2 + (7*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1] - Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (197*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (29*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (13*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (15*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    6 + (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    48 - (25*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/72 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/24 - (71*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/48 + (35*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    72 + (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/96 + 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (5*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (19*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 - 
   (13*S2[-1, Infinity]^6)/1440 + (17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/12 - 
   (19*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 - 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (65*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (133*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (31*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 + 
   (97*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (139*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (9*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (61*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (37*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    12 - (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (29*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/16 - (Half[S2[3, 1, 1, n], n]*S2[1, n])/
    4 - (13*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (S2[-1, Infinity]^5*S2[1, n])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/6 - 
   (2*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/3 - 
   (101*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 + 
   (37*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/24 + 
   (97*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/8 - 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    192 + (59*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/2 + (17*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    96 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 + (3*Half[S2[1, n], n]^2*S2[1, n]^4)/
    4 - (Half[S2[1, n], n]*S2[1, n]^5)/2 + S2[1, n]^6/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/3 - 
   (83*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/144 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (127*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (85*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (91*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (167*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (4*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 + (59*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (31*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (39*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/2 - (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (7*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (17*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (21*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (181*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (35*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 - (119*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 + (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (119*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (27*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity] - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/6 + 
   (97*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (87*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (11*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (37*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 - 
   (69*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (5*S2[1, n]^4*S2[2, Infinity])/8 - 
   (117*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 + 
   (61*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/24 - 
   (1193*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (181*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (303*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (811*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 + 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 - 
   (1619*S2[1, n]^2*S2[2, Infinity]^2)/960 - (26941*S2[2, Infinity]^3)/6720 + 
   (331*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (605*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (109*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (661*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (59*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (37*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (1297*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (33*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (131*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (475*S2[1, n]^3*S2[3, Infinity])/384 - 
   (997*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (299*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (1777*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (3767*S2[3, Infinity]^2)/768 + (1011*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (1575*S2[1, n]*S2[5, Infinity])/256 - (35*S2[-5, -1, Infinity])/8 - 
   8*S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 + 
   (55*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (25*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (37*S2[1, n]^2*S2[-3, 1, n])/48 - (17*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (13*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (71*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (37*S2[1, n]^3*S2[-2, 1, n])/24 - (31*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (19*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (31*S2[3, Infinity]*S2[-2, 1, n])/12 + S2[-2, 1, n]^2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 + 
   2*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] - 
   (19*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n] - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 - 
   (11*S2[-1, Infinity]^4*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (47*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/6 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/4 + 
   (S2[1, n]^4*S2[-1, 1, n])/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (47*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (37*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (4*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/3 + 
   (127*S2[2, Infinity]^2*S2[-1, 1, n])/240 + 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (7*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 - (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/8 - (S2[2, Infinity]*S2[-1, 1, n]^2)/4 - 
   S2[-1, 1, n]^3/6 - (23*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 + 
   (23*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (29*S2[1, n]^3*S2[2, 1, n])/48 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (11*S2[3, Infinity]*S2[2, 1, n])/16 + S2[-2, 1, n]*S2[2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 2*Half[S2[1, n], n]*S2[4, 1, n] + 
   2*S2[1, n]*S2[4, 1, n] - 7*S2[-4, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] + 2*S2[1, n]*S2[-3, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 - (S2[1, n]*S2[-2, 1, -2, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - (S2[1, n]^2*S2[-2, 1, -1, n])/
    2 + S2[2, Infinity]*S2[-2, 1, -1, n] - S2[-1, 1, n]*S2[-2, 1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (7*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/48 - 
   (23*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/24 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (29*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    24 + (31*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 - Half[S2[1, n], n]^2*S2[1, n]*
    S2[-1, 1, 1, n] + 2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[1, n]^3*S2[-1, 1, 1, n] + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   S2[-1, 1, n]*S2[1, 2, -1, n] + Half[S2[1, n], n]*S2[2, 1, -2, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (7*S2[1, n]^2*S2[2, 1, -1, n])/24 - (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (S2[-1, 1, n]*S2[2, 1, -1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 - S2[-1, 1, n]*S2[2, 1, 1, n] - 
   Half[S2[1, n], n]*S2[3, 1, 1, n] + S2[1, n]*S2[3, 1, 1, n] - 
   4*S2[-3, 1, 1, 1, n] + Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 
   S2[-2, 2, 1, 1, n] - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (13*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (5*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 + Half[S2[1, n], n]^2*
    S2[-1, 1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] + S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (19*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (17*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (11*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] + S2[1, n]*S2[1, 1, -2, -1, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] - 
   S2[1, n]*S2[1, 1, 2, -1, n] - Half[S2[1, n], n]*S2[1, 2, -1, -1, n] + 
   S2[1, n]*S2[1, 2, -1, -1, n] + (3*S2[2, -2, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - S2[1, n]*S2[2, 1, 1, 1, n] - 
   S2[-2, 1, 1, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/
    2 + (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (7*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (21*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (15*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, 1, -2, n] - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - S2[1, -1, 1, -2, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, 2, n] + 
   2*S2[1, 1, -2, -1, -1, n] + S2[1, 1, -1, -2, -1, n] + 
   S2[1, 1, -1, -1, -2, n] - (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    2 + (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 - S2[1, 1, -1, 1, 2, n] - 
   S2[1, 1, 1, -1, 2, n] + S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n] - 
   S2[1, 1, 2, 1, -1, n] + 3*S2[1, 2, -1, -1, -1, n] - 
   S2[1, 2, 1, 1, -1, n] + S2[-1, -1, -1, 1, -1, -1, n]/4 + 
   S2[-1, -1, 1, -1, -1, -1, n]/4 - S2[-1, 1, -1, -1, -1, -1, n]/2 + 
   (3*S2[-1, 1, -1, -1, 1, 1, n])/2 + (3*S2[-1, 1, 1, -1, -1, 1, n])/2 + 
   2*S2[-1, 1, 1, 1, -1, -1, n] + (13*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, 1, 1, -1, n] + 
   (3*S2[1, -1, 1, 1, -1, -1, n])/2 + S2[1, 1, -1, -1, 1, -1, n] - 
   S2[1, 1, -1, 1, -1, -1, n]/2, S2[-1, 2, 1, -1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/64 - (135*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 - (109*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    96 + (253*Diff[Half[S2[1, n], n], n, 5])/384 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (53*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (17*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 - 
   (461*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (655*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (1841*Diff[S2[1, n], n, 1]^3)/192 - 
   (255*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 + 
   (905*Diff[S2[1, n], n, 2]^2)/192 - 
   (405*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/128 + 
   (3217*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/384 - 
   (599*Diff[S2[1, n], n, 5])/1152 - 3*Diff[S2[-4, 1, n], n, 1] - 
   (15*Diff[S2[-3, 1, n], n, 2])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (75*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (71*Diff[S2[-2, 1, n], n, 3])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (137*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (381*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (307*Diff[S2[-1, 1, n], n, 4])/192 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] - (27*Diff[S2[1, n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 + (9*Diff[S2[2, 1, n], n, 3])/16 - 
   (5*Diff[S2[4, 1, n], n, 1])/2 - 7*Diff[S2[-3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, -2, n], n, 1]/4 + (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + 
   (3*Diff[S2[-1, -2, -1, n], n, 2])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/48 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (115*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/8 + (15*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (31*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (17*Diff[S2[2, 1, 1, n], n, 2])/8 + 4*Diff[S2[3, 1, 1, n], n, 1] - 
   (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    4 - (13*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 
    1] + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + 2*Diff[S2[1, 1, -1, 2, n], n, 1] - 
   Diff[S2[1, 2, -1, -1, n], n, 1] + (5*Diff[S2[2, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + Diff[S2[-1, 1, -1, 1, 1, n], 
    n, 1] + Diff[S2[-1, 1, 1, 1, -1, n], n, 1] - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (15*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (19*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/8 - (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (65*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (617*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (77*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/128 - 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/2 - (53*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 + (13*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (27*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   6*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (27*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (23*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 + (41*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    64 - (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (29*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 - 
   (27*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (33*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 + (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   (9*Half[S2[2, 1, n], n]^2)/128 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[4, 1, 1, n], n])/16 + (125*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    16 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (73*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - 
   (7*S2[-1, Infinity]^6)/960 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (259*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (545*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (391*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (2261*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (923*Diff[S2[1, n], n, 4]*S2[1, n])/384 - 
   (49*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 
   (37*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (257*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (33*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (23*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (23*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (35*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 - 
   (21*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (151*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (139*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (51*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (9*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (29*S2[-1, Infinity]^5*S2[1, n])/960 + 2*Diff[Half[S2[1, n], n], n, 1]^2*
    S2[1, n]^2 + (389*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/8 - 
   (301*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (135*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (1147*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 + 
   (27*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (413*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 + 
   (37*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (207*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (123*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (9*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 + 
   (31*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (271*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 + 
   (107*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 - 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (109*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/2 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 + (113*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (641*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (Half[S2[1, n], n]*S2[1, n]^5)/
    16 + (3*S2[1, n]^6)/32 - (71*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (173*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/96 + (5*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/64 + (77*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/64 + 
   (177*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (145*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (21*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (153*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (11*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   8*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (161*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/2 + 
   Half[S2[2, 1, 1, n], n]*S2[2, Infinity] + 
   (123*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (87*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (27*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (39*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (23*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (87*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 + 
   (161*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (57*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (91*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 + (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 + (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    32 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (633*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (27*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 + (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (397*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (255*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (185*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (163*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (411*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (71*S2[1, n]^4*S2[2, Infinity])/48 - 
   (1837*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (23*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 + 
   (9*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/32 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/10 + 
   (1929*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (225*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/64 - 
   (83*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (1463*S2[1, n]^2*S2[2, Infinity]^2)/320 + (47959*S2[2, Infinity]^3)/6720 + 
   (501*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (107*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (135*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 - 
   (1223*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (3935*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (179*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (1217*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (3161*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (695*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (1413*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (2227*S2[1, n]^3*S2[3, Infinity])/768 - 
   (929*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/96 + 
   (3207*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (2249*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (26515*S2[3, Infinity]^2)/6144 + (71*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (2425*S2[1, n]*S2[5, Infinity])/128 - (3*S2[-5, -1, Infinity])/8 + 
   6*S2[-5, 1, n] + 2*Half[S2[1, n], n]*S2[-4, 1, n] - 
   4*S2[1, n]*S2[-4, 1, n] - (7*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    32 - (43*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 - 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (27*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (261*S2[1, n]^2*S2[-3, 1, n])/32 + (101*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (55*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (9*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (191*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 - 
   (33*S2[1, n]^3*S2[-2, 1, n])/16 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/2 + (51*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (43*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (21*S2[3, Infinity]*S2[-2, 1, n])/64 + (9*S2[-2, 1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/3 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (91*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (215*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (167*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (17*S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (107*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (195*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (5*S2[1, n]^4*S2[-1, 1, n])/24 - (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (65*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (21*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (261*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (1345*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (685*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (53*S2[-3, 1, n]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (33*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (7*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (173*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (105*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (17*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (181*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (41*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (103*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (197*S2[1, n]^3*S2[2, 1, n])/96 + (53*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (47*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (1001*S2[3, Infinity]*S2[2, 1, n])/192 + (17*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (23*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (25*S2[2, 1, n]^2)/8 - 
   8*S2[1, n]*S2[4, 1, n] - 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] + 
   2*Half[S2[1, n], n]*S2[-3, 1, 1, n] + S2[1, n]*S2[-3, 1, 1, n] + 
   S2[1, n]*S2[-2, 1, -2, n] + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (27*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   4*S2[2, Infinity]*S2[-2, 1, -1, n] - (5*S2[-2, 2, -2, n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (11*S2[1, n]^2*S2[-1, -2, -1, n])/32 + 
   (19*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 - (23*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    32 - (171*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 + 
   S2[2, 1, n]*S2[-1, 1, -1, n] + (9*S2[-1, 1, -1, n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 + 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + 3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (81*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 2*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, 1, n]^2/2 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    8 - (53*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] + 
   (21*S2[1, n]^2*S2[1, 2, -1, n])/4 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + 2*S2[-1, 1, n]*S2[1, 2, -1, n] + Half[S2[1, n], n]*S2[2, 1, -2, n] - 
   (5*S2[1, n]*S2[2, 1, -2, n])/2 - (29*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 - (29*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (63*S2[1, n]^2*S2[2, 1, -1, n])/16 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (11*S2[-1, 1, n]*S2[2, 1, -1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   2*S2[1, n]^2*S2[2, 1, 1, n] - (7*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - (3*S2[3, 1, -2, n])/2 + 
   S2[1, n]*S2[3, 1, 1, n] + 9*S2[4, 1, 1, n] - 9*S2[-3, 1, 1, 1, n] + 
   2*S2[-2, -2, 1, 1, n] - Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 
   (11*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   4*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] - 
   4*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] + 3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + 
   (31*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (125*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (31*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (75*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (17*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   S2[1, n]*S2[1, -1, 1, -2, n] - Half[S2[1, n], n]*S2[1, -1, 1, 2, n] + 
   S2[1, n]*S2[1, -1, 1, 2, n] + S2[1, n]*S2[1, 1, -2, -1, n] - 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + S2[1, n]*S2[1, 1, -1, 2, n] + 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 2*S2[1, n]*S2[1, 2, -1, -1, n] + 
   (3*S2[2, -2, 1, 1, n])/2 - (3*S2[2, 2, 1, 1, n])/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   S2[1, n]*S2[-1, 1, -1, 1, 1, n] + 8*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] - 8*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (73*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (29*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (9*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 2*S2[1, -1, -1, 1, 2, n] + 
   (9*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (9*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - 3*S2[1, -1, 1, 1, -2, n] + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, -1, 1, 2, -1, n] - 
   S2[1, 1, -2, 1, -1, n] + (9*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 2*S2[1, 1, -1, 1, -2, n] - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 7*S2[1, 1, 1, -2, -1, n] - 
   6*S2[1, 1, 1, -1, -2, n] - 2*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 
   9*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   (3*S2[1, 1, 2, -1, 1, n])/2 - 6*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] - 
   S2[2, 1, 1, 1, 1, n] + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 + (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (9*S2[-1, 1, -1, -1, -1, 1, n])/8 + (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 + (21*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 - (9*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   (9*S2[1, -1, -1, 1, -1, -1, n])/4 - (9*S2[1, -1, 1, -1, -1, -1, n])/4 - 
   (9*S2[1, 1, -1, -1, -1, -1, n])/2 + (5*S2[1, 1, 1, -1, 1, -1, n])/2 + 
   2*S2[1, 1, 1, 1, -1, -1, n], S2[-1, 2, 1, 1, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/16 + (87*Diff[Half[S2[1, n], n], n, 2]^2)/
    64 + (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    12 + (25*Diff[Half[S2[1, n], n], n, 5])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 3])/96 - 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/16 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - Diff[Half[S2[1, n], n], n, 1]^2*
    Diff[S2[1, n], n, 1] - (217*Diff[Half[S2[1, n], n], n, 3]*
     Diff[S2[1, n], n, 1])/96 - (Diff[Half[S2[1, n], n]^3, n, 1]*
     Diff[S2[1, n], n, 1])/8 - (3*Diff[Half[S2[2, 1, n], n], n, 1]*
     Diff[S2[1, n], n, 1])/32 + (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]^2)/8 - (13*Diff[S2[1, n], n, 1]^3)/24 - 
   (75*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/16 + 
   (125*Diff[S2[1, n], n, 2]^2)/32 - (265*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/96 + (431*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/96 - (311*Diff[S2[1, n], n, 5])/720 + 
   2*Diff[S2[-4, 1, n], n, 1] + (13*Diff[S2[-3, 1, n], n, 2])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (17*Diff[S2[-2, 1, n], n, 3])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1] + 
   (13*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   (89*Diff[S2[-1, 1, n], n, 4])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] - Diff[S2[2, 1, n], n, 3]/8 + 
   (3*Diff[S2[4, 1, n], n, 1])/2 - Diff[S2[-3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, -2, n], n, 1]/4 - Diff[S2[-2, 1, -1, n], n, 2]/4 - 
   Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/8 + (5*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1] + (7*Diff[S2[2, 1, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, 1, n], n, 2]/2 - Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/4 - Diff[S2[-1, 1, -1, 1, n], n, 2]/4 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2] + Diff[S2[1, -1, 1, -2, n], n, 1] - 
   Diff[S2[1, 1, -1, 2, n], n, 1] - (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 - Diff[S2[-1, 1, -1, 1, 1, n], n, 
    1] - (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 + 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (17*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (45*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (49*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (33*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/32 + 
   (9*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    4 - (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   5*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    4 - (23*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (3*Half[S2[2, 1, n], n]^2)/64 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + S2[-1, Infinity]^6/72 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 - (127*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (33*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (287*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (63*Diff[S2[1, n], n, 4]*S2[1, n])/32 + 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 - 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (17*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (9*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] + 
   5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (25*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (173*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (25*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (11*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/16 + 
   (11*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (131*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - Diff[S2[2, 1, n], n, 1]*
    S2[1, n]^2 - (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/16 - 
   5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (23*S2[-1, Infinity]^4*S2[1, n]^2)/96 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/8 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 + 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/4 + 
   (71*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    3 - (Half[S2[1, n], n]*S2[1, n]^5)/6 + S2[1, n]^6/48 + 
   (39*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 - 
   (47*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (75*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (35*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (89*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (91*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (95*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (15*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   Half[S2[2, 1, 1, n], n]*S2[2, Infinity] - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (47*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/2 - 
   (167*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (75*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (11*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    3 + (79*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (31*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (37*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (33*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (5*S2[1, n]^4*S2[2, Infinity])/48 + 
   (267*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (409*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (227*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (245*S2[-1, Infinity]^2*S2[2, Infinity]^2)/64 + 
   (27*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (1357*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (75*S2[1, n]^2*S2[2, Infinity]^2)/64 - (4141*S2[2, Infinity]^3)/672 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/16 - 
   (301*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (61*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (359*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (173*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (67*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (263*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (1087*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (613*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 + 
   (505*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/96 - 
   (557*S2[1, n]^3*S2[3, Infinity])/192 + 
   (1883*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (597*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (539*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (19133*S2[3, Infinity]^2)/3072 - (45*Half[S2[1, n], n]*S2[5, Infinity])/
    16 - (845*S2[1, n]*S2[5, Infinity])/64 + 5*S2[-5, -1, Infinity] - 
   (3*Half[S2[1, n], n]*S2[-4, 1, n])/2 + (9*S2[1, n]*S2[-4, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 + 
   (27*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (39*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (39*S2[1, n]^2*S2[-3, 1, n])/8 - (83*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (33*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (39*S2[3, Infinity]*S2[-2, 1, n])/32 - (3*S2[-2, 1, n]^2)/4 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (55*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 2*Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] + (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (49*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 + (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (35*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (167*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (613*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (421*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (23*S2[-3, 1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (9*S2[1, n]^2*S2[-1, 1, n]^2)/16 + (3*S2[2, Infinity]*S2[-1, 1, n]^2)/4 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 + 
   (113*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (7*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (43*S2[1, n]^3*S2[2, 1, n])/24 - (33*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (245*S2[3, Infinity]*S2[2, 1, n])/96 - (7*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (13*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (13*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (11*S2[2, 1, n]^2)/4 + 
   8*S2[1, n]*S2[4, 1, n] - S2[-3, -2, 1, n] - 
   (5*Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + (5*S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (S2[1, n]*S2[-2, 1, -2, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/2 - (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   4*S2[2, Infinity]*S2[-2, 1, -1, n] + (3*S2[-2, 2, -2, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 - (17*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (3*S2[1, n]^3*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (9*S2[3, Infinity]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   S2[2, 1, n]*S2[-1, 1, -1, n] - (3*S2[-1, 1, -1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 + 3*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    4 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (5*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + S2[-1, 1, 1, n]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (S2[1, n]^2*S2[1, 2, -1, n])/2 - 4*S2[2, Infinity]*S2[1, 2, -1, n] - 
   S2[-1, 1, n]*S2[1, 2, -1, n] - (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + 
   (S2[1, n]*S2[2, 1, -2, n])/2 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/4 - (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 - (13*S2[2, Infinity]*S2[2, 1, -1, n])/8 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - (S2[1, n]^2*S2[2, 1, 1, n])/
    2 + (11*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 3*S2[1, n]*S2[3, 1, 1, n] - 
   S2[-2, -2, 1, 1, n] - (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   4*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   4*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (13*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + (35*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (23*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (41*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Half[S2[1, n], n]*S2[1, -1, 1, 2, n] - S2[1, n]*S2[1, -1, 1, 2, n] + 
   S2[1, n]*S2[1, 1, -2, -1, n] + (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, 2, n])/2 + Half[S2[1, n], n]*S2[1, 1, 2, -1, n] - 
   S2[1, n]*S2[1, 1, 2, -1, n] + S2[1, n]*S2[2, 1, 1, 1, n] - 
   (3*S2[2, 2, 1, 1, n])/2 + (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 - 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (21*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (11*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 2*S2[1, -1, -1, 1, 2, n] - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 2*S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 2, -1, n] - S2[1, 1, -2, -1, 1, n] - S2[1, 1, -2, 1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + S2[1, 1, -1, 1, -2, n] + 
   4*S2[1, 1, 1, -1, -2, n] + 2*S2[1, 1, 2, -1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] - S2[2, 1, 1, 1, 1, n] - 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/4 - (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 - 10*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   (3*S2[1, -1, 1, -1, -1, -1, n])/2 + 3*S2[1, 1, -1, -1, -1, -1, n] - 
   S2[1, 1, 1, -1, 1, -1, n]/2 + 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 2, 1, 1, 1, n] -> (-5*Diff[Half[S2[1, n], n], n, 5])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (21*Diff[S2[1, n], n, 1]^3)/8 + (67*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/24 - (67*Diff[S2[1, n], n, 2]^2)/24 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/16 - 
   (191*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (5*Diff[S2[1, n], n, 5])/16 + (5*Diff[S2[-4, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, n], n, 2]/4 + 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] - (2*Diff[S2[-2, 1, n], n, 3])/3 + 
   (7*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (41*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   3*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-1, 1, 1, n], n, 3]/3 - 
   Diff[S2[1, 2, -1, n], n, 2] - Diff[S2[2, 1, -1, n], n, 2] + 
   2*Diff[S2[-2, 1, 1, 1, n], n, 1] + (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/
    2 - (71*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (11*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/16 + S2[-1, Infinity]^6/480 + 
   (47*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (257*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (23*Diff[S2[1, n], n, 4]*S2[1, n])/16 + 2*Diff[S2[-2, 1, n], n, 2]*
    S2[1, n] - (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/
    4 + (13*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 2*Diff[S2[2, 1, -1, n], n, 1]*
    S2[1, n] - 2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (79*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (33*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (127*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 - 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 - (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/12 - 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/6 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (31*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (7*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (S2[1, n]^4*S2[2, Infinity])/4 + (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/10 - (41*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 - 
   (71*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/4 - 
   (39*S2[1, n]^2*S2[2, Infinity]^2)/80 + (359*S2[2, Infinity]^3)/420 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/12 + 
   (49*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/6 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (173*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (31*S2[1, n]^3*S2[3, Infinity])/96 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] - (259*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    32 - (11*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (2495*S2[3, Infinity]^2)/768 - (155*S2[1, n]*S2[5, Infinity])/32 + 
   (3*S2[-5, -1, Infinity])/8 + 3*S2[-5, 1, n] - (3*S2[1, n]*S2[-4, 1, n])/
    2 - (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - 
   (3*S2[1, n]^2*S2[-3, 1, n])/4 - (S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (7*S2[1, n]^3*S2[-2, 1, n])/12 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/
    4 - (5*S2[3, Infinity]*S2[-2, 1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (37*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (9*S2[2, Infinity]^2*S2[-1, 1, n])/10 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 + (7*S2[3, Infinity]*S2[2, 1, n])/
    8 - (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 4*S2[-4, 1, 1, n] - 
   (3*S2[1, n]*S2[-3, 1, 1, n])/2 - (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/
    2 + Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   S2[3, Infinity]*S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + (5*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/4 + (3*S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - S2[3, 1, -2, n]/2 + 
   3*S2[-3, 1, 1, 1, n] - 2*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   S2[-2, 2, 1, 1, n]/2 - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (S2[1, n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - S2[1, n]*S2[2, 1, 1, 1, n] + 
   (3*S2[-2, 1, 1, 1, 1, n])/2 - S2[1, -1, 1, 1, 2, n]/2 + 
   S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, -1, 1, n]/2 + S2[1, 1, 2, 1, -1, n] + 
   S2[1, 2, 1, 1, -1, n] - (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, 
 S2[-1, -1, -2, -1, -1, n] -> (21*Diff[Half[S2[1, n], n], n, 1]^3)/64 - 
   (67*Diff[Half[S2[1, n], n], n, 2]^2)/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 - 
   (1441*Diff[Half[S2[1, n], n], n, 5])/1920 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 - 
   (63*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/64 + 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/4 + 
   (15*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   (3*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 + 
   (3*Diff[Half[S2[2, 1, 1, 1, n], n], n, 1])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 + 
   (211*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (27*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 + 
   (335*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (9*Diff[S2[1, n], n, 1]^3)/4 + (583*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (727*Diff[S2[1, n], n, 2]^2)/96 + 
   (1769*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/384 - 
   (259*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/32 + 
   (1711*Diff[S2[1, n], n, 5])/1920 + (33*Diff[S2[-4, 1, n], n, 1])/2 + 
   (161*Diff[S2[-3, 1, n], n, 2])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (109*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (5*Diff[S2[-2, 1, n], n, 3])/16 + (23*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 + 
   (77*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (33*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (225*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (89*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (449*Diff[S2[-1, 1, n], n, 4])/192 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (5*Diff[S2[2, 1, n], n, 3])/4 - 6*Diff[S2[4, 1, n], n, 1] + 
   (9*Diff[S2[-3, 1, 1, n], n, 1])/2 + (9*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (9*Diff[S2[-2, 1, -1, n], n, 2])/8 + (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 + (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 3])/32 + 
   (153*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (115*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (17*Diff[S2[-1, 1, 1, n], n, 3])/24 - (29*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   (5*Diff[S2[2, 1, -2, n], n, 1])/2 - (37*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (27*Diff[S2[2, 1, 1, n], n, 2])/8 + 3*Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + (21*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    16 + (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/4 + 
   (37*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 - 
   (3*Diff[S2[1, -1, 1, -2, n], n, 1])/2 - Diff[S2[1, -1, 1, 2, n], n, 1] - 
   6*Diff[S2[1, 1, -2, -1, n], n, 1] + (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - 
   6*Diff[S2[1, 1, 2, -1, n], n, 1] + 6*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 - 
   (9*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (15*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 + 
   (9*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 + 
   (9*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (21*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (21*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (57*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 - 
   3*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (109*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (2*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/3 - (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (25*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (323*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (551*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 - 
   (77*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   2*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n] - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/32 - (61*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 + (25*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (17*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (39*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (23*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (35*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (17*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (31*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (7*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (23*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (71*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 + 
   (107*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (57*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/64 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (65*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/64 + (251*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    384 - (45*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (75*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (31*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (71*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (91*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (91*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (83*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (119*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 + (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 + 
   (3*Half[S2[2, 1, n], n]^2)/64 - (9*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/
    16 - (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   (3*Half[S2[4, 1, 1, n], n])/16 - (3*Half[S2[2, 2, 1, 1, n], n])/16 + 
   (87*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/128 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (77*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (41*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - S2[-1, Infinity]^6/40 - 
   (265*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 + (305*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/4 + 
   (25*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (61*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (193*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (417*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (453*Diff[S2[1, n], n, 4]*S2[1, n])/128 + 
   (101*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 + 
   (45*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (159*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/32 + 
   (1061*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (121*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (17*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (39*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 - 
   (35*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (37*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (53*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (103*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 - 
   (41*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (9*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (15*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (47*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (35*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (127*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (75*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (41*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (25*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (271*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (133*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (5*Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (15*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (21*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (S2[-1, Infinity]^5*S2[1, n])/4 + (289*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[1, n]^2)/64 - (409*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 - 
   (9*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/64 - 
   (213*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (581*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/64 + 
   (615*Diff[S2[1, n], n, 3]*S2[1, n]^2)/128 - 
   (97*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (29*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 + 
   (121*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (43*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   (83*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 + 
   (95*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (77*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (193*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (83*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (49*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (13*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 + 
   (73*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/8 - 
   (79*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (61*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (59*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (119*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - 
   (79*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (91*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (37*S2[1, n]^6)/96 - (177*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (749*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/192 - (51*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/64 + (3*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/16 - (359*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/64 + 
   (731*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (181*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (199*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (45*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (75*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (413*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (247*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    32 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (13*Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (83*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/2 + 
   (163*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (135*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   6*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
    S2[2, Infinity] - (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (207*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (629*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (271*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (133*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (181*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (243*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (189*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (237*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 - (67*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 + (29*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    64 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (363*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (213*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (15*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 - (13*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    8 - (185*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (651*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (105*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (101*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (163*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (55*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (9*S2[1, n]^4*S2[2, Infinity])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (5623*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (1193*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 + 
   (1747*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (2087*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (343*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/64 - 
   (477*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (1271*S2[1, n]^2*S2[2, Infinity]^2)/640 + (35241*S2[2, Infinity]^3)/896 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (5147*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (697*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (509*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (455*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (293*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (227*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (255*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (1383*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (531*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (467*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (275*S2[1, n]^3*S2[3, Infinity])/48 + 
   (265*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (261*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (7415*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (10015*S2[3, Infinity]^2)/1024 + (7255*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (14653*S2[1, n]*S2[5, Infinity])/512 - (127*S2[-5, -1, Infinity])/
    16 + 35*S2[-5, 1, n] + (13*Half[S2[1, n], n]*S2[-4, 1, n])/2 - 
   4*S2[1, n]*S2[-4, 1, n] - (67*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    32 - (441*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/32 + 
   (13*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 - 
   (S2[1, n]^2*S2[-3, 1, n])/16 + (235*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (131*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   6*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (33*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (25*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (55*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (29*S2[1, n]^3*S2[-2, 1, n])/6 + (83*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (119*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (259*S2[3, Infinity]*S2[-2, 1, n])/32 + (3*S2[-2, 1, n]^2)/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/32 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (139*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (59*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (443*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   2*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n] + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (5*Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (9*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (59*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (95*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (53*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (23*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (99*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (175*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (49*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (119*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/12 - (41*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (87*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (15*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (1821*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (565*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (33*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/8 - (23*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (41*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (49*S2[1, n]^2*S2[-1, 1, n]^2)/32 - (9*S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   (15*S2[-1, 1, n]^3)/16 + (487*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    96 - (613*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] - 
   (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (9*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (33*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (65*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (67*S2[1, n]^3*S2[2, 1, n])/48 + (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (177*S2[3, Infinity]*S2[2, 1, n])/32 + (9*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n] + (15*S2[2, 1, n]^2)/4 + 
   4*Half[S2[1, n], n]*S2[4, 1, n] - (11*S2[1, n]*S2[4, 1, n])/2 + 
   3*S2[-4, 1, 1, n] - (3*S2[-3, -2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 - (3*S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 + (5*S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (5*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (13*S2[1, n]^2*S2[-2, 1, -1, n])/8 - 
   6*S2[2, Infinity]*S2[-2, 1, -1, n] + (9*S2[-1, 1, n]*S2[-2, 1, -1, n])/4 - 
   (15*S2[-2, 2, -2, n])/8 - (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/32 - (23*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/16 + 
   (27*S2[2, Infinity]*S2[-1, -2, -1, n])/16 - 
   (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/6 - 
   (37*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (5*Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (17*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (745*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (9*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (9*S2[-1, 1, -1, n]^2)/16 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (57*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (9*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (153*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (19*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (221*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - 
   (9*S2[-2, 1, n]*S2[-1, 1, 1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (9*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (9*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/8 - 
   (9*S2[-1, 1, 1, n]^2)/4 - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (11*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (5*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (9*S2[1, n]^2*S2[1, 2, -1, n])/8 + 
   (21*S2[2, Infinity]*S2[1, 2, -1, n])/2 - (3*S2[-1, 1, n]*S2[1, 2, -1, n])/
    4 - (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 - (3*S2[1, n]*S2[2, 1, -2, n])/
    2 - (25*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/8 + (43*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (S2[1, n]^2*S2[2, 1, 1, n])/8 - 
   (51*S2[2, Infinity]*S2[2, 1, 1, n])/4 + (5*S2[-1, 1, n]*S2[2, 1, 1, n])/
    4 - 3*S2[3, 1, -2, n] - 4*Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   4*S2[1, n]*S2[3, 1, 1, n] + (15*S2[4, 1, 1, n])/2 - 6*S2[-3, 1, 1, 1, n] + 
   (3*S2[-2, -2, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - 
   (5*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 2*S2[-2, 2, 1, 1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (29*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/8 - 
   (23*S2[1, n]^2*S2[-1, 1, -1, -1, n])/8 + 
   (39*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (9*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (9*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (9*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (63*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (63*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (261*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (77*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (73*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (289*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (177*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   3*Half[S2[1, n], n]*S2[1, 1, -2, -1, n] + (3*S2[1, n]*S2[1, 1, -2, -1, n])/
    2 - (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, 2, n])/2 + 8*S2[1, n]*S2[1, 1, 2, -1, n] + 
   3*Half[S2[1, n], n]*S2[1, 2, -1, -1, n] - 3*S2[1, n]*S2[1, 2, -1, -1, n] + 
   2*S2[2, -2, 1, 1, n] - 3*Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - 
   (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 3*S2[-2, 1, 1, 1, 1, n] - 
   (11*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (11*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (15*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (19*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (15*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (15*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (33*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (41*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   30*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   (21*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (21*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (17*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (17*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 3*S2[1, -1, -1, 1, 2, n] + 
   (9*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - (9*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, -1, 1, 1, 2, n] - 3*S2[1, -1, 1, 2, -1, n] - 
   6*S2[1, 1, -2, -1, -1, n] - (9*S2[1, 1, -2, -1, 1, n])/2 - 
   6*S2[1, 1, -2, 1, -1, n] - 3*S2[1, 1, -1, -2, -1, n] - 
   3*S2[1, 1, -1, -1, -2, n] + (21*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    4 - (21*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 6*S2[1, 1, -1, 1, -2, n] + 
   (15*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (15*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - 3*S2[1, 1, -1, 2, -1, n] - 
   21*S2[1, 1, 1, -2, -1, n] - 12*S2[1, 1, 1, -1, -2, n] - 
   (9*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 - 3*S2[1, 1, 1, -1, 2, n] - 
   24*S2[1, 1, 1, 2, -1, n] - 6*S2[1, 1, 2, -1, -1, n] - 
   8*S2[1, 1, 2, -1, 1, n] - 5*S2[1, 1, 2, 1, -1, n] - 
   6*S2[1, 2, -1, -1, -1, n] - 3*S2[1, 2, 1, -1, -1, n] + 
   2*S2[1, 2, 1, 1, -1, n] + (9*S2[2, 1, 1, 1, 1, n])/2 + 
   (29*S2[-1, -1, -1, 1, -1, -1, n])/8 + (45*S2[-1, -1, 1, -1, -1, -1, n])/
    8 - (3*S2[-1, -1, 1, 1, -1, -1, n])/4 + (27*S2[-1, 1, -1, -1, -1, -1, n])/
    4 + (15*S2[-1, 1, -1, -1, -1, 1, n])/8 - (9*S2[-1, 1, -1, -1, 1, 1, n])/
    4 + (9*S2[-1, 1, -1, 1, 1, 1, n])/4 - (3*S2[-1, 1, 1, -1, -1, -1, n])/4 + 
   3*S2[-1, 1, 1, 1, -1, -1, n] - (9*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   18*S2[-1, 1, 1, 1, 1, 1, Infinity] + (55*S2[1, -1, -1, -1, -1, -1, n])/4 - 
   (9*S2[1, -1, -1, -1, 1, -1, n])/8 - (9*S2[1, -1, -1, 1, -1, -1, n])/4 - 
   (9*S2[1, -1, -1, 1, 1, -1, n])/4 - (3*S2[1, -1, 1, -1, -1, -1, n])/2 + 
   3*S2[1, -1, 1, 1, -1, -1, n] - (9*S2[1, 1, -1, -1, -1, -1, n])/2 - 
   (9*S2[1, 1, -1, -1, 1, -1, n])/4 + (3*S2[1, 1, -1, 1, -1, -1, n])/4 + 
   (9*S2[1, 1, 1, -1, -1, -1, n])/4 - (9*S2[1, 1, 1, -1, 1, -1, n])/4 - 
   9*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -1, -2, -1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/48 + (53*Diff[Half[S2[1, n], n], n, 2]^2)/
    96 + (95*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    144 - (121*Diff[Half[S2[1, n], n], n, 5])/288 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/6 - (7*Diff[Half[S2[4, 1, n], n], n, 1])/
    16 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (61*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (623*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (229*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 + 
   (123*Diff[S2[1, n], n, 1]^3)/32 + (91*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (23*Diff[S2[1, n], n, 2]^2)/8 + 
   (623*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (2521*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (113*Diff[S2[1, n], n, 5])/360 + (5*Diff[S2[-4, 1, n], n, 1])/2 + 
   (3*Diff[S2[-3, 1, n], n, 2])/8 + (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/12 + 
   (53*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (5*Diff[S2[-2, 1, n], n, 3])/6 - (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 + 
   (139*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   Diff[S2[-1, 1, n], n, 1]^2/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/4 + 5*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] - (47*Diff[S2[-1, 1, n], n, 4])/48 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1] + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[2, 1, n], n, 3])/12 + 3*Diff[S2[4, 1, n], n, 1] + 
   (9*Diff[S2[-3, 1, 1, n], n, 1])/2 - Diff[S2[-2, 1, -2, n], n, 1]/2 - 
   Diff[S2[-2, 1, -1, n], n, 2]/4 - Diff[S2[-1, -2, -1, n], n, 2]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, -1, n], n, 3]/12 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/8 - (5*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (5*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   (3*Diff[S2[2, 1, 1, n], n, 2])/2 - 2*Diff[S2[3, 1, 1, n], n, 1] + 
   (7*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/
    4 - Diff[S2[-1, 1, -1, 1, n], n, 2]/4 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 2] - Diff[S2[1, -1, 1, 2, n], n, 1] + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] - (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - (5*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   2*Diff[S2[-1, -1, 1, -1, -1, n], n, 1] + 
   3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 - 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 + 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   2*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (187*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (137*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (143*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (47*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (17*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 + 
   (79*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (23*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (23*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (65*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (13*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (19*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (35*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (43*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/4 + (195*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 - (395*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    192 + (91*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (109*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (49*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/2 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    24 + (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (13*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 + 
   (3*Half[S2[2, 1, n], n]^2)/32 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/8 - (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/96 + (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (11*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 - S2[-1, Infinity]^6/80 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    24 + (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/12 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (113*Diff[S2[1, n], n, 4]*S2[1, n])/288 - 
   (125*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 - 
   (23*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 + 
   (21*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 + 
   Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n] - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 + 
   (13*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/6 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (451*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (25*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/6 - (307*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (643*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (149*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (151*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (8*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (155*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (61*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (85*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (9*Half[S2[4, 1, n], n]*S2[1, n])/8 - Half[S2[1, n], n]*
    Half[S2[2, 1, 1, n], n]*S2[1, n] + (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (83*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (97*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (63*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (629*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/24 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/3 + 
   (469*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (1123*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (59*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (157*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (19*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (169*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (113*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (37*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (35*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (119*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/48 + 
   (9*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (121*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (79*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (109*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (167*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (19*Half[S2[1, n], n]^3*S2[1, n]^3)/8 + 
   (47*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (31*Half[S2[1, n], n]^2*S2[1, n]^4)/12 - (3*Half[S2[1, n], n]*S2[1, n]^5)/
    4 - (7*S2[1, n]^6)/48 + (47*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (49*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    144 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/12 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 + (87*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (47*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (13*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (69*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (97*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (37*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (31*Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/24 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (25*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (125*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (183*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/6 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/6 + (205*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/12 - (151*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    24 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (41*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - 5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
    S2[2, Infinity] + (4*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   (263*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (643*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (151*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (47*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (523*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (27*S2[1, n]^4*S2[2, Infinity])/8 + 
   (69*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/16 - 
   (4003*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (559*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/192 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (67*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (7493*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 + 
   (12*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (14663*S2[1, n]^2*S2[2, Infinity]^2)/960 + (4763*S2[2, Infinity]^3)/3360 - 
   (653*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 - 
   (85*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (8*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/3 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (7*Half[S2[1, n], n]^3*S2[3, Infinity])/12 - 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/16 + 
   (199*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (179*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/96 - 
   (71*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/48 + 
   (47*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/96 - 
   (29*S2[1, n]^3*S2[3, Infinity])/96 + 
   (9*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (87*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (2887*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (711*S2[3, Infinity]^2)/512 - (749*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (779*S2[1, n]*S2[5, Infinity])/32 - 13*S2[-5, -1, Infinity] - 
   4*S2[-5, 1, n] - (Half[S2[1, n], n]*S2[-4, 1, n])/2 - 
   (29*S2[1, n]*S2[-4, 1, n])/2 + (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/6 - (73*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/4 - 
   (77*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/6 + 
   (127*S2[1, n]^2*S2[-3, 1, n])/12 - (67*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (25*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] + (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/6 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/3 + (13*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (53*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 + 
   (41*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/3 - 
   (65*S2[1, n]^3*S2[-2, 1, n])/12 + (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/12 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (8*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 + 
   (S2[3, Infinity]*S2[-2, 1, n])/4 + (3*S2[-2, 1, n]^2)/2 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/6 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (143*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 + 
   (4*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (107*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/3 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/24 - 
   (29*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (8*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 + (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (23*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/6 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/4 + (65*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (27*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (17*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (137*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (11*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (15*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (2953*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/12 + 
   (281*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/96 + 
   (71*S2[-3, 1, n]*S2[-1, 1, n])/24 + 
   (23*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/6 - 
   (10*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (43*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/3 + 
   (13*S2[1, n]^2*S2[-1, 1, n]^2)/48 + (77*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/3 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, 1, n] + (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (S2[1, n]^3*S2[2, 1, n])/4 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (75*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (179*S2[3, Infinity]*S2[2, 1, n])/48 + 2*S2[-2, 1, n]*S2[2, 1, n] + 
   (21*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (25*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2/2 - 
   10*S2[1, n]*S2[4, 1, n] + 4*S2[-4, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 - (S2[1, n]*S2[-3, 1, 1, n])/2 + 
   S2[1, n]*S2[-2, 1, -2, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/2 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (7*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (9*S2[1, n]^2*S2[-2, 1, -1, n])/4 + 
   (S2[2, Infinity]*S2[-2, 1, -1, n])/4 + S2[-2, 2, -2, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/3 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/3 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 - (7*S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (19*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/3 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 - 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   S2[1, n]^3*S2[-1, 1, -1, n] + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/6 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    24 + (49*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (27*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (17*S2[1, n]^3*S2[-1, 1, 1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/8 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 2*S2[2, 1, n]*S2[-1, 1, 1, n] + S2[-1, 1, 1, n]^2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (7*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/4 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + (5*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/3 + 
   (23*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   Half[S2[1, n], n]^2*S2[2, 1, -1, n] - 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (8*S2[1, n]^2*S2[2, 1, -1, n])/3 + (23*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (27*S2[1, n]^2*S2[2, 1, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[2, 1, 1, n])/4 - S2[-1, 1, n]*S2[2, 1, 1, n] + 
   S2[3, 1, -2, n] + 4*S2[1, n]*S2[3, 1, 1, n] - 4*S2[4, 1, 1, n] + 
   6*S2[-3, 1, 1, 1, n] + (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - 
   (5*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + S2[-2, 2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 + 
   (5*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   (2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (17*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (5*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    2 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (33*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (83*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (121*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (29*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Half[S2[1, n], n]*S2[1, -1, 1, 2, n] - S2[1, n]*S2[1, -1, 1, 2, n] - 
   4*S2[1, n]*S2[1, 1, -2, -1, n] - (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/
    2 + (3*S2[1, n]*S2[1, 1, -1, 2, n])/2 - Half[S2[1, n], n]*
    S2[1, 1, 2, -1, n] - 3*S2[1, n]*S2[1, 2, -1, -1, n] - 
   S2[2, -2, 1, 1, n] + 5*S2[1, n]*S2[2, 1, 1, 1, n] + S2[2, 2, 1, 1, n]/2 + 
   3*S2[-2, 1, 1, 1, 1, n] + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (13*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (13*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (5*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (17*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (97*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (15*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + S2[1, -1, -1, 1, 2, n] - 
   3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n] + 
   (9*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, 2, n] + 
   S2[1, 1, -2, -1, 1, n] + S2[1, 1, -2, 1, -1, n] - 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   2*S2[1, n]*S2[1, 1, -1, -1, -1, n] + S2[1, 1, -1, 1, -2, n] + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[1, 1, -1, 2, -1, n] + 
   5*S2[1, 1, 1, -2, -1, n] + 4*S2[1, 1, 1, -1, -2, n] + 
   6*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 6*S2[1, 1, 1, 2, -1, n] + 
   3*S2[1, 1, 2, -1, -1, n] + S2[1, 1, 2, -1, 1, n] + 
   4*S2[1, 1, 2, 1, -1, n] + S2[1, 2, 1, -1, -1, n] + 
   2*S2[1, 2, 1, 1, -1, n] - 2*S2[2, 1, 1, 1, 1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/4 - (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   (7*S2[-1, -1, 1, 1, -1, -1, n])/2 - (3*S2[-1, 1, -1, -1, -1, -1, n])/2 - 
   S2[-1, 1, -1, -1, -1, 1, n]/4 + 2*S2[-1, 1, -1, 1, -1, -1, n] + 
   (9*S2[-1, 1, 1, -1, -1, -1, n])/2 + S2[-1, 1, 1, 1, -1, 1, n] + 
   9*S2[-1, 1, 1, 1, 1, 1, Infinity] - (5*S2[1, -1, -1, -1, -1, -1, n])/2 - 
   (5*S2[1, -1, -1, -1, 1, -1, n])/4 + S2[1, -1, -1, 1, -1, -1, n]/2 + 
   2*S2[1, -1, 1, -1, -1, -1, n] + S2[1, 1, -1, -1, -1, -1, n] + 
   2*S2[1, 1, 1, -1, 1, -1, n] + 4*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, -2, 1, -1, n] -> (-59*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (85*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 + 
   (4919*Diff[Half[S2[1, n], n], n, 5])/5760 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (21*Diff[Half[S2[2, 1, n], n], n, 3])/64 - 
   (9*Diff[Half[S2[4, 1, n], n], n, 1])/16 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 - 
   (5*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 + 
   (3*Diff[Half[S2[2, 1, 1, 1, n], n], n, 1])/8 - 
   (71*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 - 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 + 
   (749*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (923*Diff[S2[1, n], n, 1]^3)/96 - (569*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (385*Diff[S2[1, n], n, 2]^2)/48 - 
   (2501*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/384 + 
   (2387*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (1087*Diff[S2[1, n], n, 5])/1152 + 6*Diff[S2[-4, 1, n], n, 1] + 
   (129*Diff[S2[-3, 1, n], n, 2])/32 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (113*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (137*Diff[S2[-2, 1, n], n, 3])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 - 
   (179*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (119*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (729*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (539*Diff[S2[-1, 1, n], n, 4])/192 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   2*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] - 
   (5*Diff[S2[2, 1, n], n, 3])/6 + 5*Diff[S2[4, 1, n], n, 1] - 
   6*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-2, 1, -2, n], n, 1]/8 - 
   (7*Diff[S2[-2, 1, -1, n], n, 2])/8 + (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (29*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/4 + (27*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1] + (43*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (15*Diff[S2[2, 1, 1, n], n, 2])/8 - 2*Diff[S2[3, 1, 1, n], n, 1] - 
   5*Diff[S2[-2, 1, 1, 1, n], n, 1] - (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    16 - (19*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 + 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[1, -1, 1, 2, n], n, 1] - 
   (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 + 
   (13*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (15*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 - 
   (7*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (61*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (11*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (127*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (829*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (1627*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (85*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (215*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (29*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (11*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (83*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/192 - 
   (403*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 + 
   (311*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (437*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 + (647*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 - (59*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/48 - (25*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/24 + (9*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (37*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (3*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/16 + (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    32 + (53*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/12 + 
   (19*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   (5*Half[S2[2, 1, n], n]^2)/64 + (17*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (9*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 - 
   (11*Half[S2[4, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, 1, n], n])/2 + 
   (3*Half[S2[2, 2, 1, 1, n], n])/16 + (3*Half[S2[2, 1, 1, 1, 1, n], n])/4 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/4 + 
   (21*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 - 
   (41*S2[-1, Infinity]^6)/2880 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 - 
   (1169*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 - 
   (13*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (275*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 + 
   (509*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (2273*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (4027*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (13*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (115*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (301*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 - 
   (883*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (31*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (29*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (151*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (23*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (33*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/24 + 
   (65*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/6 + (157*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (593*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (113*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (229*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (427*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (103*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (77*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (31*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (5*S2[-1, Infinity]^5*S2[1, n])/192 - 
   (95*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/192 + 
   (185*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (133*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 - 
   (4243*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 - 
   (23*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/12 - 
   (27*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (31*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (125*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (125*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (101*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (273*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 + 
   (77*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (53*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (127*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (13*Half[S2[2, 1, n], n]*S2[1, n]^3)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (157*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (35*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (Half[S2[1, n], n]*S2[1, n]^5)/
    3 - S2[1, n]^6/32 + (37*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 + (25*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/192 + 
   (15*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (73*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (365*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (27*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (131*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 + (347*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 - 
   (9*Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (51*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (203*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (153*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   S2[-1, Infinity]^4*S2[2, Infinity] + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (677*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (301*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    96 - (33*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/64 - 
   (127*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (71*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (75*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (1211*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (209*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (117*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (25*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (559*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (25*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (57*S2[1, n]^4*S2[2, Infinity])/32 + 
   (1013*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   Diff[S2[1, n], n, 1]*S2[2, Infinity]^2 - 
   (1691*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 - 
   (273*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (717*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (3351*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (37*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/8 - 
   (4679*S2[1, n]^2*S2[2, Infinity]^2)/640 - (6047*S2[2, Infinity]^3)/13440 + 
   (365*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (811*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (369*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (247*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (15*Half[S2[1, n], n]^3*S2[3, Infinity])/64 - 
   (71*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (369*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (169*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 + 
   (259*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 - 
   (113*S2[1, n]^3*S2[3, Infinity])/128 + 
   (3295*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (879*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (5561*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (3773*S2[3, Infinity]^2)/3072 - (8435*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (11673*S2[1, n]*S2[5, Infinity])/512 + (19*S2[-5, -1, Infinity])/
    8 + S2[-5, 1, n] - 2*Half[S2[1, n], n]*S2[-4, 1, n] + 
   (7*S2[1, n]*S2[-4, 1, n])/2 + (95*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/32 - (9*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/32 - 
   (79*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 + 
   (157*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (211*S2[1, n]^2*S2[-3, 1, n])/48 - (39*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/3 - 
   (131*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (19*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n] - 
   (31*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (61*S2[1, n]^3*S2[-2, 1, n])/24 - (43*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (47*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (71*S2[3, Infinity]*S2[-2, 1, n])/32 - (5*S2[-2, 1, n]^2)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (43*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (151*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/64 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (293*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 + 
   (21*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (449*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 - 
   (21*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (563*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (17*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (7*S2[1, n]^4*S2[-1, 1, n])/48 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (27*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (17*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (169*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (51*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (13*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (1143*S2[2, Infinity]^2*S2[-1, 1, n])/320 + 
   (119*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (935*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (9*S2[-3, 1, n]*S2[-1, 1, n])/4 - (21*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (15*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 - 
   (23*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, n]^2 - (25*S2[1, n]^2*S2[-1, 1, n]^2)/32 - 
   (3*S2[2, Infinity]*S2[-1, 1, n]^2)/2 - (5*S2[-1, 1, n]^3)/16 - 
   (197*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 + 
   (65*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (19*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (35*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (41*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (11*S2[1, n]^3*S2[2, 1, n])/16 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (25*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (139*S2[3, Infinity]*S2[2, 1, n])/96 - (5*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (17*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (25*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/4 + 
   (S2[1, n]*S2[4, 1, n])/2 - 4*S2[-4, 1, 1, n] - (3*S2[-3, -2, 1, n])/2 + 
   2*S2[1, n]*S2[-3, 1, 1, n] - (5*S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (13*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (7*S2[1, n]^2*S2[-2, 1, -1, n])/8 + (S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 
   (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/4 - (3*S2[-2, 2, -2, n])/8 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (19*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/48 - 
   (3*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (11*S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (65*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (5*S2[-1, 1, -1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (9*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 - 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/2 + (41*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (33*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (51*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/64 + (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 + (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (11*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (5*S2[2, 1, n]*S2[-1, 1, 1, n])/4 - (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 - S2[-1, 1, 1, n]^2 + (21*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (15*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (9*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (3*S2[1, n]^2*S2[1, 2, -1, n])/8 - 
   (5*S2[2, Infinity]*S2[1, 2, -1, n])/2 + (S2[-1, 1, n]*S2[1, 2, -1, n])/4 - 
   S2[1, n]*S2[2, 1, -2, n] + (45*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 - (87*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/16 - 
   (19*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (37*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (19*S2[1, n]^2*S2[2, 1, -1, n])/24 - (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (S2[-1, 1, n]*S2[2, 1, -1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   (9*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (29*S2[1, n]^2*S2[2, 1, 1, n])/8 + (3*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/4 - S2[3, 1, -2, n] + 
   2*Half[S2[1, n], n]*S2[3, 1, 1, n] - 3*S2[1, n]*S2[3, 1, 1, n] - 
   S2[4, 1, 1, n]/2 - 6*S2[-3, 1, 1, 1, n] - (5*S2[-2, -2, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 2*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   S2[-2, 2, 1, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/8 + (17*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    16 + (5*Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (15*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (17*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] + (7*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   6*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (63*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (77*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (19*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   Half[S2[1, n], n]*S2[1, -1, 1, 2, n] + S2[1, n]*S2[1, -1, 1, 2, n] + 
   (5*S2[1, n]*S2[1, 1, -2, -1, n])/2 + Half[S2[1, n], n]*
    S2[1, 1, 2, -1, n] - 2*Half[S2[1, n], n]*S2[1, 2, -1, -1, n] + 
   2*S2[1, n]*S2[1, 2, -1, -1, n] + S2[2, -2, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - (5*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n]/2 - 3*S2[-2, 1, 1, 1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] + 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (21*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (25*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (9*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (13*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (13*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/2 + 
   S2[1, -1, 1, 1, 2, n] + S2[1, -1, 1, 2, -1, n] - 
   (5*S2[1, 1, -2, -1, 1, n])/2 - 2*S2[1, 1, -2, 1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + S2[1, 1, -1, 1, -2, n] - 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - 4*S2[1, 1, 1, -2, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 - 3*S2[1, 1, 1, 2, -1, n] - 
   S2[1, 1, 2, -1, -1, n] - S2[1, 1, 2, -1, 1, n] - 4*S2[1, 1, 2, 1, -1, n] + 
   3*S2[1, 2, -1, -1, -1, n] - 2*S2[1, 2, 1, 1, -1, n] + 
   S2[2, 1, 1, 1, 1, n]/2 - S2[-1, -1, -1, 1, -1, -1, n]/8 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/8 - (7*S2[-1, -1, 1, 1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/4 + S2[-1, 1, -1, -1, -1, 1, n]/8 + 
   (3*S2[-1, 1, -1, -1, 1, 1, n])/4 - S2[-1, 1, -1, 1, -1, -1, n]/2 - 
   (5*S2[-1, 1, 1, -1, -1, -1, n])/4 - (3*S2[-1, 1, 1, 1, -1, -1, n])/2 - 
   S2[-1, 1, 1, 1, -1, 1, n] + (41*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + (9*S2[1, -1, -1, -1, 1, -1, n])/8 + 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 + (3*S2[1, -1, -1, 1, 1, -1, n])/4 + 
   S2[1, -1, 1, -1, -1, -1, n]/2 - (3*S2[1, -1, 1, 1, -1, -1, n])/2 + 
   (3*S2[1, 1, -1, -1, -1, -1, n])/2 + (3*S2[1, 1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, 1, -1, 1, -1, -1, n])/4 - (9*S2[1, 1, 1, -1, -1, -1, n])/4 - 
   2*S2[1, 1, 1, -1, 1, -1, n] - 4*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, -2, 1, 1, n] -> (-7*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (59*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (1123*Diff[Half[S2[1, n], n], n, 5])/5760 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 + 
   (49*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (27*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 - 
   (425*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (161*Diff[S2[1, n], n, 1]^3)/96 - (175*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (199*Diff[S2[1, n], n, 2]^2)/96 - 
   (1771*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (121*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/64 - 
   (1393*Diff[S2[1, n], n, 5])/5760 - (13*Diff[S2[-4, 1, n], n, 1])/2 - 
   (43*Diff[S2[-3, 1, n], n, 2])/32 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (3*Diff[S2[-2, 1, n], n, 3])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (79*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (115*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (37*Diff[S2[-1, 1, n], n, 4])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[2, 1, n], n, 3])/12 + 2*Diff[S2[4, 1, n], n, 1] - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/32 - (53*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (7*Diff[S2[1, 2, -1, n], n, 2])/8 - Diff[S2[2, 1, -2, n], n, 1]/2 + 
   (7*Diff[S2[2, 1, -1, n], n, 2])/16 - (9*Diff[S2[2, 1, 1, n], n, 2])/8 - 
   Diff[S2[3, 1, 1, n], n, 1] + Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    4 - (13*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 + 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 + 2*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 2*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (55*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (17*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (199*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (589*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (55*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (19*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (31*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (19*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (9*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (37*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (15*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 - 
   (67*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 - 
   (59*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (157*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 - (307*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 + (19*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/48 - (67*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/96 + (27*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (31*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (23*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/24 - (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    96 + (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/32 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    12 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/48 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   Half[S2[2, 1, n], n]^2/64 + (5*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/
    16 + (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 + 
   Half[S2[4, 1, 1, n], n]/16 + Half[S2[2, 2, 1, 1, n], n]/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/128 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 - S2[-1, Infinity]^6/480 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 - (199*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (569*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (159*Diff[S2[1, n], n, 4]*S2[1, n])/128 - 
   (51*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (39*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/32 - 
   (287*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (19*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (9*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (15*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (25*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (9*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (11*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (91*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/96 + 
   (47*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 + (1127*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 - 
   (23*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (229*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (35*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (41*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (133*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (29*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (11*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/64 + 
   (S2[-1, Infinity]^5*S2[1, n])/64 - 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/192 + 
   (51*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/64 + 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/64 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (13*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/64 - 
   (267*Diff[S2[1, n], n, 3]*S2[1, n]^2)/128 + 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (13*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 - 
   (67*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (67*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (123*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (9*Half[S2[1, n], n]^4*S2[1, n]^2)/32 - 
   (2*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/3 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 + 
   (77*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (73*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 - 
   (115*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (53*Half[S2[1, n], n]^3*S2[1, n]^3)/48 + 
   (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/24 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (89*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (17*Half[S2[1, n], n]*S2[1, n]^5)/
    12 + (13*S2[1, n]^6)/32 + 2*Diff[Half[S2[1, n], n], n, 1]^2*
    S2[2, Infinity] - (893*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    576 + (67*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 + 
   (395*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 - (889*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 + 
   (157*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (41*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 - 
   (93*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (31*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (107*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 - (289*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 - 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (35*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (11*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (43*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (199*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (39*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (83*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (173*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (141*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 - (19*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (31*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (99*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (17*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (63*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/32 + (677*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (17*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/
    4 - (89*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/
    32 - (27*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (79*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (59*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (145*S2[1, n]^4*S2[2, Infinity])/96 - 
   (411*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (1331*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 - 
   (1267*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (71*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (457*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (169*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/96 + 
   (107*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 - 
   (275*S2[1, n]^2*S2[2, Infinity]^2)/384 - (180083*S2[2, Infinity]^3)/
    13440 - (227*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (839*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (343*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/384 + 
   (131*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (89*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (5*Half[S2[1, n], n]^3*S2[3, Infinity])/192 - 
   (29*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/48 + 
   (37*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/96 - 
   (689*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (133*S2[1, n]^3*S2[3, Infinity])/128 - 
   (147*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (103*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (6761*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (3365*S2[3, Infinity]^2)/1024 + (1373*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (8025*S2[1, n]*S2[5, Infinity])/512 + (3*S2[-5, -1, Infinity])/16 - 
   13*S2[-5, 1, n] - (5*Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   3*S2[1, n]*S2[-4, 1, n] + (49*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    96 + (119*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/32 - 
   (17*Half[S2[1, n], n]^2*S2[-3, 1, n])/24 + 
   (67*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/16 - (227*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (13*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    8 - (8*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/3 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/3 - 
   (11*S2[1, n]^3*S2[-2, 1, n])/8 - (35*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (95*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (151*S2[3, Infinity]*S2[-2, 1, n])/96 - S2[-2, 1, n]^2/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (211*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 - 
   (69*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (71*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 - Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] - Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n] + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] + 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 + 
   (9*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 + 
   (41*S2[1, n]^4*S2[-1, 1, n])/48 + (79*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (109*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (37*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (103*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (1283*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (105*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (141*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   S2[-3, 1, n]*S2[-1, 1, n] + (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 - (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (31*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (21*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + (5*S2[-1, 1, n]^3)/16 - (73*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/96 + (115*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/24 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (85*S2[1, n]^3*S2[2, 1, n])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (15*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (47*S2[3, Infinity]*S2[2, 1, n])/32 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (7*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/4 - 
   2*Half[S2[1, n], n]*S2[4, 1, n] + (5*S2[1, n]*S2[4, 1, n])/2 + 
   S2[-3, -2, 1, n]/2 + (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + 
   (S2[1, n]*S2[-3, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 - 
   (3*S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/8 + (11*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/4 + (5*S2[-2, 2, -2, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/16 - 
   (47*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 + 
   (131*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/8 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/8 + (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   S2[1, n]^3*S2[-1, 1, 1, n] - (17*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (33*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (37*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 - (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 + (3*S2[-1, 1, 1, n]^2)/4 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (11*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (7*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   (7*S2[1, n]^2*S2[1, 2, -1, n])/8 - (17*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 - (5*S2[-1, 1, n]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + (S2[1, n]*S2[2, 1, -2, n])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (25*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/16 - 
   (2*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/3 + 
   (49*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 - 
   (11*S2[1, n]^2*S2[2, 1, -1, n])/8 - (71*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - S2[-1, 1, n]*S2[2, 1, -1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/8 + 5*S2[2, Infinity]*S2[2, 1, 1, n] + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/4 + 2*S2[3, 1, -2, n] + 
   Half[S2[1, n], n]*S2[3, 1, 1, n] - 2*S2[1, n]*S2[3, 1, 1, n] - 
   (5*S2[4, 1, 1, n])/2 + 3*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + (S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 + S2[-2, 2, 1, 1, n] + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    16 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (17*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (57*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (21*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (65*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] - (S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 - 3*S2[1, n]*S2[1, 1, 2, -1, n] + S2[1, n]*S2[1, 2, -1, -1, n] - 
   S2[2, -2, 1, 1, n] + (S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   2*S2[-2, 1, 1, 1, 1, n] + (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    8 - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (15*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (7*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (13*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] - 
   Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n] + 
   (13*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/2 + 
   S2[1, -1, 1, 2, -1, n] + S2[1, 1, -2, -1, -1, n] + 
   (3*S2[1, 1, -2, -1, 1, n])/2 + 2*S2[1, 1, -2, 1, -1, n] + 
   S2[1, 1, -1, -2, -1, n] + S2[1, 1, -1, -1, -2, n] - 
   (9*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 2*S2[1, 1, -1, 1, -2, n] + 
   (9*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (11*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 + S2[1, 1, -1, 2, -1, n] + 
   7*S2[1, 1, 1, -2, -1, n] + 4*S2[1, 1, 1, -1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + S2[1, 1, 1, -1, 2, n] + 
   8*S2[1, 1, 1, 2, -1, n] + 2*S2[1, 1, 2, -1, -1, n] + 
   3*S2[1, 1, 2, -1, 1, n] + 3*S2[1, 1, 2, 1, -1, n] + 
   S2[1, 2, 1, -1, -1, n] - (3*S2[2, 1, 1, 1, 1, n])/2 - 
   (5*S2[-1, -1, -1, 1, -1, -1, n])/8 - (13*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   S2[-1, -1, 1, 1, -1, -1, n]/4 - (11*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 - (3*S2[-1, 1, -1, -1, 1, 1, n])/4 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + S2[-1, 1, 1, -1, -1, -1, n]/4 + 
   S2[-1, 1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - (15*S2[1, -1, -1, -1, -1, -1, n])/
    4 + (3*S2[1, -1, -1, -1, 1, -1, n])/8 + (3*S2[1, -1, -1, 1, -1, -1, n])/
    4 - (3*S2[1, -1, -1, 1, 1, -1, n])/4 + S2[1, -1, 1, -1, -1, -1, n]/2 + 
   S2[1, -1, 1, 1, -1, -1, n] + (3*S2[1, 1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, 1, -1, -1, 1, -1, n])/4 + S2[1, 1, -1, 1, -1, -1, n]/4 + 
   (3*S2[1, 1, 1, -1, -1, -1, n])/4 + (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -1, 2, -1, -1, n] -> 
  (-61*Diff[Half[S2[1, n], n], n, 1]^3)/96 + 
   (493*Diff[Half[S2[1, n], n], n, 2]^2)/384 + 
   (911*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (3409*Diff[Half[S2[1, n], n], n, 5])/2880 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (25*Diff[Half[S2[2, 1, n], n], n, 3])/64 - 
   (21*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (13*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   (11*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 + 
   (3*Diff[Half[S2[2, 1, 1, 1, n], n], n, 1])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/6 - 
   (2717*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (1169*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (139*Diff[S2[1, n], n, 1]^3)/16 - (835*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (2413*Diff[S2[1, n], n, 2]^2)/192 - 
   (5215*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (4931*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (8201*Diff[S2[1, n], n, 5])/5760 + (23*Diff[S2[-3, 1, n], n, 2])/32 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (113*Diff[S2[-2, 1, n], n, 3])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (517*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (55*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (341*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (719*Diff[S2[-1, 1, n], n, 4])/192 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (85*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (7*Diff[S2[2, 1, n], n, 3])/24 - Diff[S2[4, 1, n], n, 1]/2 - 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 - Diff[S2[-2, 1, -2, n], n, 1]/8 - 
   (7*Diff[S2[-2, 1, -1, n], n, 2])/8 - (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 - (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (41*Diff[S2[-1, 1, 1, n], n, 3])/16 + (39*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   (5*Diff[S2[2, 1, -2, n], n, 1])/2 + (61*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (23*Diff[S2[2, 1, 1, n], n, 2])/8 - 2*Diff[S2[3, 1, 1, n], n, 1] - 
   (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   (3*Diff[S2[1, -1, 1, -2, n], n, 1])/2 + Diff[S2[1, -1, 1, 2, n], n, 1] - 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - (9*Diff[S2[2, 1, 1, 1, n], n, 1])/
    2 - (5*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/2 - 
   (15*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   (13*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (7*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (61*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 + (11*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (35*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (139*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (313*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 - 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (55*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    6 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 + (7*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/16 - 
   (19*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (17*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n] + 
   (11*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (23*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (77*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (41*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 + (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    16 - (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (41*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 + 
   Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 + 
   (2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (121*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (89*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   (13*Half[S2[2, 1, n], n]^2)/128 + (19*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (3*Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   (5*Half[S2[4, 1, 1, n], n])/4 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, 1, n], n])/4 + 
   (3*Half[S2[2, 2, 1, 1, n], n])/8 + (3*Half[S2[2, 1, 1, 1, 1, n], n])/2 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 + 
   (17*S2[-1, Infinity]^6)/1440 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/6 - 
   (535*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 - 
   (13*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (21*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (19*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (143*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (383*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (517*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (1511*Diff[S2[1, n], n, 4]*S2[1, n])/288 + 
   (25*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/24 - 
   (313*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (71*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (15*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/2 + 
   (51*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (17*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/24 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (29*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (77*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/12 + 
   (19*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (77*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (113*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (31*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (1717*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (25*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (43*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (133*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (61*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (11*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (11*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (3*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (3*Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 + 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (31*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (75*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (457*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (25*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (953*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 + 
   (33*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (49*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 - 3*Diff[S2[2, 1, n], n, 1]*
    S2[1, n]^2 - (41*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (353*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (23*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (59*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/2 - 
   (77*S2[-1, Infinity]^4*S2[1, n]^2)/192 + 
   (127*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (67*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    48 - (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (109*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/12 - (37*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (7*S2[1, n]^6)/32 + (49*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 - (1151*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (5*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/24 - (3*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/16 + (59*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/32 - 
   (183*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (271*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 - 
   (83*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 - 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (63*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (195*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   (55*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (179*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (35*Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (233*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (15*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (233*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (225*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (19*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (107*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (199*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (101*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (355*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (125*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (701*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (239*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (59*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (119*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (47*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (43*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (67*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    6 + (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 + 
   (971*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (141*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (167*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (77*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (329*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (43*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (13*S2[1, n]^4*S2[2, Infinity])/12 + 
   (553*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (7363*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (373*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (1669*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (599*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (2959*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (4733*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (5527*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (51029*S2[2, Infinity]^3)/
    4480 + (971*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (6115*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (973*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (459*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (1103*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (41*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (497*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (735*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (1185*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (55*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/8 + 
   (1503*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (1387*S2[1, n]^3*S2[3, Infinity])/192 + 
   (1237*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (6435*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (533*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (3145*S2[3, Infinity]^2)/2048 - (3065*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (301*S2[1, n]*S2[5, Infinity])/32 + (103*S2[-5, -1, Infinity])/8 - 
   2*S2[-5, 1, n] - (9*Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   6*S2[1, n]*S2[-4, 1, n] + (67*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    48 + (157*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/2 + 
   (125*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (101*S2[1, n]^2*S2[-3, 1, n])/24 - (95*S2[2, Infinity]*S2[-3, 1, n])/12 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (47*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (13*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 + 
   (77*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (17*S2[1, n]^3*S2[-2, 1, n])/6 - (197*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (329*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (433*S2[3, Infinity]*S2[-2, 1, n])/64 - (13*S2[-2, 1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 + 
   (139*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (503*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (47*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (31*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 - 
   (11*S2[-1, Infinity]^4*S2[-1, 1, n])/48 + 
   (77*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (8*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (133*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (257*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (31*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (209*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (55*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (13*S2[1, n]^4*S2[-1, 1, n])/24 + (37*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (45*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (119*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (41*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (211*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (53*S2[2, Infinity]^2*S2[-1, 1, n])/240 + 
   (667*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (1015*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (29*S2[-3, 1, n]*S2[-1, 1, n])/24 + 
   (31*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (67*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/6 - 
   (23*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (77*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (13*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (17*S2[2, Infinity]*S2[-1, 1, n]^2)/
    12 - (5*S2[-1, 1, n]^3)/8 - (455*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/96 + (617*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (63*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/24 + 
   (25*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   14*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (5*S2[1, n]^3*S2[2, 1, n])/24 - (73*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (87*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (35*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (205*S2[3, Infinity]*S2[2, 1, n])/64 - (25*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - (37*S2[2, 1, n]^2)/8 + 
   (17*S2[1, n]*S2[4, 1, n])/2 - 4*S2[-4, 1, 1, n] - (5*S2[-3, -2, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + (9*S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (9*S2[1, n]*S2[-2, 1, -2, n])/4 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - 4*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/2 + 5*S2[2, Infinity]*S2[-2, 1, -1, n] - 
   (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/2 + (3*S2[-2, 2, -2, n])/8 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 - (43*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/96 + (45*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 + (55*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    96 + (801*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (25*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (25*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (9*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (25*S2[-1, 1, -1, n]^2)/32 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (47*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + 9*S2[-1, Infinity]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (31*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (41*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 + (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (15*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (S2[2, 1, n]*S2[-1, 1, 1, n])/2 - (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 - 
   (3*S2[-1, 1, 1, n]^2)/4 + (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/4 - (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/2 - (15*S2[2, Infinity]*S2[1, 2, -1, n])/
    2 - (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 - (S2[1, n]*S2[2, 1, -2, n])/
    2 + (133*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (83*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/12 - (43*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (17*S2[-1, 1, n]*S2[2, 1, -1, n])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/4 + (33*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - S2[3, 1, -2, n] + 
   3*Half[S2[1, n], n]*S2[3, 1, 1, n] + S2[4, 1, 1, n]/2 - 
   6*S2[-3, 1, 1, 1, n] - (9*S2[-2, -2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + (5*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - S2[-2, 2, 1, 1, n] + (2*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/3 + (23*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    24 + (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/4 - 
   (47*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 + 
   (59*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (11*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 + 
   (25*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (33*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   6*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (27*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 + (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   6*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (77*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (81*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (11*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (9*S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 + 3*Half[S2[1, n], n]*S2[1, 1, 2, -1, n] - 
   2*S2[1, n]*S2[1, 1, 2, -1, n] - 3*Half[S2[1, n], n]*S2[1, 2, -1, -1, n] + 
   3*S2[1, n]*S2[1, 2, -1, -1, n] + S2[2, -2, 1, 1, n] + 
   3*Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   (3*S2[2, 2, 1, 1, n])/2 - 3*S2[-2, 1, 1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (9*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 12*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] + 12*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (63*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (31*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + 3*S2[1, -1, -1, 1, 2, n] - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (9*S2[1, -1, 1, 1, -2, n])/2 + 
   S2[1, -1, 1, 1, 2, n] + 3*S2[1, -1, 1, 2, -1, n] - 
   (9*S2[1, 1, -2, -1, 1, n])/2 - 3*S2[1, 1, -2, 1, -1, n] - 
   (13*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (13*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 3*S2[1, 1, -1, 1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 3*S2[1, 1, 1, -2, -1, n] + 
   6*S2[1, 1, 1, -1, -2, n] + (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/
    2 - (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 - S2[1, 1, 2, -1, 1, n] - 
   4*S2[1, 1, 2, 1, -1, n] + 6*S2[1, 2, -1, -1, -1, n] + 
   3*S2[1, 2, 1, -1, -1, n] - 2*S2[1, 2, 1, 1, -1, n] - 
   (3*S2[2, 1, 1, 1, 1, n])/2 - S2[-1, -1, -1, 1, -1, -1, n]/2 - 
   (3*S2[-1, -1, 1, 1, -1, -1, n])/2 - (11*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   (3*S2[-1, 1, -1, -1, 1, 1, n])/2 - (9*S2[-1, 1, -1, 1, -1, -1, n])/4 - 
   (9*S2[-1, 1, -1, 1, 1, 1, n])/4 - 3*S2[-1, 1, 1, -1, -1, -1, n] - 
   3*S2[-1, 1, 1, 1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - 
   (17*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 5*S2[1, -1, -1, -1, -1, -1, n] + 
   2*S2[1, -1, -1, -1, 1, -1, n] + (7*S2[1, -1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, -1, -1, 1, 1, -1, n])/2 - S2[1, -1, 1, -1, -1, -1, n]/2 - 
   3*S2[1, -1, 1, 1, -1, -1, n] + (13*S2[1, 1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, 1, -1, -1, 1, -1, n])/2 - (3*S2[1, 1, -1, 1, -1, -1, n])/2 - 
   (9*S2[1, 1, 1, -1, -1, -1, n])/2 - (15*S2[1, 1, 1, -1, 1, -1, n])/4 - 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -1, 2, -1, 1, n] -> 
  (-11*Diff[Half[S2[1, n], n], n, 1]^3)/64 - 
   (23*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (95*Diff[Half[S2[1, n], n], n, 5])/384 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/192 - 
   (29*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 + 
   (53*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (557*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (85*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (35*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/192 + 
   (725*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (133*Diff[S2[1, n], n, 1]^3)/32 - (111*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (193*Diff[S2[1, n], n, 2]^2)/96 - 
   (1309*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (2065*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (85*Diff[S2[1, n], n, 5])/384 + 5*Diff[S2[-4, 1, n], n, 1] + 
   (95*Diff[S2[-3, 1, n], n, 2])/96 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (59*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (41*Diff[S2[-2, 1, n], n, 3])/48 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (67*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/192 - 
   (349*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (127*Diff[S2[-1, 1, n], n, 4])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (13*Diff[S2[2, 1, n], n, 3])/24 - 2*Diff[S2[4, 1, n], n, 1] - 
   (9*Diff[S2[-3, 1, 1, n], n, 1])/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + (5*Diff[S2[-1, -2, -1, n], n, 2])/
    96 + (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/48 - 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/96 + 
   Diff[S2[-1, 1, -1, n], n, 3]/32 + (45*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, n], n, 3]/4 + (7*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   (41*Diff[S2[2, 1, -1, n], n, 2])/48 + (17*Diff[S2[2, 1, 1, n], n, 2])/8 + 
   2*Diff[S2[3, 1, 1, n], n, 1] - 3*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (11*Diff[S2[-1, 1, -1, -1, n], n, 2])/48 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    4 - (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 - 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - 
   Diff[S2[1, 2, -1, -1, n], n, 1] + 3*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (15*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (7*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 - 
   (7*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 - (197*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 - (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (61*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (125*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (37*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 + (209*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (23*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (167*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (253*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (17*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (53*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (37*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (17*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (77*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (17*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 + 
   (163*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 + 
   (61*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 - 
   (233*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (229*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 + (931*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 - (27*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (13*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/48 - (23*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (5*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (13*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (13*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/96 + (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    96 - (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/32 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (41*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    24 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/12 + 
   Half[S2[2, 1, n], n]^2/64 - (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   Half[S2[4, 1, 1, n], n]/16 - Half[S2[2, 2, 1, 1, n], n]/16 + 
   (145*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + S2[-1, Infinity]^6/180 - 
   (283*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    96 - (71*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (29*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 + 
   (41*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (427*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (301*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (1021*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (737*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (397*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 - 
   (185*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (65*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (17*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (35*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (29*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (37*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (65*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (17*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 + 
   (233*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (2*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (91*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (53*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 - (475*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 + 
   (55*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (229*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 + 
   Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (67*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (75*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n] + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (3*Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 - 
   (85*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (143*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (153*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 - 
   (395*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 - 
   (257*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (1007*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 - 
   (1397*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 - 
   (63*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (53*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (87*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (181*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (55*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (9*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (27*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (33*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 + 
   (63*S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 - 
   (109*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 - 
   (137*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (13*Half[S2[1, n], n]^3*S2[1, n]^3)/48 - 
   (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (233*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (103*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (9*Half[S2[1, n], n]*S2[1, n]^5)/
    8 + (49*S2[1, n]^6)/96 - (61*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/24 + (791*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 - (113*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 + (Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 + (547*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/192 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (205*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (61*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (73*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/24 - 
   2*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] - 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (91*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (151*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 + (151*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (65*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (33*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (185*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (133*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (421*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (325*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (89*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (117*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (75*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/32 - (7*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 - (523*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (433*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (3*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/2 - 3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
    S2[2, Infinity] - (15*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (43*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (9*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (23*S2[1, n]^4*S2[2, Infinity])/96 - 
   (2873*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (143*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/240 - 
   (1379*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (1023*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (419*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (1463*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 - 
   (1573*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (18047*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (107773*S2[2, Infinity]^3)/
    13440 + (535*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (877*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (229*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/384 - 
   (697*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (785*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 + 
   (185*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (71*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (743*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (2095*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (181*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (233*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (191*S2[1, n]^3*S2[3, Infinity])/64 - 
   (1733*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (457*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (11779*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (11791*S2[3, Infinity]^2)/3072 + (4251*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (19501*S2[1, n]*S2[5, Infinity])/512 + (97*S2[-5, -1, Infinity])/
    16 + 17*S2[-5, 1, n] + (9*Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   5*S2[1, n]*S2[-4, 1, n] - (149*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    96 - (107*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 - 
   (5*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 + 
   (67*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 - 
   (157*S2[1, n]^2*S2[-3, 1, n])/24 + (109*S2[2, Infinity]*S2[-3, 1, n])/24 + 
   (2*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/3 - 
   (85*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/3 - (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    8 + (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (63*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (25*S2[1, n]^3*S2[-2, 1, n])/6 + (53*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (89*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (101*S2[3, Infinity]*S2[-2, 1, n])/96 + S2[-2, 1, n]^2/4 - 
   (71*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/96 - 
   (55*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (131*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 + 
   (4*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/3 - 
   (11*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/64 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (21*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (61*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/4 - 
   (13*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/4 + 
   (27*S2[1, n]^4*S2[-1, 1, n])/16 - (35*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (43*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (21*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (23*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (5581*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (297*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (131*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (S2[-3, 1, n]*S2[-1, 1, n])/2 - (15*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (31*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2 + (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/
    32 - (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (21*S2[1, n]^2*S2[-1, 1, n]^2)/32 - (19*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + (3*S2[-1, 1, n]^3)/16 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    96 - (77*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (17*S2[1, n]^3*S2[2, 1, n])/24 + (31*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (47*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (145*S2[3, Infinity]*S2[2, 1, n])/32 + (3*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (19*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/4 + 
   4*Half[S2[1, n], n]*S2[4, 1, n] - (9*S2[1, n]*S2[4, 1, n])/2 - 
   4*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + (13*S2[1, n]*S2[-3, 1, 1, n])/2 + 
   (S2[1, n]*S2[-2, 1, -2, n])/4 + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (33*S2[1, n]^2*S2[-2, 1, -1, n])/8 - (5*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (9*S2[-1, 1, n]*S2[-2, 1, -1, n])/4 - (5*S2[-2, 2, -2, n])/8 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/12 + 
   (5*S2[2, Infinity]*S2[-1, -2, -1, n])/12 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (25*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (25*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (191*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 - 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/2 + (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (45*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (55*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (97*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 + (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (7*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (9*S2[2, 1, n]*S2[-1, 1, 1, n])/4 - (7*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 - (3*S2[-1, 1, 1, n]^2)/4 - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (5*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   (7*S2[1, n]^2*S2[1, 2, -1, n])/8 + S2[2, Infinity]*S2[1, 2, -1, n] - 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/4 + (Half[S2[1, n], n]*S2[2, 1, -2, n])/
    2 - (47*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (89*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 - 
   (17*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (49*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 - 
   (7*S2[1, n]^2*S2[2, 1, -1, n])/12 + (7*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (51*S2[1, n]^2*S2[2, 1, 1, n])/8 - (5*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   (7*S2[-1, 1, n]*S2[2, 1, 1, n])/4 - (3*S2[3, 1, -2, n])/2 - 
   3*S2[1, n]*S2[3, 1, 1, n] + (5*S2[4, 1, 1, n])/2 - 6*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n]/2 + (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + 
   2*S2[1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 2, 1, 1, n]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (17*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (21*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (25*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   2*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] + S2[1, n]^2*S2[-1, 1, 1, 1, n] + 
   (41*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (145*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (85*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (189*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (33*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (63*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] - S2[1, n]*S2[1, -1, 1, -2, n] - 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] + (5*S2[1, n]*S2[1, 1, -2, -1, n])/
    2 + (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, 2, n])/2 - (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   3*S2[1, n]*S2[1, 2, -1, -1, n] + (3*S2[2, -2, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - (11*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   (7*S2[-2, 1, 1, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (11*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (13*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (7*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (29*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (143*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (11*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (17*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] - 
   S2[1, -1, 1, -2, -1, n] + (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (11*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, -1, 1, 1, 2, n]/2 - S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, -1, n] - (3*S2[1, 1, -2, -1, 1, n])/2 - 
   2*S2[1, 1, -2, 1, -1, n] + (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    4 - (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 2*S2[1, 1, -1, 1, -2, n] + 
   (19*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (25*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - S2[1, 1, -1, 1, 2, n] - 
   S2[1, 1, -1, 2, -1, n] - 7*S2[1, 1, 1, -2, -1, n] - 
   4*S2[1, 1, 1, -1, -2, n] + (15*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/
    4 - (27*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 - 8*S2[1, 1, 1, 2, -1, n] - 
   2*S2[1, 1, 2, -1, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   5*S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, -1, -1, n] - 
   2*S2[1, 2, 1, 1, -1, n] + (3*S2[2, 1, 1, 1, 1, n])/2 + 
   (7*S2[-1, -1, -1, 1, -1, -1, n])/8 + (19*S2[-1, -1, 1, -1, -1, -1, n])/8 - 
   S2[-1, -1, 1, 1, -1, -1, n]/4 + (17*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 + (3*S2[-1, 1, -1, -1, 1, 1, n])/4 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - S2[-1, 1, 1, -1, -1, -1, n]/4 + 
   2*S2[-1, 1, 1, -1, -1, 1, n] + 2*S2[-1, 1, 1, 1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - 4*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   (25*S2[1, -1, -1, -1, -1, -1, n])/4 - (3*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - S2[1, -1, -1, 1, 1, -1, n]/4 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 + 2*S2[1, -1, 1, 1, -1, -1, n] - 
   (3*S2[1, 1, -1, -1, -1, -1, n])/2 + (3*S2[1, 1, -1, -1, 1, -1, n])/4 - 
   S2[1, 1, -1, 1, -1, -1, n]/4 - (3*S2[1, 1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, 2, 1, -1, n] -> -Diff[Half[S2[1, n], n], n, 2]^2/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 5])/5 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/6 + 
   (149*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/36 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/12 - 
   (121*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 + 
   (39*Diff[S2[1, n], n, 1]^3)/8 + (43*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (127*Diff[S2[1, n], n, 2]^2)/24 + 
   (169*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (1091*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 + 
   (3*Diff[S2[1, n], n, 5])/5 + Diff[S2[-4, 1, n], n, 1]/2 - 
   (11*Diff[S2[-3, 1, n], n, 2])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   4*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] - 
   (3*Diff[S2[-2, 1, n], n, 3])/2 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/6 + 
   (17*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/6 + 
   (51*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (79*Diff[S2[-1, 1, n], n, 4])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   6*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-1, -2, -1, n], n, 2]/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/12 - (7*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (19*Diff[S2[2, 1, -1, n], n, 2])/12 + 
   (7*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/6 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1] - 
   2*Diff[S2[-1, 1, 1, -1, -1, n], n, 1] + 
   (7*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + Diff[S2[1, -1, -1, 1, -1, n], n, 
    1] - (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/12 + (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/4 + (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (137*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (7*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    3 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 + (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/2 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/72 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/24 - (11*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/12 + (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    72 + (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/3 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/48 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/8 + 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/40 + (3*S2[-1, Infinity]^6)/160 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    12 + (101*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 - 
   (159*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (247*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (587*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (77*Diff[S2[1, n], n, 4]*S2[1, n])/24 - 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/4 + 
   (47*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 - 
   (53*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (59*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 4*Diff[S2[2, 1, -1, n], n, 1]*
    S2[1, n] + 3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 + (73*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    12 - (563*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (89*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/6 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/12 - 
   (17*S2[-1, Infinity]^5*S2[1, n])/240 - Diff[Half[S2[1, n], n], n, 1]^2*
    S2[1, n]^2 - (131*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/8 + 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 - 
   (125*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/12 + 
   (889*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/6 - 
   (55*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[1, n]^2 + 3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - 
   (139*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (137*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/2 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    8 + (77*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (131*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (8*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/6 - (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/3 + (35*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - (11*S2[1, n]^6)/24 + (5*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/24 + (41*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    72 - (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     S2[2, Infinity])/3 + (169*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (85*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/12 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    24 + (143*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/48 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (43*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 - (95*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 + (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/12 - (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 - (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (27*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (93*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (55*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (35*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (91*S2[1, n]^4*S2[2, Infinity])/48 + 
   (121*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/40 - 
   (53*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/15 - 
   (53*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/60 - 
   (131*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (169*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (647*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 - 
   (91*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (85*S2[1, n]^2*S2[2, Infinity]^2)/24 - (1621*S2[2, Infinity]^3)/3360 - 
   (149*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 + 
   (115*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 - 
   (95*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/48 + 
   (87*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (781*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 - 
   (47*Half[S2[1, n], n]^3*S2[3, Infinity])/64 - 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (361*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (31*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (321*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (509*S2[1, n]^3*S2[3, Infinity])/192 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (125*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (149*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (2339*S2[3, Infinity]^2)/384 + (953*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (735*S2[1, n]*S2[5, Infinity])/32 + (27*S2[-5, -1, Infinity])/8 - 
   2*S2[-5, 1, n] - 2*Half[S2[1, n], n]*S2[-4, 1, n] - 
   4*S2[1, n]*S2[-4, 1, n] - (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/3 + (19*S2[1, n]^2*S2[-3, 1, n])/
    6 - (7*S2[2, Infinity]*S2[-3, 1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/3 + 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (13*S2[1, n]^3*S2[-2, 1, n])/12 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/12 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/12 - 
   (19*S2[3, Infinity]*S2[-2, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 + 
   (23*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 + 
   (43*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 2*Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] + (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] - 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n] + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/2 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/3 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n] - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (8*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/3 - 
   (31*S2[1, n]^4*S2[-1, 1, n])/24 + Diff[Half[S2[1, n], n], n, 1]*
    S2[2, Infinity]*S2[-1, 1, n] - (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/3 - (23*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/
    24 + (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    4 + (5*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] - 
   (53*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (809*S2[2, Infinity]^2*S2[-1, 1, n])/120 + 
   (21*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (13*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/2 + 2*Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] - 3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, n]^2 - 2*S2[1, n]^2*S2[-1, 1, n]^2 - 
   (S2[2, Infinity]*S2[-1, 1, n]^2)/4 - S2[-1, 1, n]^3/2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 - 
   (7*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/4 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    2 - (Half[S2[1, n], n]^3*S2[2, 1, n])/6 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n] + (7*S2[1, n]^3*S2[2, 1, n])/6 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (23*S2[3, Infinity]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 
   S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] - 4*Half[S2[1, n], n]*S2[4, 1, n] + 
   4*S2[1, n]*S2[4, 1, n] + 8*S2[-4, 1, 1, n] - 8*S2[1, n]*S2[-3, 1, 1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n] + 
   Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - 3*S2[1, n]^2*S2[-2, 1, -1, n] - 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 3*S2[-1, 1, n]*S2[-2, 1, -1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/3 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/12 + 
   (7*S2[2, Infinity]*S2[-1, -2, -1, n])/12 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 + 
   Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n] - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, -1, n] + (47*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, -1, n])/24 + (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/
    8 + (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (11*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (3*S2[3, Infinity]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   3*S2[2, 1, n]*S2[-1, 1, 1, n] + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   (15*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 2*S2[-1, 1, n]*S2[1, 2, -1, n] - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (19*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    12 + (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/3 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 - 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/12 + (29*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 + S2[-1, 1, n]*S2[2, 1, -1, n] - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (7*S2[1, n]^2*S2[2, 1, 1, n])/2 - 2*S2[2, Infinity]*S2[2, 1, 1, n] - 
   (5*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - S2[3, 1, -2, n]/2 - 
   2*Half[S2[1, n], n]*S2[3, 1, 1, n] + 2*S2[1, n]*S2[3, 1, 1, n] + 
   6*S2[-3, 1, 1, 1, n] - (7*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   (3*S2[-2, 2, 1, 1, n])/2 + (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    6 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + 2*Half[S2[1, n], n]^2*
    S2[-1, 1, 1, 1, n] - 4*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (7*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    2 + 3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   8*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] + S2[1, n]*S2[1, -1, 1, -2, n] + 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] - S2[1, n]*S2[1, 1, -2, -1, n] + 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 2*Half[S2[1, n], n]*
    S2[1, 2, -1, -1, n] - 2*S2[1, n]*S2[1, 2, -1, -1, n] - 
   S2[2, -2, 1, 1, n]/2 - Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + 
   S2[1, n]*S2[2, 1, 1, 1, n] + (7*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 2*S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + (17*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 - Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   S2[1, n]*S2[1, -1, -1, -1, -1, n] + S2[1, -1, 1, -2, -1, n] + 
   S2[1, -1, 1, 1, 2, n]/2 - S2[1, 1, -2, -1, -1, n] - 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (7*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[1, 1, -1, 1, 2, n] - 
   6*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   6*S2[1, n]*S2[1, 1, 1, -1, -1, n] - S2[1, 1, 1, 2, -1, n] - 
   (3*S2[1, 1, 2, -1, 1, n])/2 + 2*S2[1, 1, 2, 1, -1, n] - 
   3*S2[1, 2, -1, -1, -1, n] + 2*S2[1, 2, 1, 1, -1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n] - 2*S2[-1, -1, 1, -1, -1, -1, n] - 
   2*S2[-1, 1, -1, -1, -1, -1, n] - 2*S2[-1, 1, 1, -1, -1, 1, n] - 
   2*S2[-1, 1, 1, 1, -1, -1, n] - (27*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, -1, 1, 1, -1, n] - 2*S2[1, -1, 1, 1, -1, -1, n] + 
   S2[1, 1, -1, 1, -1, -1, n] + 3*S2[1, 1, 1, -1, -1, -1, n], 
 S2[-1, -1, 2, 1, 1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (95*Diff[Half[S2[1, n], n], n, 2]^2)/128 - 
   (301*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 - 
   (21*Diff[Half[S2[1, n], n], n, 5])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 - 
   (47*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (13*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 + 
   (389*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (289*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (113*Diff[S2[1, n], n, 1]^3)/48 + (249*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (613*Diff[S2[1, n], n, 2]^2)/192 + 
   (1553*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (659*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 + 
   (2171*Diff[S2[1, n], n, 5])/5760 - 4*Diff[S2[-4, 1, n], n, 1] - 
   (79*Diff[S2[-3, 1, n], n, 2])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (61*Diff[S2[-2, 1, n], n, 3])/48 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (49*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (95*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (69*Diff[S2[-1, 1, n], n, 4])/64 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   Diff[S2[2, 1, n], n, 3]/2 - (5*Diff[S2[4, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - Diff[S2[-2, 1, -2, n], n, 1]/8 + 
   (7*Diff[S2[-2, 1, -1, n], n, 2])/8 - (5*Diff[S2[-1, -2, -1, n], n, 2])/
    32 + (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (9*Diff[S2[-1, 1, -1, n], n, 3])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (9*Diff[S2[-1, 1, 1, n], n, 3])/16 - (11*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (13*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/8 + 2*Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/16 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - 
   (5*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    4 + Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 - 
   (11*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (179*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (173*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (111*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (569*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (59*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (89*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (27*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (85*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (17*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (29*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (23*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/4 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 - (73*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (181*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (23*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   Half[S2[2, 1, n], n]^2/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/6 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^5)/80 + S2[-1, Infinity]^6/120 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 + (731*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (11*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (81*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (169*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (313*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (1079*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (131*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (179*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (283*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (31*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (11*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (53*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (23*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (61*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (149*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (269*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (1109*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (41*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (S2[-1, Infinity]^5*S2[1, n])/20 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (263*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/6 + 
   (113*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 - 
   (173*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (1825*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (59*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/12 + 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (23*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (61*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/12 - 
   (101*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (23*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    3 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 - (3*Half[S2[1, n], n]^2*S2[1, n]^4)/
    2 + (13*Half[S2[1, n], n]*S2[1, n]^5)/12 - (29*S2[1, n]^6)/96 - 
   (37*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 - 
   (131*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/4 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (37*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (155*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (305*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 + (63*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (151*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (99*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (45*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (337*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   (157*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (10*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/3 - (437*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (31*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (47*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (95*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (61*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] - (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/8 - 
   (319*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 + 
   (269*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (37*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (47*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (155*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (85*S2[1, n]^4*S2[2, Infinity])/96 - 
   (253*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (481*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (491*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (97*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (1051*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (217*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (601*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (1471*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (1427*S2[2, Infinity]^3)/
    13440 + (19*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (1361*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (113*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (913*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (883*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (65*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (889*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (767*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (43*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 - 
   (217*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (7*S2[1, n]^3*S2[3, Infinity])/12 - 
   (2683*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (831*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (2977*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (9079*S2[3, Infinity]^2)/6144 + (289*Half[S2[1, n], n]*S2[5, Infinity])/
    64 - (405*S2[1, n]*S2[5, Infinity])/256 - (5*S2[-5, -1, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[-4, 1, n])/2 - S2[1, n]*S2[-4, 1, n] - 
   (101*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/6 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (13*S2[1, n]^2*S2[-3, 1, n])/48 + (41*S2[2, Infinity]*S2[-3, 1, n])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    16 + (71*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 - 
   (55*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (4*S2[1, n]^3*S2[-2, 1, n])/3 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (17*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (65*S2[3, Infinity]*S2[-2, 1, n])/64 + S2[-2, 1, n]^2/8 - 
   (47*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (263*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/2 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 + 
   (41*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (21*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 - 
   (29*S2[1, n]^4*S2[-1, 1, n])/48 - (37*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (71*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (35*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (443*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 
   (119*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (195*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (11*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (11*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/24 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (47*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (37*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (21*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (39*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (15*S2[1, n]^3*S2[2, 1, n])/16 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (37*S2[3, Infinity]*S2[2, 1, n])/64 + (5*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (9*S2[2, 1, n]^2)/8 + (S2[1, n]*S2[4, 1, n])/2 + (3*S2[-3, -2, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 - (5*S2[1, n]*S2[-3, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (5*S2[-2, 2, -2, n])/8 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/48 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/48 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    3 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (35*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (413*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (5*S2[-1, 1, -1, n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   2*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (19*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + (3*S2[-1, 1, 1, n]^2)/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (S2[1, n]^2*S2[1, 2, -1, n])/4 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 - 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (35*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/24 + (4*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (17*S2[1, n]^2*S2[2, 1, -1, n])/24 + (S2[2, Infinity]*S2[2, 1, -1, n])/6 + 
   (7*S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - S2[2, Infinity]*S2[2, 1, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] + (7*S2[4, 1, 1, n])/2 + 
   (3*S2[-2, -2, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (5*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 4*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + (11*Diff[S2[1, n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 + (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 - Half[S2[1, n], n]*S2[1, 1, 2, -1, n] + S2[1, n]*S2[1, 1, 2, -1, n] - 
   S2[1, n]*S2[1, 2, -1, -1, n] + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   6*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - S2[1, -1, -1, 1, 2, n] + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, -1, 1, 2, -1, n] + (3*S2[1, 1, -2, -1, 1, n])/2 + 
   S2[1, 1, -2, 1, -1, n] + 2*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   2*S2[1, n]*S2[1, 1, -1, -1, -1, n] - S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, 1, -2, -1, n] - 2*S2[1, 1, 1, -1, -2, n] - 
   S2[1, 1, 2, -1, -1, n] - S2[1, 2, 1, -1, -1, n] - 
   (3*S2[2, 1, 1, 1, 1, n])/2 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   S2[-1, 1, -1, -1, -1, 1, n]/2 - S2[-1, 1, -1, 1, -1, -1, n]/4 + 
   S2[-1, 1, -1, 1, 1, 1, n]/4 - S2[-1, 1, 1, -1, -1, -1, n] + 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - 6*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   S2[1, -1, -1, -1, 1, -1, n]/4 - (3*S2[1, -1, -1, 1, -1, -1, n])/4 - 
   S2[1, -1, 1, -1, -1, -1, n] - (5*S2[1, 1, -1, -1, -1, -1, n])/2 + 
   (7*S2[1, 1, 1, -1, 1, -1, n])/4 + 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, -1, -2, -1, n] -> (-67*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (31*Diff[Half[S2[1, n], n], n, 2]^2)/24 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 + 
   (779*Diff[Half[S2[1, n], n], n, 5])/1152 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/64 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/4 - 
   (15*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   (3*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 - 
   (3*Diff[Half[S2[2, 1, 1, 1, n], n], n, 1])/8 + 
   (57*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 - 
   (27*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/8 - 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 - 
   (483*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 + 
   (199*Diff[S2[1, n], n, 1]^3)/48 - (1585*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/192 + (655*Diff[S2[1, n], n, 2]^2)/96 - 
   (1645*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/384 + 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/8 - 
   (941*Diff[S2[1, n], n, 5])/1152 - 26*Diff[S2[-4, 1, n], n, 1] - 
   (707*Diff[S2[-3, 1, n], n, 2])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (137*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (3*Diff[S2[-2, 1, n], n, 3])/16 - (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 - 
   (47*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (29*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (245*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (209*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (413*Diff[S2[-1, 1, n], n, 4])/192 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (5*Diff[S2[2, 1, n], n, 3])/4 + 6*Diff[S2[4, 1, n], n, 1] - 
   (7*Diff[S2[-3, 1, 1, n], n, 1])/2 - (9*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (9*Diff[S2[-2, 1, -1, n], n, 2])/8 - (3*Diff[S2[-1, -2, -1, n], n, 2])/
    32 - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (3*Diff[S2[-1, 1, -1, n], n, 3])/32 - 
   (157*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (121*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (17*Diff[S2[-1, 1, 1, n], n, 3])/24 + (27*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   2*Diff[S2[2, 1, -2, n], n, 1] + (33*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (27*Diff[S2[2, 1, 1, n], n, 2])/8 - 3*Diff[S2[3, 1, 1, n], n, 1] - 
   (17*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/4 - 
   (35*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 + 
   (3*Diff[S2[1, -1, 1, -2, n], n, 1])/2 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   6*Diff[S2[1, 1, -2, -1, n], n, 1] - (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 
   6*Diff[S2[1, 1, 2, -1, n], n, 1] - 6*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 + 
   (9*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (15*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 - 
   (9*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (7*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (21*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (17*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (21*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (53*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 + 
   3*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (91*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (31*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/64 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (25*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (119*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (77*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (425*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 - 
   (65*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (47*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (39*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 + 
   (11*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (9*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (37*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (41*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (9*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (21*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (15*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (73*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 - 
   (299*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 - 
   (57*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/64 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (17*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 - (83*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    1152 + (67*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 + 
   (77*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (27*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (73*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (77*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (139*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 - 
   (3*Half[S2[2, 1, n], n]^2)/64 + (5*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/
    4 + (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 + 
   (3*Half[S2[4, 1, 1, n], n])/16 + (3*Half[S2[2, 2, 1, 1, n], n])/16 - 
   (233*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (37*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + 
   (11*S2[-1, Infinity]^6)/480 + (203*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 - 
   (607*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (25*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (65*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 + 
   (133*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (1157*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (1297*Diff[S2[1, n], n, 4]*S2[1, n])/384 + 
   (41*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 4*Diff[S2[-2, 1, n], n, 2]*
    S2[1, n] + (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     S2[1, n])/16 - (175*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     S2[1, n])/32 - (979*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (85*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (9*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (37*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (31*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (49*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (101*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (33*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 + 
   (15*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (47*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (107*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (115*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (551*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (841*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (19*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (73*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (39*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   6*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (77*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (89*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (129*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (205*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (11*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (43*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (5*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/4 - 
   (47*S2[-1, Infinity]^5*S2[1, n])/320 - 
   (231*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 + 
   (1081*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (31*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/64 + 
   (557*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (1933*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 - 
   (4793*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 + 
   (175*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (95*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 - 
   (109*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (193*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (41*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (175*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (79*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (45*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (23*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (51*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 + 
   (41*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (65*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + 
   (21*Half[S2[2, 1, n], n]*S2[1, n]^3)/32 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (95*Half[S2[1, n], n]^2*S2[1, n]^4)/24 - (61*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + (19*S2[1, n]^6)/32 + (175*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (925*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/192 + (121*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 - (3*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/16 + (495*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/64 - 
   (899*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (353*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 - 
   11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (247*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (29*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (47*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (87*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (215*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (101*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    32 + (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 - 
   (7*Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (87*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (13*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (185*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (27*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (99*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (195*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (163*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/
    64 + (637*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (21*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (59*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity] - 
   (377*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (255*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (173*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (1019*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (203*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (33*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    64 + (45*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (435*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (153*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (81*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (5*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 + (205*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + (2279*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (99*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/4 - (191*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 + (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (13*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (S2[1, n]^4*S2[2, Infinity])/32 - (227*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/128 + (6847*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    320 - (2083*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 - 
   (1541*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (1143*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (3481*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (2193*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (3401*S2[1, n]^2*S2[2, Infinity]^2)/640 - (628111*S2[2, Infinity]^3)/
    13440 - (29*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/48 - 
   (4919*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (1831*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/384 + 
   (1097*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 - (405*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (341*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (219*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (469*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (1251*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (431*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (325*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (67*S2[1, n]^3*S2[3, Infinity])/16 + 
   (3607*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (515*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (16787*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (36205*S2[3, Infinity]^2)/3072 - (8513*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (13927*S2[1, n]*S2[5, Infinity])/512 + (81*S2[-5, -1, Infinity])/
    16 - 53*S2[-5, 1, n] - 15*Half[S2[1, n], n]*S2[-4, 1, n] + 
   (27*S2[1, n]*S2[-4, 1, n])/2 + (55*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/32 + (505*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/32 - 
   (35*Half[S2[1, n], n]^2*S2[-3, 1, n])/12 + 
   (149*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (73*S2[1, n]^2*S2[-3, 1, n])/24 - (275*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (83*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (167*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (51*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (37*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (11*S2[1, n]^3*S2[-2, 1, n])/3 - (87*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (131*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (769*S2[3, Infinity]*S2[-2, 1, n])/96 - (3*S2[-2, 1, n]^2)/4 - 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/32 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (187*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (77*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (379*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 - 
   Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n] - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (21*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 - 
   (137*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n] - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (227*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (55*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (21*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (539*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (61*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (181*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (49*S2[1, n]^4*S2[-1, 1, n])/48 + 5*Diff[Half[S2[1, n], n], n, 1]*
    S2[2, Infinity]*S2[-1, 1, n] + (29*Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/8 - (41*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/
    24 + (105*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, n])/32 - (31*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/
    8 - (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (53*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (217*S2[2, Infinity]^2*S2[-1, 1, n])/64 + 
   (559*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (21*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/8 + (21*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 - (31*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 - 
   (23*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (21*S2[2, Infinity]*S2[-1, 1, n]^2)/
    8 - (25*S2[-1, 1, n]^3)/48 - (463*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/96 + (589*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (93*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/24 + 
   (9*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (179*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (47*S2[1, n]^3*S2[2, 1, n])/24 - (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (213*S2[3, Infinity]*S2[2, 1, n])/32 - (9*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n] - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - (15*S2[2, 1, n]^2)/4 - 
   12*Half[S2[1, n], n]*S2[4, 1, n] + (27*S2[1, n]*S2[4, 1, n])/2 - 
   2*S2[-4, 1, 1, n] + (3*S2[-3, -2, 1, n])/2 + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] + 2*S2[1, n]*S2[-3, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-2, 1, -2, n] - (7*S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   (7*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/8 + (13*S2[2, Infinity]*S2[-2, 1, -1, n])/
    2 - (5*S2[-1, 1, n]*S2[-2, 1, -1, n])/4 + (15*S2[-2, 2, -2, n])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/32 + 
   (31*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 - (31*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (13*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (39*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (649*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (9*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (9*S2[-1, 1, -1, n]^2)/16 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 - 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 - 
   (7*S2[1, n]^3*S2[-1, 1, 1, n])/4 - (29*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (141*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (161*S2[3, Infinity]*S2[-1, 1, 1, n])/64 + 
   (5*S2[-2, 1, n]*S2[-1, 1, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (S2[2, 1, n]*S2[-1, 1, 1, n])/4 - (5*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/8 + 
   (9*S2[-1, 1, 1, n]^2)/4 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (27*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (7*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (3*S2[1, n]^2*S2[1, 2, -1, n])/8 - 
   (45*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (S2[-1, 1, n]*S2[1, 2, -1, n])/
    4 + Half[S2[1, n], n]*S2[2, 1, -2, n] + (3*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/16 + 
   (27*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/16 - 
   (13*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 + 
   (53*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (19*S2[1, n]^2*S2[2, 1, -1, n])/12 - (53*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (7*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 - 4*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (7*S2[1, n]^2*S2[2, 1, 1, n])/8 + 
   (53*S2[2, Infinity]*S2[2, 1, 1, n])/4 - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/
    4 + (9*S2[3, 1, -2, n])/2 + 5*Half[S2[1, n], n]*S2[3, 1, 1, n] - 
   5*S2[1, n]*S2[3, 1, 1, n] - (15*S2[4, 1, 1, n])/2 + 7*S2[-3, 1, 1, 1, n] - 
   (3*S2[-2, -2, 1, 1, n])/2 + Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 
   (5*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (5*S2[-2, 2, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (8*S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (23*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (9*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + 2*S2[2, Infinity]*
    S2[-1, 1, -1, 1, n] + (5*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (63*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (63*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (233*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (111*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   6*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (23*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (327*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (137*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   3*Half[S2[1, n], n]*S2[1, 1, -2, -1, n] - (3*S2[1, n]*S2[1, 1, -2, -1, n])/
    2 + Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] - 
   (17*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 3*Half[S2[1, n], n]*
    S2[1, 2, -1, -1, n] + 3*S2[1, n]*S2[1, 2, -1, -1, n] - 
   (5*S2[2, -2, 1, 1, n])/2 + 3*Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + 
   (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - (7*S2[-2, 1, 1, 1, 1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (17*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (11*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (21*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (141*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (23*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (23*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (19*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (19*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 3*S2[1, -1, -1, 1, 2, n] - 
   (21*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (21*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (9*S2[1, -1, 1, 1, -2, n])/2 + 
   S2[1, -1, 1, 1, 2, n]/2 + 3*S2[1, -1, 1, 2, -1, n] + 
   4*S2[1, 1, -2, -1, -1, n] + (9*S2[1, 1, -2, -1, 1, n])/2 + 
   6*S2[1, 1, -2, 1, -1, n] + 3*S2[1, 1, -1, -2, -1, n] + 
   3*S2[1, 1, -1, -1, -2, n] - 6*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   6*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 6*S2[1, 1, -1, 1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 + 3*S2[1, 1, -1, 2, -1, n] + 
   21*S2[1, 1, 1, -2, -1, n] + 12*S2[1, 1, 1, -1, -2, n] + 
   (13*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 - 
   (13*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + 3*S2[1, 1, 1, -1, 2, n] + 
   25*S2[1, 1, 1, 2, -1, n] + 6*S2[1, 1, 2, -1, -1, n] + 
   (17*S2[1, 1, 2, -1, 1, n])/2 + 7*S2[1, 1, 2, 1, -1, n] + 
   4*S2[1, 2, -1, -1, -1, n] + 3*S2[1, 2, 1, -1, -1, n] - 
   S2[1, 2, 1, 1, -1, n] - (9*S2[2, 1, 1, 1, 1, n])/2 - 
   (33*S2[-1, -1, -1, 1, -1, -1, n])/8 - (65*S2[-1, -1, 1, -1, -1, -1, n])/
    8 + (3*S2[-1, -1, 1, 1, -1, -1, n])/4 - (47*S2[-1, 1, -1, -1, -1, -1, n])/
    4 - (15*S2[-1, 1, -1, -1, -1, 1, n])/8 + (5*S2[-1, 1, -1, -1, 1, 1, n])/
    4 - (9*S2[-1, 1, -1, 1, 1, 1, n])/4 + (3*S2[-1, 1, 1, -1, -1, -1, n])/4 - 
   S2[-1, 1, 1, 1, -1, -1, n] + (9*S2[-1, 1, 1, 1, -1, 1, n])/4 - 
   (33*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - (75*S2[1, -1, -1, -1, -1, -1, n])/
    4 + (9*S2[1, -1, -1, -1, 1, -1, n])/8 + (9*S2[1, -1, -1, 1, -1, -1, n])/
    4 + (5*S2[1, -1, -1, 1, 1, -1, n])/4 + (3*S2[1, -1, 1, -1, -1, -1, n])/
    2 - S2[1, -1, 1, 1, -1, -1, n] + (9*S2[1, 1, -1, -1, -1, -1, n])/2 + 
   (5*S2[1, 1, -1, -1, 1, -1, n])/4 + S2[1, 1, -1, 1, -1, -1, n]/4 + 
   (3*S2[1, 1, 1, -1, -1, -1, n])/4 + (9*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   9*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -1, -1, -2, 1, n] -> 
  (11*Diff[Half[S2[1, n], n], n, 1]^3)/96 - 
   (25*Diff[Half[S2[1, n], n], n, 2]^2)/32 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/36 - 
   (281*Diff[Half[S2[1, n], n], n, 5])/720 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 - 
   (43*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/16 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 + 
   (191*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (1307*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (29*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 - 
   (689*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (413*Diff[S2[1, n], n, 1]^3)/64 + (295*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (359*Diff[S2[1, n], n, 2]^2)/96 + 
   (1879*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (7529*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (2597*Diff[S2[1, n], n, 5])/5760 - (11*Diff[S2[-4, 1, n], n, 1])/2 - 
   (305*Diff[S2[-3, 1, n], n, 2])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   (313*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (83*Diff[S2[-2, 1, n], n, 3])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (377*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 - (43*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 + 
   (475*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (271*Diff[S2[-1, 1, n], n, 4])/192 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (31*Diff[S2[2, 1, n], n, 3])/48 - 5*Diff[S2[4, 1, n], n, 1] + 
   3*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - 
   Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, n], n, 3]/6 - (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (37*Diff[S2[-1, 1, 1, n], n, 3])/48 - (13*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (21*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (5*Diff[S2[2, 1, 1, n], n, 2])/8 + Diff[S2[3, 1, 1, n], n, 1] + 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    8 + Diff[S2[-1, 1, -1, 1, n], n, 2]/16 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, -1, 1, -1, -1, n], n, 1] - 
   (9*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/8 + Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/
    4 - (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   2*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   Diff[S2[1, 1, -1, -1, -1, n], n, 1]/2 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (53*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (191*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (389*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (287*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/288 - 
   (65*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (79*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (37*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (55*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (29*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (43*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 - (149*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/64 + 
   (305*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/384 - 
   (49*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (119*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (49*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (131*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   (3*Half[S2[2, 1, n], n]^2)/64 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 + 
   Half[S2[4, 1, 1, n], n]/4 + (Half[S2[1, n], n]*Half[S2[2, 1, 1, 1, n], n])/
    4 - Half[S2[2, 2, 1, 1, n], n]/16 - Half[S2[2, 1, 1, 1, 1, n], n]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/8 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + S2[-1, Infinity]^6/80 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (745*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/12 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (447*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (181*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (869*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (1297*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (301*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (241*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (199*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/32 + 
   (7*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/2 - 
   (39*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (9*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (55*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 + 
   (281*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (14*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/3 + (937*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 - (2539*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 + 
   (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (155*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (25*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (145*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (85*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (145*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 - 
   (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (161*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (85*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/64 + 
   (7*S2[-1, Infinity]^5*S2[1, n])/160 + 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 - 
   (515*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/24 + 
   (25*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 + 
   (215*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 - 
   (1817*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 + 
   (5351*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 - 
   (263*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 - 
   (611*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/6 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (77*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (347*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (143*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (23*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (155*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 + 
   (41*S2[-1, Infinity]^4*S2[1, n]^2)/192 + 
   (205*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (89*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (15*Half[S2[1, n], n]^3*S2[1, n]^3)/16 - 
   (65*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (203*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (59*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (29*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (7*S2[1, n]^6)/96 - (3*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/4 - (73*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    96 - (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/4 + 
   (281*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    96 - (175*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (79*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   2*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (29*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (27*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    32 + (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (131*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (149*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (159*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (215*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (125*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (289*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (5*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 - (13*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    32 + (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (503*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (139*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (15*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/32 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (143*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (197*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (49*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 + 
   (67*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (135*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (19*S2[1, n]^4*S2[2, Infinity])/16 - 
   (197*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 + 
   (393*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/4 - 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (817*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (35*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (381*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (1413*S2[1, n]^2*S2[2, Infinity]^2)/320 - (22361*S2[2, Infinity]^3)/6720 - 
   (103*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (259*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (187*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 + 
   (185*Half[S2[1, n], n]^3*S2[3, Infinity])/768 + 
   (25*Half[S2[2, 1, n], n]*S2[3, Infinity])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/24 - 
   (2117*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (305*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 + 
   (449*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 - 
   (107*S2[1, n]^3*S2[3, Infinity])/768 - 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 - 
   (643*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (181*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/96 - 
   (8599*S2[3, Infinity]^2)/3072 + (3575*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (2579*S2[1, n]*S2[5, Infinity])/512 + 3*S2[-5, -1, Infinity] - 
   S2[-5, 1, n] + Half[S2[1, n], n]*S2[-4, 1, n] + 
   (13*S2[1, n]*S2[-4, 1, n])/2 - (187*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/48 + (371*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 + 
   (5*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (223*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 - 
   (485*S2[1, n]^2*S2[-3, 1, n])/96 - S2[2, Infinity]*S2[-3, 1, n] - 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (115*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (119*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (359*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (79*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (143*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (95*S2[1, n]^3*S2[-2, 1, n])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (19*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (11*S2[3, Infinity]*S2[-2, 1, n])/16 - (3*S2[-2, 1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/48 - 
   (295*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/96 + 
   (81*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/64 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 + 
   (S2[1, n]^4*S2[-1, 1, n])/12 - (41*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (31*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/3 + 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (41*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (73*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (109*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (31*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (17*S2[-3, 1, n]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (5*S2[-1, 1, n]^3)/48 + (11*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    32 + (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (59*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (33*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (87*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (25*S2[1, n]^3*S2[2, 1, n])/32 + (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/
    8 + (15*S2[3, Infinity]*S2[2, 1, n])/16 - (3*S2[-2, 1, n]*S2[2, 1, n])/
    2 - (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (3*S2[2, 1, n]^2)/4 + 
   8*S2[1, n]*S2[4, 1, n] + 2*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - 
   (3*S2[1, n]*S2[-3, 1, 1, n])/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (9*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/8 + S2[2, Infinity]*S2[-2, 1, -1, n] + 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (23*S2[1, n]^2*S2[-1, -2, -1, n])/96 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    4 - (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    16 + (121*S2[3, Infinity]*S2[-1, 1, -1, n])/192 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (9*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (49*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/8 + 
   S2[-1, 1, 1, n]^2/4 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    4 + (27*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/8 - (S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/4 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 + 
   (149*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 - 
   (83*S2[1, n]^2*S2[2, 1, -1, n])/48 - (S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (3*S2[-1, 1, n]*S2[2, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/8 + S2[2, Infinity]*S2[2, 1, 1, n] - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/4 + S2[3, 1, -2, n]/2 - 
   Half[S2[1, n], n]*S2[3, 1, 1, n] + S2[4, 1, 1, n] + 3*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] - Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/3 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/
    8 - (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 3*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + (57*Diff[S2[1, n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/8 + (33*Half[S2[1, n], n]*S2[1, n]*
     S2[-1, 1, 1, 1, Infinity])/8 - (41*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/
    8 - (23*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - (S2[1, n]*S2[1, 1, -1, 2, n])/2 - 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 + Half[S2[1, n], n]*S2[1, 2, -1, -1, n] - 
   S2[2, -2, 1, 1, n]/2 - Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - 
   S2[2, 2, 1, 1, n]/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   S2[1, n]*S2[-1, -1, 1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   3*S2[1, n]*S2[-1, 1, -1, -1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (29*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (21*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (7*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, 2, n]/2 + 
   S2[1, 1, -2, -1, 1, n] + S2[1, 1, -2, 1, -1, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 + 2*S2[1, 1, 1, -2, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + 2*S2[1, 1, 1, 2, -1, n] + 
   S2[1, 1, 2, -1, 1, n]/2 + 2*S2[1, 1, 2, 1, -1, n] - 
   S2[1, 2, -1, -1, -1, n] + S2[1, 2, 1, 1, -1, n] - 
   S2[-1, -1, 1, -1, -1, -1, n]/4 - (3*S2[-1, -1, 1, 1, -1, -1, n])/4 - 
   S2[-1, 1, -1, -1, -1, -1, n]/2 - (3*S2[-1, 1, -1, -1, -1, 1, n])/4 - 
   S2[-1, 1, -1, -1, 1, 1, n]/4 - (3*S2[-1, 1, -1, 1, -1, -1, n])/4 - 
   S2[-1, 1, -1, 1, 1, 1, n]/4 - (7*S2[-1, 1, 1, -1, -1, -1, n])/4 + 
   S2[-1, 1, 1, 1, -1, -1, n]/2 + S2[-1, 1, 1, 1, -1, 1, n]/4 - 
   9*S2[-1, 1, 1, 1, 1, 1, Infinity] + (3*S2[1, -1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - S2[1, -1, -1, 1, 1, -1, n]/4 - 
   S2[1, -1, 1, -1, -1, -1, n]/4 + S2[1, -1, 1, 1, -1, -1, n]/2 + 
   S2[1, 1, -1, -1, -1, -1, n]/2 - S2[1, 1, -1, -1, 1, -1, n]/4 + 
   S2[1, 1, -1, 1, -1, -1, n]/4 + (3*S2[1, 1, 1, -1, -1, -1, n])/4 + 
   S2[1, 1, 1, -1, 1, -1, n]/4 + S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, -1, 2, -1, n] -> (85*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (209*Diff[Half[S2[1, n], n], n, 2]^2)/192 - 
   (397*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (5227*Diff[Half[S2[1, n], n], n, 5])/5760 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 3])/32 + 
   (9*Diff[Half[S2[4, 1, n], n], n, 1])/16 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/4 + Diff[Half[S2[3, 1, 1, n], n], n, 
    1] - Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/2 + 
   (605*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (973*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 - 
   (41*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/2 - 
   (1645*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (1025*Diff[S2[1, n], n, 1]^3)/192 + 
   (971*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/96 - 
   (79*Diff[S2[1, n], n, 2]^2)/8 + (8393*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 - (15083*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 + (269*Diff[S2[1, n], n, 5])/240 - 
   (7*Diff[S2[-3, 1, n], n, 2])/12 - (49*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/48 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (7*Diff[S2[-2, 1, n], n, 3])/4 + (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/96 + 
   (769*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (205*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (271*Diff[S2[-1, 1, n], n, 4])/96 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   Diff[S2[2, 1, n], n, 3]/16 + 2*Diff[S2[4, 1, n], n, 1] + 
   (9*Diff[S2[-3, 1, 1, n], n, 1])/2 - Diff[S2[-2, 1, -2, n], n, 1]/8 + 
   Diff[S2[-2, 1, -1, n], n, 2] + (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   Diff[S2[-1, 1, -1, n], n, 3]/96 + (27*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (67*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (91*Diff[S2[-1, 1, 1, n], n, 3])/48 - (15*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   2*Diff[S2[2, 1, -2, n], n, 1] - (11*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   3*Diff[S2[2, 1, 1, n], n, 2] + 4*Diff[S2[3, 1, 1, n], n, 1] + 
   4*Diff[S2[-2, 1, 1, 1, n], n, 1] + (11*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/16 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - (3*Diff[S2[1, -1, 1, -2, n], n, 1])/
    2 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 + (3*Diff[S2[1, 1, -1, 2, n], n, 1])/
    2 + (7*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   (9*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 + 
   (13*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, 1, -1, -1, n], n, 
    1] + (13*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 - 
   (17*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (11*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (25*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + Diff[S2[1, 1, -1, 1, -1, n], 
    n, 1] + (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (383*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (13*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (451*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 - (1127*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (2359*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (203*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (59*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (79*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    48 - (241*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (79*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (31*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (27*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (127*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (13*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (73*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (115*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/96 + 
   (49*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (81*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (197*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/96 + (343*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    288 - (41*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (157*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (27*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (43*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (27*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 + 
   (79*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (61*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 + (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 + 
   (11*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 + 
   (9*Half[S2[2, 1, n], n]^2)/64 - (27*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 + 
   (13*Half[S2[4, 1, 1, n], n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, 1, n], n])/4 - 
   Half[S2[2, 2, 1, 1, n], n]/4 - Half[S2[2, 1, 1, 1, 1, n], n] + 
   (205*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (29*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 - 
   (11*S2[-1, Infinity]^6)/960 - (41*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/48 + 
   (1811*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (17*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (19*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (1451*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/192 - 
   (703*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (2549*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (4975*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (563*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (197*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (77*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (1181*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (7*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (79*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (11*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (51*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (271*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (19*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (69*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/18 - 
   (25*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 + (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (1655*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (19*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (27*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (131*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (239*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (127*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (81*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (11*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (21*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (53*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (35*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/24 - 
   (635*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (43*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (77*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (1465*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 - 
   (4*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/3 - 
   (43*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (61*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (29*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (57*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (581*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 + 
   (95*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/3 + 
   (27*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (77*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (189*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (83*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   Half[S2[1, n], n]^3*S2[1, n]^3 - (9*Half[S2[2, 1, n], n]*S2[1, n]^3)/64 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (245*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (73*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (7*Half[S2[1, n], n]*S2[1, n]^5)/
    6 - (17*S2[1, n]^6)/48 - (69*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (355*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/192 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    192 + (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/4 - 
   (479*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 + (1205*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 + 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 + 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (139*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/2 + 
   (67*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity] - 
   (101*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (263*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (23*Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (75*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 + 
   (15*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (139*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (183*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (43*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (51*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (91*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity] - 
   (37*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (197*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (259*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (205*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (115*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/16 - (8*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/3 + (31*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    64 + (57*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (321*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 - (73*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 - (301*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (659*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (237*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (343*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (91*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (39*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (9*S2[1, n]^4*S2[2, Infinity])/8 - 
   (941*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (3247*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (351*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 + 
   (927*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (161*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (34*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (3223*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (4299*S2[1, n]^2*S2[2, Infinity]^2)/640 + (30497*S2[2, Infinity]^3)/2688 - 
   (399*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (629*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 - 
   (2147*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/384 - 
   (1319*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (6179*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (173*Half[S2[1, n], n]^3*S2[3, Infinity])/768 + 
   (307*Half[S2[2, 1, n], n]*S2[3, Infinity])/192 + 
   (2087*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (11647*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (4991*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 - 
   (8227*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 + 
   (4513*S2[1, n]^3*S2[3, Infinity])/768 - 
   (2293*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (37*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/2 + 
   (5843*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (4435*S2[3, Infinity]^2)/1024 + (3893*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (353*S2[1, n]*S2[5, Infinity])/256 - (107*S2[-5, -1, Infinity])/8 + 
   2*S2[-5, 1, n] + 7*Half[S2[1, n], n]*S2[-4, 1, n] - 
   (29*S2[1, n]*S2[-4, 1, n])/2 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/96 - (169*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (23*Half[S2[1, n], n]^2*S2[-3, 1, n])/96 - 
   (211*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (797*S2[1, n]^2*S2[-3, 1, n])/96 + (143*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (51*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (9*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 - 
   (27*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 + 
   (21*S2[1, n]^3*S2[-2, 1, n])/16 + (59*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    8 - (117*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (89*S2[3, Infinity]*S2[-2, 1, n])/16 + (9*S2[-2, 1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 + 
   (215*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/96 + 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/2 + 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (9*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (153*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (23*S2[1, n]^4*S2[-1, 1, n])/24 - (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (181*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (25*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (81*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (105*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (739*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (457*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/96 + 
   (697*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/96 + 
   (37*S2[-3, 1, n]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (31*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 - 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/8 + (17*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (5*S2[-1, 1, n]^3)/12 + (67*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    16 - (145*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (41*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (247*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (15*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (415*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (37*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (7*S2[1, n]^3*S2[2, 1, n])/96 + 5*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] + (45*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (17*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (77*S2[3, Infinity]*S2[2, 1, n])/24 + (15*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (17*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (21*S2[2, 1, n]^2)/4 - 
   (27*S2[1, n]*S2[4, 1, n])/2 + 2*S2[-4, 1, 1, n] + (7*S2[-3, -2, 1, n])/2 + 
   5*Half[S2[1, n], n]*S2[-3, 1, 1, n] - 6*S2[1, n]*S2[-3, 1, 1, n] + 
   (9*S2[1, n]*S2[-2, 1, -2, n])/4 + (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (37*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/4 - (11*S2[2, Infinity]*S2[-2, 1, -1, n])/
    2 + S2[-1, 1, n]*S2[-2, 1, -1, n] - (9*S2[-2, 2, -2, n])/8 - 
   (113*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (2*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/3 - 
   (7*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/96 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (11*S2[1, n]^2*S2[-1, -2, -1, n])/96 + 
   (31*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (19*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (33*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n] - 
   (2417*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (9*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (15*S2[-1, 1, -1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   Half[S2[1, n], n]^3*S2[-1, 1, 1, n] + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] - 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/4 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (63*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (19*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (13*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 + (5*S2[-1, 1, 1, n]^2)/4 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (27*S2[2, Infinity]*S2[1, 2, -1, n])/4 + (S2[-1, 1, n]*S2[1, 2, -1, n])/
    2 + Half[S2[1, n], n]*S2[2, 1, -2, n] - (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (257*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (59*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/48 - 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (95*S2[1, n]^2*S2[2, 1, -1, n])/48 + (25*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (15*S2[-1, 1, n]*S2[2, 1, -1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (23*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - 2*S2[1, n]^2*S2[2, 1, 1, n] - 
   (29*S2[2, Infinity]*S2[2, 1, 1, n])/4 + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 - 3*Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   2*S2[1, n]*S2[3, 1, 1, n] + (11*S2[4, 1, 1, n])/2 + 3*S2[-3, 1, 1, 1, n] + 
   (9*S2[-2, -2, 1, 1, n])/2 - Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 + S2[-2, 2, 1, 1, n]/2 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/3 + 
   (55*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 - 
   (59*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (23*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (5*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (25*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   5*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (29*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 - (11*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (205*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (29*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (77*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   16*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*S2[1, n]*S2[1, 1, -2, -1, n])/2 - Half[S2[1, n], n]*
    S2[1, 1, -1, 2, n] + S2[1, n]*S2[1, 1, -1, 2, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, 2, -1, n] + (5*S2[1, n]*S2[1, 1, 2, -1, n])/
    2 + 3*Half[S2[1, n], n]*S2[1, 2, -1, -1, n] - 
   3*S2[1, n]*S2[1, 2, -1, -1, n] - S2[2, -2, 1, 1, n]/2 - 
   3*Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + (7*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n]/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   4*S2[1, n]*S2[-1, 1, -1, -1, -1, n] + 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 12*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] - 12*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (57*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (53*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (7*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (13*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 3*S2[1, -1, -1, 1, 2, n] + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 - (9*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, -1, 1, 1, 2, n]/2 - 3*S2[1, -1, 1, 2, -1, n] + 
   (9*S2[1, 1, -2, -1, 1, n])/2 + 3*S2[1, 1, -2, 1, -1, n] + 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (7*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 3*S2[1, 1, -1, 1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 + 3*S2[1, 1, 1, -2, -1, n] - 
   6*S2[1, 1, 1, -1, -2, n] - 2*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   2*S2[1, n]*S2[1, 1, 1, -1, -1, n] - S2[1, 1, 1, 2, -1, n] - 
   2*S2[1, 1, 2, -1, -1, n] + S2[1, 1, 2, -1, 1, n]/2 + 
   2*S2[1, 1, 2, 1, -1, n] - 4*S2[1, 2, -1, -1, -1, n] - 
   3*S2[1, 2, 1, -1, -1, n] + S2[1, 2, 1, 1, -1, n] - 
   S2[2, 1, 1, 1, 1, n]/2 + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   S2[-1, -1, 1, -1, -1, -1, n]/8 + S2[-1, -1, 1, 1, -1, -1, n] + 
   S2[-1, 1, -1, -1, -1, -1, n]/4 + (27*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   S2[-1, 1, -1, -1, 1, 1, n] + (7*S2[-1, 1, -1, 1, -1, -1, n])/4 + 
   (7*S2[-1, 1, -1, 1, 1, 1, n])/4 + (5*S2[-1, 1, 1, -1, -1, -1, n])/2 + 
   2*S2[-1, 1, 1, 1, -1, -1, n] + (5*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   (33*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + (15*S2[1, -1, -1, -1, -1, -1, n])/
    4 - (21*S2[1, -1, -1, -1, 1, -1, n])/8 - (7*S2[1, -1, -1, 1, -1, -1, n])/
    2 - S2[1, -1, -1, 1, 1, -1, n] - (5*S2[1, -1, 1, -1, -1, -1, n])/4 + 
   2*S2[1, -1, 1, 1, -1, -1, n] - 8*S2[1, 1, -1, -1, -1, -1, n] - 
   S2[1, 1, -1, -1, 1, -1, n] + S2[1, 1, -1, 1, -1, -1, n] + 
   3*S2[1, 1, 1, -1, -1, -1, n] + (17*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   5*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -1, -1, 2, 1, n] -> 
  (3*Diff[Half[S2[1, n], n], n, 1]^3)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 + 
   (353*Diff[Half[S2[1, n], n], n, 5])/960 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (779*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (433*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (349*Diff[S2[1, n], n, 1]^3)/96 - (115*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (55*Diff[S2[1, n], n, 2]^2)/16 - 
   (457*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (2749*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (353*Diff[S2[1, n], n, 5])/960 + (9*Diff[S2[-4, 1, n], n, 1])/2 + 
   (25*Diff[S2[-3, 1, n], n, 2])/12 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (101*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (5*Diff[S2[-2, 1, n], n, 3])/4 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/8 - 
   (47*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 + (21*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 - 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   Diff[S2[-1, 1, n], n, 4] + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   3*Diff[S2[-3, 1, 1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/24 + Diff[S2[1, 2, -1, n], n, 2] + 
   Diff[S2[2, 1, -1, n], n, 2] - 2*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/8 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (191*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (95*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (149*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (51*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (71*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (17*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 - (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/144 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    24 + (41*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/24 - 
   (193*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/288 + 
   (25*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   (3*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (13*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 - 
   (7*S2[-1, Infinity]^6)/720 - (119*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 - 
   (733*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (201*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (20*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 - 
   (361*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (137*Diff[S2[1, n], n, 4]*S2[1, n])/72 - 
   (119*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/24 - 
   (49*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (81*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (71*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (23*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/12 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (2*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/3 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (73*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/96 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (193*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (255*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    32 + (733*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/192 - 
   (37*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (79*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/6 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (77*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (49*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 + 
   (25*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (S2[-1, Infinity]^5*S2[1, n])/192 + 
   (49*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/96 + 
   (479*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (269*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (853*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (2509*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (109*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/24 + 
   (143*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (45*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (155*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (3*Half[S2[1, n], n]^4*S2[1, n]^2)/16 - 
   (35*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/48 - 
   (119*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (113*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (23*Half[S2[1, n], n]^3*S2[1, n]^3)/48 + 
   (17*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/3 - 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (31*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (19*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + S2[1, n]^6/12 + (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 + (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/9 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    48 - (9*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (343*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (47*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/48 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (27*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (49*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (115*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (49*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 + (427*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (25*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 + (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 - (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (85*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (13*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/32 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/24 + 
   (101*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (377*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 + 
   (81*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (299*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (29*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (121*S2[1, n]^4*S2[2, Infinity])/96 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (103*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/120 + 
   (1111*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (53*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 + 
   (19*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (2009*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (187*S2[1, n]^2*S2[2, Infinity]^2)/60 + (10909*S2[2, Infinity]^3)/2240 + 
   (245*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (137*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (67*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 - 
   (75*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (121*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (11*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (63*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (125*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 - 
   (739*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (233*S2[1, n]^3*S2[3, Infinity])/384 - 
   (9*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/4 + 
   (585*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (1991*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (203*S2[3, Infinity]^2)/256 + (47*Half[S2[1, n], n]*S2[5, Infinity])/256 - 
   (485*S2[1, n]*S2[5, Infinity])/256 + 11*S2[-5, 1, n] + 
   6*Half[S2[1, n], n]*S2[-4, 1, n] - (11*S2[1, n]*S2[-4, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 - 
   (41*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (83*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 - 
   (51*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/16 + 
   (77*S2[1, n]^2*S2[-3, 1, n])/24 + (7*S2[2, Infinity]*S2[-3, 1, n])/3 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (115*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (25*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 + 
   (41*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (41*S2[1, n]^3*S2[-2, 1, n])/24 + (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/12 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/12 - 
   (S2[3, Infinity]*S2[-2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (47*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (83*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/3 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (49*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 + (91*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (29*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (7*S2[1, n]^4*S2[-1, 1, n])/48 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (47*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (37*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (11*S2[2, Infinity]^2*S2[-1, 1, n])/6 - 
   (23*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/4 - (3*S2[-3, 1, n]*S2[-1, 1, n])/
    8 - (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/16 + (3*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + (5*S2[-1, 1, n]^3)/24 + (7*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/24 - (7*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (17*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (31*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (11*S2[1, n]^3*S2[2, 1, n])/12 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (7*S2[3, Infinity]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 7*Half[S2[1, n], n]*S2[4, 1, n] - 
   7*S2[1, n]*S2[4, 1, n] - 4*S2[-4, 1, 1, n] + (3*S2[1, n]*S2[-3, 1, 1, n])/
    2 - (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/16 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    6 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/6 + 
   (17*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/6 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (33*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/2 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 + 
   S2[1, n]^2*S2[1, 2, -1, n] - (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/8 + 
   (7*S2[1, n]^2*S2[2, 1, -1, n])/6 - (13*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/4 + (3*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   S2[-1, 1, n]*S2[2, 1, 1, n] + S2[3, 1, -2, n]/2 + 
   Half[S2[1, n], n]*S2[3, 1, 1, n] - 3*S2[-3, 1, 1, 1, n] + 
   2*S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n]/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    8 - (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    2 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (13*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (29*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[1, n]*S2[1, 1, -1, 2, n])/2 + (S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   Half[S2[1, n], n]*S2[1, 2, -1, -1, n] + S2[1, n]*S2[2, 1, 1, 1, n] - 
   (3*S2[-2, 1, 1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + S2[1, -1, 1, 1, 2, n]/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + S2[1, 1, 2, -1, 1, n]/2 - 
   S2[1, 1, 2, 1, -1, n] + S2[1, 2, -1, -1, -1, n] - S2[1, 2, 1, 1, -1, n] + 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/4 + (7*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   (5*S2[-1, 1, -1, -1, -1, -1, n])/2 - S2[-1, 1, -1, -1, 1, 1, n]/2 + 
   7*S2[-1, 1, 1, 1, 1, 1, Infinity] + (5*S2[1, -1, -1, -1, -1, -1, n])/2 - 
   S2[1, -1, -1, 1, 1, -1, n]/2 - S2[1, 1, -1, -1, 1, -1, n]/2 - 
   S2[1, 1, -1, 1, -1, -1, n]/2 - (3*S2[1, 1, 1, -1, -1, -1, n])/2, 
 S2[-1, -1, -1, -1, -2, n] -> (23*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (35*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (851*Diff[Half[S2[1, n], n], n, 5])/5760 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 - 
   (121*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (139*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 + 
   (673*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (221*Diff[S2[1, n], n, 1]^3)/96 + (365*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/192 - (143*Diff[S2[1, n], n, 2]^2)/96 + 
   (1195*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (737*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (1121*Diff[S2[1, n], n, 5])/5760 + (29*Diff[S2[-4, 1, n], n, 1])/2 + 
   (385*Diff[S2[-3, 1, n], n, 2])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (199*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (23*Diff[S2[-2, 1, n], n, 3])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   (21*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (147*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (95*Diff[S2[-1, 1, n], n, 4])/192 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[2, 1, n], n, 3])/12 - 2*Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   Diff[S2[-1, 1, -1, n], n, 3]/32 + (53*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, n], n, 3]/6 - (7*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (7*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 + Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/4 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 - Diff[S2[1, -1, 1, -2, n], n, 1]/2 - 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   2*Diff[S2[1, 1, 2, -1, n], n, 1] + 2*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + Diff[S2[-1, 1, 1, 1, 1, n], n, 
    1] - (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (17*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (71*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (43*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/4 - (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (51*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (65*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (253*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (329*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (17*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (35*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (33*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (25*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (37*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (15*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (7*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (59*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (17*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/64 - (21*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    128 + (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (31*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (27*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (31*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/4 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (59*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    12 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/64 - (13*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/
    16 - (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   Half[S2[4, 1, 1, n], n]/16 - Half[S2[2, 2, 1, 1, n], n]/16 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/8 - 
   (53*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/80 - (11*S2[-1, Infinity]^6)/1440 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (131*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (199*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (973*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (305*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 + 
   (87*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/32 + 
   (221*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (7*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (37*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (13*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (85*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (9*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 - (43*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (37*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (59*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (17*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (37*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (27*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (13*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (67*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/64 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 - 
   (63*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (291*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/64 + 
   (89*Diff[S2[1, n], n, 3]*S2[1, n]^2)/128 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 + 
   (67*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (25*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (41*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (161*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (25*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (11*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (125*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (53*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (23*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - 
   (35*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (47*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (23*S2[1, n]^6)/96 - (29*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 + (359*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/192 - (35*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 + (Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/16 - (571*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/192 + 
   (1009*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 - 
   (15*Diff[S2[1, n], n, 3]*S2[2, Infinity])/16 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (99*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity] + 
   (35*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (103*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (55*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    32 - (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (37*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 + 
   (9*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (27*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (231*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (19*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (301*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (155*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 - (67*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    64 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (89*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 - (67*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (305*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (35*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (67*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (15*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (S2[1, n]^4*S2[2, Infinity])/48 + (143*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/128 - (537*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    64 + (1001*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 + 
   (147*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (203*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 - 
   (1709*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (1421*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (363*S2[1, n]^2*S2[2, Infinity]^2)/128 + (262411*S2[2, Infinity]^3)/
    13440 + (239*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (477*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (527*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/384 - 
   (199*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (583*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (35*Half[S2[1, n], n]^3*S2[3, Infinity])/64 + 
   (81*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (61*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/24 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 - 
   (105*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (353*S2[1, n]^3*S2[3, Infinity])/384 - 
   (1009*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (137*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (1185*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (18175*S2[3, Infinity]^2)/3072 + (4899*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (3225*S2[1, n]*S2[5, Infinity])/512 - (11*S2[-5, -1, Infinity])/
    16 + 29*S2[-5, 1, n] + (21*Half[S2[1, n], n]*S2[-4, 1, n])/2 - 
   10*S2[1, n]*S2[-4, 1, n] - (49*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    96 - (629*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 + 
   (17*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/2 + 
   (19*S2[1, n]^2*S2[-3, 1, n])/8 + (115*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (79*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (19*S2[1, n]^3*S2[-2, 1, n])/24 + (37*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (53*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (275*S2[3, Infinity]*S2[-2, 1, n])/96 + S2[-2, 1, n]^2/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (211*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 + 
   (185*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 + 
   (83*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (19*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (65*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (73*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (11*S2[1, n]^4*S2[-1, 1, n])/24 - (79*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (77*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (21*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (239*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (197*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (15*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (S2[-3, 1, n]*S2[-1, 1, n])/4 - (7*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (9*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + (3*S2[1, n]^2*S2[-1, 1, n]^2)/
    32 - (15*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + (5*S2[-1, 1, n]^3)/48 + 
   (51*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (65*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/8 - (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/
    8 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (3*S2[1, n]^3*S2[2, 1, n])/4 + (21*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (91*S2[3, Infinity]*S2[2, 1, n])/32 + (3*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/4 + 
   9*Half[S2[1, n], n]*S2[4, 1, n] - (19*S2[1, n]*S2[4, 1, n])/2 - 
   S2[-3, -2, 1, n]/2 - (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 - 
   (S2[1, n]*S2[-3, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 + 
   (3*S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/8 - (9*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 - (5*S2[-2, 2, -2, n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (35*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (11*S2[2, Infinity]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (203*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (45*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (33*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - (S2[2, 1, n]*S2[-1, 1, 1, n])/
    4 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/8 - (3*S2[-1, 1, 1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/8 + (15*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + (S2[-1, 1, n]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 - (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (59*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/2 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] + S2[1, n]^2*S2[2, 1, -1, n] + 
   (19*S2[2, Infinity]*S2[2, 1, -1, n])/8 + (S2[-1, 1, n]*S2[2, 1, -1, n])/
    2 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/8 - (9*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/4 - 2*S2[3, 1, -2, n] - 
   2*Half[S2[1, n], n]*S2[3, 1, 1, n] + 2*S2[1, n]*S2[3, 1, 1, n] + 
   (5*S2[4, 1, 1, n])/2 - 3*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n]/2 - 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - (S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - S2[-2, 2, 1, 1, n] - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (11*Diff[S2[1, n], n, 1]*
     S2[-1, 1, -1, -1, n])/48 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/
    8 + (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/8 - 
   (7*S2[1, n]^2*S2[-1, 1, -1, -1, n])/8 + 
   (5*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (5*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + (5*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 + (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (53*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (11*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (61*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (39*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] + (S2[1, n]*S2[1, 1, -2, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 + (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 + 3*S2[1, n]*S2[1, 1, 2, -1, n] + Half[S2[1, n], n]*
    S2[1, 2, -1, -1, n] - S2[1, n]*S2[1, 2, -1, -1, n] + S2[2, -2, 1, 1, n] - 
   Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - (S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[-2, 1, 1, 1, 1, n] - (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (13*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (7*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] + 
   Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n] - 
   S2[1, n]*S2[1, -1, 1, -1, -1, n] - (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, -1, 1, 2, -1, n] - S2[1, 1, -2, -1, -1, n] - 
   (3*S2[1, 1, -2, -1, 1, n])/2 - 2*S2[1, 1, -2, 1, -1, n] - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] + 
   (9*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 2*S2[1, 1, -1, 1, -2, n] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - S2[1, 1, -1, 2, -1, n] - 
   7*S2[1, 1, 1, -2, -1, n] - 4*S2[1, 1, 1, -1, -2, n] - 
   (5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 - S2[1, 1, 1, -1, 2, n] - 
   9*S2[1, 1, 1, 2, -1, n] - 2*S2[1, 1, 2, -1, -1, n] - 
   3*S2[1, 1, 2, -1, 1, n] - 3*S2[1, 1, 2, 1, -1, n] - 
   S2[1, 2, -1, -1, -1, n] - S2[1, 2, 1, -1, -1, n] + 
   (3*S2[2, 1, 1, 1, 1, n])/2 + (13*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (29*S2[-1, -1, 1, -1, -1, -1, n])/8 - S2[-1, -1, 1, 1, -1, -1, n]/4 + 
   (23*S2[-1, 1, -1, -1, -1, -1, n])/4 + (5*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   S2[-1, 1, -1, -1, 1, 1, n]/4 + (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - 
   S2[-1, 1, 1, -1, -1, -1, n]/4 - (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   (11*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + (35*S2[1, -1, -1, -1, -1, -1, n])/
    4 - (3*S2[1, -1, -1, -1, 1, -1, n])/8 - (3*S2[1, -1, -1, 1, -1, -1, n])/
    4 - S2[1, -1, -1, 1, 1, -1, n]/4 - S2[1, -1, 1, -1, -1, -1, n]/2 - 
   (3*S2[1, 1, -1, -1, -1, -1, n])/2 - S2[1, 1, -1, -1, 1, -1, n]/4 - 
   S2[1, 1, -1, 1, -1, -1, n]/4 - (3*S2[1, 1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, -1, -1, 2, n] -> (-7*Diff[Half[S2[1, n], n], n, 1]^3)/64 + 
   (53*Diff[Half[S2[1, n], n], n, 2]^2)/192 + 
   (113*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (137*Diff[Half[S2[1, n], n], n, 5])/640 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/8 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    32 - Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 - 
   (107*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (385*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 + 
   (329*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (65*Diff[S2[1, n], n, 1]^3)/96 - (157*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (239*Diff[S2[1, n], n, 2]^2)/96 - 
   (2137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (1793*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (539*Diff[S2[1, n], n, 5])/1920 - Diff[S2[-4, 1, n], n, 1]/2 - 
   (7*Diff[S2[-3, 1, n], n, 2])/96 + (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/48 + 
   (67*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (5*Diff[S2[-2, 1, n], n, 3])/16 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 - 
   (7*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   Diff[S2[-1, 1, n], n, 1]^2/4 + (33*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 - 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (121*Diff[S2[-1, 1, n], n, 4])/192 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   Diff[S2[2, 1, n], n, 3]/12 - (3*Diff[S2[4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + Diff[S2[-2, 1, -2, n], n, 1]/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   Diff[S2[-1, 1, -1, n], n, 3]/96 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/24 + (7*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (9*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 - 2*Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    16 - Diff[S2[-1, 1, 1, 1, n], n, 2]/8 + Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/8 - Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/
    4 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 + 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (7*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, 1, -1, -1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (47*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 - (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (377*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (739*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (155*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    6 - (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    32 + (41*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (11*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (55*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (23*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (43*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (73*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/64 - (227*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    384 + (23*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/24 - 
   Half[S2[2, 1, n], n]^2/16 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   (3*Half[S2[4, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, 1, n], n])/4 + 
   Half[S2[2, 2, 1, 1, n], n]/16 + Half[S2[2, 1, 1, 1, 1, n], n]/4 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (17*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^5)/96 + 
   (13*S2[-1, Infinity]^6)/2880 + (17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/48 - 
   (259*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (67*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (211*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (223*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (1315*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (371*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/32 - 
   (307*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (7*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (15*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (79*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] - (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (89*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (59*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (39*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (11*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (13*S2[-1, Infinity]^5*S2[1, n])/240 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 + 
   (41*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 - 
   (69*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/64 - 
   (461*Diff[S2[1, n], n, 3]*S2[1, n]^2)/384 - 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/12 - 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (39*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (13*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    384 + (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 + 
   (59*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^3)/8 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    32 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (7*Half[S2[1, n], n]*S2[1, n]^5)/
    16 + (13*S2[1, n]^6)/96 + (17*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (41*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    64 - (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (187*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 - (415*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/64 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (53*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (27*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (55*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (83*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (13*Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (27*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (51*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (59*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 + 
   (103*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (69*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 + (71*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (15*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    64 - (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (25*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (45*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/24 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (225*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (47*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   2*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity] + 
   (43*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (7*S2[1, n]^4*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/128 + 
   (253*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/64 + 
   (49*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 - 
   (35*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 - 
   (59*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (863*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (443*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1943*S2[1, n]^2*S2[2, Infinity]^2)/640 - (10055*S2[2, Infinity]^3)/2688 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (1289*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (503*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/384 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (409*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 - 
   (31*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (47*Half[S2[2, 1, n], n]*S2[3, Infinity])/96 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (493*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (625*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 + 
   (583*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/192 - 
   (307*S2[1, n]^3*S2[3, Infinity])/192 + 
   (2915*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (547*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (3637*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (1775*S2[3, Infinity]^2)/768 - (3993*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (2219*S2[1, n]*S2[5, Infinity])/512 + (19*S2[-5, -1, Infinity])/4 - 
   S2[-5, 1, n] - (7*Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   8*S2[1, n]*S2[-4, 1, n] - (41*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    96 + (257*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[-3, 1, n] - (65*S2[1, n]^2*S2[-3, 1, n])/16 - 
   (55*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (21*Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (45*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (13*S2[3, Infinity]*S2[-2, 1, n])/8 - S2[-2, 1, n]^2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 - 
   (65*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (103*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (7*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (3*S2[1, n]^4*S2[-1, 1, n])/8 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/6 + 
   (71*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (69*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (383*S2[2, Infinity]^2*S2[-1, 1, n])/320 + 
   (589*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (877*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (9*S2[-3, 1, n]*S2[-1, 1, n])/8 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 - (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/32 - (7*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (5*S2[-1, 1, n]^3)/48 - (119*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    96 + (63*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (S2[1, n]^3*S2[2, 1, n])/16 - (15*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   2*S2[1, n]*S2[2, Infinity]*S2[2, 1, n] + (61*S2[3, Infinity]*S2[2, 1, n])/
    48 - 3*S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 2*S2[2, 1, n]^2 + 
   (13*S2[1, n]*S2[4, 1, n])/2 - (3*S2[-3, -2, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + (5*S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[-2, 1, -2, n])/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - (S2[1, n]^2*S2[-2, 1, -1, n])/
    8 + 2*S2[2, Infinity]*S2[-2, 1, -1, n] - (S2[-1, 1, n]*S2[-2, 1, -1, n])/
    4 + (5*S2[-2, 2, -2, n])/8 + (37*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/96 + (23*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/16 - (11*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (865*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (35*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (39*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (25*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (9*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (S2[2, 1, n]*S2[-1, 1, 1, n])/4 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/8 - 
   S2[-1, 1, 1, n]^2/2 + (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    8 + (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - (3*S2[1, n]^2*S2[1, 2, -1, n])/
    8 - 2*S2[2, Infinity]*S2[1, 2, -1, n] - (S2[-1, 1, n]*S2[1, 2, -1, n])/
    4 - (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + (S2[1, n]*S2[2, 1, -2, n])/
    2 + (85*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (49*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] - (9*S2[1, n]^2*S2[2, 1, -1, n])/8 - 
   (7*S2[2, Infinity]*S2[2, 1, -1, n])/8 - (3*S2[-1, 1, n]*S2[2, 1, -1, n])/
    4 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + (5*S2[1, n]^2*S2[2, 1, 1, n])/
    8 + (9*S2[2, Infinity]*S2[2, 1, 1, n])/4 - (S2[-1, 1, n]*S2[2, 1, 1, n])/
    4 + Half[S2[1, n], n]*S2[3, 1, 1, n] - S2[1, n]*S2[3, 1, 1, n] - 
   (7*S2[4, 1, 1, n])/2 - (3*S2[-2, -2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - (S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 + (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/8 + 
   (7*S2[1, n]^2*S2[-1, 1, -1, -1, n])/8 - 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] - (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (17*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (7*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 + Half[S2[1, n], n]*S2[1, 1, 2, -1, n] - S2[1, n]*S2[1, 1, 2, -1, n] - 
   Half[S2[1, n], n]*S2[1, 2, -1, -1, n] + S2[1, n]*S2[1, 2, -1, -1, n] + 
   Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] + 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (25*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (13*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + (3*S2[1, -1, 1, 1, -2, n])/2 + 
   S2[1, -1, 1, 2, -1, n] - (3*S2[1, 1, -2, -1, 1, n])/2 - 
   S2[1, 1, -2, 1, -1, n] - (5*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + S2[1, 1, -1, 1, -2, n] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - S2[1, 1, 1, -2, -1, n] + 
   2*S2[1, 1, 1, -1, -2, n] + (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/
    4 - (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + S2[1, 1, 1, 2, -1, n] + 
   S2[1, 1, 2, -1, -1, n] + S2[1, 2, -1, -1, -1, n] + 
   S2[1, 2, 1, -1, -1, n] + S2[2, 1, 1, 1, 1, n]/2 - 
   S2[-1, -1, -1, 1, -1, -1, n]/8 - S2[-1, -1, 1, -1, -1, -1, n]/8 - 
   S2[-1, -1, 1, 1, -1, -1, n]/4 - S2[-1, 1, -1, -1, -1, -1, n]/4 - 
   (11*S2[-1, 1, -1, -1, -1, 1, n])/8 + S2[-1, 1, -1, -1, 1, 1, n]/4 - 
   S2[-1, 1, -1, 1, -1, -1, n]/2 - S2[-1, 1, -1, 1, 1, 1, n]/2 - 
   (3*S2[-1, 1, 1, -1, -1, -1, n])/4 - S2[-1, 1, 1, 1, -1, -1, n]/2 - 
   S2[-1, 1, 1, 1, -1, 1, n]/2 - (13*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + (9*S2[1, -1, -1, -1, 1, -1, n])/8 + 
   (7*S2[1, -1, -1, 1, -1, -1, n])/4 + S2[1, -1, -1, 1, 1, -1, n]/4 + 
   S2[1, -1, 1, -1, -1, -1, n] - S2[1, -1, 1, 1, -1, -1, n]/2 + 
   (7*S2[1, 1, -1, -1, -1, -1, n])/2 + S2[1, 1, -1, -1, 1, -1, n]/4 - 
   S2[1, 1, -1, 1, -1, -1, n]/4 - (3*S2[1, 1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, -1, 1, -2, n] -> (-9*Diff[Half[S2[1, n], n], n, 1]^3)/64 + 
   (15*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 + 
   (601*Diff[Half[S2[1, n], n], n, 5])/1920 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 3])/64 - Diff[Half[S2[4, 1, n], n], n, 1]/
    4 - (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   (3*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 - 
   (133*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (629*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (47*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 - 
   (15*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 + 
   (475*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (107*Diff[S2[1, n], n, 1]^3)/96 - (713*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/192 + (31*Diff[S2[1, n], n, 2]^2)/8 - 
   (3095*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (2731*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (2497*Diff[S2[1, n], n, 5])/5760 - Diff[S2[-4, 1, n], n, 1] - 
   (49*Diff[S2[-3, 1, n], n, 2])/96 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (131*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (17*Diff[S2[-2, 1, n], n, 3])/48 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (29*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   Diff[S2[-1, 1, n], n, 1]^2/16 + (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 - 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (61*Diff[S2[-1, 1, n], n, 4])/64 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   Diff[S2[2, 1, n], n, 3]/12 - (3*Diff[S2[4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/12 + (11*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1] + (15*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1] - (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/8 - (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 + 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 - Diff[S2[1, 1, -1, 2, n], n, 1] - 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] - (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/
    8 - (9*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/4 - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 + 
   (9*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (13*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, 1, -1, -1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/3 + (31*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (77*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (655*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (141*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/128 - 
   (51*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    12 - (163*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/96 + (257*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 - (7*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (21*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (31*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (319*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/192 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/64 - 
   (245*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (127*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/64 - (135*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    128 + (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (23*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (25*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (13*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   (7*Half[S2[2, 1, n], n]^2)/64 + (9*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (9*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   (3*Half[S2[4, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, 1, n], n])/4 + 
   Half[S2[2, 2, 1, 1, n], n]/16 + Half[S2[2, 1, 1, 1, 1, n], n]/4 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (19*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + (13*S2[-1, Infinity]^6)/960 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    12 - (149*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 - 
   (3*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (10*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/3 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (1151*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (751*Diff[S2[1, n], n, 4]*S2[1, n])/384 + 
   (123*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 - 
   (187*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (11*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (29*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (47*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (21*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/24 - 
   (43*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (8*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/3 - (23*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (127*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 - 
   (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (235*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (91*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (11*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/12 - 
   (3*S2[-1, Infinity]^5*S2[1, n])/80 - 
   (149*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/192 + 
   (77*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/64 + 
   (23*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/64 - 
   (119*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (21*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/64 - 
   (373*Diff[S2[1, n], n, 3]*S2[1, n]^2)/128 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (47*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (49*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 - 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (125*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (10*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (113*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (49*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (41*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/8 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (11*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (7*S2[1, n]^6)/96 + (7*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/8 - (583*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    576 - (37*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (271*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 - (601*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 + 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/72 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 - 
   (75*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + Diff[S2[-1, 1, -1, n], n, 1]*
    S2[2, Infinity] - (33*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (65*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 - (173*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 - 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (127*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (15*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (23*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (87*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (17*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (241*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (205*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (17*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 - (73*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (45*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
    S2[2, Infinity] + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/8 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (823*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (39*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (81*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (51*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (133*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (11*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (11*S2[1, n]^4*S2[2, Infinity])/16 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/128 + 
   (2947*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 + 
   (1849*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (383*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (1703*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (1181*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (1441*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (5171*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (19015*S2[2, Infinity]^3)/
    2688 + (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (1675*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (515*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/384 + 
   (211*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (303*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (5*Half[S2[1, n], n]^3*S2[3, Infinity])/192 - 
   (197*Half[S2[2, 1, n], n]*S2[3, Infinity])/384 - 
   (295*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (955*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (53*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/24 + 
   (1561*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 - 
   (1019*S2[1, n]^3*S2[3, Infinity])/384 + 
   (1835*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (133*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (129*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (15077*S2[3, Infinity]^2)/3072 - (6769*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (951*S2[1, n]*S2[5, Infinity])/512 + (17*S2[-5, -1, Infinity])/2 - 
   S2[-5, 1, n] - (9*Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   9*S2[1, n]*S2[-4, 1, n] - (163*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    96 + (469*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 + 
   (5*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 - 
   (35*S2[1, n]^2*S2[-3, 1, n])/8 - (259*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (13*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (7*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n] + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/8 - (91*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (199*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (55*S2[3, Infinity]*S2[-2, 1, n])/32 - (7*S2[-2, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (9*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 - 
   (103*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (151*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/3 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 - 
   (19*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (223*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/24 + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (25*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (33*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (763*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (515*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (347*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   2*S2[-3, 1, n]*S2[-1, 1, n] - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 - (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 - 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (5*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 - (5*S2[-1, 1, n]^3)/48 - (209*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/96 + (275*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/24 + 
   (9*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (113*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (13*S2[1, n]^3*S2[2, 1, n])/12 - (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] + 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (65*S2[3, Infinity]*S2[2, 1, n])/32 - (9*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (11*S2[2, 1, n]^2)/4 + 
   (17*S2[1, n]*S2[4, 1, n])/2 - (3*S2[-3, -2, 1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + (7*S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[-2, 1, -2, n])/4 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (11*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (7*S2[1, n]^2*S2[-2, 1, -1, n])/8 + (13*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 + (3*S2[-2, 2, -2, n])/8 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (43*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/24 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/3 + 
   (1153*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (9*S2[-1, 1, -1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (39*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (47*S2[3, Infinity]*S2[-1, 1, 1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + (S2[2, 1, n]*S2[-1, 1, 1, n])/
    4 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/8 + S2[-1, 1, 1, n]^2/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (9*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (11*S2[1, n]^2*S2[1, 2, -1, n])/8 - (13*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 - (S2[-1, 1, n]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + (S2[1, n]*S2[2, 1, -2, n])/2 + 
   (119*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (77*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (31*S2[2, Infinity]*S2[2, 1, -1, n])/24 - S2[-1, 1, n]*S2[2, 1, -1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 
   (9*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (9*S2[1, n]^2*S2[2, 1, 1, n])/8 + (9*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/4 + Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] - (3*S2[4, 1, 1, n])/2 - 
   (3*S2[-2, -2, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    48 + (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/8 + 
   (9*S2[1, n]^2*S2[-1, 1, -1, -1, n])/8 - 
   (35*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    2 - S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (19*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (89*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (19*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 + (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 + Half[S2[1, n], n]*S2[1, 1, 2, -1, n] - S2[1, n]*S2[1, 1, 2, -1, n] - 
   Half[S2[1, n], n]*S2[1, 2, -1, -1, n] + S2[1, n]*S2[1, 2, -1, -1, n] + 
   Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + (S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   S2[2, 2, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (9*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (7*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + (3*S2[1, -1, 1, 1, -2, n])/2 + 
   S2[1, -1, 1, 2, -1, n] - (3*S2[1, 1, -2, -1, 1, n])/2 - 
   S2[1, 1, -2, 1, -1, n] + (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 2*S2[1, 1, -1, 1, -2, n] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 + S2[1, 1, -1, 2, -1, n] - 
   2*S2[1, 1, 1, -2, -1, n] + 3*S2[1, 1, 1, -1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + S2[1, 1, 1, 2, -1, n] + 
   S2[1, 1, 2, -1, -1, n] + S2[1, 2, -1, -1, -1, n] + 
   S2[1, 2, 1, -1, -1, n] - (3*S2[2, 1, 1, 1, 1, n])/2 - 
   S2[-1, -1, -1, 1, -1, -1, n]/8 - S2[-1, -1, 1, -1, -1, -1, n]/8 - 
   (3*S2[-1, -1, 1, 1, -1, -1, n])/4 - S2[-1, 1, -1, -1, -1, -1, n]/4 - 
   (17*S2[-1, 1, -1, -1, -1, 1, n])/8 + S2[-1, 1, -1, -1, 1, 1, n]/4 - 
   S2[-1, 1, -1, 1, -1, -1, n] - S2[-1, 1, -1, 1, 1, 1, n]/2 - 
   (9*S2[-1, 1, 1, -1, -1, -1, n])/4 - S2[-1, 1, 1, 1, -1, -1, n]/2 + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 - (39*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 + (15*S2[1, -1, -1, -1, 1, -1, n])/8 + 
   (11*S2[1, -1, -1, 1, -1, -1, n])/4 + S2[1, -1, -1, 1, 1, -1, n]/4 + 
   S2[1, -1, 1, -1, -1, -1, n] - S2[1, -1, 1, 1, -1, -1, n]/2 + 
   (7*S2[1, 1, -1, -1, -1, -1, n])/2 + S2[1, 1, -1, -1, 1, -1, n]/4 - 
   S2[1, 1, -1, 1, -1, -1, n]/4 - (3*S2[1, 1, 1, -1, -1, -1, n])/4 + 
   S2[1, 1, 1, -1, 1, -1, n]/2 + 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, -1, 1, 2, n] -> (19*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (37*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (581*Diff[Half[S2[1, n], n], n, 5])/5760 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 - 
   (103*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (401*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 + 
   (1189*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (165*Diff[S2[1, n], n, 1]^3)/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/192 + 
   (41*Diff[S2[1, n], n, 2]^2)/96 - (809*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 + (1345*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/576 - (311*Diff[S2[1, n], n, 5])/5760 + 
   (51*Diff[S2[-3, 1, n], n, 2])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (271*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (43*Diff[S2[-2, 1, n], n, 3])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (47*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (81*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (367*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (19*Diff[S2[-1, 1, n], n, 4])/64 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[2, 1, n], n, 3])/12 - 2*Diff[S2[4, 1, n], n, 1] - 
   3*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   Diff[S2[-1, 1, -1, n], n, 3]/32 + (49*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (2*Diff[S2[-1, 1, 1, n], n, 3])/3 - Diff[S2[1, 2, -1, n], n, 2]/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (5*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 + Diff[S2[3, 1, 1, n], n, 1] - 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (9*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    4 + (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 - 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 - 2*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   Diff[S2[1, 1, -1, 2, n], n, 1] - 2*Diff[S2[1, 1, 2, -1, n], n, 1] + 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (9*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (17*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 - (41*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/8 - (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (29*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (257*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (37*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (247*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (25*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    12 + (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    32 - (39*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 + 
   (47*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (37*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (13*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (61*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (11*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 + 
   (47*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (185*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 + (719*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 - (29*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (47*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/96 - (19*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (7*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (13*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/48 + (59*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    96 - (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (55*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   Half[S2[2, 1, n], n]^2/64 + (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   Half[S2[4, 1, 1, n], n]/16 - Half[S2[2, 2, 1, 1, n], n]/16 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/96 - S2[-1, Infinity]^6/72 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    24 + (145*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/3 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (409*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (133*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (271*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (2*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (103*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/32 + 
   (181*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (79*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (37*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (21*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (109*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (89*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 - (119*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (115*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (31*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (47*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (259*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (53*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (5*Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (19*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (7*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/8 + 
   (17*S2[-1, Infinity]^5*S2[1, n])/240 + 
   (115*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 - 
   (637*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (31*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 - 
   (209*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (769*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 + 
   (1121*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 - 
   (41*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (101*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (57*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (59*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (41*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (125*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (53*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 + 
   (19*S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (67*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (29*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/16 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (31*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (31*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (11*S2[1, n]^6)/96 - (61*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (187*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/192 + (13*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 - (Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 + (29*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/192 + 
   (571*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 - 
   (103*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 + 
   (27*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (29*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (133*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    32 + (217*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (79*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (307*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (15*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (107*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (175*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (111*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (91*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (19*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (13*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    64 - (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (89*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (57*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (17*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 - (107*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (191*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (147*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (51*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (55*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (51*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (S2[1, n]^4*S2[2, Infinity])/6 - (669*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/640 - (1621*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    320 - (483*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 + 
   (43*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/16 + 
   (177*S2[-1, Infinity]^2*S2[2, Infinity]^2)/32 + 
   (129*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/64 - 
   (1163*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1033*S2[1, n]^2*S2[2, Infinity]^2)/640 + (113159*S2[2, Infinity]^3)/
    13440 + (23*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (907*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (257*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (655*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (11*Half[S2[1, n], n]^3*S2[3, Infinity])/48 + 
   (79*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (89*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/48 + 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 - 
   (369*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (277*S2[1, n]^3*S2[3, Infinity])/128 - 
   (565*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (117*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (5105*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (6613*S2[3, Infinity]^2)/3072 + (7165*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (361*S2[1, n]*S2[5, Infinity])/512 - (71*S2[-5, -1, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[-4, 1, n])/2 + 3*S2[1, n]*S2[-4, 1, n] - 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 - 
   (377*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 - 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/6 + 
   (91*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (47*S2[1, n]^2*S2[-3, 1, n])/24 + (47*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (4*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/3 - 
   (115*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (15*S2[1, n]^3*S2[-2, 1, n])/8 + (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (31*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (79*S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (139*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 + 
   (103*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (55*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 - 
   (5*Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (59*S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (23*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (143*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (29*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (91*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (31*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (17*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (823*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (195*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (103*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (S2[-3, 1, n]*S2[-1, 1, n])/8 - (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (11*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (19*S2[1, n]^2*S2[-1, 1, n]^2)/32 - (7*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (5*S2[-1, 1, n]^3)/16 + (145*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    96 - (187*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/12 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (63*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (S2[1, n]^3*S2[2, 1, n])/3 + (43*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (89*S2[3, Infinity]*S2[2, 1, n])/32 + (3*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (5*S2[2, 1, n]^2)/4 - 6*Half[S2[1, n], n]*S2[4, 1, n] + 
   (11*S2[1, n]*S2[4, 1, n])/2 - 7*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 - (S2[1, n]*S2[-3, 1, 1, n])/2 + 
   (S2[1, n]*S2[-2, 1, -2, n])/4 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (7*S2[1, n]^2*S2[-2, 1, -1, n])/8 - 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/
    4 - (5*S2[-2, 2, -2, n])/8 - (31*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/96 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/3 + (S2[2, Infinity]*S2[-1, -2, -1, n])/4 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (5*Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (231*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (51*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (9*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (95*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 - (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 - (3*S2[-1, 1, 1, n]^2)/4 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (15*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (7*S2[1, n]^2*S2[1, 2, -1, n])/8 + 
   (5*S2[2, Infinity]*S2[1, 2, -1, n])/2 - (S2[-1, 1, n]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 - (3*S2[1, n]*S2[2, 1, -2, n])/2 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (95*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/6 + S2[2, Infinity]*S2[2, 1, -1, n] + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/
    8 + (5*S2[1, n]^2*S2[2, 1, 1, n])/8 - (15*S2[2, Infinity]*S2[2, 1, 1, n])/
    4 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/4 - 2*S2[3, 1, -2, n] - 
   4*Half[S2[1, n], n]*S2[3, 1, 1, n] + 4*S2[1, n]*S2[3, 1, 1, n] + 
   (5*S2[4, 1, 1, n])/2 - 7*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n]/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - (S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - S2[-2, 2, 1, 1, n] - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (35*Diff[S2[1, n], n, 1]*
     S2[-1, 1, -1, -1, n])/48 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/
    24 + (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 - 
   (19*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (13*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (13*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (57*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (31*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (59*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] + (S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 + 3*S2[1, n]*S2[1, 1, 2, -1, n] + Half[S2[1, n], n]*
    S2[1, 2, -1, -1, n] - S2[1, n]*S2[1, 2, -1, -1, n] + 
   (5*S2[2, -2, 1, 1, n])/2 - Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - 
   (S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (11*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (17*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (13*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (13*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, -1, 1, 2, -1, n] - S2[1, 1, -2, -1, -1, n] - 
   (3*S2[1, 1, -2, -1, 1, n])/2 - 2*S2[1, 1, -2, 1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 2*S2[1, 1, -1, 1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - S2[1, 1, -1, 2, -1, n] - 
   7*S2[1, 1, 1, -2, -1, n] - 4*S2[1, 1, 1, -1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 - S2[1, 1, 1, -1, 2, n] - 
   10*S2[1, 1, 1, 2, -1, n] - 2*S2[1, 1, 2, -1, -1, n] - 
   3*S2[1, 1, 2, -1, 1, n] - 3*S2[1, 1, 2, 1, -1, n] - 
   S2[1, 2, -1, -1, -1, n] - S2[1, 2, 1, -1, -1, n] + 
   (3*S2[2, 1, 1, 1, 1, n])/2 + S2[-1, -1, -1, 1, -1, -1, n]/8 + 
   (5*S2[-1, -1, 1, -1, -1, -1, n])/8 - S2[-1, -1, 1, 1, -1, -1, n]/4 + 
   (7*S2[-1, 1, -1, -1, -1, -1, n])/4 + (5*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   (3*S2[-1, 1, -1, -1, 1, 1, n])/4 + (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - 
   S2[-1, 1, 1, -1, -1, -1, n]/4 + S2[-1, 1, 1, 1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + 10*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 - (3*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, -1, 1, 1, -1, n])/4 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 + S2[1, -1, 1, 1, -1, -1, n] - 
   (3*S2[1, 1, -1, -1, -1, -1, n])/2 - (3*S2[1, 1, -1, -1, 1, -1, n])/4 + 
   S2[1, 1, -1, 1, -1, -1, n]/4 + (3*S2[1, 1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, 1, -2, -1, n] -> (19*Diff[Half[S2[1, n], n], n, 1]^3)/64 - 
   (11*Diff[Half[S2[1, n], n], n, 2]^2)/64 - 
   (179*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (443*Diff[Half[S2[1, n], n], n, 5])/1920 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (25*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/16 + 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   (5*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 - 
   (3*Diff[Half[S2[2, 1, 1, 1, n], n], n, 1])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/12 + 
   (385*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (23*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (15*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 - 
   (209*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (29*Diff[S2[1, n], n, 1]^3)/48 + (169*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (269*Diff[S2[1, n], n, 2]^2)/96 + 
   (2485*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (449*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 + 
   (125*Diff[S2[1, n], n, 5])/384 + 2*Diff[S2[-4, 1, n], n, 1] + 
   (33*Diff[S2[-3, 1, n], n, 2])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (211*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   Diff[S2[-2, 1, n], n, 3]/48 + (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (31*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, n], n, 1]^2/4 - (45*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (149*Diff[S2[-1, 1, n], n, 4])/192 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] - 
   Diff[S2[2, 1, n], n, 3]/24 + 2*Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/8 + 
   Diff[S2[-2, 1, -1, n], n, 2]/8 + (3*Diff[S2[-1, -2, -1, n], n, 2])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/4 - (9*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1] - (13*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 + Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1] + (7*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/8 - Diff[S2[-1, 1, 1, 1, n], n, 2]/8 - 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[1, 1, -1, 2, n], n, 1] + 
   (5*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   (13*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 + 
   (23*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (7*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, 1, -1, -1, n], n, 1]/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (23*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (55*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 + (233*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (73*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (197*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (79*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (9*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (19*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (9*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (19*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (181*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/192 + 
   (115*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 + 
   (169*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (233*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 - (287*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 - (9*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (25*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/96 - (11*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (5*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (15*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/32 + (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    96 - (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/2 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 + (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/24 + 
   (3*Half[S2[2, 1, n], n]^2)/32 - (19*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 + 
   (9*Half[S2[4, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, 1, n], n])/2 - 
   (3*Half[S2[2, 2, 1, 1, n], n])/16 - (3*Half[S2[2, 1, 1, 1, 1, n], n])/4 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (17*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/192 - 
   (23*S2[-1, Infinity]^6)/960 - (113*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 + 
   (487*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (15*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (95*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (163*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (1025*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (145*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (281*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 + 
   (257*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (17*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (15*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (53*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (15*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (35*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/24 - 
   (83*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (395*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (59*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (49*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (89*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (151*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (9*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (S2[-1, Infinity]^5*S2[1, n])/64 + (215*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[1, n]^2)/192 + (27*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/64 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (35*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 - 
   (301*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (469*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/64 + 
   (41*Diff[S2[1, n], n, 3]*S2[1, n]^2)/384 + 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 + 
   (119*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (41*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (35*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (107*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (19*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (23*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 + 
   (29*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 - 
   (97*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    32 + (67*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (101*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (7*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - (7*S2[1, n]^6)/96 - (15*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (1075*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (7*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 + (5*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 - (287*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/64 + 
   (431*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (667*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (131*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (55*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (79*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (281*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 - (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 + 
   (7*Half[S2[1, n], n]^4*S2[2, Infinity])/24 - 
   (181*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (11*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (81*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (33*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (19*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (103*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (17*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (131*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (205*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (523*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (145*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (241*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 - (167*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (67*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (51*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (219*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (107*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (29*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/8 + (3*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 + (65*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (1627*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (91*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (13*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/8 + (115*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 - (197*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (21*S2[1, n]^4*S2[2, Infinity])/32 + 
   (293*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (487*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/48 + 
   (557*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (41*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/16 + 
   (949*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (3569*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (163*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (7937*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (1509*S2[2, Infinity]^3)/128 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 + 
   (831*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (285*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (319*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (271*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 - 
   (79*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (75*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (1195*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (1913*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (317*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (187*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (313*S2[1, n]^3*S2[3, Infinity])/192 + 
   (809*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (795*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (4235*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (6695*S2[3, Infinity]^2)/1536 - (905*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (6659*S2[1, n]*S2[5, Infinity])/512 - (117*S2[-5, -1, Infinity])/
    8 + 3*S2[-5, 1, n] + (3*Half[S2[1, n], n]*S2[-4, 1, n])/2 - 
   3*S2[1, n]*S2[-4, 1, n] + (137*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    96 - (641*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/12 - 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   2*S2[1, n]^2*S2[-3, 1, n] + (19*S2[2, Infinity]*S2[-3, 1, n])/3 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/6 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (S2[1, n]^3*S2[-2, 1, n])/4 + (145*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (265*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (59*S2[3, Infinity]*S2[-2, 1, n])/16 + (3*S2[-2, 1, n]^2)/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 + 
   (55*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (53*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (259*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/576 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (367*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (17*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (7*S2[1, n]^4*S2[-1, 1, n])/48 + (29*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (29*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (37*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (37*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (47*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (1501*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (151*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (151*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (23*S2[-3, 1, n]*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (17*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (61*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (31*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (37*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (17*S2[2, Infinity]*S2[-1, 1, n]^2)/
    24 + (5*S2[-1, 1, n]^3)/16 + (77*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/32 - (107*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (63*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/8 - (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/
    4 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (101*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (3*S2[1, n]^3*S2[2, 1, n])/4 + (49*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (23*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (57*S2[3, Infinity]*S2[2, 1, n])/16 + 5*S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (7*S2[2, 1, n]^2)/2 - 
   (11*S2[1, n]*S2[4, 1, n])/2 + (3*S2[-3, -2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + (S2[1, n]*S2[-3, 1, 1, n])/2 + 
   (5*S2[1, n]*S2[-2, 1, -2, n])/4 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (5*S2[1, n]^2*S2[-2, 1, -1, n])/8 - 4*S2[2, Infinity]*S2[-2, 1, -1, n] + 
   (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/4 - S2[-2, 2, -2, n]/8 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (47*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 + (35*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 - 
   (11*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (1301*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (2*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/3 - 
   (2*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/3 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (5*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   S2[1, n]^3*S2[-1, 1, 1, n] - (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (57*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 - (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (11*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 - (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   2*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (S2[1, n]^2*S2[1, 2, -1, n])/8 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/4 - (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (133*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 + (49*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (9*S2[1, n]^2*S2[2, 1, -1, n])/4 + (29*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 + (11*S2[-1, 1, n]*S2[2, 1, -1, n])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/8 - (23*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/4 - 2*Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] + (3*S2[4, 1, 1, n])/2 + 
   (5*S2[-2, -2, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 + (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    48 - (5*Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (9*S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (53*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (5*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] + 2*S2[1, n]^2*S2[-1, 1, 1, 1, n] + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - (83*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/16 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (17*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (23*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (125*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   Half[S2[1, n], n]*S2[1, -1, 1, 2, n] - S2[1, n]*S2[1, -1, 1, 2, n] - 
   (5*S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 - Half[S2[1, n], n]*S2[1, 1, 2, -1, n] + S2[1, n]*S2[1, 1, 2, -1, n] + 
   2*Half[S2[1, n], n]*S2[1, 2, -1, -1, n] - 2*S2[1, n]*S2[1, 2, -1, -1, n] - 
   2*Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + (S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n]/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (7*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] - 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (35*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (15*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (7*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (11*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (5*S2[1, -1, 1, 1, -2, n])/2 - 
   2*S2[1, -1, 1, 2, -1, n] + (5*S2[1, 1, -2, -1, 1, n])/2 + 
   S2[1, 1, -2, 1, -1, n] + (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 3*S2[1, 1, -1, 1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - 2*S2[1, 1, -1, 2, -1, n] + 
   2*S2[1, 1, 1, -2, -1, n] - 4*S2[1, 1, 1, -1, -2, n] - 
   (5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 - 3*S2[1, 1, 1, 2, -1, n] - 
   2*S2[1, 1, 2, -1, -1, n] - 3*S2[1, 2, -1, -1, -1, n] - 
   S2[1, 2, -1, 1, -1, n] - 2*S2[1, 2, 1, -1, -1, n] + 
   (3*S2[2, 1, 1, 1, 1, n])/2 + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/8 + (11*S2[-1, -1, 1, 1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/4 + (19*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   (3*S2[-1, 1, -1, -1, 1, 1, n])/4 + 2*S2[-1, 1, -1, 1, -1, -1, n] + 
   S2[-1, 1, -1, 1, 1, 1, n] + (17*S2[-1, 1, 1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, 1, 1, -1, -1, n])/2 + (69*S2[-1, 1, 1, 1, 1, 1, Infinity])/
    4 + (15*S2[1, -1, -1, -1, -1, -1, n])/4 - 
   (17*S2[1, -1, -1, -1, 1, -1, n])/8 - (9*S2[1, -1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, -1, -1, 1, 1, -1, n])/4 + S2[1, -1, 1, -1, -1, -1, n]/2 + 
   (3*S2[1, -1, 1, 1, -1, -1, n])/2 - (5*S2[1, 1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, 1, -1, -1, 1, -1, n])/4 + (3*S2[1, 1, -1, 1, -1, -1, n])/4 + 
   (9*S2[1, 1, 1, -1, -1, -1, n])/4 + S2[1, 1, 1, -1, 1, -1, n], 
 S2[-1, -1, 1, -2, 1, n] -> (19*Diff[Half[S2[1, n], n], n, 1]^3)/64 - 
   (17*Diff[Half[S2[1, n], n], n, 2]^2)/48 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 + 
   (127*Diff[Half[S2[1, n], n], n, 5])/640 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (107*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/192 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 - 
   (57*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 - 
   (101*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 - 
   (77*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (71*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/192 + 
   (1819*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (295*Diff[S2[1, n], n, 1]^3)/48 - (67*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (139*Diff[S2[1, n], n, 2]^2)/96 - 
   (2267*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/12 - 
   (97*Diff[S2[1, n], n, 5])/640 + (3*Diff[S2[-4, 1, n], n, 1])/2 + 
   (169*Diff[S2[-3, 1, n], n, 2])/96 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (293*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (47*Diff[S2[-2, 1, n], n, 3])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (17*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (11*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (565*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/192 - 
   (383*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (85*Diff[S2[-1, 1, n], n, 4])/192 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (5*Diff[S2[2, 1, n], n, 3])/12 - 2*Diff[S2[4, 1, n], n, 1] - 
   Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + (11*Diff[S2[-1, -2, -1, n], n, 2])/
    96 + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/48 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/96 - 
   Diff[S2[-1, 1, -1, n], n, 3]/32 + (63*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/24 - Diff[S2[1, 2, -1, n], n, 2]/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (23*Diff[S2[2, 1, -1, n], n, 2])/48 + 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 + Diff[S2[3, 1, 1, n], n, 1] - 
   (3*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (29*Diff[S2[-1, 1, -1, -1, n], n, 2])/48 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    4 + Diff[S2[-1, 1, 1, 1, n], n, 2]/8 - Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + Diff[S2[1, 1, -1, 2, n], n, 1] - 
   2*Diff[S2[1, 1, 2, -1, n], n, 1] + 2*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 - 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (15*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (35*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (39*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (101*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (29*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/72 - (11*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (15*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (109*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (119*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (1151*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (1181*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (217*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (223*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (95*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 + 
   (35*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (43*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (25*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (21*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (9*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (29*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (29*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 + 
   (391*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 + 
   (77*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 + 
   (109*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (599*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 - (1445*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 - (Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/48 + (5*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/8 - (37*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (55*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (13*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (41*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/96 - (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    32 - (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (61*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    24 + (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 + 
   Half[S2[2, 1, n], n]^2/64 - (7*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/
    16 + (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   Half[S2[4, 1, 1, n], n]/16 - Half[S2[2, 2, 1, 1, n], n]/16 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/128 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (29*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 - S2[-1, Infinity]^6/80 - 
   (361*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    96 - (151*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 + 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (773*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 + 
   (139*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (1805*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (195*Diff[S2[1, n], n, 4]*S2[1, n])/128 + 
   (41*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (767*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 - 
   (451*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (63*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 - 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 - 
   (33*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 - 
   (7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (119*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/96 - 
   (671*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (553*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (1639*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 + (2911*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 - 
   (55*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (401*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (35*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (73*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (135*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (15*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/64 + 
   (59*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (451*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/192 + 
   (117*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/64 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/64 - 
   (389*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (1009*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/64 - 
   (1699*Diff[S2[1, n], n, 3]*S2[1, n]^2)/384 + 
   (45*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (383*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (41*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   (27*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (33*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (235*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (83*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (19*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (49*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (145*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (99*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 - 
   (115*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   6*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (15*Half[S2[1, n], n]^3*S2[1, n]^3)/16 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/32 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (157*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (23*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - (23*S2[1, n]^6)/96 - (133*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/96 + (869*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (77*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 + (Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/16 - (559*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/192 + 
   (887*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 - 
   (647*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (47*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (283*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (9*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (49*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (79*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (47*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 - (575*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 + 
   (7*Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (107*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 + 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (53*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (69*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (81*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (227*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 - 
   (71*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (119*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (39*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (371*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (83*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 + (235*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 - (77*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (41*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (177*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (35*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (87*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/32 + (11*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 + (379*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (543*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 + 4*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity] - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (85*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (7*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (133*S2[1, n]^4*S2[2, Infinity])/96 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (1043*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 + 
   (4969*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (283*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (203*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (1231*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 - 
   (527*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (1217*S2[1, n]^2*S2[2, Infinity]^2)/384 + (24463*S2[2, Infinity]^3)/1920 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (435*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (449*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/384 - 
   (309*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (823*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 + 
   (307*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (109*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (277*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (1603*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (239*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 - 
   (623*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/192 + 
   (75*S2[1, n]^3*S2[3, Infinity])/32 + 
   (1249*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (907*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (2427*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (3521*S2[3, Infinity]^2)/3072 - (1689*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (9333*S2[1, n]*S2[5, Infinity])/512 + (13*S2[-5, -1, Infinity])/
    16 + 7*S2[-5, 1, n] - (Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   (5*S2[1, n]*S2[-4, 1, n])/2 + (41*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/96 - (151*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/32 + 
   (73*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 - 
   (127*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 + 
   (19*S2[1, n]^2*S2[-3, 1, n])/8 + (263*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (31*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (10*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (33*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 - 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/6 + (83*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (119*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (311*S2[3, Infinity]*S2[-2, 1, n])/96 + S2[-2, 1, n]^2/4 + 
   (67*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/96 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (105*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (97*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (79*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (71*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (103*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (113*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (29*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (73*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/2 - 
   (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (115*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/3 - 
   (9*S2[1, n]^4*S2[-1, 1, n])/16 - (19*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (13*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (41*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (3793*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (323*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (189*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (S2[-3, 1, n]*S2[-1, 1, n])/8 - (21*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (25*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (33*S2[1, n]^2*S2[-1, 1, n]^2)/32 - (3*S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   (19*S2[-1, 1, n]^3)/48 + (55*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    32 - (69*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (61*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (5*S2[1, n]^3*S2[2, 1, n])/8 + 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (127*S2[3, Infinity]*S2[2, 1, n])/32 + (3*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n] + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + (5*S2[2, 1, n]^2)/4 + 
   Half[S2[1, n], n]*S2[4, 1, n] - (3*S2[1, n]*S2[4, 1, n])/2 - 
   S2[-3, -2, 1, n]/2 - (3*Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + 
   2*S2[1, n]*S2[-3, 1, 1, n] - (3*Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 + 
   (7*S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   2*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   (7*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (5*S2[1, n]^2*S2[-2, 1, -1, n])/8 - (5*S2[2, Infinity]*S2[-2, 1, -1, n])/
    2 + (7*S2[-1, 1, n]*S2[-2, 1, -1, n])/4 - (5*S2[-2, 2, -2, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/32 + 
   (13*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 + 
   (35*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (19*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (9*S2[1, n]^3*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (45*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/3 - 
   (315*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (9*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (7*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (47*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (11*S2[1, n]^3*S2[-1, 1, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (5*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (7*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 - (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (7*S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 - (3*S2[-1, 1, 1, n]^2)/4 + (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (13*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (15*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 + 
   (17*S2[1, n]^2*S2[1, 2, -1, n])/8 + (11*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 - (S2[-1, 1, n]*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + (S2[1, n]*S2[2, 1, -2, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (21*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/16 + 
   (37*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 - 
   (109*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 + 
   (11*S2[1, n]^2*S2[2, 1, -1, n])/4 + (29*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (7*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 - 
   (9*S2[1, n]^2*S2[2, 1, 1, n])/8 - (19*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (5*S2[-1, 1, n]*S2[2, 1, 1, n])/4 - (3*S2[3, 1, -2, n])/2 - 
   Half[S2[1, n], n]*S2[3, 1, 1, n] + 2*S2[1, n]*S2[3, 1, 1, n] + 
   (5*S2[4, 1, 1, n])/2 - 4*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n]/2 - 
   (3*Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - S2[-2, 2, 1, 1, n]/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 - 
   S2[1, n]^2*S2[-1, 1, -1, -1, n] + 
   (31*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (15*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   2*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] - S2[1, n]^2*S2[-1, 1, 1, 1, n] + 
   (17*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (87*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (87*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (39*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (137*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (87*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] - S2[1, n]*S2[1, -1, 1, -2, n] + 
   2*Half[S2[1, n], n]*S2[1, 1, -2, -1, n] - (S2[1, n]*S2[1, 1, -2, -1, n])/
    2 - (3*Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 + 
   S2[1, n]*S2[1, 1, -1, 2, n] + (7*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   S2[1, n]*S2[1, 2, -1, -1, n] - S2[2, -2, 1, 1, n]/2 - 
   2*Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   S2[-2, 1, 1, 1, 1, n]/2 - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   S2[1, n]*S2[-1, 1, -1, -1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (11*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (59*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - S2[1, -2, -1, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + S2[1, -1, -1, 1, -2, n] + 
   (11*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] + 
   (7*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, -1, 1, 1, -2, n])/2 + 
   S2[1, -1, 1, 1, 2, n]/2 - S2[1, -1, 1, 2, -1, n] - 
   2*S2[1, 1, -2, -1, -1, n] - (3*S2[1, 1, -2, -1, 1, n])/2 - 
   2*S2[1, 1, -2, 1, -1, n] - 2*S2[1, 1, -1, -2, -1, n] - 
   S2[1, 1, -1, -1, -2, n] + (15*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    4 - (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 2*S2[1, 1, -1, 1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - S2[1, 1, -1, 2, -1, n] - 
   7*S2[1, 1, 1, -2, -1, n] - 4*S2[1, 1, 1, -1, -2, n] + 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + S2[1, 1, 1, -1, 2, n] - 
   7*S2[1, 1, 1, 2, -1, n] - 2*S2[1, 1, 2, -1, -1, n] - 
   (5*S2[1, 1, 2, -1, 1, n])/2 - 3*S2[1, 1, 2, 1, -1, n] - 
   S2[1, 2, 1, -1, -1, n] + (3*S2[2, 1, 1, 1, 1, n])/2 + 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + (7*S2[-1, -1, 1, -1, -1, -1, n])/8 - 
   S2[-1, -1, 1, 1, -1, -1, n]/4 + (5*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 - (5*S2[-1, 1, -1, -1, 1, 1, n])/4 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - S2[-1, 1, 1, -1, -1, -1, n]/4 - 
   S2[-1, 1, 1, -1, -1, 1, n]/2 - 2*S2[-1, 1, 1, 1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + 9*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 - (3*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - (7*S2[1, -1, -1, 1, 1, -1, n])/4 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 - (3*S2[1, -1, 1, 1, -1, -1, n])/2 - 
   (3*S2[1, 1, -1, -1, -1, -1, n])/2 - (3*S2[1, 1, -1, -1, 1, -1, n])/4 - 
   (5*S2[1, 1, -1, 1, -1, -1, n])/4 - (21*S2[1, 1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, 1, 2, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/48 + 
   (33*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (163*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (223*Diff[Half[S2[1, n], n], n, 5])/720 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/12 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/96 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 - 
   (283*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/24 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/24 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/12 + 
   (159*Diff[S2[1, n], n, 1]^3)/32 - (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (7*Diff[S2[1, n], n, 2]^2)/2 - 
   (707*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (1427*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (581*Diff[S2[1, n], n, 5])/1440 - (13*Diff[S2[-4, 1, n], n, 1])/2 - 
   (47*Diff[S2[-3, 1, n], n, 2])/16 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + (77*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/12 - (3*Diff[S2[-2, 1, n], n, 3])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (97*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   Diff[S2[-1, 1, n], n, 1]^2 - (37*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/24 + 
   (177*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (27*Diff[S2[-1, 1, n], n, 4])/32 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (5*Diff[S2[2, 1, n], n, 3])/6 + 4*Diff[S2[4, 1, n], n, 1] + 
   2*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + Diff[S2[-1, -2, -1, n], n, 2]/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 - 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/48 + 
   Diff[S2[-1, 1, -1, n], n, 3]/16 - 6*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + 
   (99*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/24 + (3*Diff[S2[1, 2, -1, n], n, 2])/2 - 
   (3*Diff[S2[2, 1, -2, n], n, 1])/2 + (19*Diff[S2[2, 1, -1, n], n, 2])/24 - 
   (9*Diff[S2[2, 1, 1, n], n, 2])/4 - 2*Diff[S2[3, 1, 1, n], n, 1] + 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/
    3 - Diff[S2[-1, 1, -1, 1, n], n, 2]/2 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, -2, n], n, 1] + 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 4*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   Diff[S2[1, 1, -1, 2, n], n, 1] + 4*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   4*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 - 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/2 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 + 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (211*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/24 - (87*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    6 + (59*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (589*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 + 
   (85*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 + (25*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (19*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (15*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (31*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   2*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (55*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/72 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/3 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/6 + (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    3 - (469*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/288 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (91*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 - 
   (23*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   Half[S2[2, 1, n], n]^2/32 - (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 + 
   Half[S2[4, 1, 1, n], n]/8 + Half[S2[2, 2, 1, 1, n], n]/8 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (25*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (31*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 - 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 + 
   (7*S2[-1, Infinity]^6)/480 + (73*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 - 
   (1159*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 + 
   (145*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (167*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (1381*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (61*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (35*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 + 
   (133*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (111*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (31*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/48 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (9*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (115*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   2*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (103*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (71*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (751*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (43*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (19*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (111*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (107*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n] + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 - 
   (3*Half[S2[1, n], n]^5*S2[1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (21*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/6 - 
   (13*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (269*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 - 
   (23*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/12 - 
   (1291*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 + 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 - (9*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 - 
   (21*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (43*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   8*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (83*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (69*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (183*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (17*Half[S2[1, n], n]^4*S2[1, n]^2)/16 - 
   (27*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/2 + (7*S2[-1, Infinity]^4*S2[1, n]^2)/
    192 - (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (163*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (65*Half[S2[1, n], n]^3*S2[1, n]^3)/24 + 
   (41*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/2 - (35*Half[S2[1, n], n]*S2[1, n]^5)/
    16 + (25*S2[1, n]^6)/48 + (389*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/96 - (733*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/288 + (43*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/96 + (161*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/96 - 
   (185*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/24 + 
   (461*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 - 
   (20*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 - 
   (107*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/24 + 
   (17*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (29*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   4*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (107*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (277*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (15*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (129*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (39*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (141*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (29*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (245*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (17*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/6 - 
   (509*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (377*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (37*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 + (155*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (507*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (45*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (23*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (37*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 + (539*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/96 - (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/24 + (13*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/2 - (189*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 - (11*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    4 - 8*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity] + 
   (181*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (283*S2[1, n]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 + 
   (6353*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 + 
   (2581*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (67*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (1111*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (463*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 + 
   (1239*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (301*S2[1, n]^2*S2[2, Infinity]^2)/192 - (6137*S2[2, Infinity]^3)/280 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (463*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (109*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (233*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 + (323*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (141*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (39*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (77*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (301*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (353*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (763*S2[1, n]^3*S2[3, Infinity])/384 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (387*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (915*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (3419*S2[3, Infinity]^2)/1536 - (767*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (1063*S2[1, n]*S2[5, Infinity])/64 + (47*S2[-5, -1, Infinity])/8 - 
   12*S2[-5, 1, n] - (3*Half[S2[1, n], n]*S2[-4, 1, n])/2 + 
   (3*S2[1, n]*S2[-4, 1, n])/2 + (47*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/24 + (337*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (49*Half[S2[1, n], n]^2*S2[-3, 1, n])/24 - 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/12 - (61*S2[2, Infinity]*S2[-3, 1, n])/6 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (23*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (51*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (13*S2[1, n]^3*S2[-2, 1, n])/24 - (31*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (97*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (47*S2[3, Infinity]*S2[-2, 1, n])/16 - S2[-2, 1, n]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 - 
   (2*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/3 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (171*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (47*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 - 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/6 + 
   (3*Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/2 + 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 - (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n] - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (125*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n] + (15*S2[1, n]^4*S2[-1, 1, n])/
    16 + (149*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/
    48 + (59*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (17*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (51*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (79*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (93*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (103*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (1669*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (71*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (121*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (19*S2[-3, 1, n]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (13*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (45*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/4 + (41*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   (5*S2[-1, 1, n]^3)/12 - (115*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    48 + (157*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (2*Half[S2[1, n], n]^3*S2[2, 1, n])/3 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (37*S2[1, n]^3*S2[2, 1, n])/24 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (15*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (45*S2[3, Infinity]*S2[2, 1, n])/16 - 3*S2[-2, 1, n]*S2[2, 1, n] - 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/2 + 
   2*Half[S2[1, n], n]*S2[4, 1, n] - S2[1, n]*S2[4, 1, n] + 
   9*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - (Half[S2[1, n], n]*S2[-3, 1, 1, n])/
    2 + (5*S2[1, n]*S2[-3, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-2, 1, -2, n])/
    2 - (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] + 
   3*S2[1, n]^2*S2[-2, 1, -1, n] + (17*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   3*S2[-1, 1, n]*S2[-2, 1, -1, n] + (5*S2[-2, 2, -2, n])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (31*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/3 - (17*S2[2, Infinity]*S2[-1, -2, -1, n])/
    12 - (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (43*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (3*Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (9*S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (33*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (83*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 + 
   2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/2 + 4*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (29*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/4 + (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/
    4 - (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (11*S2[1, n]^3*S2[-1, 1, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (43*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 2*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   2*S2[2, 1, n]*S2[-1, 1, 1, n] - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 + 
   (3*S2[-1, 1, 1, n]^2)/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/2 + 6*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/4 - 7*S2[2, Infinity]*S2[1, 2, -1, n] - 
   3*S2[-1, 1, n]*S2[1, 2, -1, n] - (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + 
   2*S2[1, n]*S2[2, 1, -2, n] + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/12 + (85*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/12 - (55*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (9*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   2*S2[1, n]^2*S2[2, 1, 1, n] + (33*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (5*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (5*S2[3, 1, -2, n])/2 + 
   3*Half[S2[1, n], n]*S2[3, 1, 1, n] - 3*S2[1, n]*S2[3, 1, 1, n] - 
   5*S2[4, 1, 1, n] + 10*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + 2*S2[1, n]*S2[-2, 1, 1, 1, n] + 
   (3*S2[-2, 2, 1, 1, n])/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/12 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    12 + (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 + 
   (17*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (7*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (5*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   2*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] + 7*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] - 5*S2[1, n]^2*S2[-1, 1, 1, 1, n] - 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (25*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (31*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   4*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (253*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] - S2[1, n]*S2[1, -1, 1, -2, n] - 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] - 2*S2[1, n]*S2[1, 1, -2, -1, n] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 + (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 - (11*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 2*Half[S2[1, n], n]*
    S2[1, 2, -1, -1, n] + 2*S2[1, n]*S2[1, 2, -1, -1, n] - 
   (9*S2[2, -2, 1, 1, n])/2 + Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + 
   2*S2[1, n]*S2[2, 1, 1, 1, n] - (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (7*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (51*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (13*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - S2[1, -2, -1, 1, -1, n] + 
   (13*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (13*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, 1, -2, n] - 
   Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n] + 
   S2[1, n]*S2[1, -1, -1, 1, -1, n] + 2*S2[1, -1, -1, 1, 2, n] - 
   (7*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (7*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + 3*S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 1, 2, n]/2 + 2*S2[1, -1, 1, 2, -1, n] + 
   2*S2[1, 1, -2, -1, -1, n] + 3*S2[1, 1, -2, -1, 1, n] + 
   4*S2[1, 1, -2, 1, -1, n] - (9*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    4 + (9*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 4*S2[1, 1, -1, 1, -2, n] + 
   (11*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 - 
   (11*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 + S2[1, 1, -1, 1, 2, n] + 
   2*S2[1, 1, -1, 2, -1, n] + 14*S2[1, 1, 1, -2, -1, n] + 
   8*S2[1, 1, 1, -1, -2, n] + 6*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] - 
   6*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 4*S2[1, 1, 1, -1, 2, n] + 
   19*S2[1, 1, 1, 2, -1, n] + 4*S2[1, 1, 2, -1, -1, n] + 
   (11*S2[1, 1, 2, -1, 1, n])/2 + 5*S2[1, 1, 2, 1, -1, n] + 
   3*S2[1, 2, -1, -1, -1, n] + 2*S2[1, 2, 1, -1, -1, n] - 
   3*S2[2, 1, 1, 1, 1, n] - S2[-1, -1, -1, 1, -1, -1, n]/2 - 
   2*S2[-1, -1, 1, -1, -1, -1, n] + S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   5*S2[-1, 1, -1, -1, -1, -1, n] - (5*S2[-1, 1, -1, -1, -1, 1, n])/4 - 
   S2[-1, 1, -1, -1, 1, 1, n]/2 - (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   S2[-1, 1, 1, -1, -1, -1, n]/2 + S2[-1, 1, 1, -1, -1, 1, n]/2 - 
   S2[-1, 1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   (21*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 10*S2[1, -1, -1, -1, -1, -1, n] + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, -1, 1, -1, -1, n])/2 - 
   2*S2[1, -1, -1, 1, 1, -1, n] + S2[1, -1, 1, -1, -1, -1, n] - 
   S2[1, -1, 1, 1, -1, -1, n]/2 + 3*S2[1, 1, -1, -1, -1, -1, n] - 
   (3*S2[1, 1, -1, 1, -1, -1, n])/2 - 6*S2[1, 1, 1, -1, -1, -1, n] + 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, 1, 2, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/16 + 
   (79*Diff[Half[S2[1, n], n], n, 2]^2)/64 + 
   (193*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   (23*Diff[Half[S2[1, n], n], n, 5])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 3])/96 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/8 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 - 
   (349*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 - 
   (7*Diff[S2[1, n], n, 1]^3)/8 - (141*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (385*Diff[S2[1, n], n, 2]^2)/96 - 
   (701*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (667*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 - 
   (245*Diff[S2[1, n], n, 5])/576 + Diff[S2[-4, 1, n], n, 1] + 
   (5*Diff[S2[-3, 1, n], n, 2])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (11*Diff[S2[-2, 1, n], n, 3])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (25*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (27*Diff[S2[-1, 1, n], n, 1]^2)/16 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] - (3*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/16 + (27*Diff[S2[-1, 1, n], n, 4])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[2, 1, n], n, 3]/24 - Diff[S2[4, 1, n], n, 1]/2 - 
   Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   Diff[S2[-2, 1, -1, n], n, 2]/4 - Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 3])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/8 + (5*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1] + (7*Diff[S2[2, 1, -1, n], n, 2])/8 - 
   (5*Diff[S2[2, 1, 1, n], n, 2])/4 - Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, -1, n], n, 2]/4 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/8 - Diff[S2[-1, 1, 1, 1, n], n, 2] + 
   Diff[S2[1, -1, 1, -2, n], n, 1] - Diff[S2[1, 1, -1, 2, n], n, 1] - 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/
    4 - Diff[S2[-1, 1, -1, 1, 1, n], n, 1] - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 + Diff[S2[1, 1, 1, -1, -1, n], 
    n, 1] - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (263*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (209*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    4 + (77*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (383*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/288 - 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (41*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (17*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (27*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (29*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 - 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + (51*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (139*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/3 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/48 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 - 
   Half[S2[2, 1, n], n]^2/64 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/2 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/3 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 + S2[-1, Infinity]^6/144 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 - (967*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/4 + 
   (109*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (349*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (739*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (1273*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (59*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (103*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (11*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 4*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (91*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   2*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] + 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 - 
   (289*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (121*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (677*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 + (2927*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (29*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (43*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/6 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (113*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (37*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (505*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (431*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (2309*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (127*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (13*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/6 - 
   (41*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (139*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/24 - 
   (31*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/48 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (47*S2[-1, Infinity]^4*S2[1, n]^2)/192 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (65*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (53*Half[S2[1, n], n]^3*S2[1, n]^3)/48 + 
   (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (59*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (17*S2[1, n]^6)/48 + (43*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 - (175*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/288 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    24 + (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (49*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + Diff[S2[-1, 1, -1, n], n, 1]*
    S2[2, Infinity] - (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (269*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (61*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/4 + 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (27*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (69*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (23*S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (143*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (229*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (71*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (43*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + 2*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] - (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (29*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/32 + (29*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 + (121*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (49*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (55*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (7*S2[1, n]^4*S2[2, Infinity])/32 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/16 + 
   (569*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 - 
   (59*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (381*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (95*S2[-1, Infinity]^2*S2[2, Infinity]^2)/64 - 
   (107*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (793*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (S2[1, n]^2*S2[2, Infinity]^2)/240 - (17467*S2[2, Infinity]^3)/6720 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 - 
   (299*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (193*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (1027*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 - (1159*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/64 - 
   (65*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (1901*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (731*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/96 - 
   (55*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 + 
   (403*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (347*S2[1, n]^3*S2[3, Infinity])/96 + 
   (1979*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (999*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (697*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (10367*S2[3, Infinity]^2)/3072 - (1563*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (763*S2[1, n]*S2[5, Infinity])/256 + (3*S2[-5, -1, Infinity])/4 - 
   (9*Half[S2[1, n], n]*S2[-4, 1, n])/2 + 6*S2[1, n]*S2[-4, 1, n] + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/24 + 
   (17*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 + 
   (205*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 - 
   (187*S2[1, n]^2*S2[-3, 1, n])/48 - (41*S2[2, Infinity]*S2[-3, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/4 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    8 - (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (2*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/3 + 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/12 - 
   (17*S2[1, n]^3*S2[-2, 1, n])/12 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (43*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (65*S2[3, Infinity]*S2[-2, 1, n])/32 - S2[-2, 1, n]^2/4 + 
   (47*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/6 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (155*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (125*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 - (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (25*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (79*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (35*S2[1, n]^4*S2[-1, 1, n])/48 + (29*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] + 
   (29*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (113*S2[2, Infinity]^2*S2[-1, 1, n])/48 + 
   (613*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (181*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/48 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/12 + 
   (11*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (2*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/12 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/12 + (23*S2[2, Infinity]*S2[-1, 1, n]^2)/
    24 - (23*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 + 
   (107*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/8 + (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/
    8 + (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (85*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (23*S2[1, n]^3*S2[2, 1, n])/48 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (233*S2[3, Infinity]*S2[2, 1, n])/96 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - (5*S2[2, 1, n]^2)/4 + 
   4*S2[1, n]*S2[4, 1, n] - S2[-3, -2, 1, n] - 
   (11*Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 + 6*S2[1, n]*S2[-3, 1, 1, n] - 
   (S2[1, n]*S2[-2, 1, -2, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/2 - 2*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (5*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + 
   (5*S2[-2, 2, -2, n])/4 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/24 + (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 - (2*S2[2, Infinity]*S2[-1, -2, -1, n])/
    3 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (79*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 - 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (35*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (159*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (5*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (5*S2[-1, 1, -1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - 3*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (31*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + S2[-1, 1, 1, n]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   (S2[1, n]^2*S2[1, 2, -1, n])/4 - (5*S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   S2[-1, 1, n]*S2[1, 2, -1, n] - (3*Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + 
   2*S2[1, n]*S2[2, 1, -2, n] + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/12 - (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/24 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/6 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/4 + 4*S2[2, Infinity]*S2[2, 1, 1, n] - 
   S2[-2, -2, 1, 1, n] - (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[1, n]*S2[-2, 1, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/6 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    12 - (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (17*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 + 
   (5*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (13*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 8*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (47*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   Half[S2[1, n], n]*S2[1, -1, 1, 2, n] - S2[1, n]*S2[1, -1, 1, 2, n] + 
   2*S2[1, n]*S2[1, 1, -2, -1, n] + (3*Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/
    2 - S2[1, n]*S2[1, 1, -1, 2, n] + 2*Half[S2[1, n], n]*
    S2[1, 1, 2, -1, n] - 2*S2[1, n]*S2[1, 1, 2, -1, n] + 
   S2[1, n]*S2[1, 2, -1, -1, n] - 2*S2[2, 2, 1, 1, n] - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/
    8 + S2[1, n]*S2[-1, 1, -1, 1, 1, n] - Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] + S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (11*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (37*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - Half[S2[1, n], n]*
    S2[1, -1, -1, 1, -1, n] + (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   2*S2[1, -1, -1, 1, 2, n] - (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    2 + (9*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + 2*S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 2, -1, n] - S2[1, 1, -2, -1, 1, n] - S2[1, 1, -2, 1, -1, n] - 
   4*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   (13*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + S2[1, 1, -1, 1, -2, n] - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - S2[1, 1, -1, 2, -1, n] + 
   4*S2[1, 1, 1, -1, -2, n] - 2*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 
   S2[1, 2, -1, 1, -1, n] + S2[1, 2, 1, -1, -1, n] - S2[2, 1, 1, 1, 1, n] + 
   S2[-1, -1, 1, 1, -1, -1, n] - S2[-1, 1, -1, -1, -1, 1, n] + 
   S2[-1, 1, -1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   2*S2[-1, 1, 1, -1, -1, -1, n] + S2[-1, 1, 1, 1, -1, 1, n]/2 - 
   5*S2[-1, 1, 1, 1, 1, 1, Infinity] + S2[1, -1, -1, -1, 1, -1, n]/2 + 
   (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 2*S2[1, -1, 1, -1, -1, -1, n] + 
   5*S2[1, 1, -1, -1, -1, -1, n] - S2[1, 1, 1, -1, 1, -1, n]/2 + 
   2*S2[1, 1, 1, 1, -1, -1, n], S2[-1, -1, 1, -1, -2, n] -> 
  (13*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (163*Diff[Half[S2[1, n], n], n, 2]^2)/192 - 
   (10*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/9 - 
   (647*Diff[Half[S2[1, n], n], n, 5])/1152 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 3])/96 + 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/8 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/8 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   (137*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (1289*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (1009*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (853*Diff[S2[1, n], n, 1]^3)/192 + 
   (51*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/8 - 
   (149*Diff[S2[1, n], n, 2]^2)/24 + (4745*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 - (9587*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 + (397*Diff[S2[1, n], n, 5])/576 - 
   2*Diff[S2[-4, 1, n], n, 1] - (5*Diff[S2[-3, 1, n], n, 2])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (47*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (3*Diff[S2[-2, 1, n], n, 3])/2 + (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/96 + 
   (457*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (155*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (167*Diff[S2[-1, 1, n], n, 4])/96 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[2, 1, n], n, 3])/48 - Diff[S2[4, 1, n], n, 1]/2 + 
   (7*Diff[S2[-3, 1, 1, n], n, 1])/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   Diff[S2[-2, 1, -1, n], n, 2]/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (13*Diff[S2[-1, 1, 1, n], n, 3])/16 - (9*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1] - (7*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   (5*Diff[S2[2, 1, 1, n], n, 2])/4 + 3*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1]/2 - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] - (5*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/
    8 - Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + Diff[S2[-1, 1, -1, 1, 1, n], 
    n, 1] + (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (209*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (233*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (1157*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (1949*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (13*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (73*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + 3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
    Half[S2[1, n], n] - (323*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 + (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (17*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (19*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (113*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (53*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (93*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (53*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 + (271*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    192 - (4*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 - 
   (167*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (49*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (19*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 + 
   (5*Half[S2[2, 1, n], n]^2)/64 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/4 + 
   Half[S2[4, 1, 1, n], n]/16 + (35*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 - (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    96 + (11*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^5)/64 - 
   (7*S2[-1, Infinity]^6)/2880 - (35*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 + 
   (599*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (449*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (139*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (2095*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (3605*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (85*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (187*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (53*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (863*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (17*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (35*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (209*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (35*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] - 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (251*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (253*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (457*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (457*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (65*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (37*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (115*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (41*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 - 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (17*S2[-1, Infinity]^5*S2[1, n])/192 + 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (1319*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (311*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (617*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 + 
   (3113*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (737*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (63*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (67*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (101*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 + 
   (317*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (51*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/8 + 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + 
   (55*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (55*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 + 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    64 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (19*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (7*S2[1, n]^6)/48 - (53*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (155*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (53*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 + (Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 + (61*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/64 + 
   (13*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (535*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (49*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (187*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (157*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (77*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    12 + (125*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (23*Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (29*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/2 + 
   (107*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (17*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (77*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (21*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (133*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (55*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (109*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (163*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (125*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (41*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (65*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (23*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (91*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (61*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (133*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (31*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (111*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (13*S2[1, n]^4*S2[2, Infinity])/32 - 
   (593*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (1339*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (2549*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (149*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/64 + 
   (1049*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (841*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (645*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/64 - 
   (869*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (50411*S2[2, Infinity]^3)/
    13440 + (67*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (935*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (181*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (1553*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (2539*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 + 
   (163*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (17*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (1361*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (5015*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (1135*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 - 
   (3059*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 + 
   (891*S2[1, n]^3*S2[3, Infinity])/256 + 
   (137*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (225*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (4631*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (1387*S2[3, Infinity]^2)/1024 + (2747*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (1073*S2[1, n]*S2[5, Infinity])/256 - (5*S2[-5, -1, Infinity])/2 - 
   2*S2[-5, 1, n] + 3*Half[S2[1, n], n]*S2[-4, 1, n] - 
   (9*S2[1, n]*S2[-4, 1, n])/2 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/96 - (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/3 - 
   (17*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (71*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (311*S2[1, n]^2*S2[-3, 1, n])/96 + (29*S2[2, Infinity]*S2[-3, 1, n])/12 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (23*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (19*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 - 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (77*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (89*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (145*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (33*S2[1, n]^3*S2[-2, 1, n])/16 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    8 - (59*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (9*S2[3, Infinity]*S2[-2, 1, n])/16 + (5*S2[-2, 1, n]^2)/4 - 
   (103*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (9*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (13*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (257*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 + 
   (23*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (83*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/6 + 
   (49*S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 - 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 - (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/6 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 + 
   (23*S2[1, n]^4*S2[-1, 1, n])/48 - (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/6 + Diff[S2[1, n], n, 1]*S2[2, Infinity]*
    S2[-1, 1, n] - (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (71*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (257*S2[2, Infinity]^2*S2[-1, 1, n])/192 - 
   (169*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (49*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (49*S2[-3, 1, n]*S2[-1, 1, n])/48 - 
   (2*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (2*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (11*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (13*S2[1, n]^2*S2[-1, 1, n]^2)/48 - (11*S2[2, Infinity]*S2[-1, 1, n]^2)/
    6 + (89*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 - 
   (25*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (113*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (17*Half[S2[1, n], n]^3*S2[2, 1, n])/96 - 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (201*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (37*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (91*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (185*S2[1, n]^3*S2[2, 1, n])/96 + (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (27*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (23*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (53*S2[3, Infinity]*S2[2, 1, n])/48 + (5*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (11*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (5*S2[2, 1, n]^2)/4 - 
   (11*S2[1, n]*S2[4, 1, n])/2 + 2*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 + 
   4*Half[S2[1, n], n]*S2[-3, 1, 1, n] - 5*S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (13*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   Half[S2[1, n], n]^2*S2[-2, 1, -1, n] - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + S2[1, n]^2*S2[-2, 1, -1, n] - 
   2*S2[2, Infinity]*S2[-2, 1, -1, n] - (5*S2[-2, 2, -2, n])/8 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (7*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/96 + 
   (7*S2[2, Infinity]*S2[-1, -2, -1, n])/24 + 
   (7*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/6 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (61*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (1019*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (5*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (7*S2[-1, 1, -1, n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + (17*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/4 - (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/
    2 + (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (15*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - 2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (97*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + S2[2, 1, n]*S2[-1, 1, 1, n] - (5*S2[-1, 1, 1, n]^2)/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   Half[S2[1, n], n]^2*S2[1, 2, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 + (11*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*
    S2[2, 1, -2, n] - (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (19*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 - 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (115*S2[1, n]^2*S2[2, 1, -1, n])/48 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    6 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (9*S2[1, n]^2*S2[2, 1, 1, n])/4 - (15*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + S2[3, 1, -2, n]/2 - 
   4*S2[1, n]*S2[3, 1, 1, n] - (7*S2[4, 1, 1, n])/2 + 3*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n]/2 + Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   (5*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + S2[-2, 2, 1, 1, n]/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (31*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (5*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (27*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 + (7*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (105*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (33*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (55*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (21*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (49*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   Half[S2[1, n], n]*S2[1, -1, 1, 2, n] + S2[1, n]*S2[1, -1, 1, 2, n] - 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 - Half[S2[1, n], n]*S2[1, 1, 2, -1, n] + 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 - S2[2, -2, 1, 1, n]/2 - 
   (5*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 2*S2[2, 2, 1, 1, n] + 
   (3*S2[-2, 1, 1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    8 - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 + (5*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (45*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (85*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, -2, n]/2 - 
   S2[1, -1, 1, 1, 2, n]/2 + S2[1, 1, -2, -1, 1, n]/2 + 
   S2[1, 1, -2, 1, -1, n] + (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - S2[1, 1, -1, 1, -2, n] + 
   2*S2[1, 1, 1, -2, -1, n] - 2*S2[1, 1, 1, -1, -2, n] + 
   3*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, -1, n] + 
   S2[1, 1, 2, -1, 1, n]/2 + 2*S2[1, 1, 2, 1, -1, n] + 
   S2[1, 2, -1, 1, -1, n] + S2[1, 2, 1, 1, -1, n] + 
   (5*S2[2, 1, 1, 1, 1, n])/2 - S2[-1, -1, -1, 1, -1, -1, n]/8 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/8 - S2[-1, -1, 1, 1, -1, -1, n] - 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/4 + (9*S2[-1, 1, -1, -1, -1, 1, n])/8 + 
   S2[-1, 1, -1, 1, -1, -1, n]/4 + S2[-1, 1, -1, 1, 1, 1, n]/4 + 
   S2[-1, 1, 1, -1, -1, -1, n]/2 - (5*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - (5*S2[1, -1, -1, -1, -1, -1, n])/
    4 - (7*S2[1, -1, -1, -1, 1, -1, n])/8 - (3*S2[1, -1, -1, 1, -1, -1, n])/
    2 - (3*S2[1, -1, 1, -1, -1, -1, n])/4 - 2*S2[1, 1, -1, -1, -1, -1, n] - 
   (9*S2[1, 1, 1, -1, 1, -1, n])/4 - 5*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, -1, 1, -1, 2, n] -> (-7*Diff[Half[S2[1, n], n], n, 1]^3)/32 - 
   (17*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 - 
   (41*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 + 
   (137*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (299*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (25*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (25*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/96 - 
   (185*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (23*Diff[S2[1, n], n, 1]^3)/32 + (73*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (101*Diff[S2[1, n], n, 2]^2)/48 + 
   (353*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (1453*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (41*Diff[S2[1, n], n, 5])/192 - (11*Diff[S2[-4, 1, n], n, 1])/2 - 
   (11*Diff[S2[-3, 1, n], n, 2])/6 - (31*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (2*Diff[S2[-2, 1, n], n, 3])/3 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/6 + 
   (55*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (11*Diff[S2[-1, 1, n], n, 4])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - Diff[S2[-1, -2, -1, n], n, 2]/12 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/24 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   (5*Diff[S2[2, 1, -1, n], n, 2])/12 - (19*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    24 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/
    2 + (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - 
   2*Diff[S2[-1, 1, 1, -1, -1, n], n, 1] + Diff[S2[-1, 1, 1, 1, 1, n], n, 
    1] + (9*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/8 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (3*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/8 + (17*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (241*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (199*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (85*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (19*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (73*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 - (7*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (19*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (155*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/144 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    6 - (71*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/24 + 
   (217*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/288 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (53*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (77*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (5*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (15*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/8 + (19*S2[-1, Infinity]^6)/1440 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/2 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 - 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (187*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (293*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (563*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (253*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (23*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (91*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (7*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (19*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/12 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/18 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (163*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (161*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (211*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (325*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (155*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (53*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (9*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/16 - Half[S2[1, n], n]*
    Half[S2[2, 1, 1, n], n]*S2[1, n] + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (47*S2[-1, Infinity]^5*S2[1, n])/240 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (2*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/9 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (133*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 - 
   (307*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (721*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 + 
   (59*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/24 + 
   (247*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (33*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (485*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (101*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (53*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (101*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/24 - 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   Half[S2[2, 1, 1, n], n]*S2[1, n]^2 - (55*S2[-1, Infinity]^4*S2[1, n]^2)/
    192 + (191*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 - 
   (139*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (16*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 - (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    96 - (77*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^4)/12 + (29*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - (3*S2[1, n]^6)/8 - (5*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/24 + (59*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    144 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    48 + (77*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (17*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (149*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (161*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (8*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 + (131*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (59*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (39*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (45*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (63*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (187*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (7*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (39*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (45*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (223*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (163*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 - (277*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 + (8*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/3 - (47*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (69*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (223*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (159*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 - (101*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/24 + (319*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/48 - (67*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/8 + (483*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 - (41*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 + (28*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 - 
   (301*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (173*S2[1, n]^4*S2[2, Infinity])/48 + 
   (251*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (97*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/60 - 
   (2683*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2 + 
   (351*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (281*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 + 
   (147*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (319*S2[1, n]^2*S2[2, Infinity]^2)/192 - (4589*S2[2, Infinity]^3)/1344 + 
   (149*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (917*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (317*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 + 
   (249*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (2821*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (545*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (45*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (295*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (3745*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (195*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (1399*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (1001*S2[1, n]^3*S2[3, Infinity])/128 + 
   (299*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (187*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (323*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (1585*S2[3, Infinity]^2)/768 - (4093*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (3441*S2[1, n]*S2[5, Infinity])/256 + (33*S2[-5, -1, Infinity])/8 - 
   14*S2[-5, 1, n] - 5*Half[S2[1, n], n]*S2[-4, 1, n] + 
   2*S2[1, n]*S2[-4, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (71*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (83*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (85*S2[1, n]^2*S2[-3, 1, n])/48 - (73*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (13*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 3*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-2, 1, n] + (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/
    24 - (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (57*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (35*S2[1, n]^3*S2[-2, 1, n])/8 - (41*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (119*S2[3, Infinity]*S2[-2, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 + 
   (115*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (15*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] - 
   (137*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/6 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/2 + 
   Half[S2[2, 1, 1, n], n]*S2[-1, 1, n] - 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/16 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (37*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/6 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (25*S2[1, n]^4*S2[-1, 1, n])/24 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (245*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (61*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (167*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (51*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (59*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (2183*S2[2, Infinity]^2*S2[-1, 1, n])/240 + 2*Half[S2[1, n], n]*
    S2[3, Infinity]*S2[-1, 1, n] - 4*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n] + 
   3*S2[-3, 1, n]*S2[-1, 1, n] + 3*Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] - 7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (49*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (13*S2[1, n]^2*S2[-1, 1, n]^2)/4 - S2[2, Infinity]*S2[-1, 1, n]^2 - 
   (5*S2[-1, 1, n]^3)/4 - (9*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (67*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (3*Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (67*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (19*S2[1, n]^3*S2[2, 1, n])/16 - (53*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] + 
   (53*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (31*S2[3, Infinity]*S2[2, 1, n])/16 + Half[S2[1, n], n]*S2[-1, 1, n]*
    S2[2, 1, n] - 4*Half[S2[1, n], n]*S2[4, 1, n] + 4*S2[1, n]*S2[4, 1, n] - 
   3*S2[-4, 1, 1, n] - 2*S2[1, n]*S2[-3, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 5*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - 5*S2[1, n]^2*S2[-2, 1, -1, n] - 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 5*S2[-1, 1, n]*S2[-2, 1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (43*S2[1, n]^2*S2[-1, -2, -1, n])/48 + 
   (41*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   S2[-1, 1, n]*S2[-1, -2, -1, n] + (23*Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, -1, n])/48 - (23*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n] - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/6 + 
   (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (43*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (91*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + S2[-2, 1, n]*S2[-1, 1, -1, n] - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + Diff[Half[S2[1, n], n], n, 2]*
    S2[-1, 1, 1, n] - (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   2*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   Half[S2[2, 1, n], n]*S2[-1, 1, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   9*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   (9*S2[1, n]^3*S2[-1, 1, 1, n])/2 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (5*S2[3, Infinity]*S2[-1, 1, 1, n])/4 + 4*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   3*S2[2, 1, n]*S2[-1, 1, 1, n] - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + 3*S2[1, n]^2*S2[1, 2, -1, n] + 
   2*S2[2, Infinity]*S2[1, 2, -1, n] + 4*S2[-1, 1, n]*S2[1, 2, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (25*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (17*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (19*S2[1, n]^2*S2[2, 1, -1, n])/24 + (65*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + 2*S2[-1, 1, n]*S2[2, 1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - 3*S2[1, n]^2*S2[2, 1, 1, n] - 
   S2[2, Infinity]*S2[2, 1, 1, n] - 4*S2[-1, 1, n]*S2[2, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[3, 1, 1, n] - 2*S2[1, n]*S2[3, 1, 1, n] - 
   S2[-3, 1, 1, 1, n] - S2[1, n]*S2[-2, 1, 1, 1, n] + 
   (43*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (7*S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (13*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 + 
   S2[-1, 1, n]*S2[-1, 1, -1, 1, n] + 4*Half[S2[1, n], n]^2*
    S2[-1, 1, 1, 1, n] - 8*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   4*S2[1, n]^2*S2[-1, 1, 1, 1, n] - S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (45*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (55*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (73*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (39*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] + S2[1, n]*S2[1, -1, 1, -2, n] - 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] + S2[1, n]*S2[1, 1, -2, -1, n] + 
   (3*S2[2, -2, 1, 1, n])/2 + Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - 
   S2[1, n]*S2[2, 1, 1, 1, n] + S2[-2, 1, 1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/
    2 + (13*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (13*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 15*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + (47*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 + S2[1, -2, -1, 1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, 1, -2, n] + 
   S2[1, 1, -2, -1, -1, n] - (19*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/
    4 + (19*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 - S2[1, 1, -1, 1, 2, n] - 
   5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   5*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 2*S2[1, 1, 1, -1, 2, n] - 
   S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, 1, -1, n] - 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/4 - (7*S2[-1, -1, 1, -1, -1, -1, n])/4 - 
   (5*S2[-1, 1, -1, -1, -1, -1, n])/2 + (5*S2[-1, 1, -1, -1, 1, 1, n])/2 - 
   S2[-1, 1, 1, -1, -1, 1, n]/2 - 2*S2[-1, 1, 1, 1, -1, -1, n] - 
   (19*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - (5*S2[1, -1, -1, -1, -1, -1, n])/
    2 + 4*S2[1, -1, -1, 1, 1, -1, n] - (5*S2[1, -1, 1, 1, -1, -1, n])/2 + 
   2*S2[1, 1, -1, -1, 1, -1, n] + S2[1, 1, -1, 1, -1, -1, n]/2 + 
   3*S2[1, 1, 1, -1, -1, -1, n], S2[-1, -1, 1, 1, -2, n] -> 
  (-3*Diff[Half[S2[1, n], n], n, 1]^3)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 - 
   (43*Diff[Half[S2[1, n], n], n, 5])/960 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (39*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (19*Diff[S2[1, n], n, 1]^3)/32 + (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (23*Diff[S2[1, n], n, 2]^2)/48 + 
   (133*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/64 + 
   (43*Diff[S2[1, n], n, 5])/960 + 3*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2] - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   Diff[S2[-2, 1, n], n, 3]/4 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 + 
   (19*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 - (25*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   Diff[S2[-1, 1, n], n, 4]/12 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[-3, 1, 1, n], n, 1] + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/24 - Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, 1, n], n, 
    1] + Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/3 - (61*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (311*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (185*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (329*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (139*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (15*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (51*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (9*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - (31*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (49*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (11*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (25*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/32 + S2[-1, Infinity]^6/720 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    12 + (77*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (129*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (251*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (421*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (57*Diff[S2[1, n], n, 4]*S2[1, n])/64 - 
   (31*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (181*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/2 + 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (9*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (11*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (107*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (317*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (137*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (S2[-1, Infinity]^5*S2[1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (81*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (75*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (73*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 + 
   (21*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (119*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (131*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/12 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + (3*S2[-1, Infinity]^4*S2[1, n]^2)/
    64 + (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (8*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (25*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    96 + (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 + (5*Half[S2[1, n], n]^2*S2[1, n]^4)/
    6 - (19*Half[S2[1, n], n]*S2[1, n]^5)/24 + S2[1, n]^6/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (29*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (49*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    16 + 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (13*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (37*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/2 - 
   (29*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (169*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (39*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (39*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (11*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (75*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity] + 
   (31*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (11*S2[1, n]^4*S2[2, Infinity])/48 - 
   (403*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/8 - 
   (561*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/8 + 
   (91*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (673*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/8 - 
   (681*S2[1, n]^2*S2[2, Infinity]^2)/320 - (2993*S2[2, Infinity]^3)/6720 + 
   (281*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (75*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (229*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (451*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (63*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (463*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (91*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (87*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (41*S2[1, n]^3*S2[3, Infinity])/384 - 
   (263*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (35*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (635*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (11*S2[3, Infinity]^2)/24 + (245*Half[S2[1, n], n]*S2[5, Infinity])/32 - 
   (369*S2[1, n]*S2[5, Infinity])/32 + S2[-5, -1, Infinity]/8 + 
   4*S2[-5, 1, n] + 3*Half[S2[1, n], n]*S2[-4, 1, n] - 
   4*S2[1, n]*S2[-4, 1, n] - (15*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 - (13*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n] - (11*S2[1, n]^2*S2[-3, 1, n])/
    16 + (3*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[-2, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (11*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 + (S2[3, Infinity]*S2[-2, 1, n])/
    3 + (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (2*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 + 
   (95*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (2*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (125*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] - 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 + 
   (17*S2[1, n]^4*S2[-1, 1, n])/24 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (41*S2[2, Infinity]^2*S2[-1, 1, n])/80 + 
   (37*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (69*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/8 + (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/4 + (S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   S2[-1, 1, n]^3/8 - (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (13*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, 1, n] + (21*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/
    16 - (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (27*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (65*S2[1, n]^3*S2[2, 1, n])/48 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (7*S2[3, Infinity]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + Half[S2[1, n], n]*S2[4, 1, n] - 
   S2[1, n]*S2[4, 1, n] - 3*S2[-4, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] - S2[1, n]*S2[-3, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-2, 1, -2, n] - S2[1, n]*S2[-2, 1, -2, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-2, 1, -1, n])/4 - (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/2 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/16 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (17*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   (15*S2[3, Infinity]*S2[-1, 1, -1, n])/16 + S2[-2, 1, n]*S2[-1, 1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (15*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - (S2[2, 1, n]*S2[-1, 1, 1, n])/
    2 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]^2*
    S2[1, 2, -1, n] + (7*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   2*S2[1, n]^2*S2[1, 2, -1, n] - (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*S2[2, 1, -2, n] - 
   S2[1, n]*S2[2, 1, -2, n] - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/8 - (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] - (13*S2[1, n]^2*S2[2, 1, -1, n])/8 - 
   (S2[2, Infinity]*S2[2, 1, -1, n])/4 - (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   2*S2[1, n]^2*S2[2, 1, 1, n] + (3*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 2*S2[-3, 1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    8 - (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + Half[S2[1, n], n]^2*
    S2[-1, 1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] + S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (25*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - Half[S2[1, n], n]*
    S2[1, -1, 1, -2, n] + S2[1, n]*S2[1, -1, 1, -2, n] - 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] + S2[1, n]*S2[1, 1, -2, -1, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] + 
   S2[2, -2, 1, 1, n] + Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - 
   S2[1, n]*S2[2, 1, 1, 1, n] - S2[-2, 1, 1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (15*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (15*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + S2[1, -2, -1, 1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - S2[1, -1, -1, 1, -2, n] - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, 1, -2, -1, -1, n] + 
   S2[1, 1, -1, -2, -1, n] - (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    2 + (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 
   Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] - 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 - S2[1, 1, 1, -1, 2, n] - 
   2*S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, 1, -1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n]/4 + (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + S2[-1, 1, 1, -1, -1, 1, n]/2 + 
   2*S2[-1, 1, 1, 1, -1, -1, n] - S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   (5*S2[1, -1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, 1, 1, -1, n]/2 + 
   (3*S2[1, -1, 1, 1, -1, -1, n])/2 - S2[1, 1, -1, -1, 1, -1, n]/2 + 
   (3*S2[1, 1, 1, -1, -1, -1, n])/2, S2[-1, -1, 1, 1, 2, n] -> 
  (7*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (13*Diff[Half[S2[1, n], n], n, 2]^2)/48 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (581*Diff[Half[S2[1, n], n], n, 5])/1152 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/48 + Diff[Half[S2[4, 1, n], n], n, 1]/
    16 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (65*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (1019*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (919*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (821*Diff[S2[1, n], n, 1]^3)/192 + 
   (155*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 - 
   (165*Diff[S2[1, n], n, 2]^2)/32 + (3659*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 - (8123*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 + (107*Diff[S2[1, n], n, 5])/192 + 
   Diff[S2[-4, 1, n], n, 1]/2 - (3*Diff[S2[-3, 1, n], n, 2])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (71*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (9*Diff[S2[-2, 1, n], n, 3])/8 - (49*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/96 + 
   (385*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (11*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (157*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (11*Diff[S2[-1, 1, n], n, 4])/8 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (5*Diff[S2[2, 1, n], n, 3])/16 + (5*Diff[S2[4, 1, n], n, 1])/2 + 
   3*Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[-2, 1, -2, n], n, 1]/8 + 
   Diff[S2[-2, 1, -1, n], n, 2]/2 - Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/32 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/16 - (7*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (11*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   (5*Diff[S2[2, 1, 1, n], n, 2])/4 + Diff[S2[3, 1, 1, n], n, 1] + 
   (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    16 + (5*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1]/2 - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/8 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 + Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (83*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (123*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 - (751*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (1235*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (127*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (25*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (31*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (149*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (9*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (59*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    32 - (29*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (23*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (11*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/16 + (67*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (43*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (11*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + (11*S2[-1, Infinity]^6)/
    2880 - (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     S2[1, n])/96 + (377*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (323*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (265*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (1469*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (2435*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (199*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (115*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (569*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (21*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (131*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (17*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (27*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (95*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (901*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (71*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 + 
   (S2[-1, Infinity]^5*S2[1, n])/960 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (521*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (83*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 + 
   (55*Diff[S2[1, n], n, 3]*S2[1, n]^2)/18 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (275*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (29*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (95*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 + 
   (85*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (31*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/64 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (13*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - S2[1, n]^6/16 - (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    8 - (163*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (69*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (49*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (245*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (73*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (97*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (83*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (13*Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (51*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (143*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (53*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (49*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (65*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 - (25*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    48 - (19*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/192 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (251*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (11*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (11*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (181*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (15*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/16 - (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (15*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    64 - (47*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (45*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (43*S2[1, n]^4*S2[2, Infinity])/96 - 
   (443*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (251*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/240 + 
   (1309*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (133*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (941*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (717*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (389*S2[1, n]^2*S2[2, Infinity]^2)/384 - (6857*S2[2, Infinity]^3)/13440 - 
   (461*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (75*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 - 
   (253*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (1333*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (3137*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (1393*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (5461*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (1373*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 - 
   (2617*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 + 
   (1867*S2[1, n]^3*S2[3, Infinity])/768 - 
   (575*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (1005*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (785*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (213*S2[3, Infinity]^2)/512 + (1855*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (57*S2[1, n]*S2[5, Infinity])/256 + S2[-5, -1, Infinity]/2 - 
   2*S2[-5, 1, n] + 2*Half[S2[1, n], n]*S2[-4, 1, n] - 
   (7*S2[1, n]*S2[-4, 1, n])/2 + (43*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/96 - (2*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/3 + 
   (13*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (95*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (317*S2[1, n]^2*S2[-3, 1, n])/96 + (S2[2, Infinity]*S2[-3, 1, n])/6 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (4*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (11*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (143*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (11*S2[1, n]^3*S2[-2, 1, n])/16 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (13*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (9*S2[3, Infinity]*S2[-2, 1, n])/32 - 
   (109*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (45*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (215*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 + 
   (23*S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 - 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (103*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/48 - (77*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (35*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (11*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (739*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (53*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/48 + 
   (5*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/3 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (35*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/48 - (25*S2[2, Infinity]*S2[-1, 1, n]^2)/48 + 
   (2*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/3 - 
   (23*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (75*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (13*Half[S2[1, n], n]^3*S2[2, 1, n])/96 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (131*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (39*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (65*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (33*S2[1, n]^3*S2[2, 1, n])/32 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (89*S2[3, Infinity]*S2[2, 1, n])/96 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (17*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (7*S2[1, n]*S2[4, 1, n])/2 + 
   2*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 + 3*Half[S2[1, n], n]*
    S2[-3, 1, 1, n] - 4*S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/4 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (3*S2[-2, 2, -2, n])/8 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    96 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (11*S2[1, n]^2*S2[-1, -2, -1, n])/96 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (61*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (23*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (551*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 + 
   (7*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (61*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[2, 1, n]*S2[-1, 1, 1, n] - 
   S2[-1, 1, 1, n]^2/4 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + S2[2, Infinity]*S2[1, 2, -1, n] + 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*S2[2, 1, -2, n] - 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (47*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 + (8*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/3 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (49*S2[1, n]^2*S2[2, 1, -1, n])/48 + (S2[2, Infinity]*S2[2, 1, -1, n])/3 - 
   (11*S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - S2[2, Infinity]*S2[2, 1, 1, n] - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + S2[3, 1, -2, n]/2 - 
   2*S2[1, n]*S2[3, 1, 1, n] - (3*S2[4, 1, 1, n])/2 + 3*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n]/2 - (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[-2, 2, 1, 1, n]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    48 + (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 + (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (43*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (11*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (39*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   (23*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   Half[S2[1, n], n]*S2[1, -1, 1, 2, n] + S2[1, n]*S2[1, -1, 1, 2, n] - 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 - Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + 
   S2[1, n]*S2[1, 1, -1, 2, n] - Half[S2[1, n], n]*S2[1, 1, 2, -1, n] + 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 - S2[2, -2, 1, 1, n]/2 - 
   (S2[1, n]*S2[2, 1, 1, 1, n])/2 + S2[2, 2, 1, 1, n] + 
   (3*S2[-2, 1, 1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    8 - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, -2, n]/2 - 
   S2[1, -1, 1, 1, 2, n]/2 + S2[1, 1, -2, -1, 1, n]/2 + 
   S2[1, 1, -2, 1, -1, n] + (7*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (7*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + S2[1, 1, -1, 2, -1, n] + 
   S2[1, 1, 1, -2, -1, n] - S2[1, 1, 1, -1, -2, n] + 
   3*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, -1, n] + 
   S2[1, 1, 2, -1, 1, n]/2 + 2*S2[1, 1, 2, 1, -1, n] + 
   S2[1, 2, -1, 1, -1, n] + S2[1, 2, 1, 1, -1, n] + S2[2, 1, 1, 1, 1, n]/2 - 
   S2[-1, -1, -1, 1, -1, -1, n]/8 - (3*S2[-1, -1, 1, -1, -1, -1, n])/8 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/8 - S2[-1, 1, -1, 1, -1, -1, n]/4 + 
   S2[-1, 1, -1, 1, 1, 1, n]/4 - S2[-1, 1, 1, -1, -1, -1, n] - 
   S2[-1, 1, 1, 1, -1, 1, n]/4 - (11*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 - S2[1, -1, -1, -1, 1, -1, n]/8 - 
   S2[1, -1, -1, 1, -1, -1, n]/2 - (3*S2[1, -1, 1, -1, -1, -1, n])/4 - 
   2*S2[1, 1, -1, -1, -1, -1, n] - S2[1, 1, 1, -1, 1, -1, n]/4 - 
   S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, -2, -1, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/4 - (65*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 + (65*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    288 + (659*Diff[Half[S2[1, n], n], n, 5])/960 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   (11*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (3*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 + 
   (3*Diff[Half[S2[2, 1, 1, 1, n], n], n, 1])/8 - 
   (341*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (1553*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 + 
   (263*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 - 
   (1729*Diff[S2[1, n], n, 1]^3)/192 - 
   (177*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 + 
   (1115*Diff[S2[1, n], n, 2]^2)/192 - 
   (1229*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (10763*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (1859*Diff[S2[1, n], n, 5])/2880 - (5*Diff[S2[-4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, n], n, 2]/4 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/12 - 
   (289*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (35*Diff[S2[-2, 1, n], n, 3])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (175*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (11*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (687*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (91*Diff[S2[-1, 1, n], n, 4])/48 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (19*Diff[S2[2, 1, n], n, 3])/48 - (5*Diff[S2[4, 1, n], n, 1])/2 - 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 + (5*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   Diff[S2[-2, 1, -1, n], n, 2]/2 + (7*Diff[S2[-1, 1, -1, n], n, 3])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (73*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/8 + (9*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (9*Diff[S2[2, 1, -1, n], n, 2])/4 + (5*Diff[S2[2, 1, 1, n], n, 2])/4 + 
   2*Diff[S2[3, 1, 1, n], n, 1] - 6*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/4 - (21*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    8 - Diff[S2[1, -1, 1, -2, n], n, 1]/2 + 
   (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 2*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - Diff[S2[1, 2, -1, -1, n], n, 1] + 
   Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1] - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/2 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 - 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/8 + Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (247*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/4 + (151*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (263*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (115*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (41*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 + (193*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    96 - (17*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/16 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] - 
   (37*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (17*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (61*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/192 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/288 + 
   (43*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/48 - (277*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 + (889*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 - (7*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (91*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/192 - (5*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 - (19*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/48 + (19*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (23*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/64 + (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    12 - (85*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/64 - 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   (3*Half[S2[2, 1, n], n]^2)/128 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/8 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 - 
   (3*Half[S2[4, 1, 1, n], n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, 1, n], n])/4 + 
   (3*Half[S2[2, 2, 1, 1, n], n])/16 + (3*Half[S2[2, 1, 1, 1, 1, n], n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/192 + 
   (7*S2[-1, Infinity]^6)/1440 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/6 - 
   (779*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/2 + 
   (943*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/192 + 
   (111*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (113*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 + 
   (1301*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (151*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (8*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (647*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 - 
   (53*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 - Diff[S2[2, 1, n], n, 2]*
    S2[1, n] + (13*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 2*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (35*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] - 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 - 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/24 + 
   (65*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (131*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (317*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (31*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (75*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 - 
   (113*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (181*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/2 - (3*S2[-1, Infinity]^5*S2[1, n])/
    320 + (173*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/192 + 
   (97*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (37*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 - 
   (305*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (567*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/64 - 
   (1471*Diff[S2[1, n], n, 3]*S2[1, n]^2)/384 + 
   (149*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 + 
   (913*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/3 + 
   (65*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (17*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (41*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (17*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/32 - 
   (227*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 - 
   (235*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (25*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (15*Half[S2[2, 1, n], n]*S2[1, n]^3)/64 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (181*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^4)/12 + (11*Half[S2[1, n], n]*S2[1, n]^5)/
    12 - (11*S2[1, n]^6)/48 - (31*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (205*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (17*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/96 - (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/
    16 + (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     S2[2, Infinity])/32 - (27*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (79*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (9*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/2 + 
   (59*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (365*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 + (85*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (93*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 + (143*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/96 + 
   (13*Half[S2[1, n], n]^4*S2[2, Infinity])/24 + 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (69*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (51*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (47*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (177*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (17*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (49*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (229*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (205*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (35*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (161*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/2 - (4*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/3 + (13*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - 3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] + (465*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (31*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (3*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (109*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 + 
   (9*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (261*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (31*S2[1, n]^4*S2[2, Infinity])/48 - 
   (327*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (961*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (2201*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (43*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/16 + 
   (689*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (43*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 + 
   (191*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (347*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (2101*S2[2, Infinity]^3)/4480 + 
   (557*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 - 
   (5*Diff[S2[1, n], n, 2]*S2[3, Infinity])/3 + 
   (507*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (199*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (313*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (749*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (57*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (113*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (3131*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (391*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (43*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (1159*S2[1, n]^3*S2[3, Infinity])/768 - 
   (2909*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (4197*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (1937*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (3493*S2[3, Infinity]^2)/2048 - (1845*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (5701*S2[1, n]*S2[5, Infinity])/512 + (31*S2[-5, -1, Infinity])/4 + 
   3*S2[-5, 1, n] + (3*S2[1, n]*S2[-4, 1, n])/2 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/24 + 
   (175*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/96 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/6 + (21*S2[1, n]^2*S2[-3, 1, n])/
    32 + (4*S2[2, Infinity]*S2[-3, 1, n])/3 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (21*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (103*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 - 
   (29*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (31*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (27*S2[1, n]^3*S2[-2, 1, n])/16 - (47*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (7*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (89*S2[3, Infinity]*S2[-2, 1, n])/64 - (3*S2[-2, 1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 + 
   (97*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (51*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (175*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (1121*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/576 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/24 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 - 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 + (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (155*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (31*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (11*S2[1, n]^4*S2[-1, 1, n])/24 - (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (49*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (29*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (173*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (187*S2[2, Infinity]^2*S2[-1, 1, n])/120 - 
   (17*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (85*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (S2[-3, 1, n]*S2[-1, 1, n])/48 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/6 - (11*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (89*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/12 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/48 - (11*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 - (5*S2[-1, 1, n]^3)/16 - (11*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/16 + (Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/32 - (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    16 + (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (13*S2[1, n]^3*S2[2, 1, n])/32 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (51*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (195*S2[3, Infinity]*S2[2, 1, n])/64 + (S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (15*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (5*S2[2, 1, n]^2)/8 - 
   (S2[1, n]*S2[4, 1, n])/2 - 6*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] + 2*S2[1, n]*S2[-3, 1, 1, n] - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 + (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/
    8 - (7*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (13*S2[1, n]^2*S2[-2, 1, -1, n])/8 - (5*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/4 - (7*S2[-2, 2, -2, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (35*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (11*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/96 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/3 + 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/32 + 
   (5*S2[2, Infinity]*S2[-1, -2, -1, n])/24 + 
   (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/3 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (47*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/96 + (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/32 - (95*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    96 - (19*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (17*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (17*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (5*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (9*S2[-1, 1, -1, n]^2)/32 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (9*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (201*S2[3, Infinity]*S2[-1, 1, 1, n])/64 + 
   (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (9*S2[2, 1, n]*S2[-1, 1, 1, n])/4 - (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 + Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] - 
   (37*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (7*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (27*S2[1, n]^2*S2[1, 2, -1, n])/8 - 
   S2[2, Infinity]*S2[1, 2, -1, n] + (5*S2[-1, 1, n]*S2[1, 2, -1, n])/4 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/12 - (215*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 + 
   (11*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (35*S2[1, n]^2*S2[2, 1, -1, n])/16 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    6 + (17*S2[-1, 1, n]*S2[2, 1, -1, n])/24 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (7*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + (S2[1, n]^2*S2[2, 1, 1, n])/8 - 
   (S2[2, Infinity]*S2[2, 1, 1, n])/2 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/4 - 
   (3*S2[3, 1, -2, n])/2 + Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] + (11*S2[4, 1, 1, n])/2 - 9*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n]/2 + Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 
   (7*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/8 - 
   (5*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 - 
   (5*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] + (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   Half[S2[1, n], n]*S2[1, 2, -1, -1, n] + S2[1, n]*S2[1, 2, -1, -1, n] + 
   (3*S2[2, -2, 1, 1, n])/2 + Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + 
   (S2[1, n]*S2[2, 1, 1, 1, n])/2 - S2[2, 2, 1, 1, n] - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    4 + (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n] + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (7*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (7*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (35*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   S2[1, n]*S2[1, -1, -1, -1, -1, n] - S2[1, -1, -1, 1, 2, n] + 
   (7*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (7*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - S2[1, -1, 1, 1, -2, n]/2 + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - (3*S2[1, 1, -2, -1, 1, n])/2 - 
   2*S2[1, 1, -2, 1, -1, n] + 2*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   2*S2[1, n]*S2[1, 1, -1, -1, -1, n] - S2[1, 1, -1, 1, -2, n] - 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (7*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - 6*S2[1, 1, 1, -2, -1, n] - 
   3*S2[1, 1, 1, -1, -2, n] + (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 - 6*S2[1, 1, 1, 2, -1, n] - 
   3*S2[1, 1, 2, -1, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   6*S2[1, 1, 2, 1, -1, n] + 3*S2[1, 2, -1, -1, -1, n] - 
   S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] - 
   (3*S2[2, 1, 1, 1, 1, n])/2 + (3*S2[-1, -1, 1, -1, -1, -1, n])/4 - 
   (5*S2[-1, -1, 1, 1, -1, -1, n])/4 + (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + 
   S2[-1, 1, -1, -1, -1, 1, n]/4 + (3*S2[-1, 1, -1, -1, 1, 1, n])/4 - 
   S2[-1, 1, -1, 1, -1, -1, n]/2 - (3*S2[-1, 1, 1, -1, -1, -1, n])/4 - 
   (3*S2[-1, 1, 1, 1, -1, -1, n])/2 - (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, -1, -1, 1, -1, n]/2 - S2[1, -1, -1, 1, -1, -1, n]/2 + 
   (3*S2[1, -1, -1, 1, 1, -1, n])/4 - (5*S2[1, -1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, -1, 1, 1, -1, -1, n])/2 - S2[1, 1, -1, -1, -1, -1, n] + 
   (3*S2[1, 1, -1, -1, 1, -1, n])/4 - (3*S2[1, 1, -1, 1, -1, -1, n])/4 - 
   (9*S2[1, 1, 1, -1, -1, -1, n])/4, S2[-1, 1, -2, -1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/96 - (37*Diff[Half[S2[1, n], n], n, 2]^2)/
    48 - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/2 + 
   (1429*Diff[Half[S2[1, n], n], n, 5])/2880 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/6 - 
   (14*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   (29*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/24 + 
   (1243*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (265*Diff[S2[1, n], n, 1]^3)/24 - (23*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (179*Diff[S2[1, n], n, 2]^2)/48 - 
   (559*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (191*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (1219*Diff[S2[1, n], n, 5])/2880 - 3*Diff[S2[-4, 1, n], n, 1] + 
   (5*Diff[S2[-3, 1, n], n, 2])/12 - (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 - 
   (113*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (19*Diff[S2[-2, 1, n], n, 3])/12 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   (10*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/3 - 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (227*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 - 
   (203*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (5*Diff[S2[-1, 1, n], n, 4])/4 + (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (23*Diff[S2[2, 1, n], n, 3])/24 - 4*Diff[S2[4, 1, n], n, 1] - 
   (17*Diff[S2[-3, 1, 1, n], n, 1])/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + Diff[S2[-1, -2, -1, n], n, 2]/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/6 + (5*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (5*Diff[S2[2, 1, -1, n], n, 2])/3 + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 - (9*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 
    1] + Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   4*Diff[S2[1, 1, -2, -1, n], n, 1] + (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - 
   2*Diff[S2[1, 1, 2, -1, n], n, 1] - Diff[S2[1, 2, -1, -1, n], n, 1] + 
   5*Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] + 
   (7*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (7*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (17*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 - (23*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (65*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 + (329*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (29*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 - 
   (65*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (49*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/6 + (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (37*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 + (9*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 - (47*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (149*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/12 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/32 + (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/64 + 
   (35*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - S2[-1, Infinity]^6/720 - 
   (169*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (137*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 + 
   (47*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 + 
   (17*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (289*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 - 
   (1189*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (1229*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (451*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (9*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (8*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (193*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (287*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (31*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (25*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/12 - 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (35*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (29*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/6 - (457*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 + (409*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (59*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (21*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (125*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 - 
   (77*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (53*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/2 + 
   (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (59*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (299*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/96 + 
   (253*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 - 
   (241*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (1607*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (2513*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/12 + 
   (397*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (47*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 + 
   (37*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (295*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (59*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (33*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (9*Half[S2[1, n], n]^4*S2[1, n]^2)/16 + 
   (109*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/4 - 
   (293*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (16*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 - 
   (163*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (8*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (17*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (13*Half[S2[2, 1, n], n]*S2[1, n]^3)/32 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (91*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^4)/12 + (5*Half[S2[1, n], n]*S2[1, n]^5)/
    12 + S2[1, n]^6/16 - (385*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/96 + (35*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    12 - (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    24 + (461*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 - 
   (121*Diff[S2[1, n], n, 3]*S2[2, Infinity])/64 + 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (157*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/24 - 
   (27*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (29*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (37*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (341*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 - 
   (15*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (17*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (33*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (57*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (115*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (11*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (163*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (275*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (175*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (167*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/3 - (95*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/6 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] + (457*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (59*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/2 + 
   (53*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (57*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (119*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (17*S2[1, n]^4*S2[2, Infinity])/24 - 
   (1349*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (1849*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 - 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 + 
   (779*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (847*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (87*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/32 - 
   (2113*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (731*S2[1, n]^2*S2[2, Infinity]^2)/160 + (629*S2[2, Infinity]^3)/40 + 
   (99*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 + 
   (143*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (323*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 - 
   (497*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (757*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (161*Half[S2[1, n], n]^3*S2[3, Infinity])/384 + 
   (47*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/48 - 
   (183*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (521*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 - 
   (529*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (177*S2[1, n]^3*S2[3, Infinity])/128 - 
   (233*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (1759*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (9671*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (1537*S2[3, Infinity]^2)/512 + (485*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (3673*S2[1, n]*S2[5, Infinity])/64 + (39*S2[-5, -1, Infinity])/8 + 
   3*S2[-5, 1, n] - Half[S2[1, n], n]*S2[-4, 1, n] + 
   (23*S2[1, n]*S2[-4, 1, n])/2 - (21*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/16 - (29*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (127*S2[1, n]^2*S2[-3, 1, n])/48 + 10*S2[2, Infinity]*S2[-3, 1, n] + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (43*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   4*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (163*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (71*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 - 
   (145*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (59*S2[1, n]^3*S2[-2, 1, n])/24 + (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (31*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (85*S2[3, Infinity]*S2[-2, 1, n])/48 + S2[-2, 1, n]^2/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 + 
   (193*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/6 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (37*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (61*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 + (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (2*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/3 + 
   (7*S2[1, n]^4*S2[-1, 1, n])/12 - (63*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (35*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (55*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (43*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (883*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (7*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/2 - 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/8 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 - 2*Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] + 3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 - (35*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   S2[-1, 1, n]^3/3 + (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 - 
   (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/6 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (39*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (5*S2[1, n]^3*S2[2, 1, n])/48 + (29*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (23*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (107*S2[3, Infinity]*S2[2, 1, n])/16 + 3*S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/2 - 
   2*Half[S2[1, n], n]*S2[4, 1, n] + S2[1, n]*S2[4, 1, n] - 
   12*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + (15*S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 + S2[1, n]*S2[-2, 1, -2, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (7*S2[1, n]^2*S2[-2, 1, -1, n])/4 - (17*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + S2[-1, 1, n]*S2[-2, 1, -1, n] - (5*S2[-2, 2, -2, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 + (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    4 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/12 + 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 - 
   (179*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n] + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 3*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + (7*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/4 + (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/
    4 + (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (9*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (17*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (3*S2[-1, 1, 1, n]^2)/2 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    4 - (29*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/2 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   S2[-1, 1, n]*S2[1, 2, -1, n] - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/8 - 5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (53*S2[1, n]^2*S2[2, 1, -1, n])/24 + (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    4 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/
    4 + (15*S2[1, n]^2*S2[2, 1, 1, n])/4 - 
   (27*S2[2, Infinity]*S2[2, 1, 1, n])/4 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/
    2 - (5*S2[3, 1, -2, n])/2 - 2*Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   5*S2[4, 1, 1, n] - 13*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n] + 
   3*S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (2*S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (9*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (7*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   2*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] + 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (27*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (87*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (35*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   6*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (251*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (37*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] - S2[1, n]*S2[1, -1, 1, -2, n] + 
   S2[1, n]*S2[1, -1, 1, 2, n] + 3*S2[1, n]*S2[1, 1, -2, -1, n] + 
   (S2[1, n]*S2[1, 1, -1, 2, n])/2 + (5*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   2*S2[1, n]*S2[1, 2, -1, -1, n] + 3*S2[2, -2, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   (7*S2[-2, 1, 1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    2 + S2[1, n]*S2[-1, -1, 1, -1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] - S2[1, n]*S2[-1, 1, -1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] + S2[1, n]*S2[-1, 1, 1, 1, -1, n] + 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (59*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   2*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (9*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 2*S2[1, -1, -1, 1, 2, n] - 
   S2[1, -1, 1, -2, -1, n] + (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 - (9*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 3*S2[1, -1, 1, 1, -2, n] - 
   S2[1, -1, 1, 1, 2, n]/2 - 2*S2[1, -1, 1, 2, -1, n] - 
   3*S2[1, 1, -2, -1, 1, n] - 4*S2[1, 1, -2, 1, -1, n] - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] + 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 4*S2[1, 1, -1, 1, -2, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 2*S2[1, 1, -1, 1, 2, n] - 
   2*S2[1, 1, -1, 2, -1, n] - 14*S2[1, 1, 1, -2, -1, n] - 
   8*S2[1, 1, 1, -1, -2, n] + Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] - 
   3*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 2*S2[1, 1, 1, -1, 2, n] - 
   16*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   (7*S2[1, 1, 2, -1, 1, n])/2 - 8*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] + 
   3*S2[2, 1, 1, 1, 1, n] + S2[-1, -1, -1, 1, -1, -1, n]/2 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/2 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   3*S2[-1, 1, -1, -1, -1, -1, n] + (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - S2[-1, 1, 1, -1, -1, -1, n]/2 + 
   2*S2[-1, 1, 1, -1, -1, 1, n] + S2[-1, 1, 1, 1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   5*S2[1, -1, -1, -1, -1, -1, n] - (3*S2[1, -1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/2 - S2[1, -1, 1, -1, -1, -1, n] + 
   S2[1, -1, 1, 1, -1, -1, n] - 3*S2[1, 1, -1, -1, -1, -1, n] - 
   S2[1, 1, -1, 1, -1, -1, n] - 3*S2[1, 1, 1, -1, -1, -1, n] - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, -2, 1, -1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/6 + 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/3 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 - 
   (209*Diff[Half[S2[1, n], n], n, 5])/720 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (49*Diff[Half[S2[2, 1, n], n], n, 3])/96 - Diff[Half[S2[4, 1, n], n], n, 
    1] - (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/8 - 
   (3*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/4 + 
   (137*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 + 
   (103*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1] - 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (1069*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 + 
   (397*Diff[S2[1, n], n, 1]^3)/24 - (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (11*Diff[S2[1, n], n, 2]^2)/8 + 
   (305*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/144 - 
   (107*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 + 
   (89*Diff[S2[1, n], n, 5])/720 - (19*Diff[S2[-3, 1, n], n, 2])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (123*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (35*Diff[S2[-2, 1, n], n, 3])/24 - 
   (95*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (21*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/4 - 
   (51*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (601*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (23*Diff[S2[-1, 1, n], n, 4])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (43*Diff[S2[2, 1, n], n, 3])/24 + 8*Diff[S2[4, 1, n], n, 1] + 
   10*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/2 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/2 - Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   Diff[S2[-1, 1, -1, n], n, 3]/16 - 14*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + 
   (91*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/6 + Diff[S2[1, 2, -1, n], n, 2]/4 - 
   (3*Diff[S2[2, 1, -2, n], n, 1])/2 - (7*Diff[S2[2, 1, -1, n], n, 2])/8 - 
   (11*Diff[S2[2, 1, 1, n], n, 2])/2 - 5*Diff[S2[3, 1, 1, n], n, 1] + 
   (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/2 - Diff[S2[-1, 1, -1, 1, n], n, 2] - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + 2*Diff[S2[1, -1, 1, -2, n], n, 1] - 
   Diff[S2[1, -1, 1, 2, n], n, 1] + 8*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   3*Diff[S2[1, 1, -1, 2, n], n, 1] + 6*Diff[S2[1, 1, 2, -1, n], n, 1] + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - 9*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/4 + 
   (7*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 - 
   2*Diff[S2[-1, 1, -1, -1, 1, n], n, 1] - 
   (11*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 - 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/2 - 
   (11*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + Diff[S2[-1, 1, 1, 1, 1, n], n, 
    1] + (13*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   2*Diff[S2[1, -1, -1, 1, -1, n], n, 1] + 
   (7*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/2 + 
   6*Diff[S2[1, 1, -1, -1, -1, n], n, 1] + 
   (5*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 + 
   3*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (85*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/4 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 + (37*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (173*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (167*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 + 
   (271*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (163*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (43*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (85*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (19*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (49*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (33*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (37*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (19*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (47*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/288 - 
   (83*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    3 + (211*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/96 - 
   (505*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/576 + 
   (79*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (39*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (43*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (89*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (89*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (77*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n] - 
   (145*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (79*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   Half[S2[2, 1, n], n]^2/16 + (3*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/
    16 + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/8 + 
   Half[S2[4, 1, 1, n], n]/4 + Half[S2[2, 2, 1, 1, n], n]/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (71*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (11*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/192 + 
   (43*S2[-1, Infinity]^6)/1440 + (631*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 + 
   (35*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (13*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/2 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 - 
   (1039*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (403*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (1271*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (635*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (607*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 + 
   (293*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (505*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (87*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (91*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (49*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (45*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (37*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (17*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (29*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (145*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (47*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (161*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (439*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (299*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (37*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (133*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (23*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (55*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (41*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (187*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (179*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (33*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (79*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (5*Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (91*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (27*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (5*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 - 
   (51*S2[-1, Infinity]^5*S2[1, n])/320 - 
   (147*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (211*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (415*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 - 
   (2555*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 + 
   (2135*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/24 - 
   (367*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (65*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   (87*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (379*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (79*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   4*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (129*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (23*Half[S2[1, n], n]^4*S2[1, n]^2)/24 - 
   (47*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (19*S2[-1, Infinity]^4*S2[1, n]^2)/96 + 
   (151*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (23*Half[S2[1, n], n]^3*S2[1, n]^3)/8 + 
   (21*Half[S2[2, 1, n], n]*S2[1, n]^3)/32 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^4)/3 - (97*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (3*S2[1, n]^6)/8 + (31*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/4 - (1295*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/288 + (13*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/96 - (5*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 + (59*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/96 - 
   (985*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 + 
   (551*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (275*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (283*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (45*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (53*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   11*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (641*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    12 - (67*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (19*Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (77*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (17*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (127*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (177*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (205*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (175*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (413*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (13*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (77*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (283*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (463*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (73*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (403*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (23*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 + (215*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (1015*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (93*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (13*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/4 + (21*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/8 + (571*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/96 + (211*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/48 + (37*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/16 - (147*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 - (37*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    8 - (209*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (241*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (145*S2[1, n]^4*S2[2, Infinity])/96 + 
   (217*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 + 
   (15881*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (151*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/480 - 
   (125*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/16 - 
   (1783*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (479*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 + 
   (2309*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (253*S2[1, n]^2*S2[2, Infinity]^2)/120 - (247867*S2[2, Infinity]^3)/6720 - 
   (373*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 - 
   (379*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (59*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/48 + 
   (4439*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (1915*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (119*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (69*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (947*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (787*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (441*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (293*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (493*S2[1, n]^3*S2[3, Infinity])/384 - 
   (389*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (2369*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (7679*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (57*S2[3, Infinity]^2)/16 + (469*Half[S2[1, n], n]*S2[5, Infinity])/128 - 
   (10483*S2[1, n]*S2[5, Infinity])/128 + (25*S2[-5, -1, Infinity])/8 - 
   13*S2[-5, 1, n] - (Half[S2[1, n], n]*S2[-4, 1, n])/2 - 
   (21*S2[1, n]*S2[-4, 1, n])/2 + (29*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/24 + (137*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 + 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/6 + 
   (53*S2[1, n]^2*S2[-3, 1, n])/24 - (835*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (151*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 - 4*Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] + (157*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/24 + (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/24 + (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (361*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (29*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (55*S2[1, n]^3*S2[-2, 1, n])/24 - (65*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] + 
   (185*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (191*S2[3, Infinity]*S2[-2, 1, n])/48 - S2[-2, 1, n]^2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/2 + 
   (499*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/48 - 
   (273*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (25*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 3*Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] - (21*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (5*Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/8 + 
   (197*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (77*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 - (155*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (31*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (223*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (61*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (11*S2[1, n]^4*S2[-1, 1, n])/48 + (383*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (69*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (33*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (71*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (63*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (55*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (437*S2[2, Infinity]^2*S2[-1, 1, n])/60 + 
   (331*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (15*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/4 + (13*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (9*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 + (39*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   S2[-1, 1, n]^3/4 - (169*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 + 
   (271*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 - 3*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/16 + (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/8 + (Half[S2[1, n], n]^3*S2[2, 1, n])/6 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/2 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (79*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   4*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n] - (17*S2[1, n]^3*S2[2, 1, n])/
    12 - (67*Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (69*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (147*S2[3, Infinity]*S2[2, 1, n])/16 - 6*S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 5*S2[2, 1, n]^2 + 
   2*S2[1, n]*S2[4, 1, n] + 15*S2[-4, 1, 1, n] + 2*S2[-3, -2, 1, n] + 
   (Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 - (17*S2[1, n]*S2[-3, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 - (3*S2[1, n]*S2[-2, 1, -2, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n] - 
   (13*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + 8*S2[2, Infinity]*S2[-2, 1, -1, n] - 
   S2[-1, 1, n]*S2[-2, 1, -1, n] + (5*S2[-2, 2, -2, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/3 - 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/24 - 
   (109*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (101*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (19*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/3 + 
   5*S2[3, Infinity]*S2[-1, 1, -1, n] + (S2[-2, 1, n]*S2[-1, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/2 - (3*S2[-1, 1, -1, n]^2)/4 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 5*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + 3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, 1, n] + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/2 + (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 - (15*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (39*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (21*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (59*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 2*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] + 3*S2[-1, 1, 1, n]^2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] + 
   (25*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (15*S2[1, n]^2*S2[1, 2, -1, n])/4 - 
   10*S2[2, Infinity]*S2[1, 2, -1, n] - 2*S2[-1, 1, n]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]*S2[2, 1, -2, n])/2 + (S2[1, n]*S2[2, 1, -2, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/12 + 
   (55*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 - 
   (43*S2[1, n]^2*S2[2, 1, -1, n])/12 - (145*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] - (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/4 + 15*S2[2, Infinity]*S2[2, 1, 1, n] - 
   S2[-1, 1, n]*S2[2, 1, 1, n] + 4*S2[3, 1, -2, n] + 
   2*Half[S2[1, n], n]*S2[3, 1, 1, n] - 2*S2[1, n]*S2[3, 1, 1, n] - 
   10*S2[4, 1, 1, n] + 21*S2[-3, 1, 1, 1, n] - 2*S2[-2, -2, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 + S2[-2, 2, 1, 1, n] + (2*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/3 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    2 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (47*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/24 + 
   (31*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 + 
   2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n] + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + 
   (5*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   S2[-1, 1, n]*S2[-1, 1, -1, 1, n] - 11*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, n] + 11*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] + 
   2*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] - 4*S2[1, n]^2*S2[-1, 1, 1, 1, n] - 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   6*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (69*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (71*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (11*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (19*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (471*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   15*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] + S2[1, n]*S2[1, -1, 1, -2, n] - 
   2*Half[S2[1, n], n]*S2[1, 1, -2, -1, n] - 4*S2[1, n]*S2[1, 1, -2, -1, n] + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, -1, 2, n])/
    2 - 8*S2[1, n]*S2[1, 1, 2, -1, n] - (11*S2[2, -2, 1, 1, n])/2 + 
   2*Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + 4*S2[1, n]*S2[2, 1, 1, 1, n] + 
   S2[-2, 1, 1, 1, 1, n] + Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n] - 
   S2[1, n]*S2[-1, -1, 1, -1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (11*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] + (7*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (13*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (35*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (153*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   4*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   4*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 
   (11*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (11*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 4*S2[1, -1, -1, 1, 2, n] + 
   2*S2[1, -1, 1, -2, -1, n] - (23*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    8 + (23*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + 6*S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 1, 2, n] + 4*S2[1, -1, 1, 2, -1, n] + 
   4*S2[1, 1, -2, -1, -1, n] + 6*S2[1, 1, -2, -1, 1, n] + 
   8*S2[1, 1, -2, 1, -1, n] + 4*S2[1, 1, -1, -2, -1, n] + 
   2*S2[1, 1, -1, -1, -2, n] - (27*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    4 + (27*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 8*S2[1, 1, -1, 1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 + 3*S2[1, 1, -1, 1, 2, n] + 
   4*S2[1, 1, -1, 2, -1, n] + 28*S2[1, 1, 1, -2, -1, n] + 
   16*S2[1, 1, 1, -1, -2, n] + Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] - 
   S2[1, n]*S2[1, 1, 1, -1, -1, n] + 5*S2[1, 1, 1, -1, 2, n] + 
   30*S2[1, 1, 1, 2, -1, n] + 8*S2[1, 1, 2, -1, -1, n] + 
   8*S2[1, 1, 2, -1, 1, n] + 13*S2[1, 1, 2, 1, -1, n] + 
   4*S2[1, 2, 1, -1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   6*S2[2, 1, 1, 1, 1, n] - (5*S2[-1, -1, -1, 1, -1, -1, n])/4 - 
   (13*S2[-1, -1, 1, -1, -1, -1, n])/4 + S2[-1, -1, 1, 1, -1, -1, n] - 
   (11*S2[-1, 1, -1, -1, -1, -1, n])/2 - (5*S2[-1, 1, -1, -1, -1, 1, n])/2 - 
   (3*S2[-1, 1, -1, -1, 1, 1, n])/2 - 3*S2[-1, 1, -1, 1, 1, 1, n] + 
   S2[-1, 1, 1, -1, -1, -1, n] - (5*S2[-1, 1, 1, -1, -1, 1, n])/2 + 
   3*S2[-1, 1, 1, 1, -1, 1, n] - (43*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   (15*S2[1, -1, -1, -1, -1, -1, n])/2 + (3*S2[1, -1, -1, -1, 1, -1, n])/2 + 
   3*S2[1, -1, -1, 1, -1, -1, n] - S2[1, -1, -1, 1, 1, -1, n] + 
   2*S2[1, -1, 1, -1, -1, -1, n] - S2[1, -1, 1, 1, -1, -1, n]/2 + 
   6*S2[1, 1, -1, -1, -1, -1, n] - 2*S2[1, 1, -1, -1, 1, -1, n] - 
   S2[1, 1, -1, 1, -1, -1, n]/2 + 3*S2[1, 1, 1, -1, 1, -1, n] + 
   12*S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, -2, 1, 1, n] -> 
  (13*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (97*Diff[Half[S2[1, n], n], n, 2]^2)/192 - 
   (167*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (887*Diff[Half[S2[1, n], n], n, 5])/1152 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/4 + (3*Diff[Half[S2[4, 1, n], n], n, 1])/
    8 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   (259*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (439*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (1685*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (461*Diff[S2[1, n], n, 1]^3)/64 + (59*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (169*Diff[S2[1, n], n, 2]^2)/24 + 
   (6241*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (12109*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (2327*Diff[S2[1, n], n, 5])/2880 - 2*Diff[S2[-4, 1, n], n, 1] - 
   (29*Diff[S2[-3, 1, n], n, 2])/16 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (127*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (47*Diff[S2[-2, 1, n], n, 3])/24 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   (535*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (81*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (71*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (9*Diff[S2[-1, 1, n], n, 4])/4 + (13*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   (19*Diff[S2[2, 1, n], n, 3])/48 - Diff[S2[4, 1, n], n, 1] + 
   (7*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-2, 1, -2, n], n, 1]/8 + 
   (5*Diff[S2[-2, 1, -1, n], n, 2])/4 - (3*Diff[S2[-1, -2, -1, n], n, 2])/
    16 + (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (17*Diff[S2[-1, 1, -1, n], n, 3])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (19*Diff[S2[-1, 1, 1, n], n, 3])/16 - 3*Diff[S2[1, 2, -1, n], n, 2] + 
   Diff[S2[2, 1, -2, n], n, 1] - (17*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   (7*Diff[S2[2, 1, 1, n], n, 2])/4 + Diff[S2[3, 1, 1, n], n, 1] + 
   3*Diff[S2[-2, 1, 1, 1, n], n, 1] + (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    16 + (7*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1]/2 - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    8 + Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 + 
   (5*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (155*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (487*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (349*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (865*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (41*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/2 + (233*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 + (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (13*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (25*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (35*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (43*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 - (55*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    96 - (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/6 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 + 
   (3*Half[S2[2, 1, n], n]^2)/64 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/16 + (15*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    16 + (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + S2[-1, Infinity]^6/960 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    3 + (1157*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (27*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (463*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (485*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (731*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (3715*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (47*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (203*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (53*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (893*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 - 
   (23*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (43*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (25*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (39*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (163*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (31*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (17*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (29*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 - 
   (391*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (101*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 - (1111*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 - 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (269*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (19*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (33*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 + 
   (197*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 - 
   (113*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (19*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (13*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (25*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (11*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (39*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (655*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (41*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (349*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 + 
   (2575*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (23*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (349*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (109*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (149*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (431*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (55*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/3 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (95*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/12 - 
   (37*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + 
   (27*S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (185*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (47*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (31*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/16 + 
   (55*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (191*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (283*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]^4)/24 - (29*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + S2[1, n]^6/2 - (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    8 - (383*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (103*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (269*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (39*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (61*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/6 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (11*Half[S2[1, n], n]^4*S2[2, Infinity])/96 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (77*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (47*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (57*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (125*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (159*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/
    64 + (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (179*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (85*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (211*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (299*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (275*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (35*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (247*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (7*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/32 - (49*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 - (521*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (415*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (41*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (85*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (33*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    64 + (151*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (17*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (11*S2[1, n]^4*S2[2, Infinity])/48 - 
   (497*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (1483*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (189*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (259*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (91*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (439*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (4423*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (1243*S2[2, Infinity]^3)/2688 - 
   (95*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 + 
   (291*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 - 
   (105*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (201*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 + (207*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 + 
   (133*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (1579*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 + 
   (107*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 + 
   (89*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (245*S2[1, n]^3*S2[3, Infinity])/256 + 
   (713*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (345*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (1153*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (4079*S2[3, Infinity]^2)/3072 - (765*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (877*S2[1, n]*S2[5, Infinity])/128 - (21*S2[-5, -1, Infinity])/4 - 
   2*S2[-5, 1, n] - 2*S2[1, n]*S2[-4, 1, n] - 
   (115*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (29*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 + 
   (7*S2[1, n]^2*S2[-3, 1, n])/96 + (S2[2, Infinity]*S2[-3, 1, n])/3 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (41*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (71*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/48 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (127*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (31*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/48 + (67*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (61*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (3*S2[3, Infinity]*S2[-2, 1, n])/8 + (3*S2[-2, 1, n]^2)/4 - 
   (131*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (71*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (325*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 - 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/24 - 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (103*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (163*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (263*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (29*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (4*S2[1, n]^4*S2[-1, 1, n])/3 + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (1969*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (53*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/6 + (35*S2[-3, 1, n]*S2[-1, 1, n])/
    48 + (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/6 - 
   (11*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/48 + (25*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (17*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 - 
   (97*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (51*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/96 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (197*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (41*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (221*S2[1, n]^3*S2[2, 1, n])/96 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (21*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (7*S2[3, Infinity]*S2[2, 1, n])/6 + (3*S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (3*S2[2, 1, n]^2)/4 + 
   (S2[1, n]*S2[4, 1, n])/2 + 2*S2[-4, 1, 1, n] + (3*S2[-3, -2, 1, n])/2 - 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] - (3*S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/2 - (S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   S2[-2, 2, -2, n]/8 - (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    96 + (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (23*S2[1, n]^2*S2[-1, -2, -1, n])/96 + 
   (5*S2[2, Infinity]*S2[-1, -2, -1, n])/24 + 
   (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (109*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   2*S2[1, n]^3*S2[-1, 1, 1, n] - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (7*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, 1, n]^2/4 - (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    8 + (31*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   (11*S2[1, n]^2*S2[1, 2, -1, n])/4 + (S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - S2[1, n]*S2[2, 1, -2, n] - 
   (121*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (107*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 - 
   (107*S2[1, n]^2*S2[2, 1, -1, n])/48 + (S2[2, Infinity]*S2[2, 1, -1, n])/
    6 - (7*S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 + 
   (9*S2[1, n]^2*S2[2, 1, 1, n])/4 - (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + S2[3, 1, -2, n]/2 + S2[4, 1, 1, n]/2 + 
   3*S2[-3, 1, 1, 1, n] + (5*S2[-2, -2, 1, 1, n])/2 - 
   3*Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n]/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (5*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   S2[1, n]^2*S2[-1, 1, -1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, n])/8 - (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (81*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   S2[1, n]*S2[1, -1, 1, -2, n] + (S2[1, n]*S2[1, 1, -2, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, 2, n])/2 - (S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   S2[2, -2, 1, 1, n]/2 - (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   S2[2, 2, 1, 1, n]/2 + (3*S2[-2, 1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (11*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   S2[1, n]*S2[1, -1, 1, -1, -1, n] - S2[1, -1, 1, 1, -2, n]/2 - 
   S2[1, -1, 1, 1, 2, n]/2 + (3*S2[1, 1, -2, -1, 1, n])/2 + 
   2*S2[1, 1, -2, 1, -1, n] - (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - S2[1, 1, -1, 1, -2, n] - 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] + 3*S2[1, 1, 1, -2, -1, n] - 
   S2[1, 1, 1, -1, -2, n] - 4*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 
   3*S2[1, 1, 1, 2, -1, n] + S2[1, 1, 2, -1, 1, n]/2 + 
   2*S2[1, 1, 2, 1, -1, n] + S2[1, 2, 1, 1, -1, n] - S2[2, 1, 1, 1, 1, n]/2 - 
   S2[-1, -1, -1, 1, -1, -1, n]/8 - (3*S2[-1, -1, 1, -1, -1, -1, n])/8 + 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - (3*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/8 + S2[-1, 1, -1, 1, -1, -1, n]/4 - 
   S2[-1, 1, -1, 1, 1, 1, n]/4 + S2[-1, 1, 1, -1, -1, -1, n] + 
   S2[-1, 1, 1, 1, -1, 1, n]/4 - (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 - (5*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   S2[1, -1, -1, 1, -1, -1, n] - (3*S2[1, -1, 1, -1, -1, -1, n])/4 - 
   S2[1, 1, -1, -1, -1, -1, n] + S2[1, 1, 1, -1, 1, -1, n]/4 + 
   S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, 2, -1, -1, n] -> 
  (-25*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/36 - 
   (2771*Diff[Half[S2[1, n], n], n, 5])/5760 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/192 + 
   (29*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 + 
   (151*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/36 - 
   (83*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 - 
   (37*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/192 - 
   (1975*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (187*Diff[S2[1, n], n, 1]^3)/24 + (233*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (383*Diff[S2[1, n], n, 2]^2)/96 + 
   (3715*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (2039*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (2621*Diff[S2[1, n], n, 5])/5760 + 4*Diff[S2[-4, 1, n], n, 1] + 
   (55*Diff[S2[-3, 1, n], n, 2])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 + 
   (251*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (37*Diff[S2[-2, 1, n], n, 3])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (27*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (413*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/192 + 
   (581*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (251*Diff[S2[-1, 1, n], n, 4])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (13*Diff[S2[2, 1, n], n, 3])/24 + 2*Diff[S2[4, 1, n], n, 1] + 
   (13*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/48 - 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/96 - 
   Diff[S2[-1, 1, -1, n], n, 3]/32 - (63*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (19*Diff[S2[-1, 1, 1, n], n, 3])/24 - (13*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (73*Diff[S2[2, 1, -1, n], n, 2])/48 - 
   (17*Diff[S2[2, 1, 1, n], n, 2])/8 - 2*Diff[S2[3, 1, 1, n], n, 1] + 
   (7*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (25*Diff[S2[-1, 1, -1, -1, n], n, 2])/48 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    4 + (19*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 + 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] - (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - 3*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (13*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (7*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 + 
   (5*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (15*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (73*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (7*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (21*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (485*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (643*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (167*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/32 + (17*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 - (9*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (15*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (29*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 - 
   (43*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 + 
   (191*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (139*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 - (361*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 + (13*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (19*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (17*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (5*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 + (Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/6 - (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    96 + (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/32 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   Half[S2[2, 1, n], n]^2/64 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/2 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   Half[S2[4, 1, 1, n], n]/16 + Half[S2[2, 2, 1, 1, n], n]/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/128 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/192 - S2[-1, Infinity]^6/240 + 
   (181*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    96 + (533*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 - 
   (11*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   (311*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (1589*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (2083*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (575*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (35*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (201*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/32 + 
   (173*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 + 
   (57*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (13*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (67*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (27*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (37*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 + (259*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (535*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   2*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   (17*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   4*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (21*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (37*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (85*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 - 
   (565*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 + 
   (653*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (1751*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 + 
   (3917*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 - 
   (39*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (65*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 - 
   (33*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (59*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (21*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (3*Half[S2[1, n], n]^4*S2[1, n]^2)/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/4 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (23*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (151*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (59*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 + 
   (227*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (113*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/8 - (3*Half[S2[1, n], n]*S2[1, n]^5)/
    8 + (7*S2[1, n]^6)/96 + (161*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/96 - (803*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (65*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 - (3*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 - (167*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/192 - 
   (157*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 + 
   (533*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 - 
   (55*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (169*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/48 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity] - 
   (93*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (95*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (127*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 - (205*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (29*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (51*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (83*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (161*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (247*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (223*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (241*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (29*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (25*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (83*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (111*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 - (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 + (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/8 + (11*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 + (403*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (229*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (7*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (45*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 - S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity] - 
   (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (101*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (43*S2[1, n]^4*S2[2, Infinity])/96 + 
   (311*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/128 - 
   (35*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/96 + 
   (323*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (69*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 - 
   (51*S2[-1, Infinity]^2*S2[2, Infinity]^2)/20 - 
   (1499*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (123*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (3737*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (4657*S2[2, Infinity]^3)/896 - 
   (185*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 + 
   (601*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (1235*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/384 + 
   (1181*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (Half[S2[1, n], n]^3*S2[3, Infinity])/12 - 
   (15*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (667*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/12 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 + 
   (85*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (181*S2[1, n]^3*S2[3, Infinity])/384 + 
   (177*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (547*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (2465*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (1927*S2[3, Infinity]^2)/1024 + (1547*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (15059*S2[1, n]*S2[5, Infinity])/512 - (91*S2[-5, -1, Infinity])/
    16 - 2*S2[-5, 1, n] - (9*S2[1, n]*S2[-4, 1, n])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 - 
   (97*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 - 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/48 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/3 + 
   (5*S2[1, n]^2*S2[-3, 1, n])/48 - (19*S2[2, Infinity]*S2[-3, 1, n])/6 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (91*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/8 - (29*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (89*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (35*S2[3, Infinity]*S2[-2, 1, n])/96 - S2[-2, 1, n]^2/4 - 
   (71*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/96 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (151*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (85*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (239*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 - 
   Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n] - 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 - 
   (23*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (119*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (3*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (263*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (S2[1, n]^4*S2[-1, 1, n])/16 + (77*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (67*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (21*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (83*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (725*S2[2, Infinity]^2*S2[-1, 1, n])/192 + 
   (185*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (147*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (5*S2[-3, 1, n]*S2[-1, 1, n])/8 + (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 - (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 - (S2[1, n]^2*S2[-1, 1, n]^2)/32 + 
   (9*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - (7*S2[-1, 1, n]^3)/48 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/96 + 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (S2[1, n]^3*S2[2, 1, n])/48 - (29*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (141*S2[3, Infinity]*S2[2, 1, n])/32 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - (5*S2[2, 1, n]^2)/4 + 
   (S2[1, n]*S2[4, 1, n])/2 + 4*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 - 
   4*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   2*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/8 + (5*S2[2, Infinity]*S2[-2, 1, -1, n])/
    2 + (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 + (5*S2[-2, 2, -2, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (41*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 - 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/48 - 
   (13*S2[2, Infinity]*S2[-1, -2, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (3*S2[1, n]^3*S2[-1, 1, -1, n])/16 - 
   (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (151*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 - (15*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (39*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (21*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (61*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 + (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (11*S2[2, 1, n]*S2[-1, 1, 1, n])/4 + (5*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 + (3*S2[-1, 1, 1, n]^2)/4 - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (17*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (17*S2[1, n]^2*S2[1, 2, -1, n])/8 - 
   (5*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (3*S2[-1, 1, n]*S2[1, 2, -1, n])/
    4 + (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (149*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 - 
   (49*S2[1, n]^2*S2[2, 1, -1, n])/24 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    6 - (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (15*S2[1, n]^2*S2[2, 1, 1, n])/8 + 
   (13*S2[2, Infinity]*S2[2, 1, 1, n])/4 - (5*S2[-1, 1, n]*S2[2, 1, 1, n])/
    4 + (3*S2[3, 1, -2, n])/2 - (5*S2[4, 1, 1, n])/2 + 7*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n]/2 - (5*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[-2, 2, 1, 1, n]/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 + (17*Diff[S2[1, n], n, 1]*
     S2[-1, 1, -1, -1, n])/48 - (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/
    24 - (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (17*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (33*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (63*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (23*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (21*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (23*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 - (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   Half[S2[1, n], n]*S2[1, 2, -1, -1, n] - S2[1, n]*S2[1, 2, -1, -1, n] - 
   S2[2, -2, 1, 1, n] + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   (5*S2[-2, 1, 1, 1, 1, n])/2 + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    8 - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (7*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (37*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, 2, n] + 
   S2[1, -1, 1, -2, -1, n] - (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    8 + (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (3*S2[1, -1, 1, 1, -2, n])/
    2 - S2[1, -1, 1, 1, 2, n]/2 + S2[1, -1, 1, 2, -1, n] - 
   S2[1, 1, -2, -1, -1, n] + (3*S2[1, 1, -2, -1, 1, n])/2 + 
   2*S2[1, 1, -2, 1, -1, n] + S2[1, 1, -1, -2, -1, n] + 
   S2[1, 1, -1, -1, -2, n] - (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    2 + (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 2*S2[1, 1, -1, 1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 + S2[1, 1, -1, 2, -1, n] + 
   7*S2[1, 1, 1, -2, -1, n] + 4*S2[1, 1, 1, -1, -2, n] - 
   (5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 + 7*S2[1, 1, 1, 2, -1, n] + 
   2*S2[1, 1, 2, -1, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] - 3*S2[1, 2, -1, -1, -1, n] + 
   S2[1, 2, 1, -1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   (3*S2[2, 1, 1, 1, 1, n])/2 - S2[-1, -1, -1, 1, -1, -1, n]/8 - 
   S2[-1, -1, 1, -1, -1, -1, n]/8 + S2[-1, -1, 1, 1, -1, -1, n]/4 + 
   S2[-1, 1, -1, -1, -1, -1, n]/4 - (5*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   (3*S2[-1, 1, -1, -1, 1, 1, n])/4 - (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + 
   S2[-1, 1, 1, -1, -1, -1, n]/4 - (3*S2[-1, 1, 1, -1, -1, 1, n])/2 - 
   S2[-1, 1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   3*S2[-1, 1, 1, 1, 1, 1, Infinity] + (5*S2[1, -1, -1, -1, -1, -1, n])/4 + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/8 + (3*S2[1, -1, -1, 1, -1, -1, n])/4 - 
   S2[1, -1, -1, 1, 1, -1, n]/4 + S2[1, -1, 1, -1, -1, -1, n]/2 - 
   S2[1, -1, 1, 1, -1, -1, n]/2 + (3*S2[1, 1, -1, -1, -1, -1, n])/2 - 
   S2[1, 1, -1, -1, 1, -1, n]/4 + (9*S2[1, 1, -1, 1, -1, -1, n])/4 + 
   (21*S2[1, 1, 1, -1, -1, -1, n])/4 + (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, 2, -1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/64 + (17*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    288 - (355*Diff[Half[S2[1, n], n], n, 5])/384 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 3])/64 - 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   (163*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (2191*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (2591*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (2339*Diff[S2[1, n], n, 1]^3)/192 + 
   (503*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 - 
   (1447*Diff[S2[1, n], n, 2]^2)/192 + 
   (6475*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (14305*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (4817*Diff[S2[1, n], n, 5])/5760 + Diff[S2[-4, 1, n], n, 1]/2 - 
   (37*Diff[S2[-3, 1, n], n, 2])/32 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (137*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (37*Diff[S2[-2, 1, n], n, 3])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (227*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (13*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (233*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (475*Diff[S2[-1, 1, n], n, 4])/192 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   Diff[S2[2, 1, n], n, 3]/16 + Diff[S2[4, 1, n], n, 1]/2 + 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 - Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - (7*Diff[S2[-1, -2, -1, n], n, 2])/
    32 - (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (51*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/24 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (85*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/8 - (25*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   (43*Diff[S2[2, 1, -1, n], n, 2])/16 - (9*Diff[S2[2, 1, 1, n], n, 2])/8 - 
   3*Diff[S2[3, 1, 1, n], n, 1] + 6*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + Diff[S2[-1, 1, -1, 1, n], n, 2]/
    4 + (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 2*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + Diff[S2[1, 2, -1, -1, n], n, 1] - 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    2 + (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (619*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (875*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (85*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 + (379*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (71*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (19*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - 5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
    Half[S2[1, n], n] + (487*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 - (13*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (19*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (19*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (125*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   4*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (29*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/8 - (319*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    192 + (4*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 + 
   (83*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 + 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (27*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (91*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   (7*Half[S2[2, 1, n], n]^2)/128 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (3*Half[S2[4, 1, 1, n], n])/16 - (71*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (25*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    64 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 + 
   (11*S2[-1, Infinity]^6)/2880 + (101*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 + 
   (313*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (485*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (193*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (731*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (3013*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (55*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (91*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (59*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (551*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (11*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (21*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (17*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (61*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (31*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (11*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 - 
   (475*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (211*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (17*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 + (245*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 - 
   (65*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (317*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (137*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (433*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (73*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (35*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (7*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (47*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 - 
   (23*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (49*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (235*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (31*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (385*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (937*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 + 
   (553*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 - 
   (23*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (313*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (13*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (53*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (31*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (49*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (15*S2[-1, Infinity]^4*S2[1, n]^2)/128 + 
   (361*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (35*Half[S2[1, n], n]^3*S2[1, n]^3)/48 + 
   (29*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (287*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (2*Half[S2[1, n], n]^2*S2[1, n]^4)/3 - (Half[S2[1, n], n]*S2[1, n]^5)/8 - 
   (7*S2[1, n]^6)/96 + (15*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    32 - (341*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/144 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (211*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (373*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (757*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (133*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (89*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   8*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (265*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (49*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   Half[S2[2, 1, 1, n], n]*S2[2, Infinity] - 
   (105*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (159*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (113*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (21*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (171*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (517*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 - 
   (391*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (14*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/3 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (121*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (5*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/12 - (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 + (47*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (673*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (35*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (23*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/32 + (5*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 - (335*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (1033*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity] - 
   (47*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (27*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (235*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (73*S2[1, n]^4*S2[2, Infinity])/96 + 
   (499*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (7627*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (419*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 + 
   (139*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (3519*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/60 + 
   (891*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1277*S2[1, n]^2*S2[2, Infinity]^2)/960 - (25339*S2[2, Infinity]^3)/3360 - 
   (347*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (133*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (41*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 + 
   (371*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (3151*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 - 
   (177*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (1121*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (595*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (1901*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 + 
   (4111*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 - 
   (2315*S2[1, n]^3*S2[3, Infinity])/768 + 
   (949*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (3117*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (1013*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (7439*S2[3, Infinity]^2)/2048 - (1729*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (6211*S2[1, n]*S2[5, Infinity])/256 - (11*S2[-5, -1, Infinity])/4 - 
   6*S2[-5, 1, n] - 3*Half[S2[1, n], n]*S2[-4, 1, n] + 
   (9*S2[1, n]*S2[-4, 1, n])/2 - (121*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/96 + (25*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/6 + 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (181*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 - 
   (497*S2[1, n]^2*S2[-3, 1, n])/96 - (20*S2[2, Infinity]*S2[-3, 1, n])/3 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 + 
   (63*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 + 
   (7*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (505*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (35*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (85*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (19*S2[1, n]^3*S2[-2, 1, n])/48 - (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (14*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 + 
   (81*S2[3, Infinity]*S2[-2, 1, n])/64 - (7*S2[-2, 1, n]^2)/8 - 
   (79*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (75*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (211*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (761*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (23*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (29*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/24 - (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/4 - (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, n])/24 - (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*
     S2[-1, 1, n])/48 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*
     S2[-1, 1, n])/32 + (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (17*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (89*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (91*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 + 
   (13*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (143*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (223*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (19*S2[1, n]^4*S2[-1, 1, n])/48 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (21*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (25*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (31*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (143*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (83*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (39*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (2377*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (1235*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (377*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (97*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (13*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (37*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (35*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (17*S2[2, Infinity]*S2[-1, 1, n]^2)/
    24 - (15*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (97*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (93*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 + 
   (15*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (123*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (39*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (83*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (175*S2[1, n]^3*S2[2, 1, n])/96 - (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (27*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (1123*S2[3, Infinity]*S2[2, 1, n])/192 - (15*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (25*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (23*S2[2, 1, n]^2)/8 + 
   10*S2[1, n]*S2[4, 1, n] + 6*S2[-4, 1, 1, n] - 
   4*Half[S2[1, n], n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-3, 1, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (29*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + 4*S2[2, Infinity]*S2[-2, 1, -1, n] + 
   (7*S2[-2, 2, -2, n])/4 + (29*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/96 + (19*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (23*S2[1, n]^2*S2[-1, -2, -1, n])/96 - 
   (7*S2[2, Infinity]*S2[-1, -2, -1, n])/6 - 
   (7*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (55*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (155*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   S2[2, 1, n]*S2[-1, 1, -1, n] - (7*S2[-1, 1, -1, n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   2*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/2 + (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/
    2 - (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (33*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 3*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, 1, n]^2/2 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    8 + (67*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   3*S2[1, n]^2*S2[1, 2, -1, n] - (11*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   S2[-1, 1, n]*S2[1, 2, -1, n] - Half[S2[1, n], n]*S2[2, 1, -2, n] + 
   2*S2[1, n]*S2[2, 1, -2, n] + (29*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 + (16*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/3 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 - 
   (59*S2[1, n]^2*S2[2, 1, -1, n])/48 - (13*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (7*S2[-1, 1, n]*S2[2, 1, -1, n])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 - 
   (11*S2[1, n]^2*S2[2, 1, 1, n])/4 + (9*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (3*S2[3, 1, -2, n])/2 + 
   3*S2[1, n]*S2[3, 1, 1, n] - 7*S2[4, 1, 1, n] + 9*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] - 2*Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   3*S2[1, n]*S2[-2, 1, 1, 1, n] + (3*S2[-2, 2, 1, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (17*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (7*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] - 2*S2[1, n]^2*S2[-1, 1, 1, 1, n] - 
   (27*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (75*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (47*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (45*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (43*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (17*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   S2[1, n]*S2[1, -1, 1, -2, n] + Half[S2[1, n], n]*S2[1, -1, 1, 2, n] - 
   S2[1, n]*S2[1, -1, 1, 2, n] - 2*S2[1, n]*S2[1, 1, -2, -1, n] - 
   (S2[1, n]*S2[1, 1, -1, 2, n])/2 - (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - 
   2*S2[1, n]*S2[1, 2, -1, -1, n] - (3*S2[2, -2, 1, 1, n])/2 + 
   2*S2[1, n]*S2[2, 1, 1, 1, n] + (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/
    8 + S2[1, n]*S2[-1, 1, -1, 1, 1, n] - S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 
   4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (39*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (23*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (9*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 2*S2[1, -1, -1, 1, 2, n] - 
   (7*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, -2, n] - 
   (3*S2[1, -1, 1, 1, 2, n])/2 + S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, 1, n] + 2*S2[1, 1, -2, 1, -1, n] - 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + S2[1, 1, -1, 1, -2, n] + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[1, 1, -1, 2, -1, n] + 
   7*S2[1, 1, 1, -2, -1, n] + 5*S2[1, 1, 1, -1, -2, n] + 
   2*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 9*S2[1, 1, 1, 2, -1, n] + 
   4*S2[1, 1, 2, -1, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] + 2*S2[1, 2, 1, -1, -1, n] + 
   3*S2[1, 2, 1, 1, -1, n] - S2[2, 1, 1, 1, 1, n] - 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/4 - (7*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + S2[-1, 1, 1, 1, -1, 1, n]/2 - 
   (11*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - (15*S2[1, -1, -1, -1, -1, -1, n])/
    4 + (7*S2[1, -1, -1, -1, 1, -1, n])/8 + (7*S2[1, -1, -1, 1, -1, -1, n])/
    4 + (7*S2[1, -1, 1, -1, -1, -1, n])/4 + (7*S2[1, 1, -1, -1, -1, -1, n])/
    2 - S2[1, 1, 1, -1, 1, -1, n]/2 + 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, 2, 1, -1, n] -> (5*Diff[Half[S2[1, n], n], n, 1]^3)/64 - 
   (57*Diff[Half[S2[1, n], n], n, 2]^2)/32 - 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[Half[S2[1, n], n], n, 3] + (161*Diff[Half[S2[1, n], n], n, 5])/384 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (19*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   (13*Diff[Half[S2[4, 1, n], n], n, 1])/16 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/8 + 
   (3*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 - 
   (125*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (519*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (1579*Diff[S2[1, n], n, 1]^3)/192 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/16 + 
   (145*Diff[S2[1, n], n, 2]^2)/96 - (439*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/384 + (1675*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/384 - (121*Diff[S2[1, n], n, 5])/720 - 
   (5*Diff[S2[-4, 1, n], n, 1])/2 + Diff[S2[-3, 1, n], n, 2]/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (39*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 + 
   (29*Diff[S2[-2, 1, n], n, 3])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (53*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (27*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (81*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (339*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (5*Diff[S2[-1, 1, n], n, 4])/6 + (39*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (29*Diff[S2[2, 1, n], n, 3])/48 - 3*Diff[S2[4, 1, n], n, 1] - 
   6*Diff[S2[-3, 1, 1, n], n, 1] + (7*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   Diff[S2[-2, 1, -1, n], n, 2]/2 + (3*Diff[S2[-1, -2, -1, n], n, 2])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (19*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (171*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (9*Diff[S2[-1, 1, 1, n], n, 3])/16 + (3*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (3*Diff[S2[2, 1, -2, n], n, 1])/2 + (9*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   (9*Diff[S2[2, 1, 1, n], n, 2])/4 + 2*Diff[S2[3, 1, 1, n], n, 1] - 
   (9*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (9*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - (3*Diff[S2[1, -1, 1, -2, n], n, 1])/
    2 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + 3*Diff[S2[1, 1, -1, 2, n], n, 1] - 
   Diff[S2[1, 2, -1, -1, n], n, 1] + 4*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   (7*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 - 
   (15*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (9*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (7*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (15*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (9*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (27*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (27*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (101*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 - (15*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (271*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/64 + 
   (179*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (151*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (67*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/128 - 
   (107*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (47*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (29*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (329*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (9*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (25*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (39*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (25*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (49*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (9*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (77*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (9*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (111*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 + (167*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    96 - (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 - 
   (55*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (21*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 + 
   (33*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    64 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (3*Half[S2[4, 1, 1, n], n])/16 + (247*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 - (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^5)/192 - 
   (37*S2[-1, Infinity]^6)/2880 - (55*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 + 
   (41*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 + 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (65*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (679*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (21*Diff[S2[1, n], n, 4]*S2[1, n])/128 + 
   (131*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (91*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (67*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (13*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (9*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (25*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 - 
   Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n] - 
   (27*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (13*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (25*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 - 
   (49*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 - 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (41*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (271*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (35*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (31*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (21*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (39*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (99*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 - 
   (487*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (43*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (63*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (29*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (13*S2[-1, Infinity]^5*S2[1, n])/320 + 
   (37*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/64 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 - 
   (165*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (143*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (65*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (223*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 + 
   (57*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 + 
   (75*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (57*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 + 
   (145*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (181*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/8 + 
   (61*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (167*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (163*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 + 
   (39*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 - 
   (55*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (15*Half[S2[1, n], n]^3*S2[1, n]^3)/8 - 
   (31*Half[S2[2, 1, n], n]*S2[1, n]^3)/64 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (289*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (119*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + 
   (73*Half[S2[1, n], n]*S2[1, n]^5)/48 - (17*S2[1, n]^6)/48 - 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 + 
   (413*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/192 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (207*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (189*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (9*Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 + 7*Diff[S2[-2, 1, n], n, 1]*
    S2[2, Infinity] + (173*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (15*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (33*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (149*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (157*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (115*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (139*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (147*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (11*Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (39*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 + 
   (23*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (171*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (27*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (135*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (93*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (63*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (33*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (185*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (163*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (33*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (91*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (211*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - 5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (13*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 + 
   (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/64 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (573*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (123*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/4 - 2*S2[-1, Infinity]^3*S2[1, n]*
    S2[2, Infinity] - (283*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/64 - (17*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/16 + (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (187*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/64 + (115*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    48 - (267*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (27*S2[1, n]^4*S2[2, Infinity])/32 - 
   (687*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/128 - 
   (843*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (659*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 + 
   (157*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/64 + 
   (187*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (133*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (2793*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (121*S2[1, n]^2*S2[2, Infinity]^2)/128 + (25427*S2[2, Infinity]^3)/2688 + 
   (345*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (895*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (49*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (3421*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (6113*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (133*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (149*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (2617*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (6205*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (4445*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 - 
   (6865*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 + 
   (1009*S2[1, n]^3*S2[3, Infinity])/256 - 
   (6781*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (735*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (589*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (8881*S2[3, Infinity]^2)/1536 + (1355*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (7665*S2[1, n]*S2[5, Infinity])/256 + (5*S2[-5, -1, Infinity])/2 + 
   6*S2[-5, 1, n] + (5*Half[S2[1, n], n]*S2[-4, 1, n])/2 - 
   S2[1, n]*S2[-4, 1, n] - (31*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    32 - (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (131*S2[1, n]^2*S2[-3, 1, n])/32 + (129*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (29*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (135*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 - 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 + 
   (7*S2[1, n]^3*S2[-2, 1, n])/16 + (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (85*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (101*S2[3, Infinity]*S2[-2, 1, n])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (69*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (197*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (25*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (53*S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 - 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 + (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (115*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (49*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (29*S2[1, n]^4*S2[-1, 1, n])/48 - (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (15*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (43*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (87*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (21*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (65*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (1827*S2[2, Infinity]^2*S2[-1, 1, n])/320 - 
   (487*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/96 + 
   (391*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/96 + 
   (23*S2[-3, 1, n]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (15*S2[1, n]^2*S2[-1, 1, n]^2)/16 - (21*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + 2*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] - 
   (163*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (147*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/32 - Half[S2[2, 1, n], n]*S2[2, 1, n] - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (267*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (57*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (95*S2[1, n]^3*S2[2, 1, n])/96 + (33*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (739*S2[3, Infinity]*S2[2, 1, n])/96 + 4*S2[-2, 1, n]*S2[2, 1, n] + 
   (27*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 4*S2[2, 1, n]^2 - 
   (17*S2[1, n]*S2[4, 1, n])/2 - 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 + 
   (7*Half[S2[1, n], n]*S2[-3, 1, 1, n])/2 - (S2[1, n]*S2[-3, 1, 1, n])/2 + 
   (3*S2[1, n]*S2[-2, 1, -2, n])/4 + (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (37*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/4 - (23*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - (13*S2[-2, 2, -2, n])/8 - (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/32 - (9*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/32 + 
   (25*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (45*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 - 
   (3*S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (19*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (499*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (13*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (51*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (31*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + 2*S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] - S2[-1, 1, 1, n]^2/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (55*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   3*S2[1, n]^2*S2[1, 2, -1, n] + 4*S2[2, Infinity]*S2[1, 2, -1, n] + 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 + (Half[S2[1, n], n]*S2[2, 1, -2, n])/
    2 - 2*S2[1, n]*S2[2, 1, -2, n] - (45*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 - (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (25*S2[1, n]^2*S2[2, 1, -1, n])/16 + (7*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (23*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + S2[1, n]^2*S2[2, 1, 1, n] - 
   8*S2[2, Infinity]*S2[2, 1, 1, n] + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[3, 1, -2, n])/2 - 2*S2[1, n]*S2[3, 1, 1, n] + (9*S2[4, 1, 1, n])/2 - 
   9*S2[-3, 1, 1, 1, n] + (3*S2[-2, -2, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-2, 1, 1, 1, n])/2 + 
   3*S2[1, n]*S2[-2, 1, 1, 1, n] - (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] - 
   S2[1, n]^2*S2[-1, 1, -1, -1, n] + (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/
    16 - S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - Diff[S2[1, n], n, 1]*
    S2[-1, 1, -1, 1, n] - (3*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (53*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (13*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (71*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (247*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (15*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (45*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (167*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (51*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (53*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   Half[S2[1, n], n]*S2[1, -1, 1, 2, n] + S2[1, n]*S2[1, -1, 1, 2, n] - 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 - (Half[S2[1, n], n]*S2[1, 1, -1, 2, n])/
    2 + (S2[1, n]*S2[1, 1, -1, 2, n])/2 - 2*Half[S2[1, n], n]*
    S2[1, 1, 2, -1, n] + (7*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (3*S2[2, -2, 1, 1, n])/2 - (S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n] - (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (9*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + 8*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   8*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (65*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (39*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (9*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 4*S2[1, -1, -1, 1, 2, n] + 
   (15*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (15*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (7*S2[1, -1, 1, 1, -2, n])/2 + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - 2*S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, 1, n]/2 - S2[1, 1, -2, 1, -1, n] + 
   (21*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (21*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 3*S2[1, 1, -1, 1, -2, n] - 
   7*S2[1, 1, 1, -2, -1, n] - 9*S2[1, 1, 1, -1, -2, n] - 
   9*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   (3*S2[1, 1, 2, -1, 1, n])/2 - 6*S2[1, 1, 2, 1, -1, n] - 
   4*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] + 
   S2[2, 1, 1, 1, 1, n]/2 + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - (3*S2[-1, -1, 1, 1, -1, -1, n])/2 + 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + (9*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   (3*S2[-1, 1, -1, 1, -1, -1, n])/4 + (9*S2[-1, 1, -1, 1, 1, 1, n])/4 - 
   3*S2[-1, 1, 1, -1, -1, -1, n] - S2[-1, 1, 1, 1, -1, 1, n]/4 + 
   (37*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + (15*S2[1, -1, -1, -1, -1, -1, n])/
    4 - (3*S2[1, -1, -1, -1, 1, -1, n])/8 - (3*S2[1, -1, -1, 1, -1, -1, n])/
    2 - (9*S2[1, -1, 1, -1, -1, -1, n])/4 - 6*S2[1, 1, -1, -1, -1, -1, n] + 
   (7*S2[1, 1, 1, -1, 1, -1, n])/4 - S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, 2, 1, 1, n] -> (5*Diff[Half[S2[1, n], n], n, 5])/12 - 
   (35*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 - 
   (7*Diff[S2[1, n], n, 1]^3)/2 - (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (15*Diff[S2[1, n], n, 2]^2)/4 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/12 + 
   (16*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 - 
   (5*Diff[S2[1, n], n, 5])/12 - (9*Diff[S2[-4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, n], n, 2]/4 - (11*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 + (11*Diff[S2[-2, 1, n], n, 3])/12 - 
   (19*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   (9*Diff[S2[-1, 1, n], n, 4])/8 - (9*Diff[S2[-3, 1, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (2*Diff[S2[-1, 1, 1, n], n, 3])/3 + (5*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (5*Diff[S2[2, 1, -1, n], n, 2])/4 - 2*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^6/360 - 
   (59*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   14*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (89*Diff[S2[1, n], n, 4]*S2[1, n])/48 - Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] - (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 2*Diff[S2[2, 1, -1, n], n, 1]*
    S2[1, n] + Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (S2[-1, Infinity]^5*S2[1, n])/240 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (21*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (79*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/2 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 - 
   Diff[S2[1, n], n, 1]*S2[1, n]^4 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity] - 
   (47*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 + 
   (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (7*S2[1, n]^4*S2[2, Infinity])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (199*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/4 + 
   (107*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (7*S2[1, n]^2*S2[2, Infinity]^2)/4 - (181*S2[2, Infinity]^3)/3360 + 
   Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity] - 
   (55*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 + 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 + 
   (55*S2[1, n]^3*S2[3, Infinity])/96 - 
   (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 + 
   (437*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (125*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   (3847*S2[3, Infinity]^2)/768 + (11*Half[S2[1, n], n]*S2[5, Infinity])/2 - 
   (137*S2[1, n]*S2[5, Infinity])/128 + S2[-5, -1, Infinity] - 
   7*S2[-5, 1, n] + (3*S2[1, n]*S2[-4, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 2*S2[1, n]^2*S2[-3, 1, n] + 
   2*S2[2, Infinity]*S2[-3, 1, n] - (2*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/12 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/
    4 + (2*S2[3, Infinity]*S2[-2, 1, n])/3 + Diff[S2[1, n], n, 1]^2*
    S2[-1, 1, n] - (13*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/12 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   S2[2, Infinity]^2*S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/2 + (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - 
   Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n] + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (S2[1, n]^3*S2[2, 1, n])/2 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (7*S2[3, Infinity]*S2[2, 1, n])/8 - 8*S2[-4, 1, 1, n] + 
   (3*S2[1, n]*S2[-3, 1, 1, n])/2 + (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/
    2 - Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[3, Infinity]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + (S2[1, n]^2*S2[1, 2, -1, n])/2 - 
   S2[2, Infinity]*S2[1, 2, -1, n] + (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + S2[1, n]^2*S2[2, 1, -1, n] - 
   (S2[2, Infinity]*S2[2, 1, -1, n])/2 + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   S2[2, Infinity]*S2[2, 1, 1, n] + S2[-1, 1, n]*S2[2, 1, 1, n] + 
   S2[3, 1, -2, n] - Half[S2[1, n], n]*S2[3, 1, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] - 4*S2[-3, 1, 1, 1, n] + 
   (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 2*S2[-2, 2, 1, 1, n] + 
   2*S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (39*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]*S2[1, -1, 1, 2, n] + (3*S2[1, n]*S2[1, 1, -1, 2, n])/2 + 
   S2[1, n]*S2[1, 1, 2, -1, n] + S2[2, -2, 1, 1, n]/2 - 
   3*Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   2*S2[-2, 1, 1, 1, 1, n] + (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   S2[1, 1, -1, 1, 2, n] - S2[1, 1, 1, -1, 2, n] + S2[1, 1, 2, -1, 1, n] - 
   S2[1, 2, 1, 1, -1, n] + 2*S2[-1, 1, 1, 1, 1, 1, Infinity], 
 S2[-1, 1, -1, -2, -1, n] -> (-13*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (337*Diff[Half[S2[1, n], n], n, 2]^2)/192 + 
   (293*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (1081*Diff[Half[S2[1, n], n], n, 5])/1152 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (47*Diff[Half[S2[2, 1, n], n], n, 3])/96 - 
   (17*Diff[Half[S2[4, 1, n], n], n, 1])/16 - 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 - 
   (3*Diff[Half[S2[3, 1, 1, n], n], n, 1])/8 + 
   (197*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (539*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 + 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (3583*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (1107*Diff[S2[1, n], n, 1]^3)/64 + 
   (171*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 - 
   (93*Diff[S2[1, n], n, 2]^2)/16 + (5015*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 - (13667*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 + (1819*Diff[S2[1, n], n, 5])/2880 + 
   (9*Diff[S2[-4, 1, n], n, 1])/2 + Diff[S2[-3, 1, n], n, 2]/4 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (52*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (9*Diff[S2[-2, 1, n], n, 3])/4 - (173*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/96 + 
   (617*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (143*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (661*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (209*Diff[S2[-1, 1, n], n, 4])/96 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (13*Diff[S2[2, 1, n], n, 3])/16 + (7*Diff[S2[4, 1, n], n, 1])/2 + 
   11*Diff[S2[-3, 1, 1, n], n, 1] - (9*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (23*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (131*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (245*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (21*Diff[S2[-1, 1, 1, n], n, 3])/16 - (5*Diff[S2[1, 2, -1, n], n, 2])/2 - 
   (3*Diff[S2[2, 1, -2, n], n, 1])/2 - (11*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   (9*Diff[S2[2, 1, 1, n], n, 2])/2 - 5*Diff[S2[3, 1, 1, n], n, 1] + 
   (17*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (11*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 + 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   (3*Diff[S2[1, -1, 1, -2, n], n, 1])/2 - (5*Diff[S2[1, -1, 1, 2, n], n, 1])/
    2 + 4*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   4*Diff[S2[1, 1, -1, 2, n], n, 1] + 2*Diff[S2[1, 2, -1, -1, n], n, 1] - 
   7*Diff[S2[2, 1, 1, 1, n], n, 1] - (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/
    8 - (7*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (11*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - 
   (9*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 - 
   (15*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   (15*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (23*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   (11*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (33*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (33*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   (5*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (331*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (19*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (11*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (719*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (209*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (487*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (107*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (463*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (161*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (11*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (359*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 - 
   (15*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (85*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (37*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (27*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (181*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (11*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (65*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (69*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (2*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/3 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (91*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 - (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    16 + (61*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (43*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 + 
   (57*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (61*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/64 - 
   (109*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (227*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (79*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (33*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (107*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (287*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   (11*Half[S2[2, 1, n], n]^2)/64 + (11*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (63*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (5*Half[S2[4, 1, 1, n], n])/16 - (281*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 - (29*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    64 - (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 + 
   (17*S2[-1, Infinity]^6)/576 + (371*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 + 
   (173*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (23*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (19*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (11*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (551*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 + 
   (2509*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (2363*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (535*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (121*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (193*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (267*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (565*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (41*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (85*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (75*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (35*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (9*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (85*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (31*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (163*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (133*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    12 + (149*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (103*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (109*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (33*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (61*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (43*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/64 + 
   (509*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (221*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 + 
   (199*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (5*Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (299*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (73*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (7*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (35*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (143*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (63*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (527*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (59*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/48 + 
   (1265*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (1093*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (41*Diff[S2[1, n], n, 3]*S2[1, n]^2)/9 - 
   (15*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (1415*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (103*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (47*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   (83*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (449*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/6 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (151*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (35*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (125*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (53*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (815*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (301*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (87*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (15*Half[S2[1, n], n]^3*S2[1, n]^3)/8 + 
   (59*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 - 
   (181*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (587*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (103*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - 
   (17*Half[S2[1, n], n]*S2[1, n]^5)/16 + S2[1, n]^6/6 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/2 - 
   (2335*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 - 
   (61*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (527*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (797*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (34*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 - 
   (317*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (33*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (51*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (225*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (349*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (209*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 - 
   (103*Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (229*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (37*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (413*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (37*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (347*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (115*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (33*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (285*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (57*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (337*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (821*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (803*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (199*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/3 - (109*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (145*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (1715*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (325*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/4 + (4*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/3 + (935*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (713*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (5*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/2 - (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 - (241*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/64 - (5*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    12 + (469*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (17*S2[1, n]^4*S2[2, Infinity])/96 + 
   (3169*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (3077*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/240 - 
   (269*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (1349*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (879*S2[-1, Infinity]^2*S2[2, Infinity]^2)/64 - 
   (977*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 + 
   (5841*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (2189*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (281809*S2[2, Infinity]^3)/
    13440 - (2341*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 - 
   (233*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 - 
   (315*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (2971*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (3035*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 + 
   (1373*Half[S2[1, n], n]^3*S2[3, Infinity])/768 - 
   (87*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (1327*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (1459*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 - 
   (5603*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 + 
   (5731*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 - 
   (1805*S2[1, n]^3*S2[3, Infinity])/768 - 
   (1175*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (243*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (4709*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (26543*S2[3, Infinity]^2)/3072 + (1991*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (14195*S2[1, n]*S2[5, Infinity])/256 + (69*S2[-5, -1, Infinity])/
    8 - 10*S2[-5, 1, n] - 2*Half[S2[1, n], n]*S2[-4, 1, n] + 
   (S2[1, n]*S2[-4, 1, n])/2 + (31*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/96 + (155*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (17*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (307*S2[1, n]^2*S2[-3, 1, n])/96 - (619*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (161*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 + 
   (20*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 - 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (173*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (11*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (935*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (37*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (101*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (49*S2[1, n]^3*S2[-2, 1, n])/48 - (181*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (33*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    8 + (487*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (47*S2[3, Infinity]*S2[-2, 1, n])/16 - (11*S2[-2, 1, n]^2)/4 - 
   (115*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (223*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (455*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (169*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 - 
   (67*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (77*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (31*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (95*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (5*Half[S2[1, n], n]^4*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/12 - 
   (21*S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (229*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (27*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[-1, 1, n])/48 - (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[-1, 1, n])/6 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/12 - 
   (373*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (959*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (S2[1, n]^4*S2[-1, 1, n])/16 + (43*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (129*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (199*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (37*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (4163*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (695*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (49*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (119*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/3 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/3 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (227*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (11*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/12 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/6 - 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/12 + (89*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 - (143*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 + 
   (39*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (193*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (17*Half[S2[1, n], n]^3*S2[2, 1, n])/96 + 
   (19*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (353*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (31*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (45*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (S2[1, n]^3*S2[2, 1, n])/32 - (41*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (539*S2[3, Infinity]*S2[2, 1, n])/48 - (19*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (35*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (27*S2[2, 1, n]^2)/4 + 
   (23*S2[1, n]*S2[4, 1, n])/2 + 10*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 - 
   2*Half[S2[1, n], n]*S2[-3, 1, 1, n] - 3*S2[1, n]*S2[-3, 1, 1, n] - 
   (3*S2[1, n]*S2[-2, 1, -2, n])/4 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (63*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/4 + (37*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (19*S2[-2, 2, -2, n])/8 + (109*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/96 + (4*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (37*S2[1, n]^2*S2[-1, -2, -1, n])/96 - 
   (127*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (17*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (31*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (5*Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (203*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (37*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (55*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (41*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (2653*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (5*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (37*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (37*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (13*S2[2, 1, n]*S2[-1, 1, -1, n])/8 - (25*S2[-1, 1, -1, n]^2)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (13*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (9*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (27*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   4*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (57*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    8 + (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (45*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 5*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (7*S2[-1, 1, 1, n]^2)/4 + (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 + (101*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - 4*S2[1, n]^2*S2[1, 2, -1, n] - 
   (13*S2[2, Infinity]*S2[1, 2, -1, n])/2 - (3*S2[-1, 1, n]*S2[1, 2, -1, n])/
    2 + (5*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (157*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (77*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (4*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 - 
   (241*S2[1, n]^2*S2[2, 1, -1, n])/48 - (73*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (77*S2[-1, 1, n]*S2[2, 1, -1, n])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (29*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (7*S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   12*S2[2, Infinity]*S2[2, 1, 1, n] - (5*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   (5*S2[3, 1, -2, n])/2 + 2*S2[1, n]*S2[3, 1, 1, n] - 
   (15*S2[4, 1, 1, n])/2 + 15*S2[-3, 1, 1, 1, n] - 
   (3*S2[-2, -2, 1, 1, n])/2 - 2*Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   (11*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (5*S2[-2, 2, 1, 1, n])/2 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (49*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (41*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (17*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (25*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (69*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (69*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (13*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (93*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (281*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (87*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (35*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (53*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (223*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (63*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   Half[S2[1, n], n]*S2[1, -1, 1, 2, n] + S2[1, n]*S2[1, -1, 1, 2, n] - 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 - Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + 
   S2[1, n]*S2[1, 1, -1, 2, n] + Half[S2[1, n], n]*S2[1, 1, 2, -1, n] - 
   (7*S2[1, n]*S2[1, 1, 2, -1, n])/2 - (5*S2[2, -2, 1, 1, n])/2 + 
   (7*S2[1, n]*S2[2, 1, 1, 1, n])/2 - S2[2, 2, 1, 1, n] + 
   (15*S2[-2, 1, 1, 1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (5*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   3*S2[1, n]*S2[-1, 1, -1, -1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (11*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (7*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] + 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (33*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (143*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (15*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (15*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (19*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (19*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 4*S2[1, -1, -1, 1, 2, n] - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + (9*S2[1, -1, 1, 1, -2, n])/2 - 
   (5*S2[1, -1, 1, 1, 2, n])/2 + 3*S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, -1, 1, n]/2 + 3*S2[1, 1, -2, 1, -1, n] - 
   (17*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (17*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 6*S2[1, 1, -1, 1, -2, n] + 
   3*S2[1, 1, -1, 2, -1, n] + 10*S2[1, 1, 1, -2, -1, n] + 
   12*S2[1, 1, 1, -1, -2, n] + 15*S2[1, 1, 1, 2, -1, n] + 
   6*S2[1, 1, 2, -1, -1, n] + (5*S2[1, 1, 2, -1, 1, n])/2 + 
   10*S2[1, 1, 2, 1, -1, n] + S2[1, 2, -1, 1, -1, n] + 
   4*S2[1, 2, 1, -1, -1, n] + 5*S2[1, 2, 1, 1, -1, n] - 
   (7*S2[2, 1, 1, 1, 1, n])/2 - (5*S2[-1, -1, -1, 1, -1, -1, n])/8 - 
   (15*S2[-1, -1, 1, -1, -1, -1, n])/8 - (3*S2[-1, -1, 1, 1, -1, -1, n])/2 - 
   (15*S2[-1, 1, -1, -1, -1, -1, n])/4 - (39*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   (9*S2[-1, 1, -1, 1, -1, -1, n])/4 - (11*S2[-1, 1, -1, 1, 1, 1, n])/4 - 
   4*S2[-1, 1, 1, -1, -1, -1, n] + (7*S2[-1, 1, 1, 1, -1, 1, n])/4 - 
   (85*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - (25*S2[1, -1, -1, -1, -1, -1, n])/
    4 + (17*S2[1, -1, -1, -1, 1, -1, n])/8 + 4*S2[1, -1, -1, 1, -1, -1, n] + 
   (3*S2[1, -1, 1, -1, -1, -1, n])/4 + 7*S2[1, 1, -1, -1, -1, -1, n] + 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 7*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, -1, -2, 1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/8 - 
   (65*Diff[Half[S2[1, n], n], n, 2]^2)/96 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/48 + 
   (169*Diff[Half[S2[1, n], n], n, 5])/480 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/24 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (241*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (127*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/3 + 
   (29*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (329*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 - 
   (1081*Diff[S2[1, n], n, 1]^3)/96 - 
   (57*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/32 + 
   (61*Diff[S2[1, n], n, 2]^2)/24 - (17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/8 + (1223*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/192 - (67*Diff[S2[1, n], n, 5])/240 + 
   (3*Diff[S2[-4, 1, n], n, 1])/2 + (17*Diff[S2[-3, 1, n], n, 2])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 - 
   (221*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (5*Diff[S2[-2, 1, n], n, 3])/4 + (55*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/48 - 
   (139*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   Diff[S2[-1, 1, n], n, 1]^2/2 + (125*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/48 - 
   (199*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (15*Diff[S2[-1, 1, n], n, 4])/16 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] - (23*Diff[S2[1, n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 + (23*Diff[S2[2, 1, n], n, 3])/24 - 
   4*Diff[S2[4, 1, n], n, 1] - 7*Diff[S2[-3, 1, 1, n], n, 1] + 
   (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + 
   Diff[S2[-1, -2, -1, n], n, 2]/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 + 
   (2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (93*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (19*Diff[S2[-1, 1, 1, n], n, 3])/24 + Diff[S2[1, 2, -1, n], n, 2] + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (4*Diff[S2[2, 1, -1, n], n, 2])/3 + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/
    3 + Diff[S2[-1, 1, -1, 1, n], n, 2]/2 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - Diff[S2[1, -1, 1, -2, n], n, 1] + 
   (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 4*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   2*Diff[S2[1, 1, -1, 2, n], n, 1] - 2*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   Diff[S2[1, 2, -1, -1, n], n, 1] + 5*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (5*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (19*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/6 + (17*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (19*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/96 - 
   2*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n] - 
   (25*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 + (17*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/24 - 
   Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n] + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   2*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] - 
   2*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (97*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (91*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (19*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (43*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 + 
   (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 + 
   Half[S2[2, 1, n], n]^2/32 + (3*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/
    16 - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (55*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (31*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/80 - S2[-1, Infinity]^6/144 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    4 + (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 + 
   (85*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/24 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (2*Diff[S2[1, n], n, 4]*S2[1, n])/3 + 
   (51*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 - 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (241*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (43*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 - 
   (23*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] + (5*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 - 
   (19*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 - 6*Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 - (69*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (151*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (91*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (37*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (37*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Half[S2[1, n], n]^5*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (43*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (71*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/32 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (385*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 - 
   (263*Diff[S2[1, n], n, 3]*S2[1, n]^2)/192 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (109*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 + 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 + 
   (63*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/16 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (11*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (83*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 - 
   (107*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (13*Half[S2[1, n], n]^3*S2[1, n]^3)/8 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]^4)/8 + Half[S2[1, n], n]*S2[1, n]^5 - 
   (3*S2[1, n]^6)/16 - (89*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    24 + (137*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    48 + (37*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/6 - 
   (157*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   6*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] + 
   (149*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/24 - 
   (25*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (65*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (101*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (139*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    16 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   Half[S2[2, 1, 1, n], n]*S2[2, Infinity] + 
   (139*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (95*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (63*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (107*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (95*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (91*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 + (15*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 + (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 - 
   (93*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (279*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 + (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (25*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 - (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/8 + (23*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/16 - (73*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/16 + (75*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/16 + 2*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity] + 
   (277*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (55*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (25*S2[1, n]^4*S2[2, Infinity])/12 - 
   (271*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (539*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/64 - 
   (155*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/64 + 
   (597*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (309*S2[-1, Infinity]^2*S2[2, Infinity]^2)/32 + 
   (143*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/32 - 
   (1991*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (673*S2[1, n]^2*S2[2, Infinity]^2)/320 + (105641*S2[2, Infinity]^3)/6720 + 
   (895*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (391*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (131*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/96 - 
   (175*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/48 + 
   (63*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (103*Half[S2[1, n], n]^3*S2[3, Infinity])/96 + 
   (33*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (185*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (101*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (197*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (23*S2[1, n]^3*S2[3, Infinity])/12 + 
   (247*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (203*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (7249*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (295*S2[3, Infinity]^2)/1536 + (335*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (5137*S2[1, n]*S2[5, Infinity])/128 + S2[-5, -1, Infinity] + 
   12*S2[-5, 1, n] + 2*Half[S2[1, n], n]*S2[-4, 1, n] + 
   4*S2[1, n]*S2[-4, 1, n] - (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    8 - (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/2 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (13*S2[1, n]^2*S2[-3, 1, n])/8 + (31*S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (33*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/2 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/2 - (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (4*S2[1, n]^3*S2[-2, 1, n])/3 + (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] - 
   (39*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (59*S2[3, Infinity]*S2[-2, 1, n])/48 + S2[-2, 1, n]^2/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/3 + 
   (499*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (35*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/32 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 2*Diff[S2[-1, 1, n], n, 2]*
    S2[-1, 1, n] - (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (47*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   2*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (51*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (87*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (29*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (45*S2[2, Infinity]^2*S2[-1, 1, n])/32 - 
   (45*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (205*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (5*S2[-3, 1, n]*S2[-1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/2 - 
   (27*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/16 - (11*S2[2, Infinity]*S2[-1, 1, n]^2)/
    4 - (11*S2[-1, 1, n]^3)/24 + Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] - 
   (9*Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/2 - (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/
    4 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (7*S2[1, n]^3*S2[2, 1, n])/8 + (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (21*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (93*S2[3, Infinity]*S2[2, 1, n])/16 + 3*S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + (5*S2[2, 1, n]^2)/2 - 
   Half[S2[1, n], n]*S2[4, 1, n] - 8*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] + 3*S2[1, n]*S2[-3, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 + 
   (15*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (7*S2[1, n]^2*S2[-2, 1, -1, n])/4 - (9*S2[2, Infinity]*S2[-2, 1, -1, n])/
    2 - (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/2 - (5*S2[-2, 2, -2, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 + (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    4 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (35*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (139*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/4 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/4 - (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/2 + (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (33*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (35*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (11*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/2 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 - 
   (3*S2[-1, 1, 1, n]^2)/2 - 8*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   3*S2[1, n]^2*S2[1, 2, -1, n] + (19*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*S2[2, 1, -2, n] - 
   (5*S2[1, n]*S2[2, 1, -2, n])/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/4 - (23*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/2 + (13*S2[2, Infinity]*S2[2, 1, -1, n])/
    4 + (3*S2[-1, 1, n]*S2[2, 1, -1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (9*S2[1, n]^2*S2[2, 1, 1, n])/4 - 
   (15*S2[2, Infinity]*S2[2, 1, 1, n])/2 - (7*S2[3, 1, -2, n])/2 - 
   Half[S2[1, n], n]*S2[3, 1, 1, n] + S2[1, n]*S2[3, 1, 1, n] + 
   5*S2[4, 1, 1, n] - 12*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + (5*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   (5*S2[-2, 2, 1, 1, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/4 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    2 + (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   S2[1, n]^2*S2[-1, 1, -1, -1, n] - (3*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/
    8 - S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (7*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   2*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] - 7*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] + 5*S2[1, n]^2*S2[-1, 1, 1, 1, n] + 
   (23*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (55*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (31*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (11*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (79*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] + S2[1, n]*S2[1, -1, 1, -2, n] - 
   S2[1, n]*S2[1, -1, 1, 2, n] + 3*S2[1, n]*S2[1, 1, -2, -1, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] + 
   (7*S2[1, n]*S2[1, 1, 2, -1, n])/2 + (7*S2[2, -2, 1, 1, n])/2 + 
   2*Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - 5*S2[1, n]*S2[2, 1, 1, 1, n] - 
   (5*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   2*S2[1, n]*S2[-1, 1, -1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   S2[1, n]*S2[-1, 1, 1, 1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (43*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + S2[1, -2, -1, 1, -1, n] - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 2*S2[1, -1, -1, 1, 2, n] + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 3*S2[1, -1, 1, 1, -2, n] + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - 2*S2[1, -1, 1, 2, -1, n] - 
   3*S2[1, 1, -2, -1, 1, n] - 4*S2[1, 1, -2, 1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 4*S2[1, 1, -1, 1, -2, n] - 
   Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] + 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] - 2*S2[1, 1, -1, 2, -1, n] - 
   14*S2[1, 1, 1, -2, -1, n] - 8*S2[1, 1, 1, -1, -2, n] - 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 - 2*S2[1, 1, 1, -1, 2, n] - 
   18*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   (9*S2[1, 1, 2, -1, 1, n])/2 - 9*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] + 
   3*S2[2, 1, 1, 1, 1, n] + (3*S2[-1, -1, -1, 1, -1, -1, n])/4 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/4 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/2 + (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   S2[-1, 1, -1, -1, 1, 1, n] + (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 
   S2[-1, 1, 1, -1, -1, -1, n]/2 - S2[-1, 1, 1, -1, -1, 1, n]/2 - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 5*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   (15*S2[1, -1, -1, -1, -1, -1, n])/2 - (3*S2[1, -1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/2 + (3*S2[1, -1, -1, 1, 1, -1, n])/2 - 
   S2[1, -1, 1, -1, -1, -1, n] - S2[1, -1, 1, 1, -1, -1, n]/2 - 
   3*S2[1, 1, -1, -1, -1, -1, n] + S2[1, 1, -1, -1, 1, -1, n]/2 + 
   (3*S2[1, 1, 1, -1, -1, -1, n])/2 - (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, -1, 2, -1, n] -> 
  (13*Diff[Half[S2[1, n], n], n, 1]^3)/48 - 
   (67*Diff[Half[S2[1, n], n], n, 2]^2)/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 + 
   (1451*Diff[Half[S2[1, n], n], n, 5])/1440 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/24 + Diff[Half[S2[4, 1, n], n], n, 
    1] + Diff[Half[S2[2, 1, 1, n], n], n, 2]/8 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 - 
   (39*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 - 
   (1325*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 + 
   (9*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (1297*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 - 
   (535*Diff[S2[1, n], n, 1]^3)/24 - (103*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + 8*Diff[S2[1, n], n, 2]^2 - 
   (195*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/32 + 
   (143*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/9 - 
   (1241*Diff[S2[1, n], n, 5])/1440 + 4*Diff[S2[-4, 1, n], n, 1] + 
   (53*Diff[S2[-3, 1, n], n, 2])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (59*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   (19*Diff[S2[-2, 1, n], n, 3])/6 + (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/6 - 
   (179*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/4 + 
   (81*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (411*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (21*Diff[S2[-1, 1, n], n, 4])/8 + 3*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] - (27*Diff[S2[1, n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/4 + (23*Diff[S2[2, 1, n], n, 3])/12 - 
   8*Diff[S2[4, 1, n], n, 1] - 16*Diff[S2[-3, 1, 1, n], n, 1] + 
   (3*Diff[S2[-2, 1, -2, n], n, 1])/2 + (3*Diff[S2[-2, 1, -1, n], n, 2])/2 + 
   Diff[S2[-1, -2, -1, n], n, 2]/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   22*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   (9*Diff[S2[-1, 1, 1, n], n, 3])/4 + (5*Diff[S2[1, 2, -1, n], n, 2])/2 + 
   Diff[S2[2, 1, -2, n], n, 1] + (13*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/2 + 6*Diff[S2[3, 1, 1, n], n, 1] - 
   11*Diff[S2[-2, 1, 1, 1, n], n, 1] + (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    2 + Diff[S2[-1, 1, -1, 1, n], n, 2] - (13*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 - 2*Diff[S2[1, -1, 1, -2, n], n, 1] + 
   2*Diff[S2[1, -1, 1, 2, n], n, 1] - 8*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   4*Diff[S2[1, 1, -1, 2, n], n, 1] - 4*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   2*Diff[S2[1, 2, -1, -1, n], n, 1] + 10*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1] - 
   2*Diff[S2[-1, 1, -1, -1, -1, n], n, 1] + 
   (5*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/4 + 
   3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1] + 
   (5*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 - 
   6*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   6*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   2*Diff[S2[1, -1, -1, 1, -1, n], n, 1] - 
   (7*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 - 
   6*Diff[S2[1, 1, -1, -1, -1, n], n, 1] - Diff[S2[1, 1, -1, 1, -1, n], n, 
    1] - 2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (43*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/8 - (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 + (155*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (47*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (7*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   (9*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (17*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (37*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (17*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    8 + (9*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (9*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   4*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (49*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/144 + 
   Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/12 - (23*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/6 + (157*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    72 - (31*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/4 + 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (41*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/4 + 
   Half[S2[2, 1, n], n]^2/16 - (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 - 
   Half[S2[4, 1, 1, n], n]/4 - Half[S2[2, 2, 1, 1, n], n]/4 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/3 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/6 - 
   (41*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - 
   (7*S2[-1, Infinity]^6)/360 - (331*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/48 - 
   (53*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/4 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/4 + 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (571*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 - 
   (109*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 + 
   (137*Diff[S2[1, n], n, 4]*S2[1, n])/48 + 
   (25*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (479*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (25*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/8 - 
   (49*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/2 - 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + Diff[S2[2, 1, -1, n], n, 1]*
    S2[1, n] - (23*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n] - 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/12 - (685*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (89*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (115*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (29*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (53*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/6 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 + 
   (5*Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (65*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (21*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/4 + 
   (29*S2[-1, Infinity]^5*S2[1, n])/96 + 
   (97*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (85*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/2 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 - 
   (217*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/12 + 
   (1337*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (1511*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/12 + 
   (55*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (25*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 2*Diff[S2[-1, 1, -1, n], n, 1]*
    S2[1, n]^2 + (49*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (163*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (31*Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + 
   (19*S2[-1, Infinity]^4*S2[1, n]^2)/48 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/8 + 
   (79*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 - 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (35*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    2 + (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 - 
   (167*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]^4)/6 + (25*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - S2[1, n]^6/24 - (243*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (361*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/72 - (5*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/8 + (3*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 + (37*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/24 + 
   (273*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (1793*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (289*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (337*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (51*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (123*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (673*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (59*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (265*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (7*Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (103*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (29*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (83*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (69*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (227*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (19*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (33*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (299*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (89*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (529*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/6 - (181*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 + (13*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/24 + (43*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (111*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (437*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 + (81*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 - (21*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (23*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/6 - (185*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/24 - (49*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/24 - (19*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/4 - (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/16 + (47*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    8 + (47*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (51*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (25*S2[1, n]^4*S2[2, Infinity])/16 - 
   (943*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (3151*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/240 - 
   (703*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/240 + 
   (1947*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (2871*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (1003*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/120 - 
   (875*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 - 
   (301*S2[1, n]^2*S2[2, Infinity]^2)/60 + (40251*S2[2, Infinity]^3)/1120 + 
   (415*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 + 
   (607*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 - 
   (1799*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (1057*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 - 
   (125*Half[S2[1, n], n]^3*S2[3, Infinity])/96 + 
   (107*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (251*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (745*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (437*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (445*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (93*S2[1, n]^3*S2[3, Infinity])/32 - 
   (305*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (147*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/4 - 
   (12835*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (175*S2[3, Infinity]^2)/768 + (1631*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (8757*S2[1, n]*S2[5, Infinity])/128 + (3*S2[-5, -1, Infinity])/2 + 
   29*S2[-5, 1, n] + 6*Half[S2[1, n], n]*S2[-4, 1, n] + 
   7*S2[1, n]*S2[-4, 1, n] - (21*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    8 - (187*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (49*Half[S2[1, n], n]^2*S2[-3, 1, n])/24 + 
   (83*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (35*S2[1, n]^2*S2[-3, 1, n])/12 + (893*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (95*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   Half[S2[1, n], n]^3*S2[-2, 1, n] - (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (215*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (25*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   S2[1, n]^3*S2[-2, 1, n] + (109*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (211*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (75*S2[3, Infinity]*S2[-2, 1, n])/16 + S2[-2, 1, n]^2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (805*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (233*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   (23*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (5*Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (37*S2[-1, Infinity]^4*S2[-1, 1, n])/48 - 
   (121*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (83*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/12 + 
   (4*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (121*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/3 + 
   (19*S2[1, n]^4*S2[-1, 1, n])/24 - (15*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (19*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (19*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (55*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (79*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (69*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (47*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (1247*S2[2, Infinity]^2*S2[-1, 1, n])/120 - 
   (279*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (113*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (5*S2[-3, 1, n]*S2[-1, 1, n])/8 - (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/8 - (67*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   (17*S2[-1, 1, n]^3)/24 + (55*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    24 - (115*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (17*Half[S2[1, n], n]^3*S2[2, 1, n])/24 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (87*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 - 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (5*S2[1, n]^3*S2[2, 1, n])/12 + (109*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (19*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (213*S2[3, Infinity]*S2[2, 1, n])/16 + 6*S2[-2, 1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (17*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 5*S2[2, 1, n]^2 + 
   2*Half[S2[1, n], n]*S2[4, 1, n] - 4*S2[1, n]*S2[4, 1, n] - 
   19*S2[-4, 1, 1, n] - 2*S2[-3, -2, 1, n] + Half[S2[1, n], n]*
    S2[-3, 1, 1, n] + 8*S2[1, n]*S2[-3, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 + (S2[1, n]*S2[-2, 1, -2, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/2 + 
   6*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 - (31*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 - (5*S2[-2, 2, -2, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (25*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (7*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/12 + 
   (95*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (13*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (5*Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/8 + 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (2*S2[1, n]^3*S2[-1, 1, -1, n])/3 - 
   (11*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (17*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (19*S2[3, Infinity]*S2[-1, 1, -1, n])/4 + (S2[-2, 1, n]*S2[-1, 1, -1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/2 + (3*S2[-1, 1, -1, n]^2)/4 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   (11*S2[1, n]^3*S2[-1, 1, 1, n])/4 + 
   (23*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (87*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (53*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (51*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 - (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (11*S2[2, 1, n]*S2[-1, 1, 1, n])/2 + (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    4 - 3*S2[-1, 1, 1, n]^2 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    2 - 14*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/2 + (29*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*
    S2[2, 1, -2, n] - 3*S2[1, n]*S2[2, 1, -2, n] - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/4 - 
   (109*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (19*S2[1, n]^2*S2[2, 1, -1, n])/6 + (95*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (7*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (11*S2[1, n]^2*S2[2, 1, 1, n])/2 - (53*S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (7*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 5*S2[3, 1, -2, n] - 
   3*Half[S2[1, n], n]*S2[3, 1, 1, n] + 3*S2[1, n]*S2[3, 1, 1, n] + 
   10*S2[4, 1, 1, n] - 25*S2[-3, 1, 1, 1, n] + 2*S2[-2, -2, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 5*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   2*S2[-2, 2, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/2 - (13*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    12 + (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (25*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 - 
   2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - 
   (15*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   2*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] - 10*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] + 8*S2[1, n]^2*S2[-1, 1, 1, 1, n] + 
   (25*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   6*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (83*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   8*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   4*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] + 
   18*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (19*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (187*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (37*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] + S2[1, n]*S2[1, -1, 1, -2, n] + 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] + 5*S2[1, n]*S2[1, 1, -2, -1, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] + 
   8*S2[1, n]*S2[1, 1, 2, -1, n] + 6*S2[2, -2, 1, 1, n] - 
   Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - 5*S2[1, n]*S2[2, 1, 1, 1, n] - 
   6*S2[-2, 1, 1, 1, 1, n] - 2*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n] + 
   2*S2[1, n]*S2[-1, -1, 1, -1, -1, n] - 5*Half[S2[1, n], n]*
    S2[-1, 1, -1, -1, -1, n] + (5*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] - 4*S2[1, n]*S2[-1, 1, -1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n] - 
   (5*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] + 4*S2[1, n]*S2[-1, 1, 1, 1, -1, n] + 
   (41*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (145*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + S2[1, -2, -1, 1, -1, n] - 
   8*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   8*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 2*Half[S2[1, n], n]*
    S2[1, -1, -1, 1, -1, n] - 2*S2[1, n]*S2[1, -1, -1, 1, -1, n] - 
   4*S2[1, -1, -1, 1, 2, n] - S2[1, -1, 1, -2, -1, n] + 
   (7*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (7*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 6*S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 1, 2, n] - 4*S2[1, -1, 1, 2, -1, n] - 
   2*S2[1, 1, -2, -1, -1, n] - 6*S2[1, 1, -2, -1, 1, n] - 
   8*S2[1, 1, -2, 1, -1, n] - S2[1, 1, -1, -2, -1, n] - 
   S2[1, 1, -1, -1, -2, n] + (9*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    2 - (9*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 8*S2[1, 1, -1, 1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - S2[1, 1, -1, 1, 2, n] - 
   4*S2[1, 1, -1, 2, -1, n] - 28*S2[1, 1, 1, -2, -1, n] - 
   16*S2[1, 1, 1, -1, -2, n] + (5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/
    2 - (5*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 - 3*S2[1, 1, 1, -1, 2, n] - 
   33*S2[1, 1, 1, 2, -1, n] - 8*S2[1, 1, 2, -1, -1, n] - 
   8*S2[1, 1, 2, -1, 1, n] - 15*S2[1, 1, 2, 1, -1, n] - 
   4*S2[1, 2, 1, -1, -1, n] - 5*S2[1, 2, 1, 1, -1, n] + 
   6*S2[2, 1, 1, 1, 1, n] + (5*S2[-1, -1, -1, 1, -1, -1, n])/2 + 
   (13*S2[-1, -1, 1, -1, -1, -1, n])/2 - S2[-1, -1, 1, 1, -1, -1, n] + 
   11*S2[-1, 1, -1, -1, -1, -1, n] + (5*S2[-1, 1, -1, -1, -1, 1, n])/2 - 
   S2[-1, 1, -1, -1, 1, 1, n] + 3*S2[-1, 1, -1, 1, 1, 1, n] - 
   S2[-1, 1, 1, -1, -1, -1, n] + (3*S2[-1, 1, 1, -1, -1, 1, n])/2 + 
   3*S2[-1, 1, 1, 1, -1, -1, n] - 3*S2[-1, 1, 1, 1, -1, 1, n] + 
   14*S2[-1, 1, 1, 1, 1, 1, Infinity] + 15*S2[1, -1, -1, -1, -1, -1, n] - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/2 - 3*S2[1, -1, -1, 1, -1, -1, n] - 
   S2[1, -1, -1, 1, 1, -1, n]/2 - 2*S2[1, -1, 1, -1, -1, -1, n] + 
   (5*S2[1, -1, 1, 1, -1, -1, n])/2 - 6*S2[1, 1, -1, -1, -1, -1, n] - 
   (3*S2[1, 1, -1, -1, 1, -1, n])/2 - S2[1, 1, -1, 1, -1, -1, n] - 
   (3*S2[1, 1, 1, -1, -1, -1, n])/2 - 3*S2[1, 1, 1, -1, 1, -1, n] - 
   12*S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, -1, 2, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/64 + (149*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 + (443*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    288 - (229*Diff[Half[S2[1, n], n], n, 5])/384 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   (67*Diff[Half[S2[2, 1, n], n], n, 3])/192 - 
   (21*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 + 
   (289*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (1769*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (1693*Diff[S2[1, n], n, 1]^3)/192 + 
   (215*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/64 - 
   (787*Diff[S2[1, n], n, 2]^2)/192 + 
   (2845*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (8323*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (283*Diff[S2[1, n], n, 5])/640 + 5*Diff[S2[-4, 1, n], n, 1] + 
   (53*Diff[S2[-3, 1, n], n, 2])/32 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (49*Diff[S2[-2, 1, n], n, 3])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (121*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (15*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (347*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (87*Diff[S2[-1, 1, n], n, 4])/64 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (37*Diff[S2[2, 1, n], n, 3])/48 + (7*Diff[S2[4, 1, n], n, 1])/2 + 
   7*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/4 - 
   (5*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/48 - (59*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (115*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/4 - (13*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (29*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (23*Diff[S2[2, 1, 1, n], n, 2])/8 - 4*Diff[S2[3, 1, 1, n], n, 1] + 
   (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    4 + (13*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, -2, n], n, 
    1] - (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 + 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] - 2*Diff[S2[1, 1, -1, 2, n], n, 1] + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - (7*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 + 
   (9*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 - Diff[S2[-1, 1, -1, 1, 1, n], 
    n, 1] - Diff[S2[-1, 1, 1, 1, -1, n], n, 1] + 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   4*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 + 
   (15*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/12 + (157*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (119*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    4 - (163*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 + (517*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 + 
   (269*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (19*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/6 + (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    64 - (11*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (47*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (27*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (47*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (35*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 + (31*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 - (155*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    192 + (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 + 
   (107*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 + 
   (31*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 - 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (67*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 - (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   (7*Half[S2[2, 1, n], n]^2)/128 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (3*Half[S2[4, 1, 1, n], n])/16 - (47*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    16 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^5)/192 + 
   (13*S2[-1, Infinity]^6)/960 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/16 + 
   (383*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/6 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 - 
   (13*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (265*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (487*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (1705*Diff[S2[1, n], n, 4]*S2[1, n])/1152 - 
   (581*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 - 
   (137*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (439*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (63*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (13*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (71*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (15*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (49*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 + 
   (45*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/3 + (203*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (35*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (95*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (101*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (27*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (185*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 + 
   (325*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (67*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (155*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (37*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (95*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/8 + 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (39*S2[-1, Infinity]^5*S2[1, n])/320 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (493*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 + 
   (49*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (481*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (509*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (1681*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (1015*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 - 
   (65*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (73*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 - 
   7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - 
   (27*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (115*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (175*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 + 
   (49*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (145*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 - 
   (67*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (349*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (235*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (17*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (65*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (287*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 + 
   (77*Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (11*Half[S2[1, n], n]*S2[1, n]^5)/
    16 + (5*S2[1, n]^6)/96 + (85*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (445*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/288 - (5*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 - (5*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 - (163*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/64 - 
   (95*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (125*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (109*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (67*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (637*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 - (49*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (175*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/32 + 
   (49*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   Half[S2[2, 1, 1, n], n]*S2[2, Infinity] - 
   (207*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (135*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (223*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (21*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (197*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (33*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (103*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 - 
   (793*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (877*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (49*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    12 + (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (757*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (95*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (17*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (3*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/8 + (1195*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (887*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (139*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (167*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 - (197*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/64 - (619*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    96 + (391*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 + 
   (19*S2[1, n]^4*S2[2, Infinity])/8 + 
   (2233*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (1829*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 + 
   (1117*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (153*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 - 
   (3191*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (5381*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (1187*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (913*S2[1, n]^2*S2[2, Infinity]^2)/240 - (4763*S2[2, Infinity]^3)/560 - 
   (617*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 - 
   (427*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (139*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (305*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (161*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/256 - 
   (177*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/24 - 
   (393*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 - 
   (1409*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 - 
   (665*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 + 
   (1745*S2[1, n]^3*S2[3, Infinity])/768 - 
   (521*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (2733*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (2207*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (29741*S2[3, Infinity]^2)/6144 + (15*Half[S2[1, n], n]*S2[5, Infinity])/
    256 - (3797*S2[1, n]*S2[5, Infinity])/128 + (5*S2[-5, -1, Infinity])/2 - 
   6*S2[-5, 1, n] - Half[S2[1, n], n]*S2[-4, 1, n] - 
   4*S2[1, n]*S2[-4, 1, n] + (173*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    96 + (53*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (21*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (73*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (157*S2[1, n]^2*S2[-3, 1, n])/96 - (37*S2[2, Infinity]*S2[-3, 1, n])/6 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 + 
   (43*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 + 
   (7*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (385*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 - 
   (95*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 + 
   (121*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 + 
   (31*S2[1, n]^3*S2[-2, 1, n])/48 - (61*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (47*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/12 + 
   (81*S2[3, Infinity]*S2[-2, 1, n])/64 - (7*S2[-2, 1, n]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (23*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (81*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (205*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 + 
   (359*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 - 
   (33*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/24 - (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    16 - (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (11*S2[-1, Infinity]^4*S2[-1, 1, n])/64 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (101*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (25*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (101*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (355*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (S2[1, n]^4*S2[-1, 1, n])/3 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (25*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (63*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (185*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (41*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (87*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (2689*S2[2, Infinity]^2*S2[-1, 1, n])/960 + 
   (83*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (889*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (49*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (91*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (103*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (29*S2[2, Infinity]*S2[-1, 1, n]^2)/
    24 - (25*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (163*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/32 + 
   (15*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (93*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 - 
   (51*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 + 
   (81*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (47*S2[1, n]^3*S2[2, 1, n])/96 - (19*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (27*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (1123*S2[3, Infinity]*S2[2, 1, n])/192 - (15*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   (31*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - (23*S2[2, 1, n]^2)/8 + 
   2*S2[1, n]*S2[4, 1, n] + 6*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] - 
   3*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (27*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 + 
   4*S2[2, Infinity]*S2[-2, 1, -1, n] + (5*S2[-2, 2, -2, n])/4 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (29*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (19*S2[1, n]^2*S2[-1, -2, -1, n])/96 - 
   (7*S2[2, Infinity]*S2[-1, -2, -1, n])/6 - 
   (7*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (13*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 + 
   (19*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (401*S2[3, Infinity]*S2[-1, 1, -1, n])/192 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (7*S2[-1, 1, -1, n]^2)/32 - (Diff[Half[S2[1, n], n], n, 2]*
     S2[-1, 1, 1, n])/2 - Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 
   2*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (7*S2[1, n]^3*S2[-1, 1, 1, n])/2 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (15*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + 4*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (31*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 3*S2[2, 1, n]*S2[-1, 1, 1, n] + S2[-1, 1, 1, n]^2/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (45*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 - 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 - (7*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 + (95*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 + (83*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (137*S2[1, n]^2*S2[2, 1, -1, n])/48 - (7*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (31*S2[-1, 1, n]*S2[2, 1, -1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   3*S2[1, n]^2*S2[2, 1, 1, n] + (9*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + (3*S2[3, 1, -2, n])/2 + 
   S2[1, n]*S2[3, 1, 1, n] - 7*S2[4, 1, 1, n] + 9*S2[-3, 1, 1, 1, n] - 
   2*S2[-2, -2, 1, 1, n] + Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 
   (11*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + (3*S2[-2, 2, 1, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (7*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (7*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (7*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 4*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, n] + 4*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] + 
   5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   5*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (25*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (141*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (67*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (47*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (33*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   S2[1, n]*S2[1, -1, 1, -2, n] - Half[S2[1, n], n]*S2[1, -1, 1, 2, n] + 
   S2[1, n]*S2[1, -1, 1, 2, n] - S2[1, n]*S2[1, 1, -2, -1, n] - 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + S2[1, n]*S2[1, 1, -1, 2, n] - 
   (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 - (3*S2[2, -2, 1, 1, n])/2 + 
   2*S2[1, n]*S2[2, 1, 1, 1, n] + S2[2, 2, 1, 1, n]/2 + 
   (9*S2[-2, 1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (7*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   2*S2[1, n]*S2[-1, 1, -1, 1, 1, n] - S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 
   (25*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (117*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (21*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (7*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 2*S2[1, -1, -1, 1, 2, n] - 
   (7*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (7*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + 3*S2[1, -1, 1, 1, -2, n] - 
   (3*S2[1, -1, 1, 1, 2, n])/2 + 2*S2[1, -1, 1, 2, -1, n] + 
   S2[1, 1, -2, 1, -1, n] - (7*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 + 
   (7*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 4*S2[1, 1, -1, 1, -2, n] - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + 2*S2[1, 1, -1, 2, -1, n] + 
   5*S2[1, 1, 1, -2, -1, n] + 6*S2[1, 1, 1, -1, -2, n] + 
   2*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 9*S2[1, 1, 1, 2, -1, n] + 
   4*S2[1, 1, 2, -1, -1, n] + (3*S2[1, 1, 2, -1, 1, n])/2 + 
   6*S2[1, 1, 2, 1, -1, n] + S2[1, 2, -1, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   S2[2, 1, 1, 1, 1, n] - (3*S2[-1, -1, -1, 1, -1, -1, n])/8 - 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - (9*S2[-1, 1, -1, -1, -1, -1, n])/4 - 
   (7*S2[-1, 1, -1, -1, -1, 1, n])/8 - S2[-1, 1, -1, 1, 1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 - (39*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 - 
   (15*S2[1, -1, -1, -1, -1, -1, n])/4 + (7*S2[1, -1, -1, -1, 1, -1, n])/8 + 
   (7*S2[1, -1, -1, 1, -1, -1, n])/4 + (7*S2[1, -1, 1, -1, -1, -1, n])/4 + 
   (7*S2[1, 1, -1, -1, -1, -1, n])/2 + S2[1, 1, 1, -1, 1, -1, n]/2 + 
   2*S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, -1, -1, -2, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/64 - (21*Diff[Half[S2[1, n], n], n, 2]^2)/
    32 - (61*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    72 + (95*Diff[Half[S2[1, n], n], n, 5])/128 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 3])/16 + 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/16 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/4 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (95*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (107*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/18 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (2353*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (2195*Diff[S2[1, n], n, 1]^3)/192 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/8 + 
   (175*Diff[S2[1, n], n, 2]^2)/32 - (4481*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 + (11129*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/1152 - (3*Diff[S2[1, n], n, 5])/5 - 
   (3*Diff[S2[-4, 1, n], n, 1])/2 + (9*Diff[S2[-3, 1, n], n, 2])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (34*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   (15*Diff[S2[-2, 1, n], n, 3])/8 + (35*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/32 - 
   (173*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (69*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (439*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (15*Diff[S2[-1, 1, n], n, 4])/8 + (19*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (13*Diff[S2[2, 1, n], n, 3])/48 - Diff[S2[4, 1, n], n, 1] - 
   7*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (3*Diff[S2[-1, -2, -1, n], n, 2])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (31*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (57*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (123*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (17*Diff[S2[-1, 1, 1, n], n, 3])/16 + (9*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (17*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   (7*Diff[S2[2, 1, 1, n], n, 2])/4 + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    16 - (13*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + 2*Diff[S2[1, 1, -1, 2, n], n, 1] - 
   Diff[S2[1, 2, -1, -1, n], n, 1] + 3*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   (5*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (11*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (5*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (15*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (163*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 - (11*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (313*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (97*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (565*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (593*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (157*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (53*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (55*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    64 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (15*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (13*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (79*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (33*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (29*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 + (35*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    48 - (25*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (19*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/2 - 
   (21*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (209*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   Half[S2[2, 1, n], n]^2/8 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (3*Half[S2[4, 1, 1, n], n])/16 + (41*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 + (71*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    192 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^5)/192 - 
   (17*S2[-1, Infinity]^6)/960 - (71*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 - 
   (227*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (11*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (421*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (641*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 + 
   (2321*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (85*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (145*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (159*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (173*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/64 - 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (41*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (29*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (17*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (91*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (47*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    6 + (337*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (37*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (55*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (21*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (65*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (101*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (209*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (19*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (9*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (21*S2[-1, Infinity]^5*S2[1, n])/320 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (509*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (29*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 - 
   (611*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (40*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/3 - 
   (539*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 + 3*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (833*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (45*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (41*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (85*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (47*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/3 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (23*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (413*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   (185*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (149*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 + 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (17*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    192 + (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 - 
   (313*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (13*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - S2[1, n]^6/48 - (29*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    16 + (1435*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (373*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (653*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (79*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (187*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (13*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (129*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (229*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (133*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 + (79*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (19*Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (145*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (21*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (219*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (105*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (245*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (69*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (75*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (173*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (39*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (31*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (127*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (331*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (509*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (341*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/3 - (101*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    48 + (85*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/192 - 
   (91*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (1049*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (175*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/8 - (3*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 - (389*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (587*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (25*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/16 + (37*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (151*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/64 + (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    16 - (287*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (17*S2[1, n]^4*S2[2, Infinity])/96 - 
   (1191*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (839*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/96 - 
   (823*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (189*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/64 + 
   (157*S2[-1, Infinity]^2*S2[2, Infinity]^2)/20 + 
   (203*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/120 - 
   (3221*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (1517*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (50581*S2[2, Infinity]^3)/
    4480 + (393*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (71*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (179*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (411*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 + (343*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/256 - 
   (265*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (93*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (175*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (253*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/256 + 
   (1043*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (983*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 + 
   (189*S2[1, n]^3*S2[3, Infinity])/256 - 
   (91*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (1227*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (1737*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (2541*S2[3, Infinity]^2)/512 - (503*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (5937*S2[1, n]*S2[5, Infinity])/256 - (39*S2[-5, -1, Infinity])/8 + 
   6*S2[-5, 1, n] + Half[S2[1, n], n]*S2[-4, 1, n] - 
   (5*S2[1, n]*S2[-4, 1, n])/2 + (47*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/96 - (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/3 - 
   (15*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/3 + 
   (181*S2[1, n]^2*S2[-3, 1, n])/96 + (349*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (33*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (35*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (155*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - Half[S2[2, 1, n], n]*
    S2[-2, 1, n] + (4*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/
    3 + (629*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (59*S2[1, n]^3*S2[-2, 1, n])/48 + (121*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] - 
   (307*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (45*S2[3, Infinity]*S2[-2, 1, n])/32 + 2*S2[-2, 1, n]^2 + 
   (103*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (121*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (265*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (281*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 + 
   (37*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (43*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 + 
   (7*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (89*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (43*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (113*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 + (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (151*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (437*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 + 
   (7*S2[1, n]^4*S2[-1, 1, n])/48 - (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (75*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (97*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (35*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (23*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (1841*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (59*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (7*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (77*S2[-3, 1, n]*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (137*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (29*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/48 - (29*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (37*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (111*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (167*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 - 
   (S2[1, n]^3*S2[2, 1, n])/32 + 3*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] - (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (197*S2[3, Infinity]*S2[2, 1, n])/32 + 6*S2[-2, 1, n]*S2[2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (21*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 4*S2[2, 1, n]^2 - 
   (15*S2[1, n]*S2[4, 1, n])/2 - 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 + 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] + 2*S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/4 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 + (37*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (21*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - (9*S2[-2, 2, -2, n])/8 - (67*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/96 - (17*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 + 
   (19*S2[1, n]^2*S2[-1, -2, -1, n])/96 + 
   (73*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (11*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 - 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (25*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (17*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (37*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (1073*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (5*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 - 
   (11*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 + 
   (5*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (7*S2[-1, 1, -1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (13*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (5*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (33*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    8 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (37*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (3*S2[-1, 1, 1, n]^2)/4 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (63*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 2*S2[1, n]^2*S2[1, 2, -1, n] + 
   (7*S2[2, Infinity]*S2[1, 2, -1, n])/2 + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (67*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 - (14*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (151*S2[1, n]^2*S2[2, 1, -1, n])/48 + (43*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (47*S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + 2*S2[1, n]^2*S2[2, 1, 1, n] - 
   6*S2[2, Infinity]*S2[2, 1, 1, n] + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[3, 1, -2, n])/2 + (13*S2[4, 1, 1, n])/2 - 9*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n]/2 + Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 
   (7*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (55*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (13*S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (13*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (8*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (29*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (53*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (123*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (71*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (23*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (133*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (21*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   Half[S2[1, n], n]*S2[1, -1, 1, 2, n] - S2[1, n]*S2[1, -1, 1, 2, n] + 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 + Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - 
   S2[1, n]*S2[1, 1, -1, 2, n] + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (3*S2[2, -2, 1, 1, n])/2 - (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 - 
   2*S2[1, n]*S2[-1, 1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - (7*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (25*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (63*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (9*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 2*S2[1, -1, -1, 1, 2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (5*S2[1, -1, 1, 1, -2, n])/2 + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - 2*S2[1, -1, 1, 2, -1, n] - 
   S2[1, 1, -2, -1, 1, n]/2 - 2*S2[1, 1, -2, 1, -1, n] + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 3*S2[1, 1, -1, 1, -2, n] - 
   2*S2[1, 1, -1, 2, -1, n] - 6*S2[1, 1, 1, -2, -1, n] - 
   6*S2[1, 1, 1, -1, -2, n] - 9*S2[1, 1, 1, 2, -1, n] - 
   4*S2[1, 1, 2, -1, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   6*S2[1, 1, 2, 1, -1, n] - S2[1, 2, -1, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] + 
   (3*S2[2, 1, 1, 1, 1, n])/2 + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 + (3*S2[-1, -1, 1, 1, -1, -1, n])/2 + 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + (25*S2[-1, 1, -1, -1, -1, 1, n])/8 + 
   (5*S2[-1, 1, -1, 1, -1, -1, n])/4 + (7*S2[-1, 1, -1, 1, 1, 1, n])/4 + 
   2*S2[-1, 1, 1, -1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   (51*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + (15*S2[1, -1, -1, -1, -1, -1, n])/
    4 - (11*S2[1, -1, -1, -1, 1, -1, n])/8 - (5*S2[1, -1, -1, 1, -1, -1, n])/
    2 - S2[1, -1, 1, -1, -1, -1, n]/4 - 4*S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, 1, -1, 1, -1, n]/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, -1, -1, 2, n] -> (-5*Diff[Half[S2[1, n], n], n, 1]^3)/96 + 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/8 - 
   (1651*Diff[Half[S2[1, n], n], n, 5])/2880 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 - Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (79*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (257*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (1381*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (611*Diff[S2[1, n], n, 1]^3)/48 + (63*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (223*Diff[S2[1, n], n, 2]^2)/48 + 
   (617*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (871*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (1441*Diff[S2[1, n], n, 5])/2880 - 3*Diff[S2[-4, 1, n], n, 1] - 
   (23*Diff[S2[-3, 1, n], n, 2])/12 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (131*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   2*Diff[S2[-2, 1, n], n, 3] - (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (113*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (197*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 + 
   (235*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (25*Diff[S2[-1, 1, n], n, 4])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (23*Diff[S2[2, 1, n], n, 3])/24 + 4*Diff[S2[4, 1, n], n, 1] + 
   10*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (51*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (17*Diff[S2[-1, 1, 1, n], n, 3])/12 - (3*Diff[S2[1, 2, -1, n], n, 2])/2 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (23*Diff[S2[2, 1, -1, n], n, 2])/12 - 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 - 3*Diff[S2[3, 1, 1, n], n, 1] + 
   (13*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 + (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + Diff[S2[1, -1, 1, -2, n], n, 
    1] - Diff[S2[1, -1, 1, 2, n], n, 1] + 4*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   2*Diff[S2[1, 1, -1, 2, n], n, 1] + 2*Diff[S2[1, 1, 2, -1, n], n, 1] + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - 5*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] - (5*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (11*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/12 + (79*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 + (17*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (99*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    6 - (115*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (25*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (55*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (59*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (47*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/32 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (19*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + (93*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (97*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (17*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (19*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (55*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/6 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (23*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   Half[S2[2, 1, n], n]^2/32 - (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/2 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 + 
   Half[S2[4, 1, 1, n], n]/8 + Half[S2[2, 2, 1, 1, n], n]/8 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/64 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 + (11*S2[-1, Infinity]^6)/
    1440 + (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     S2[1, n])/12 + (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 - 
   (35*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 - 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (425*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (767*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (77*Diff[S2[1, n], n, 4]*S2[1, n])/64 - 
   (81*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (469*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (91*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (23*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (29*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (23*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (9*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (79*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (121*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (21*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (43*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (127*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (233*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (25*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (7*S2[-1, Infinity]^5*S2[1, n])/80 - 
   (75*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (387*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 + 
   (107*Diff[S2[1, n], n, 3]*S2[1, n]^2)/64 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (329*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (55*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - 
   (67*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (67*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (61*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (83*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (43*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/24 + 
   (191*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (49*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (229*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/6 + 
   (17*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (79*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/3 - (7*Half[S2[1, n], n]*S2[1, n]^5)/
    12 + S2[1, n]^6/48 + (379*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/96 - (17*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    6 + (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    12 - (533*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 + 
   (379*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 - 
   7*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (71*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/12 + 
   3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity] + 
   (27*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   8*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (135*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (67*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 + 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (15*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (69*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (15*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (93*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (29*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (123*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (21*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (131*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (89*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (69*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (29*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (81*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (543*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (33*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/8 + (9*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 + 6*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
    S2[2, Infinity] - (21*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/
    16 + (109*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (141*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (65*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (353*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (193*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (109*S2[1, n]^4*S2[2, Infinity])/48 + 
   (155*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 + 
   (2817*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (477*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 - 
   (589*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (1917*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (1019*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (1959*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (459*S2[1, n]^2*S2[2, Infinity]^2)/160 - (16199*S2[2, Infinity]^3)/840 - 
   (443*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (95*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 - 
   (47*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (655*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 - (449*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (559*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (47*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (433*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (91*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (65*S2[1, n]^3*S2[3, Infinity])/128 + 
   (857*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (1449*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (5317*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (2683*S2[3, Infinity]^2)/1536 - (141*Half[S2[1, n], n]*S2[5, Infinity])/
    16 - (2067*S2[1, n]*S2[5, Infinity])/64 - (9*S2[-5, -1, Infinity])/4 - 
   15*S2[-5, 1, n] - 4*Half[S2[1, n], n]*S2[-4, 1, n] - 
   2*S2[1, n]*S2[-4, 1, n] + (27*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 + (31*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (31*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-3, 1, n] + (25*S2[1, n]^2*S2[-3, 1, n])/16 - 
   (43*S2[2, Infinity]*S2[-3, 1, n])/4 - 2*Diff[Half[S2[1, n], n], n, 2]*
    S2[-2, 1, n] + (19*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (23*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (85*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (13*S2[1, n]^3*S2[-2, 1, n])/24 - (15*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (37*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (31*S2[3, Infinity]*S2[-2, 1, n])/16 - S2[-2, 1, n]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/6 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 - 
   (61*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/6 + 
   (77*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/6 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (19*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (11*S2[1, n]^4*S2[-1, 1, n])/24 + (61*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (35*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (27*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (33*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (387*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (33*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (69*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 + (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (15*S2[1, n]^2*S2[-1, 1, n]^2)/16 + (41*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 + S2[-1, 1, n]^3/6 - (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/6 + 
   (29*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (31*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (87*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (23*S2[1, n]^3*S2[2, 1, n])/48 - (23*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (107*S2[3, Infinity]*S2[2, 1, n])/16 - 3*S2[-2, 1, n]*S2[2, 1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/2 - 
   Half[S2[1, n], n]*S2[4, 1, n] + 2*S2[1, n]*S2[4, 1, n] + 
   15*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - Half[S2[1, n], n]*
    S2[-3, 1, 1, n] - 3*S2[1, n]*S2[-3, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/4 + (17*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + S2[-1, 1, n]*S2[-2, 1, -1, n] + (5*S2[-2, 2, -2, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/16 - 
   (5*S2[2, Infinity]*S2[-1, -2, -1, n])/4 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/
    8 - (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (19*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/6 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/2 + 
   (23*S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 - 
   (33*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (51*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (15*S2[1, n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/8 - S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   2*S2[2, 1, n]*S2[-1, 1, 1, n] - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 + 
   (3*S2[-1, 1, 1, n]^2)/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/4 + 8*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/4 - (17*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 - S2[-1, 1, n]*S2[1, 2, -1, n] - Half[S2[1, n], n]*S2[2, 1, -2, n] + 
   2*S2[1, n]*S2[2, 1, -2, n] + (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/8 + (25*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] - (9*S2[1, n]^2*S2[2, 1, -1, n])/8 - 
   3*S2[2, Infinity]*S2[2, 1, -1, n] - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (11*S2[1, n]^2*S2[2, 1, 1, n])/4 + (27*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   S2[-1, 1, n]*S2[2, 1, 1, n] + 3*S2[3, 1, -2, n] + 
   2*Half[S2[1, n], n]*S2[3, 1, 1, n] - 2*S2[1, n]*S2[3, 1, 1, n] - 
   5*S2[4, 1, 1, n] + 15*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 2*S2[1, n]*S2[-2, 1, 1, 1, n] + 
   S2[-2, 2, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/
    4 - (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (13*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (5*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n] + 9*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] - 6*S2[1, n]^2*S2[-1, 1, 1, 1, n] - 
   (25*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (51*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (21*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (51*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (241*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] - S2[1, n]*S2[1, -1, 1, -2, n] - 
   3*S2[1, n]*S2[1, 1, -2, -1, n] - Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + 
   S2[1, n]*S2[1, 1, -1, 2, n] - 4*S2[1, n]*S2[1, 1, 2, -1, n] - 
   (9*S2[2, -2, 1, 1, n])/2 + 3*S2[1, n]*S2[2, 1, 1, 1, n] + 
   3*S2[-2, 1, 1, 1, 1, n] + Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n] - 
   S2[1, n]*S2[-1, -1, 1, -1, -1, n] + 3*Half[S2[1, n], n]*
    S2[-1, 1, -1, -1, -1, n] - (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] + (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (21*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - S2[1, -2, -1, 1, -1, n] + 
   6*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   6*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 2*S2[1, -1, -1, 1, 2, n] - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + 3*S2[1, -1, 1, 1, -2, n] - 
   S2[1, -1, 1, 1, 2, n] + 2*S2[1, -1, 1, 2, -1, n] + 
   3*S2[1, 1, -2, -1, 1, n] + 4*S2[1, 1, -2, 1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 4*S2[1, 1, -1, 1, -2, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] - 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] + S2[1, 1, -1, 1, 2, n] + 
   2*S2[1, 1, -1, 2, -1, n] + 14*S2[1, 1, 1, -2, -1, n] + 
   8*S2[1, 1, 1, -1, -2, n] - Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   S2[1, n]*S2[1, 1, 1, -1, -1, n] + 2*S2[1, 1, 1, -1, 2, n] + 
   17*S2[1, 1, 1, 2, -1, n] + 4*S2[1, 1, 2, -1, -1, n] + 
   4*S2[1, 1, 2, -1, 1, n] + 8*S2[1, 1, 2, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   3*S2[2, 1, 1, 1, 1, n] - S2[-1, -1, -1, 1, -1, -1, n] - 
   3*S2[-1, -1, 1, -1, -1, -1, n] + S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   6*S2[-1, 1, -1, -1, -1, -1, n] - (5*S2[-1, 1, -1, -1, -1, 1, n])/4 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + S2[-1, 1, 1, -1, -1, -1, n]/2 + 
   S2[-1, 1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   (11*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 10*S2[1, -1, -1, -1, -1, -1, n] + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, -1, 1, -1, -1, n])/2 - 
   S2[1, -1, -1, 1, 1, -1, n] + S2[1, -1, 1, -1, -1, -1, n] + 
   S2[1, -1, 1, 1, -1, -1, n] + 3*S2[1, 1, -1, -1, -1, -1, n] + 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, -1, 1, -2, n] -> (-17*Diff[Half[S2[1, n], n], n, 1]^3)/96 + 
   (13*Diff[Half[S2[1, n], n], n, 2]^2)/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 - 
   (823*Diff[Half[S2[1, n], n], n, 5])/2880 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/96 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 - Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (89*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (71*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 - 
   (1001*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (139*Diff[S2[1, n], n, 1]^3)/16 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (85*Diff[S2[1, n], n, 2]^2)/48 + 
   (277*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (479*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (613*Diff[S2[1, n], n, 5])/2880 - Diff[S2[-4, 1, n], n, 1]/2 - 
   (5*Diff[S2[-3, 1, n], n, 2])/24 + (25*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 + 
   (22*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (11*Diff[S2[-2, 1, n], n, 3])/12 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (7*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (181*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/96 + 
   (77*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (29*Diff[S2[-1, 1, n], n, 4])/48 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] - 
   (23*Diff[S2[2, 1, n], n, 3])/24 + 4*Diff[S2[4, 1, n], n, 1] + 
   (11*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/24 - 
   (51*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (39*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, n], n, 3]/6 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (13*Diff[S2[2, 1, -1, n], n, 2])/12 - 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 - 3*Diff[S2[3, 1, 1, n], n, 1] + 
   (9*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/24 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 + (9*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, -2, n], n, 
    1] - Diff[S2[1, -1, 1, 2, n], n, 1] + 4*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 2*Diff[S2[1, 1, 2, -1, n], n, 1] + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - 5*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (7*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (15*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (7*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/8 + (25*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (11*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (89*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (21*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 + 
   (75*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (77*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (73*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (151*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n] - 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (17*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (11*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (17*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (11*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (15*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 + (67*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (79*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (27*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    8 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 - 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   Half[S2[2, 1, n], n]^2/32 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/2 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/8 + Half[S2[2, 2, 1, 1, n], n]/8 - 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (29*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/96 + S2[-1, Infinity]^6/480 + 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 - 
   (43*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 - 
   (15*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (295*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (497*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (109*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (131*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 - 
   (23*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 - 
   (335*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (3*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (7*Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + 
   (11*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (17*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (23*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/12 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (31*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (9*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 + (41*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (59*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   6*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (55*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (77*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (163*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (23*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (79*S2[-1, Infinity]^5*S2[1, n])/480 - 
   (95*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/4 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (367*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 + 
   (99*Diff[S2[1, n], n, 3]*S2[1, n]^2)/64 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (283*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (57*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - 
   (47*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (173*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (29*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/8 + 
   (235*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (149*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 - 
   (17*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (25*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^4)/3 + 
   (4*Half[S2[1, n], n]^2*S2[1, n]^4)/3 - (5*Half[S2[1, n], n]*S2[1, n]^5)/
    12 - S2[1, n]^6/48 + (89*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    24 - 3*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity] + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    24 - (59*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/12 + 
   (157*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (43*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (641*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 + 
   (29*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (33*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (73*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (63*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/2 - 
   Half[S2[2, 1, 1, n], n]*S2[2, Infinity] - 
   (51*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (53*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (29*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (119*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (89*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (41*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (103*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (309*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (99*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (15*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (4*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    3 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (69*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (111*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (27*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (65*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (19*S2[1, n]^4*S2[2, Infinity])/48 + 
   (1387*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (1611*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (133*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 - 
   (59*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/8 - 
   (289*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 - 
   (543*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (1099*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (469*S2[1, n]^2*S2[2, Infinity]^2)/160 - (27997*S2[2, Infinity]^3)/1680 - 
   (631*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (215*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 - 
   (197*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/12 - 
   (635*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (27*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (241*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (257*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (307*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (317*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (373*S2[1, n]^3*S2[3, Infinity])/384 - 
   (35*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/12 - 
   (1329*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (4427*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (145*S2[3, Infinity]^2)/1536 + (113*Half[S2[1, n], n]*S2[5, Infinity])/
    64 - (1483*S2[1, n]*S2[5, Infinity])/32 - (9*S2[-5, -1, Infinity])/2 - 
   11*S2[-5, 1, n] - 6*S2[1, n]*S2[-4, 1, n] + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (23*S2[1, n]^2*S2[-3, 1, n])/16 - (129*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   3*Diff[S2[1, n], n, 2]*S2[-2, 1, n] - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (51*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/24 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/2 + (9*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (19*S2[3, Infinity]*S2[-2, 1, n])/8 - S2[-2, 1, n]^2/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 - 
   (313*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 + 
   (19*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 - 
   (15*S2[-1, Infinity]^4*S2[-1, 1, n])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n] + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (13*S2[1, n]^4*S2[-1, 1, n])/24 + (55*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (27*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (201*S2[2, Infinity]^2*S2[-1, 1, n])/32 + 
   (101*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (211*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (S2[-3, 1, n]*S2[-1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (13*S2[1, n]^2*S2[-1, 1, n]^2)/16 + (7*S2[2, Infinity]*S2[-1, 1, n]^2)/4 - 
   (13*S2[-1, 1, n]^3)/24 - (11*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    24 + (41*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (75*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (13*S2[1, n]^3*S2[2, 1, n])/48 - (45*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (31*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (57*S2[3, Infinity]*S2[2, 1, n])/8 - 3*S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - (5*S2[2, 1, n]^2)/2 + 
   S2[1, n]*S2[4, 1, n] + 5*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - 
   4*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - (S2[1, n]^2*S2[-2, 1, -1, n])/
    4 + (9*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 + (5*S2[-2, 2, -2, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/16 - 
   (19*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/2 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (145*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 3*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/4 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/4 + (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (45*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (23*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (47*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 + (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (7*S2[2, 1, n]*S2[-1, 1, 1, n])/2 - (3*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    4 + (3*S2[-1, 1, 1, n]^2)/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/4 + 6*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - (5*S2[1, n]^2*S2[1, 2, -1, n])/
    4 - (9*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + S2[1, n]*S2[2, 1, -2, n] + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   4*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (15*S2[1, n]^2*S2[2, 1, -1, n])/8 - (23*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (S2[-1, 1, n]*S2[2, 1, -1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (15*S2[1, n]^2*S2[2, 1, 1, n])/4 + 
   7*S2[2, Infinity]*S2[2, 1, 1, n] - (5*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   3*S2[3, 1, -2, n] - 5*S2[4, 1, 1, n] + 10*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n] - 3*S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] + 
   (3*S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (5*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + S2[2, Infinity]*
    S2[-1, 1, -1, 1, n] + (3*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (25*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (29*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (179*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (45*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Half[S2[1, n], n]*S2[1, -1, 1, -2, n] - S2[1, n]*S2[1, -1, 1, -2, n] - 
   3*S2[1, n]*S2[1, 1, -2, -1, n] - 4*S2[1, n]*S2[1, 1, 2, -1, n] - 
   2*S2[2, -2, 1, 1, n] + 3*S2[1, n]*S2[2, 1, 1, 1, n] + 
   3*S2[-2, 1, 1, 1, 1, n] + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - S2[1, n]*S2[-1, 1, -1, -1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   2*S2[1, n]*S2[-1, 1, -1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   3*S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 
   (35*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (79*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - S2[1, -2, -1, 1, -1, n] + 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 2*S2[1, -1, -1, 1, 2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + 3*S2[1, -1, 1, 1, -2, n] - 
   S2[1, -1, 1, 1, 2, n] + 2*S2[1, -1, 1, 2, -1, n] + 
   3*S2[1, 1, -2, -1, 1, n] + 4*S2[1, 1, -2, 1, -1, n] + 
   S2[1, 1, -1, -2, -1, n] + 2*S2[1, 1, -1, -1, -2, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 4*S2[1, 1, -1, 1, -2, n] - 
   2*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] + 
   2*S2[1, n]*S2[1, 1, -1, 1, -1, n] + 2*S2[1, 1, -1, 2, -1, n] + 
   14*S2[1, 1, 1, -2, -1, n] + 8*S2[1, 1, 1, -1, -2, n] - 
   (7*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 + 
   (7*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + S2[1, 1, 1, -1, 2, n] + 
   16*S2[1, 1, 1, 2, -1, n] + 4*S2[1, 1, 2, -1, -1, n] + 
   4*S2[1, 1, 2, -1, 1, n] + 8*S2[1, 1, 2, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   3*S2[2, 1, 1, 1, 1, n] - S2[-1, -1, -1, 1, -1, -1, n]/2 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/2 + S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   3*S2[-1, 1, -1, -1, -1, -1, n] - (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   S2[-1, 1, -1, -1, 1, 1, n] - (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   S2[-1, 1, 1, -1, -1, -1, n]/2 - S2[-1, 1, 1, -1, -1, 1, n]/2 - 
   S2[-1, 1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 5*S2[1, -1, -1, -1, -1, -1, n] + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   S2[1, -1, -1, 1, 1, -1, n]/2 + S2[1, -1, 1, -1, -1, -1, n] - 
   S2[1, -1, 1, 1, -1, -1, n]/2 + 3*S2[1, 1, -1, -1, -1, -1, n] + 
   (3*S2[1, 1, -1, -1, 1, -1, n])/2 + 2*S2[1, 1, -1, 1, -1, -1, n] + 
   (9*S2[1, 1, 1, -1, -1, -1, n])/2 + (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, -1, 1, 2, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/64 - Diff[Half[S2[1, n], n], n, 2]^2/2 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 + 
   (323*Diff[Half[S2[1, n], n], n, 5])/384 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/96 + 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/16 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/8 - 
   (161*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (235*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/36 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (2371*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (711*Diff[S2[1, n], n, 1]^3)/64 - (209*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (641*Diff[S2[1, n], n, 2]^2)/96 - 
   (5495*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (12695*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (1073*Diff[S2[1, n], n, 5])/1440 - 2*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/8 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/48 - 
   (227*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (23*Diff[S2[-2, 1, n], n, 3])/12 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (187*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (213*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (211*Diff[S2[-1, 1, n], n, 4])/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (13*Diff[S2[2, 1, n], n, 3])/48 - Diff[S2[4, 1, n], n, 1] - 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-2, 1, -2, n], n, 1]/8 + 
   Diff[S2[-1, -2, -1, n], n, 2]/8 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (23*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (89*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (19*Diff[S2[-1, 1, 1, n], n, 3])/16 + (11*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (5*Diff[S2[2, 1, -1, n], n, 2])/2 + (7*Diff[S2[2, 1, 1, n], n, 2])/4 + 
   4*Diff[S2[3, 1, 1, n], n, 1] - 6*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 - 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - 
   Diff[S2[1, 2, -1, -1, n], n, 1] + 2*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 + 
   (9*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (11*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (47*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 - (7*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (193*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (731*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (1031*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (223*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (53*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (71*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 + (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (37*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (37*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (35*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (31*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (59*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 + (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    4 - (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (73*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (29*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (31*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (71*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (27*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    192 + (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 + 
   Half[S2[2, 1, n], n]^2/32 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (3*Half[S2[4, 1, 1, n], n])/16 + (73*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/384 + (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    16 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (59*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - 
   (7*S2[-1, Infinity]^6)/2880 - (49*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 - 
   (49*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/36 + 
   (11*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (469*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (169*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (2261*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (3167*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (151*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (169*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (133*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (733*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (7*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (37*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (21*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (107*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (11*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (137*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (643*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (49*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (29*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (31*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (21*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (205*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (269*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (77*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (139*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (41*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (67*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 + 
   (9*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 - 
   (11*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   (839*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (35*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (491*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (287*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (44*Diff[S2[1, n], n, 3]*S2[1, n]^2)/9 + 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (1001*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (41*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (143*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (107*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (43*S2[-1, Infinity]^4*S2[1, n]^2)/384 - 
   (341*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   (203*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (149*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (29*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (49*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (65*Diff[S2[1, n], n, 1]*S2[1, n]^4)/32 - 
   (73*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (15*Half[S2[1, n], n]*S2[1, n]^5)/
    16 - (11*S2[1, n]^6)/48 - (23*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 + (1051*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (7*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/192 + (Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 - (13*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/64 + 
   (217*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (277*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (107*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (73*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (119*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (169*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (91*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    24 + (111*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (3*Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (73*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (13*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (93*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (15*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (81*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (101*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (21*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/16 - 
   (79*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (239*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (371*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (365*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (133*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (37*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (641*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (79*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (31*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 - (485*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (155*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (27*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/16 + (85*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (203*S2[-1, Infinity]^2*S2[1, n]^2*
     S2[2, Infinity])/64 + (41*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/
    16 - (287*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (97*S2[1, n]^4*S2[2, Infinity])/96 - 
   (1137*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (5027*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (2011*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (697*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (141*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (1553*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (1033*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (143*S2[1, n]^2*S2[2, Infinity]^2)/384 + (77699*S2[2, Infinity]^3)/13440 + 
   (379*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/24 + 
   (221*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (1013*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (517*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (57*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (87*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (569*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (1231*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (1561*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/768 - 
   (1541*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/768 - 
   (281*S2[1, n]^3*S2[3, Infinity])/768 - 
   (823*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (1293*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (433*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (745*S2[3, Infinity]^2)/256 - (953*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (4365*S2[1, n]*S2[5, Infinity])/256 + (25*S2[-5, -1, Infinity])/8 + 
   6*S2[-5, 1, n] - (3*S2[1, n]*S2[-4, 1, n])/2 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 - 
   (103*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (15*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (97*S2[1, n]^2*S2[-3, 1, n])/96 + (67*S2[2, Infinity]*S2[-3, 1, n])/12 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (13*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (437*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (55*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (83*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (35*S2[1, n]^3*S2[-2, 1, n])/48 + (73*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (187*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (39*S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/2 + 
   (127*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (17*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (105*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (229*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (169*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (37*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (21*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (41*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (13*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (233*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (29*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (7*S2[1, n]^4*S2[-1, 1, n])/16 - (37*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (15*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (13*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (61*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (103*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (25*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (27*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (1511*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (167*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/96 + 
   (83*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/96 + 
   (35*S2[-3, 1, n]*S2[-1, 1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (107*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (49*S2[1, n]^2*S2[-1, 1, n]^2)/48 + (19*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (45*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (75*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (113*S2[1, n]^3*S2[2, 1, n])/96 + (33*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (29*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (509*S2[3, Infinity]*S2[2, 1, n])/96 + 3*S2[-2, 1, n]*S2[2, 1, n] - 
   (11*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (35*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + (5*S2[2, 1, n]^2)/2 - 
   (11*S2[1, n]*S2[4, 1, n])/2 - 6*S2[-4, 1, 1, n] + S2[-3, -2, 1, n]/2 + 
   3*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (23*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (13*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - (11*S2[-2, 2, -2, n])/8 - (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/96 - (31*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/96 + 
   (23*S2[2, Infinity]*S2[-1, -2, -1, n])/24 + 
   (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (575*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 - 2*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (33*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    8 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (85*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + 2*S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - 3*S2[2, 1, n]*S2[-1, 1, 1, n] + S2[-1, 1, 1, n]^2/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (53*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + 3*S2[1, n]^2*S2[1, 2, -1, n] + 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 - (121*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (187*S2[1, n]^2*S2[2, 1, -1, n])/48 + (2*S2[2, Infinity]*S2[2, 1, -1, n])/
    3 + (41*S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] - 
   3*S2[2, Infinity]*S2[2, 1, 1, n] + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[3, 1, -2, n])/2 + 2*S2[1, n]*S2[3, 1, 1, n] + 
   (17*S2[4, 1, 1, n])/2 - 9*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n]/2 + 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (2*S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 + 
   (5*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (11*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (53*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (43*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (35*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   Half[S2[1, n], n]*S2[1, -1, 1, 2, n] - S2[1, n]*S2[1, -1, 1, 2, n] + 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (3*S2[2, -2, 1, 1, n])/2 + (S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   S2[2, 2, 1, 1, n] - (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (7*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + 8*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   8*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (59*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (11*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (7*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - 2*S2[1, -1, -1, 1, 2, n] + 
   (9*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (9*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (5*S2[1, -1, 1, 1, -2, n])/2 + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - 2*S2[1, -1, 1, 2, -1, n] - 
   S2[1, 1, -2, -1, 1, n]/2 - 2*S2[1, 1, -2, 1, -1, n] + 
   (11*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (11*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 2*S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] - 7*S2[1, 1, 1, -2, -1, n] - 
   5*S2[1, 1, 1, -1, -2, n] - 9*S2[1, 1, 1, 2, -1, n] - 
   4*S2[1, 1, 2, -1, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   6*S2[1, 1, 2, 1, -1, n] - S2[1, 2, -1, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] - 
   S2[2, 1, 1, 1, 1, n]/2 + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + (7*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 + (7*S2[-1, 1, -1, 1, 1, 1, n])/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] + S2[-1, 1, 1, 1, -1, 1, n]/4 + 
   (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + (15*S2[1, -1, -1, -1, -1, -1, n])/
    4 - (5*S2[1, -1, -1, -1, 1, -1, n])/8 - (3*S2[1, -1, -1, 1, -1, -1, n])/
    2 - (7*S2[1, -1, 1, -1, -1, -1, n])/4 - 4*S2[1, 1, -1, -1, -1, -1, n] + 
   (9*S2[1, 1, 1, -1, 1, -1, n])/4 + S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, 1, -2, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/24 - 
   (25*Diff[Half[S2[1, n], n], n, 2]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 + 
   Diff[Half[S2[1, n], n], n, 5]/1440 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/12 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (305*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (119*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/6 + 
   (25*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (125*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/12 - 
   (231*Diff[S2[1, n], n, 1]^3)/32 + (45*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (13*Diff[S2[1, n], n, 2]^2)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/16 + 
   (311*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (13*Diff[S2[1, n], n, 5])/180 - Diff[S2[-3, 1, n], n, 2]/3 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 - 
   (157*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   Diff[S2[-2, 1, n], n, 3]/4 + (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 - 
   Diff[S2[-1, 1, n], n, 1]^2/2 + (163*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/48 - 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   Diff[S2[-1, 1, n], n, 4]/24 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/2 - 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (23*Diff[S2[2, 1, n], n, 3])/24 - 4*Diff[S2[4, 1, n], n, 1] - 
   3*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 + Diff[S2[-1, -2, -1, n], n, 2]/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/6 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (85*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/24 - Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -2, n], n, 1] + Diff[S2[2, 1, -1, n], n, 2]/6 + 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   3*Diff[S2[-2, 1, 1, 1, n], n, 1] + (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    12 + Diff[S2[-1, 1, -1, 1, n], n, 2]/2 - Diff[S2[1, -1, 1, -2, n], n, 
    1] + Diff[S2[1, -1, 1, 2, n], n, 1] - 4*Diff[S2[1, 1, -2, -1, n], n, 1] + 
   2*Diff[S2[1, 1, -1, 2, n], n, 1] - 2*Diff[S2[1, 1, 2, -1, n], n, 1] - 
   Diff[S2[1, 2, -1, -1, n], n, 1] + 5*Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] + (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - Diff[S2[-1, 1, 1, 1, 1, n], n, 
    1] - 3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 - 
   (7*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/4 - 
   3*Diff[S2[1, 1, -1, -1, -1, n], n, 1] - Diff[S2[1, 1, -1, 1, -1, n], n, 1]/
    2 - Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/12 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (71*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (7*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/48 - 
   (21*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (4*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/3 + (23*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    48 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/6 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 - (47*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    32 + (107*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 + 
   Half[S2[2, 1, n], n]^2/32 - (15*Diff[S2[1, n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/8 - Half[S2[2, 2, 1, 1, n], n]/8 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (37*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (17*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - 
   (11*S2[-1, Infinity]^6)/1440 - (71*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/24 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (127*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (3*Diff[S2[1, n], n, 4]*S2[1, n])/8 + 
   (41*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 + 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/12 - 
   (95*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (191*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (11*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 - 
   (11*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/3 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   5*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (111*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 - (21*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (197*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (31*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (49*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/12 + 
   (23*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (69*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/4 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (331*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/32 - 
   (19*Diff[S2[1, n], n, 3]*S2[1, n]^2)/64 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/6 + 2*Diff[S2[2, 1, n], n, 1]*
    S2[1, n]^2 - (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 + 
   (57*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (19*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (5*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (53*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 + 
   (61*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (4*Half[S2[1, n], n]^3*S2[1, n]^3)/3 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    3 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/4 - 
   (67*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]^4)/12 + (29*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - (13*S2[1, n]^6)/48 - (355*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/96 + (121*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/48 - (3*Diff[Half[S2[1, n], n]^3, n, 1]*
     S2[2, Infinity])/16 + (3*Diff[Half[S2[2, 1, n], n], n, 1]*
     S2[2, Infinity])/32 - (59*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/48 + 
   (503*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 - 
   (157*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 + 
   (43*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (511*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (25*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (125*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (19*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (123*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (61*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (43*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (11*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (47*S2[-1, Infinity]^4*S2[2, Infinity])/96 - 
   (89*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (109*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (35*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - 4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] + (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/16 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 - 
   (87*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (237*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/16 - (19*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (11*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 - (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/8 - (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/
    8 - (43*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (45*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   2*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity] + 
   (61*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (97*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (31*S2[1, n]^4*S2[2, Infinity])/24 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/32 - 
   (2241*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 - 
   (119*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 + 
   (37*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (1357*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (953*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (73*S2[1, n]^2*S2[2, Infinity]^2)/320 + (105529*S2[2, Infinity]^3)/6720 + 
   (643*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 + 
   (781*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/12 - 
   (883*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (77*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/96 + 
   (13*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (163*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (93*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/16 - 
   (77*S2[1, n]^3*S2[3, Infinity])/192 + 
   (79*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (367*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (1547*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/96 - 
   (1471*S2[3, Infinity]^2)/1536 - (327*Half[S2[1, n], n]*S2[5, Infinity])/
    64 + (1123*S2[1, n]*S2[5, Infinity])/32 + (15*S2[-5, -1, Infinity])/8 + 
   9*S2[-5, 1, n] + 3*S2[1, n]*S2[-4, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 - 
   (27*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/4 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (15*S2[1, n]^2*S2[-3, 1, n])/8 + (99*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (65*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/4 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/4 - (Half[S2[1, n], n]^3*S2[-2, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (S2[1, n]^3*S2[-2, 1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/2 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (17*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (31*S2[3, Infinity]*S2[-2, 1, n])/24 + S2[-2, 1, n]^2/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 + 
   (217*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (3*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (37*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 + 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (13*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (45*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (43*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/12 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/2 - Diff[S2[1, n], n, 1]*S2[2, Infinity]*
    S2[-1, 1, n] - (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (45*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (33*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (27*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (219*S2[2, Infinity]^2*S2[-1, 1, n])/160 - 
   (27*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (23*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (13*S2[-3, 1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/2 - 
   (31*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (13*S2[1, n]^2*S2[-1, 1, n]^2)/16 - (41*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 - (5*S2[-1, 1, n]^3)/12 + (37*Diff[Half[S2[1, n], n], n, 2]*
     S2[2, 1, n])/24 - (67*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/12 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n] + (5*S2[1, n]^3*S2[2, 1, n])/24 + 
   (27*Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (33*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (9*S2[3, Infinity]*S2[2, 1, n])/2 + 3*S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/2 - 
   S2[1, n]*S2[4, 1, n] - 2*S2[-4, 1, 1, n] - S2[-3, -2, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/2 + (15*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/
    4 - (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (5*S2[1, n]^2*S2[-2, 1, -1, n])/4 - (19*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - S2[-1, 1, n]*S2[-2, 1, -1, n] - (5*S2[-2, 2, -2, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/8 + 
   (21*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (35*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/3 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 - (9*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (149*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 + (3*S2[-1, 1, -1, n]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (7*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/8 + S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - (3*S2[-1, 1, 1, n]^2)/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] - 
   (25*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (11*S2[1, n]^2*S2[1, 2, -1, n])/4 + (21*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 + 2*S2[-1, 1, n]*S2[1, 2, -1, n] - 2*S2[1, n]*S2[2, 1, -2, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/4 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (9*S2[1, n]^2*S2[2, 1, -1, n])/4 + (25*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (7*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/4 - (31*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   2*S2[3, 1, -2, n] + 5*S2[4, 1, 1, n] - 8*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] + S2[1, n]*S2[-2, 1, 1, 1, n] - 2*S2[-2, 2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 - 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (5*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (17*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (37*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (75*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Half[S2[1, n], n]*S2[1, 1, -2, -1, n] + 2*S2[1, n]*S2[1, 1, -2, -1, n] + 
   4*S2[1, n]*S2[1, 1, 2, -1, n] + 2*S2[2, -2, 1, 1, n] - 
   3*S2[1, n]*S2[2, 1, 1, 1, n] - S2[-2, 1, 1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - S2[1, n]*S2[-1, 1, -1, -1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   S2[1, n]*S2[-1, 1, -1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (17*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (23*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 2*S2[1, -1, -1, 1, 2, n] - 
   S2[1, -1, 1, -2, -1, n] + (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 - (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - 3*S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 1, 2, n] - 2*S2[1, -1, 1, 2, -1, n] - 
   2*S2[1, 1, -2, -1, -1, n] - 3*S2[1, 1, -2, -1, 1, n] - 
   4*S2[1, 1, -2, 1, -1, n] - 2*S2[1, 1, -1, -2, -1, n] - 
   S2[1, 1, -1, -1, -2, n] + 3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 4*S2[1, 1, -1, 1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 2*S2[1, 1, -1, 2, -1, n] - 
   14*S2[1, 1, 1, -2, -1, n] - 8*S2[1, 1, 1, -1, -2, n] - 
   2*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   2*S2[1, n]*S2[1, 1, 1, -1, -1, n] - S2[1, 1, 1, -1, 2, n] - 
   14*S2[1, 1, 1, 2, -1, n] - 4*S2[1, 1, 2, -1, -1, n] - 
   4*S2[1, 1, 2, -1, 1, n] - 7*S2[1, 1, 2, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 2*S2[1, 2, 1, 1, -1, n] + 
   3*S2[2, 1, 1, 1, 1, n] + S2[-1, -1, -1, 1, -1, -1, n]/4 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/4 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   S2[-1, 1, -1, -1, 1, 1, n] + (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 
   S2[-1, 1, 1, -1, -1, -1, n]/2 - S2[-1, 1, 1, 1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + (11*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   (5*S2[1, -1, -1, -1, -1, -1, n])/2 - (3*S2[1, -1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/2 + S2[1, -1, -1, 1, 1, -1, n] - 
   S2[1, -1, 1, -1, -1, -1, n] - S2[1, -1, 1, 1, -1, -1, n] - 
   3*S2[1, 1, -1, -1, -1, -1, n] + S2[1, 1, -1, -1, 1, -1, n] - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, 1, -2, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/32 + 
   (47*Diff[Half[S2[1, n], n], n, 2]^2)/128 + 
   (203*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (9*Diff[Half[S2[1, n], n], n, 5])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/64 - 
   (9*Diff[Half[S2[4, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 - 
   (461*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (155*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (55*Diff[S2[1, n], n, 1]^3)/48 - (115*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (87*Diff[S2[1, n], n, 2]^2)/64 - 
   (757*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (593*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (973*Diff[S2[1, n], n, 5])/5760 + 2*Diff[S2[-4, 1, n], n, 1] + 
   (35*Diff[S2[-3, 1, n], n, 2])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (7*Diff[S2[-2, 1, n], n, 3])/16 - (17*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/32 - 
   (19*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (57*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (107*Diff[S2[-1, 1, n], n, 4])/192 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   Diff[S2[2, 1, n], n, 3]/2 + (3*Diff[S2[4, 1, n], n, 1])/2 - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + Diff[S2[-2, 1, -2, n], n, 1]/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + Diff[S2[-1, -2, -1, n], n, 2]/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (17*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/16 + (7*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (9*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (7*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    16 - Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - (3*Diff[S2[2, 1, 1, 1, n], n, 1])/
    2 - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    4 + Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 + 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (449*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (383*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (10*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    3 - (271*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (287*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (53*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (71*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (39*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (205*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (47*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 - (81*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (221*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   (5*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + S2[-1, Infinity]^6/180 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 - (37*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (27*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (145*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (51*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (13*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (9*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (149*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (257*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (211*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (209*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (8*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (203*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (13*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (7*S2[-1, Infinity]^5*S2[1, n])/240 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (133*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (37*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/12 - 
   (251*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (595*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (221*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (39*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (47*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   (21*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (77*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (85*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/12 - 
   (169*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (133*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/3 - (13*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    48 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/2 + 
   (181*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/8 + (23*Half[S2[1, n], n]*S2[1, n]^5)/
    24 - (35*S2[1, n]^6)/96 + (9*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (71*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    576 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (125*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (145*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 + (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 + 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (113*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (31*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (101*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (89*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (43*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    96 - (29*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    32 - (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    4 + (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/16 + 
   Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity] + 
   (31*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/24 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (29*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (97*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (57*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (61*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (37*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (13*S2[1, n]^4*S2[2, Infinity])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/8 + 
   (37*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (569*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 - 
   (119*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (469*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (391*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (471*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (419*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (26741*S2[2, Infinity]^3)/
    13440 + (7*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (995*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (179*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 - (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (221*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/4 - 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (77*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (17*S2[1, n]^3*S2[3, Infinity])/192 - 
   (613*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (123*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (739*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (5363*S2[3, Infinity]^2)/6144 + (275*Half[S2[1, n], n]*S2[5, Infinity])/
    64 - (665*S2[1, n]*S2[5, Infinity])/256 + (21*S2[-5, -1, Infinity])/8 + 
   Half[S2[1, n], n]*S2[-4, 1, n] - (5*S2[1, n]*S2[-4, 1, n])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/6 - 
   (49*S2[1, n]^2*S2[-3, 1, n])/48 - (23*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (59*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 - 
   (37*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (4*S2[1, n]^3*S2[-2, 1, n])/3 - (95*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (107*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (5*S2[3, Infinity]*S2[-2, 1, n])/64 - (5*S2[-2, 1, n]^2)/8 + 
   (43*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (187*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (113*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (67*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (67*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (15*S2[1, n]^4*S2[-1, 1, n])/16 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (29*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (73*S2[2, Infinity]^2*S2[-1, 1, n])/120 + 
   (37*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (107*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/12 - 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (17*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/12 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/96 + (S2[2, Infinity]*S2[-1, 1, n]^2)/48 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (101*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (85*S2[1, n]^3*S2[2, 1, n])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (47*S2[3, Infinity]*S2[2, 1, n])/192 - (5*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/8 - 
   (5*S2[1, n]*S2[4, 1, n])/2 - S2[-3, -2, 1, n]/2 + 
   2*Half[S2[1, n], n]*S2[-3, 1, 1, n] - S2[1, n]*S2[-3, 1, 1, n] - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (3*S2[1, n]^2*S2[-2, 1, -1, n])/4 + 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - (3*S2[-2, 2, -2, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/48 - 
   (11*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (29*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (131*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 - S2[-1, 1, -1, n]^2/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (23*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[-1, 1, 1, n]^2/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (S2[1, n]^2*S2[1, 2, -1, n])/4 - (S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + S2[1, n]*S2[2, 1, -2, n] + 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 - 
   (7*S2[1, n]^2*S2[2, 1, -1, n])/24 + (S2[2, Infinity]*S2[2, 1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - 2*S2[1, n]^2*S2[2, 1, 1, n] + 
   S2[2, Infinity]*S2[2, 1, 1, n] - S2[1, n]*S2[3, 1, 1, n] + 
   S2[4, 1, 1, n]/2 - (5*S2[-2, -2, 1, 1, n])/2 + 
   3*Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] - 2*S2[1, n]*S2[-2, 1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (15*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[1, n]*S2[1, -1, 1, -2, n] - (S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   S2[1, n]*S2[1, 1, -1, 2, n] + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n]/2 + (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (7*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, 1, -2, -1, 1, n]/2 - S2[1, 1, -2, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   2*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 2*S2[1, 1, -1, 1, -2, n] + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + 2*S2[1, 1, 1, -1, -2, n] + 
   2*S2[1, n]*S2[1, 1, 1, -1, -1, n] - S2[2, 1, 1, 1, 1, n]/2 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - S2[-1, 1, -1, -1, -1, 1, n]/4 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 - S2[-1, 1, -1, 1, 1, 1, n]/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] + S2[-1, 1, 1, 1, -1, 1, n]/4 - 
   4*S2[-1, 1, 1, 1, 1, 1, Infinity] + S2[1, -1, -1, -1, 1, -1, n]/2 + 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, -1, -1, -1, n]/2 + 
   S2[1, 1, -1, -1, -1, -1, n]/2 + S2[1, 1, 1, -1, 1, -1, n]/4 + 
   S2[1, 1, 1, 1, -1, -1, n], S2[-1, 1, 1, 2, -1, n] -> 
  (-5*Diff[Half[S2[1, n], n], n, 1]^3)/96 + 
   (193*Diff[Half[S2[1, n], n], n, 2]^2)/192 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/12 - 
   (137*Diff[Half[S2[1, n], n], n, 5])/576 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 3])/32 - 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/8 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/4 + 
   (37*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (143*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (13*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (207*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (527*Diff[S2[1, n], n, 1]^3)/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/2 - 
   (115*Diff[S2[1, n], n, 2]^2)/96 + (63*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/64 - (191*Diff[S2[1, n], n, 1]*
     Diff[S2[1, n], n, 3])/64 + (173*Diff[S2[1, n], n, 5])/1440 + 
   3*Diff[S2[-4, 1, n], n, 1] + (13*Diff[S2[-3, 1, n], n, 2])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 + 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (13*Diff[S2[-2, 1, n], n, 3])/24 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (49*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   6*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] - 
   (37*Diff[S2[-1, 1, n], n, 4])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (19*Diff[S2[2, 1, n], n, 3])/24 + 3*Diff[S2[4, 1, n], n, 1] + 
   4*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/2 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/48 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -2, n], n, 1] - (5*Diff[S2[2, 1, -1, n], n, 2])/8 - 
   (5*Diff[S2[2, 1, 1, n], n, 2])/2 - 2*Diff[S2[3, 1, 1, n], n, 1] + 
   3*Diff[S2[-2, 1, 1, 1, n], n, 1] - (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    8 - (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/8 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + Diff[S2[1, -1, 1, -2, n], n, 1] - 
   Diff[S2[1, -1, 1, 2, n], n, 1] + 2*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   2*Diff[S2[1, 1, -1, 2, n], n, 1] + Diff[S2[1, 2, -1, -1, n], n, 1] - 
   (7*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    2 + Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - Diff[S2[-1, 1, -1, 1, 1, n], 
    n, 1] - (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 + 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/4 + 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 + (3*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (175*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (29*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (37*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 - (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (7*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/6 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (13*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 + 
   (15*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   Half[S2[2, 1, n], n]^2/64 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   Half[S2[4, 1, 1, n], n]/8 - (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/64 + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 - S2[-1, Infinity]^6/1440 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    6 + (35*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (131*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (581*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (161*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (85*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   (107*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (131*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (43*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (15*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 + (65*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (9*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (51*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (7*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (79*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (9*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (S2[-1, Infinity]^5*S2[1, n])/48 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (21*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (79*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (199*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (17*Diff[S2[1, n], n, 3]*S2[1, n]^2)/6 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (157*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (29*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 - 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (163*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 + 
   (85*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (19*Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (19*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - (9*S2[-1, Infinity]^4*S2[1, n]^2)/
    64 + (85*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (39*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (163*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/6 + 
   (29*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^4)/3 + 
   (37*Half[S2[1, n], n]^2*S2[1, n]^4)/24 - (23*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + (11*S2[1, n]^6)/48 + (43*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 - (39*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    32 + (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 - (13*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (31*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (95*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (13*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (43*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (263*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (95*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (11*Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/4 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (55*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/2 + (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (51*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (19*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (51*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 + (9*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 - 
   (189*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/32 - 
   (39*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/32 + 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/16 + 
   (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (87*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (67*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (127*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (S2[1, n]^4*S2[2, Infinity])/2 + (1313*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/320 + (97*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    160 - (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/5 - 
   (83*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (219*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (59*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (3*S2[1, n]^2*S2[2, Infinity]^2)/8 - (1997*S2[2, Infinity]^3)/448 - 
   (275*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (421*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (419*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (1175*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (133*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (77*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (347*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 + 
   (1805*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (315*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (369*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (343*S2[1, n]^3*S2[3, Infinity])/384 + 
   (177*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (561*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (113*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (431*S2[3, Infinity]^2)/1024 + (127*Half[S2[1, n], n]*S2[5, Infinity])/
    64 - (695*S2[1, n]*S2[5, Infinity])/32 - (17*S2[-5, -1, Infinity])/4 - 
   4*S2[-5, 1, n] - 6*S2[1, n]*S2[-4, 1, n] + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + (Half[S2[1, n], n]^2*S2[-3, 1, n])/
    16 - (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/16 - (53*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (23*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (7*S2[1, n]^3*S2[-2, 1, n])/24 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-2, 1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (45*S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/6 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 - 
   (39*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n] - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/12 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (85*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   (13*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n] + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (31*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (5*S2[1, n]^4*S2[-1, 1, n])/12 + (39*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (21*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (29*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (117*S2[2, Infinity]^2*S2[-1, 1, n])/40 + 
   (127*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (87*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (3*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (7*S2[1, n]^2*S2[-1, 1, n]^2)/16 + (5*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/48 + 
   (101*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (69*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (13*S2[1, n]^3*S2[2, 1, n])/48 - (29*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (137*S2[3, Infinity]*S2[2, 1, n])/32 - (3*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - (7*S2[2, 1, n]^2)/4 - 
   S2[1, n]*S2[4, 1, n] + 4*S2[-4, 1, 1, n] - 2*S2[1, n]*S2[-3, 1, 1, n] - 
   S2[1, n]*S2[-2, 1, -2, n] - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (S2[1, n]^2*S2[-2, 1, -1, n])/2 + 
   (5*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + S2[-2, 2, -2, n]/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/16 - (11*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 + (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (355*S2[3, Infinity]*S2[-1, 1, -1, n])/192 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - (3*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[-1, 1, 1, n])/2 - (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (7*S2[3, Infinity]*S2[-1, 1, 1, n])/8 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + 2*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - 3*S2[1, n]^2*S2[1, 2, -1, n] - 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 - S2[-1, 1, n]*S2[1, 2, -1, n] + 
   S2[1, n]*S2[2, 1, -2, n] + (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/8 + (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (21*S2[1, n]^2*S2[2, 1, -1, n])/8 - (3*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - S2[-1, 1, n]*S2[2, 1, -1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - (S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (7*S2[2, Infinity]*S2[2, 1, 1, n])/2 - S2[-1, 1, n]*S2[2, 1, 1, n] + 
   S2[3, 1, -2, n] - S2[1, n]*S2[3, 1, 1, n] - 3*S2[4, 1, 1, n] + 
   6*S2[-3, 1, 1, 1, n] - 2*S2[-2, -2, 1, 1, n] - 
   3*S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/
    2 + (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - (15*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (11*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    2 + S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (69*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (27*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (19*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   Half[S2[1, n], n]*S2[1, 1, 2, -1, n] - 2*S2[1, n]*S2[1, 1, 2, -1, n] - 
   S2[2, -2, 1, 1, n] + S2[2, 2, 1, 1, n]/2 + 3*S2[-2, 1, 1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + S2[1, n]*S2[-1, 1, -1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n] + 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] + 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + 2*S2[1, -1, -1, 1, 2, n] - 
   Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n] + 
   S2[1, n]*S2[1, -1, 1, -1, -1, n] + 3*S2[1, -1, 1, 1, -2, n] - 
   S2[1, -1, 1, 1, 2, n] + S2[1, -1, 1, 2, -1, n] + S2[1, 1, -2, 1, -1, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 3*S2[1, 1, -1, 1, -2, n] + 
   6*S2[1, 1, 1, -2, -1, n] + 6*S2[1, 1, 1, -1, -2, n] + 
   6*S2[1, 1, 1, 2, -1, n] + 2*S2[1, 1, 2, -1, -1, n] + 
   S2[1, 1, 2, -1, 1, n] + 4*S2[1, 1, 2, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 2*S2[1, 2, 1, 1, -1, n] - 
   S2[-1, -1, -1, 1, -1, -1, n]/4 - (3*S2[-1, -1, 1, -1, -1, -1, n])/4 + 
   S2[-1, -1, 1, 1, -1, -1, n] - (3*S2[-1, 1, -1, -1, -1, -1, n])/2 - 
   S2[-1, 1, -1, -1, -1, 1, n]/2 + S2[-1, 1, -1, 1, -1, -1, n]/2 - 
   S2[-1, 1, -1, 1, 1, 1, n] + 2*S2[-1, 1, 1, -1, -1, -1, n] + 
   S2[-1, 1, 1, 1, 1, 1, Infinity]/2 - (5*S2[1, -1, -1, -1, -1, -1, n])/2 + 
   S2[1, -1, -1, 1, -1, -1, n]/2 + S2[1, -1, 1, -1, -1, -1, n] + 
   3*S2[1, 1, -1, -1, -1, -1, n] - S2[1, 1, 1, -1, 1, -1, n], 
 S2[-1, 1, 1, 2, 1, n] -> (-11*Diff[Half[S2[1, n], n], n, 5])/30 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (23*Diff[S2[1, n], n, 1]^3)/8 + (27*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (27*Diff[S2[1, n], n, 2]^2)/8 + 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (75*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 + 
   (11*Diff[S2[1, n], n, 5])/30 + 5*Diff[S2[-4, 1, n], n, 1] + 
   (3*Diff[S2[-3, 1, n], n, 2])/4 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (7*Diff[S2[-2, 1, n], n, 3])/12 + 
   (37*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (49*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (9*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - (13*Diff[S2[-1, 1, 1, n], n, 3])/12 - 
   Diff[S2[1, 2, -1, n], n, 2] + Diff[S2[2, 1, -2, n], n, 1]/2 - 
   Diff[S2[2, 1, -1, n], n, 2] + Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/4 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 - 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (13*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 + 
   2*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/16 - S2[-1, Infinity]^6/288 + 
   (23*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (93*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (3*Diff[S2[1, n], n, 4]*S2[1, n])/2 - Diff[S2[-3, 1, n], n, 1]*S2[1, n] + 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 3*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (25*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] - 
   2*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (17*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (77*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (S2[-1, Infinity]^5*S2[1, n])/240 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (27*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (35*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 - (9*Diff[S2[1, n], n, 2]*S2[1, n]^3)/
    8 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (53*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (13*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (67*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (37*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity] + 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (S2[1, n]^4*S2[2, Infinity])/6 - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/20 + (71*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (137*S2[-1, Infinity]^2*S2[2, Infinity]^2)/32 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 + 
   (73*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (37*S2[1, n]^2*S2[2, Infinity]^2)/40 - (281*S2[2, Infinity]^3)/240 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 + 
   (115*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/6 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (13*S2[1, n]^3*S2[3, Infinity])/48 + 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/3 - 
   (409*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 - 
   (3377*S2[3, Infinity]^2)/768 - 10*Half[S2[1, n], n]*S2[5, Infinity] + 
   (249*S2[1, n]*S2[5, Infinity])/128 - (7*S2[-5, -1, Infinity])/8 + 
   9*S2[-5, 1, n] - 2*S2[1, n]*S2[-4, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + (S2[1, n]^2*S2[-3, 1, n])/4 - 
   (13*S2[2, Infinity]*S2[-3, 1, n])/4 + (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    3 - (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (S2[1, n]^3*S2[-2, 1, n])/6 + (S2[3, Infinity]*S2[-2, 1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (S2[2, Infinity]^2*S2[-1, 1, n])/2 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + Half[S2[1, n], n]*S2[4, 1, n] - 
   S2[1, n]*S2[4, 1, n] + 8*S2[-4, 1, 1, n] - 3*S2[1, n]*S2[-3, 1, 1, n] - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[3, Infinity]*S2[-1, 1, 1, n] + (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/
    4 + (S2[1, n]^2*S2[1, 2, -1, n])/4 - (S2[2, Infinity]*S2[1, 2, -1, n])/
    4 - (3*S2[1, n]*S2[2, 1, -2, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + (S2[1, n]^2*S2[2, 1, -1, n])/
    4 - (S2[2, Infinity]*S2[2, 1, -1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - S2[3, 1, -2, n]/2 + 
   2*Half[S2[1, n], n]*S2[3, 1, 1, n] - 2*S2[1, n]*S2[3, 1, 1, n] + 
   3*S2[-3, 1, 1, 1, n] + (S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   (5*S2[-2, 2, 1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (65*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, -1, 1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] - 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 - S2[2, -2, 1, 1, n] + 
   3*Half[S2[1, n], n]*S2[2, 1, 1, 1, n] - 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   S2[-2, 1, 1, 1, 1, n]/2 - (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, -1, 1, 1, 2, n])/2 + 2*S2[1, 1, -1, 1, 2, n] + 
   2*S2[1, 1, 1, -1, 2, n] - S2[1, 1, 2, -1, 1, n]/2 - 
   S2[1, 1, 2, 1, -1, n] + (5*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, 
 S2[-1, 1, 1, -1, -2, n] -> (5*Diff[Half[S2[1, n], n], n, 1]^3)/48 - 
   Diff[Half[S2[1, n], n], n, 2]^2/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 + 
   (229*Diff[Half[S2[1, n], n], n, 5])/1440 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/8 + 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 - 
   (7*Diff[S2[1, n], n, 1]^3)/16 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (17*Diff[S2[1, n], n, 2]^2)/12 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (169*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 - 
   (229*Diff[S2[1, n], n, 5])/1440 - Diff[S2[-4, 1, n], n, 1]/2 - 
   (11*Diff[S2[-3, 1, n], n, 2])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   Diff[S2[-2, 1, n], n, 3]/12 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 - 
   (11*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   Diff[S2[-1, 1, n], n, 1]^2/4 - (23*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/48 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (5*Diff[S2[-1, 1, n], n, 4])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (3*Diff[S2[-3, 1, 1, n], n, 1])/2 - Diff[S2[-1, -2, -1, n], n, 2]/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/12 + Diff[S2[1, 2, -1, n], n, 2]/2 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (5*Diff[S2[2, 1, -1, n], n, 2])/12 + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/6 + 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/4 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 + Diff[S2[-1, 1, 1, 1, 1, n], n, 
    1] + Diff[S2[1, -1, 1, -1, -1, n], n, 1]/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (17*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/48 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 + (7*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    24 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (25*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 - 
   (5*Half[S2[1, n], n]*Half[S2[4, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]*Half[S2[3, 1, 1, n], n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - S2[-1, Infinity]^6/720 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 - (41*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/48 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 - 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 + 
   (3*Diff[S2[1, n], n, 4]*S2[1, n])/4 + 
   (11*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 - 
   (29*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (31*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (151*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/12 + 
   (S2[-1, Infinity]^5*S2[1, n])/480 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - (59*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    48 - (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/8 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    32 - (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/3 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 + (7*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]^4)/4 + S2[1, n]^6/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/12 - 
   (19*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/96 - 
   (19*Diff[S2[1, n], n, 3]*S2[2, Infinity])/64 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 + 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (23*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity] - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 + 
   (35*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (5*S2[1, n]^4*S2[2, Infinity])/12 - 
   (103*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (133*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (93*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 + 
   (167*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (249*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (47*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (47*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (39*S2[1, n]^2*S2[2, Infinity]^2)/32 + (687*S2[2, Infinity]^3)/280 + 
   (181*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (79*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (85*Half[S2[1, n], n]^3*S2[3, Infinity])/192 + 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (93*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/24 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/8 + 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (49*S2[1, n]^3*S2[3, Infinity])/192 + 
   (793*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (115*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (1945*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (319*S2[3, Infinity]^2)/192 - (209*Half[S2[1, n], n]*S2[5, Infinity])/32 + 
   (53*S2[1, n]*S2[5, Infinity])/4 + S2[-5, -1, Infinity]/4 + 
   S2[1, n]*S2[-4, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (9*S2[1, n]^2*S2[-3, 1, n])/4 + (21*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/6 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (13*S2[1, n]^3*S2[-2, 1, n])/12 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (37*S2[3, Infinity]*S2[-2, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/12 - 
   (67*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 - 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (19*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + Diff[S2[-1, 1, -1, n], n, 1]*
    S2[-1, 1, n] - (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/6 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/4 + 
   (S2[1, n]^4*S2[-1, 1, n])/4 + (Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/4 + (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (51*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (9*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (35*S2[2, Infinity]^2*S2[-1, 1, n])/16 - 
   (19*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (43*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (9*S2[-3, 1, n]*S2[-1, 1, n])/8 - (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/4 + (7*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   (5*S2[-1, 1, n]^3)/24 - (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/8 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n] - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (S2[1, n]^3*S2[2, 1, n])/2 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (7*S2[3, Infinity]*S2[2, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 2*Half[S2[1, n], n]*S2[4, 1, n] - 
   2*S2[1, n]*S2[4, 1, n] - S2[-4, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] + 3*S2[1, n]*S2[-3, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-2, 1, -2, n])/2 + (S2[1, n]*S2[-2, 1, -2, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   S2[1, n]^2*S2[-2, 1, -1, n] + (S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   (3*S2[-1, 1, n]*S2[-2, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/4 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (7*S2[3, Infinity]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (17*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - (S2[2, 1, n]*S2[-1, 1, 1, n])/
    2 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (S2[1, n]^2*S2[1, 2, -1, n])/2 + (S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 - Half[S2[1, n], n]*S2[2, 1, -2, n] + 
   2*S2[1, n]*S2[2, 1, -2, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/4 + (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (3*S2[2, Infinity]*S2[2, 1, -1, n])/8 - (3*S2[-1, 1, n]*S2[2, 1, -1, n])/
    4 + (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[2, Infinity]*S2[2, 1, 1, n])/4 + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[3, 1, 1, n] - S2[1, n]*S2[3, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    8 + (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 - Half[S2[1, n], n]^2*
    S2[-1, 1, 1, 1, n] + 2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] - S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (29*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] + S2[1, n]*S2[1, 1, -1, 2, n] - 
   Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + S2[1, n]*S2[2, 1, 1, 1, n] + 
   S2[-2, 1, 1, 1, 1, n] - (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, 2, n] - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + Half[S2[1, n], n]*
    S2[1, 1, -1, 1, -1, n] - S2[1, n]*S2[1, 1, -1, 1, -1, n] - 
   S2[1, 1, -1, 1, 2, n] + (5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (5*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 - S2[1, 1, 1, -1, 2, n] + 
   (3*S2[-1, 1, 1, -1, -1, 1, n])/2 + S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   S2[1, -1, -1, 1, 1, -1, n]/2 + S2[1, -1, 1, 1, -1, -1, n]/2 + 
   S2[1, 1, -1, -1, 1, -1, n]/2 - (3*S2[1, 1, 1, -1, -1, -1, n])/2, 
 S2[-1, 1, 1, -1, 2, n] -> Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   Diff[Half[S2[1, n], n], n, 2]^2/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 3])/96 + 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/16 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/8 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (15*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (65*Diff[S2[1, n], n, 1]^3)/96 + (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (13*Diff[S2[1, n], n, 2]^2)/16 + 
   (89*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (143*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (71*Diff[S2[1, n], n, 5])/720 - Diff[S2[-4, 1, n], n, 1]/2 - 
   Diff[S2[-3, 1, n], n, 2]/16 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 3]/24 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (7*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   Diff[S2[-1, 1, n], n, 1]^2/8 + (21*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (9*Diff[S2[-1, 1, n], n, 4])/32 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/4 - Diff[S2[1, n], n, 1]*
    Diff[S2[2, 1, n], n, 1] + Diff[S2[2, 1, n], n, 3]/4 - 
   Diff[S2[4, 1, n], n, 1]/2 + Diff[S2[-3, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 - 
   Diff[S2[-1, 1, -1, n], n, 3]/8 + (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, n], n, 3]/8 - Diff[S2[1, 2, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (3*Diff[S2[2, 1, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 - Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/8 + Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (7*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/96 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 + (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (11*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 - (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (29*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    8 + (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/4 - 
   (23*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 + 
   Half[S2[2, 1, n], n]^2/16 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - S2[-1, Infinity]^6/80 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (19*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (37*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (13*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (31*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (15*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (9*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] - (15*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (13*S2[-1, Infinity]^5*S2[1, n])/160 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (57*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (7*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 + 
   (25*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (55*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/8 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - (7*S2[-1, Infinity]^4*S2[1, n]^2)/
    96 - (15*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 + 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/2 + (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 + (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (91*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/6 - (2*Half[S2[1, n], n]*S2[1, n]^5)/
    3 + (5*S2[1, n]^6)/24 - (9*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 + (2*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    3 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 + (31*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/4 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (57*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (39*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity] + 
   (71*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (45*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    8 + (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    16 + (7*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/8 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (81*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/16 - (43*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/16 - (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/
    4 + (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/
    16 + (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 - 
   (27*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (S2[1, n]^4*S2[2, Infinity])/6 + (35*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/64 - (1103*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    320 - (13*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/16 + 
   (107*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (701*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (107*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (639*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (79*S2[1, n]^2*S2[2, Infinity]^2)/160 + (32747*S2[2, Infinity]^3)/6720 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (391*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/8 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/64 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (341*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (163*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 + 
   (215*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/192 + 
   (19*S2[1, n]^3*S2[3, Infinity])/192 + 
   (643*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (33*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (1541*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (1777*S2[3, Infinity]^2)/768 + (3*Half[S2[1, n], n]*S2[5, Infinity])/128 + 
   (145*S2[1, n]*S2[5, Infinity])/16 - (23*S2[-5, -1, Infinity])/4 + 
   3*S2[1, n]*S2[-4, 1, n] + (15*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 - (33*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + (S2[1, n]^2*S2[-3, 1, n])/
    2 + (25*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/4 - (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    2 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (S2[1, n]^3*S2[-2, 1, n])/4 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-2, 1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (S2[3, Infinity]*S2[-2, 1, n])/8 + S2[-2, 1, n]^2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 + 
   (7*S2[1, n]^4*S2[-1, 1, n])/12 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (27*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (127*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (41*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/96 - 
   (155*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/96 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/8 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 - (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/8 - (13*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 - 
   (55*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/8 - (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    2 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (13*S2[1, n]^3*S2[2, 1, n])/12 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (15*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (19*S2[3, Infinity]*S2[2, 1, n])/24 + 2*S2[-2, 1, n]*S2[2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2 + 
   S2[1, n]*S2[4, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (7*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (17*S2[3, Infinity]*S2[-1, 1, -1, n])/64 + (S2[-2, 1, n]*S2[-1, 1, -1, n])/
    4 + (S2[2, 1, n]*S2[-1, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (13*S2[3, Infinity]*S2[-1, 1, 1, n])/8 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - S2[-1, 1, 1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (S2[1, n]^2*S2[1, 2, -1, n])/2 + 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (7*S2[2, Infinity]*S2[2, 1, -1, n])/8 + (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - 
   (5*S2[2, Infinity]*S2[2, 1, 1, n])/2 - S2[1, n]*S2[3, 1, 1, n] - 
   2*S2[4, 1, 1, n] + S2[-2, -2, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] + (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (43*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Half[S2[1, n], n]*S2[1, 1, -1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] - 
   2*S2[1, n]*S2[2, 1, 1, 1, n] + S2[2, 2, 1, 1, n]/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] + S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] + 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (19*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (39*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 2*S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] - 2*S2[1, 1, 1, -1, -2, n] + 
   2*S2[2, 1, 1, 1, 1, n] + S2[-1, -1, 1, 1, -1, -1, n] + 
   S2[-1, 1, -1, -1, -1, 1, n]/4 + S2[-1, 1, -1, 1, -1, -1, n]/2 + 
   2*S2[-1, 1, 1, -1, -1, -1, n] - S2[-1, 1, 1, 1, -1, 1, n] + 
   9*S2[-1, 1, 1, 1, 1, 1, Infinity] - (3*S2[1, -1, -1, -1, 1, -1, n])/4 - 
   S2[1, -1, -1, 1, -1, -1, n] - S2[1, -1, 1, -1, -1, -1, n]/2 - 
   2*S2[1, 1, 1, -1, 1, -1, n] - 4*S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, 1, 1, -2, n] -> (-3*Diff[Half[S2[1, n], n], n, 2]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 + 
   Diff[Half[S2[1, n], n], n, 5]/24 - Diff[Half[S2[2, 1, n], n], n, 3]/12 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 - 
   (7*Diff[S2[1, n], n, 1]^3)/24 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (25*Diff[S2[1, n], n, 2]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (67*Diff[S2[1, n], n, 5])/1440 - 2*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2] - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, n], n, 3]/6 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   Diff[S2[2, 1, n], n, 3]/3 - (3*Diff[S2[4, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, -2, n], n, 1]/4 + Diff[S2[2, 1, 1, n], n, 2]/4 + 
   Diff[S2[2, 1, 1, 1, n], n, 1]/2 + (3*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/8 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    3 + (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (3*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n] + 
   Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n] + Diff[S2[-1, 1, 1, n], n, 2]*
    Half[S2[1, n], n] + Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/2 - 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 + 
   2*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 - 
   (59*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (25*Diff[S2[1, n], n, 4]*S2[1, n])/48 + 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] - Diff[S2[-1, 1, n], n, 3]*S2[1, n] - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 - Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] - Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] - 
   Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] - Diff[Half[S2[1, n], n], n, 3]*
    Half[S2[1, n], n]*S2[1, n] + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   2*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n] - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   2*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2 - 3*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[1, n], n, 1]*S2[1, n]^2 + (31*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/
    8 - (79*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2 + 2*Diff[S2[-1, 1, n], n, 2]*
    S2[1, n]^2 + (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 - Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^3 - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/
    6 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/6 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^4)/6 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/16 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/2 + (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    2 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 + 
   S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity] - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (S2[1, n]^4*S2[2, Infinity])/12 - (49*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/160 + (31*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    160 - (13*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (61*S2[1, n]^2*S2[2, Infinity]^2)/80 + (277*S2[2, Infinity]^3)/448 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/16 + 
   (25*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/6 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/24 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/24 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 - 
   (S2[1, n]^3*S2[3, Infinity])/3 + (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/48 - (55*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 - 
   (167*S2[3, Infinity]^2)/192 - (103*Half[S2[1, n], n]*S2[5, Infinity])/32 + 
   (141*S2[1, n]*S2[5, Infinity])/32 - Half[S2[1, n], n]*S2[-4, 1, n] + 
   4*S2[1, n]*S2[-4, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - (S2[2, Infinity]*S2[-3, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (S2[1, n]^3*S2[-2, 1, n])/2 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/2 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n] + 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n] + 3*S2[1, n]*S2[4, 1, n] - 
   Half[S2[1, n], n]*S2[-3, 1, 1, n] + S2[1, n]*S2[-3, 1, 1, n] + 
   (S2[1, n]*S2[-2, 1, -2, n])/2 + S2[-2, 2, -2, n]/4 - 
   Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] + S2[1, n]^2*S2[1, 2, -1, n] - 
   Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n] + S2[1, n]^2*S2[2, 1, -1, n] - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + S2[1, n]*S2[3, 1, 1, n] + 
   S2[-2, -2, 1, 1, n] - Half[S2[1, n], n]*S2[-2, 1, 1, 1, n] + 
   S2[1, n]*S2[-2, 1, 1, 1, n] - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, Infinity] + S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   S2[2, 2, 1, 1, n]/2 - S2[1, -1, 1, 1, -2, n] - S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, 1, -2, -1, n] - S2[1, 1, 1, -1, -2, n], 
 S2[-1, 1, 1, 1, 2, n] -> (21*Diff[Half[S2[1, n], n], n, 5])/80 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 - 
   2*Diff[S2[1, n], n, 1]^3 - (29*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/12 + (29*Diff[S2[1, n], n, 2]^2)/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 + 
   (10*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 - 
   (21*Diff[S2[1, n], n, 5])/80 - 3*Diff[S2[-4, 1, n], n, 1] - 
   (3*Diff[S2[-3, 1, n], n, 2])/4 - Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + Diff[S2[-2, 1, n], n, 3]/3 - 
   (9*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   (3*Diff[S2[-1, 1, n], n, 4])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   3*Diff[S2[-3, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/4 + (3*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (3*Diff[S2[2, 1, -1, n], n, 2])/4 - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (3*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (17*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 + 
   (13*Diff[S2[1, n], n, 4]*S2[1, n])/12 + 2*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] - (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 - Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] - Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] - 
   Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] + Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (9*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   (9*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - 
   (37*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + Diff[S2[-1, 1, n], n, 2]*
    S2[1, n]^2 - (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/12 + 
   (2*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/6 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 - 
   (S2[1, n]^4*S2[2, Infinity])/6 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/10 - (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 + 
   (33*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (27*S2[1, n]^2*S2[2, Infinity]^2)/80 + (1243*S2[2, Infinity]^3)/3360 + 
   (2*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/3 - 
   (103*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/6 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] + 
   (133*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/48 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 - 
   (5*S2[1, n]^3*S2[3, Infinity])/8 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/6 + (231*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/32 - (85*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   (739*S2[3, Infinity]^2)/256 + (11*Half[S2[1, n], n]*S2[5, Infinity])/2 + 
   (95*S2[1, n]*S2[5, Infinity])/32 - 5*S2[-5, 1, n] + 
   2*S2[1, n]*S2[-4, 1, n] + Diff[S2[1, n], n, 1]*S2[-3, 1, n] - 
   (3*S2[1, n]^2*S2[-3, 1, n])/2 + (3*S2[2, Infinity]*S2[-3, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 + Diff[S2[1, n], n, 2]*S2[1, n]*
    S2[-1, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (S2[1, n]^3*S2[2, 1, n])/2 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 - Half[S2[1, n], n]*S2[4, 1, n] + S2[1, n]*S2[4, 1, n] - 
   4*S2[-4, 1, 1, n] + 3*S2[1, n]*S2[-3, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + S2[1, n]*S2[2, 1, -2, n] - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] - 
   Half[S2[1, n], n]*S2[3, 1, 1, n] + S2[1, n]*S2[3, 1, 1, n] - 
   2*S2[-3, 1, 1, 1, n] + S2[-2, 2, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (33*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + S2[2, -2, 1, 1, n]/2 - 
   Half[S2[1, n], n]*S2[2, 1, 1, 1, n] + S2[1, n]*S2[2, 1, 1, 1, n] - 
   S2[1, -1, 1, 1, 2, n] - S2[1, 1, -1, 1, 2, n] - S2[1, 1, 1, -1, 2, n] - 
   S2[1, 1, 1, 2, -1, n], S2[1, -2, -1, -1, -1, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 1]^3)/64 + 
   (59*Diff[Half[S2[1, n], n], n, 2]^2)/384 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 - 
   (7*Diff[Half[S2[1, n], n], n, 5])/640 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/96 - Diff[Half[S2[4, 1, n], n], n, 1]/
    32 + Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/64 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 + 
   (25*Diff[S2[1, n], n, 1]^3)/96 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + Diff[S2[1, n], n, 2]^2/64 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   Diff[S2[1, n], n, 5]/960 + Diff[S2[-4, 1, n], n, 1]/2 + 
   Diff[S2[-3, 1, n], n, 2]/6 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/48 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 + 
   Diff[S2[-2, 1, n], n, 3]/24 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/96 + 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   Diff[S2[-1, 1, n], n, 4]/32 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   Diff[S2[-1, 1, -1, n], n, 3]/48 - (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/48 + Diff[S2[-1, 1, -1, -1, n], n, 2]/16 - 
   Diff[S2[-1, 1, -1, 1, n], n, 2]/16 - (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    8 - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/8 + Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/
    4 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/
    8 + (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   Diff[S2[1, 1, -1, -1, -1, n], n, 1]/8 + Diff[S2[1, 1, -1, 1, -1, n], n, 1]/
    8 + (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/24 + (19*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (9*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/64 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (19*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/192 + 
   (49*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/64 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (41*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 - (47*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    1152 + (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/96 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/48 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   Half[S2[2, 1, n], n]^2/128 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 + 
   (3*Half[S2[4, 1, 1, n], n])/16 - Half[S2[2, 2, 1, 1, n], n]/16 - 
   Half[S2[2, 1, 1, 1, 1, n], n]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 + S2[-1, Infinity]^6/2880 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 + (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/32 - 
   (13*Diff[S2[1, n], n, 4]*S2[1, n])/384 + 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (85*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/96 + 
   (55*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/12 - 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + (Half[S2[3, 1, 1, n], n]*S2[1, n])/
    8 + (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (11*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (41*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/192 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/64 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 - 
   (33*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/64 + 
   (19*Diff[S2[1, n], n, 3]*S2[1, n]^2)/128 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 + 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/24 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    32 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/32 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    48 + (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/36 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    192 + (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/192 - 
   (25*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (59*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/192 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 - (101*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/48 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 - 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (83*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/16 - (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/3 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    48 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (59*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (11*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/24 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 - 
   (103*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/192 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (2*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 + 
   (13*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (11*S2[1, n]^4*S2[2, Infinity])/48 - 
   (111*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 + 
   (25*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/96 + 
   (103*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/240 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (289*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (53*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/96 + 
   (183*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (17*S2[1, n]^2*S2[2, Infinity]^2)/192 - (53*S2[2, Infinity]^3)/672 - 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (29*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (31*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/96 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (179*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 - 
   (Half[S2[1, n], n]^3*S2[3, Infinity])/12 + 
   (157*Half[S2[2, 1, n], n]*S2[3, Infinity])/768 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 - 
   (319*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (95*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 - 
   (211*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (13*S2[1, n]^3*S2[3, Infinity])/32 - 
   (323*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (121*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (271*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (719*S2[3, Infinity]^2)/6144 + (341*Half[S2[1, n], n]*S2[5, Infinity])/
    512 - (553*S2[1, n]*S2[5, Infinity])/512 + S2[-5, -1, Infinity]/2 + 
   S2[-5, 1, n] - (29*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (11*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (5*S2[1, n]^2*S2[-3, 1, n])/16 + (S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 + 
   (S2[1, n]^3*S2[-2, 1, n])/6 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/12 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/6 - 
   (15*S2[3, Infinity]*S2[-2, 1, n])/64 - S2[-2, 1, n]^2/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 - 
   (25*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 + 
   (31*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/576 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (43*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (329*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (5*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (S2[-3, 1, n]*S2[-1, 1, n])/3 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/12 + (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/3 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/6 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/24 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 + 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/48 + (19*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (5*S2[-1, 1, n]^3)/48 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    24 + (Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/48 + (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    16 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (S2[1, n]^3*S2[2, 1, n])/48 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (15*S2[3, Infinity]*S2[2, 1, n])/64 - (S2[-2, 1, n]*S2[2, 1, n])/4 - 
   S2[2, 1, n]^2/8 + (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 + (S2[1, n]^2*S2[-2, 1, -1, n])/
    8 + (S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/96 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/16 - (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/96 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/6 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/96 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (25*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    96 - (S2[3, Infinity]*S2[-1, 1, -1, n])/96 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - S2[-1, 1, -1, n]^2/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 + 
   (39*S2[3, Infinity]*S2[-1, 1, 1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, 1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - (S2[2, 1, n]*S2[-1, 1, 1, n])/
    4 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/8 + S2[-1, 1, 1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - (S2[1, n]^2*S2[1, 2, -1, n])/8 - 
   (S2[2, Infinity]*S2[1, 2, -1, n])/4 - (S2[-1, 1, n]*S2[1, 2, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/8 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + (S2[1, n]^2*S2[2, 1, 1, n])/8 + 
   (S2[2, Infinity]*S2[2, 1, 1, n])/4 + (S2[-1, 1, n]*S2[2, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (11*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 - (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (11*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - S2[1, 1, 1, -2, -1, n] + 
   (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 - S2[1, 1, 1, 2, -1, n] - 
   S2[1, 2, -1, -1, -1, n] + S2[-1, -1, -1, 1, -1, -1, n]/8 + 
   S2[-1, -1, 1, -1, -1, -1, n]/8 - S2[-1, -1, 1, 1, -1, -1, n]/4 + 
   S2[-1, 1, -1, -1, -1, -1, n]/4 - S2[-1, 1, -1, -1, -1, 1, n]/8 - 
   S2[-1, 1, -1, -1, 1, 1, n]/4 - S2[-1, 1, -1, 1, -1, -1, n]/4 - 
   S2[-1, 1, -1, 1, 1, 1, n]/4 - S2[-1, 1, 1, -1, -1, -1, n]/4 + 
   S2[-1, 1, 1, 1, -1, -1, n]/2 + S2[-1, 1, 1, 1, -1, 1, n]/4 - 
   S2[-1, 1, 1, 1, 1, 1, Infinity]/4 + (5*S2[1, -1, -1, -1, -1, -1, n])/4 + 
   S2[1, -1, -1, -1, 1, -1, n]/8 - S2[1, -1, -1, 1, 1, -1, n]/4 + 
   S2[1, -1, 1, 1, -1, -1, n]/2 + S2[1, 1, -1, -1, -1, -1, n] - 
   S2[1, 1, -1, -1, 1, -1, n]/4 + S2[1, 1, -1, 1, -1, -1, n]/4 + 
   (3*S2[1, 1, 1, -1, -1, -1, n])/4 + S2[1, 1, 1, -1, 1, -1, n]/4 + 
   S2[1, 1, 1, 1, -1, -1, n], S2[1, -2, -1, -1, 1, n] -> 
  (3*Diff[Half[S2[1, n], n], n, 1]^3)/32 + 
   (19*Diff[Half[S2[1, n], n], n, 2]^2)/24 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 - 
   (89*Diff[Half[S2[1, n], n], n, 5])/320 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 3])/48 - 
   Diff[Half[S2[4, 1, n], n], n, 1]/2 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 - Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 + 
   (37*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (15*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (317*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   9*Diff[S2[1, n], n, 1]^3 + (15*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (29*Diff[S2[1, n], n, 2]^2)/16 + 
   (235*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (239*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (197*Diff[S2[1, n], n, 5])/960 + (3*Diff[S2[-4, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, n], n, 2]/4 + (9*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (11*Diff[S2[-2, 1, n], n, 3])/12 - 
   (47*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (55*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/8 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (177*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (19*Diff[S2[-1, 1, n], n, 4])/24 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] - 
   (23*Diff[S2[2, 1, n], n, 3])/24 + 4*Diff[S2[4, 1, n], n, 1] + 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 - (3*Diff[S2[-2, 1, -2, n], n, 1])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/12 - (3*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 - Diff[S2[2, 1, -1, n], n, 2] - 
   (13*Diff[S2[2, 1, 1, n], n, 2])/4 - 3*Diff[S2[3, 1, 1, n], n, 1] + 
   (11*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 - Diff[S2[-1, 1, -1, 1, n], n, 2]/
    2 + (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, -2, n], n, 
    1] - Diff[S2[1, -1, 1, 2, n], n, 1] + 4*Diff[S2[1, 1, -2, -1, n], n, 1] - 
   (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 + 2*Diff[S2[1, 1, 2, -1, n], n, 1] + 
   Diff[S2[1, 2, -1, -1, n], n, 1] - 5*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] - (11*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/2 - Diff[S2[-1, 1, 1, -1, -1, n], 
    n, 1] - (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   3*Diff[S2[1, -1, -1, -1, -1, n], n, 1] + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (55*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 - (7*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (89*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (21*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 + 
   (33*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/2 + (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (29*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (21*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (49*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (63*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (39*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (15*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 + 
   (13*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (43*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/3 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    4 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/32 - 
   (7*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 - 
   Half[S2[2, 1, n], n]^2/32 + (9*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   Half[S2[4, 1, 1, n], n]/8 + Half[S2[2, 2, 1, 1, n], n]/8 - 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (43*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/96 - 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + 
   (37*S2[-1, Infinity]^6)/1440 + (63*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 + 
   (55*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/8 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (347*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (271*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (91*Diff[S2[1, n], n, 4]*S2[1, n])/144 - 
   (59*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 + 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 + 
   (119*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (469*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (71*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 + 
   (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/6 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 + 
   (21*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (17*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (143*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/96 + 
   (53*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (577*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 - (187*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (379*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (29*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (37*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (61*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (199*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (33*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (197*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (53*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (43*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[2, 1, 1, 1, n], n]*S2[1, n])/4 + 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 - 
   (73*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (71*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/48 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 + 
   (9*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 + 
   (217*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 - 
   (235*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 + 
   (395*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/6 - 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/6 - 2*Diff[S2[2, 1, n], n, 1]*
    S2[1, n]^2 + (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/12 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/12 - 
   (59*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/64 + 
   (57*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (59*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (185*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 - 
   (25*Half[S2[1, n], n]^3*S2[1, n]^3)/16 + 
   (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/3 + 
   (59*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (29*Half[S2[1, n], n]^2*S2[1, n]^4)/16 - (41*Half[S2[1, n], n]*S2[1, n]^5)/
    48 + (5*S2[1, n]^6)/48 + (35*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/8 - (29*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    16 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 - (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (59*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (33*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (127*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (21*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (57*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (167*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/2 - 
   4*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity] + 
   (23*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (171*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (13*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (113*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (43*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (63*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (203*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (335*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (647*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (53*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    16 + (101*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (527*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (13*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 + (61*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/32 + (49*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/24 + (191*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/48 - (173*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/96 + (111*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 - (199*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/32 - (33*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    16 - (139*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (211*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (125*S2[1, n]^4*S2[2, Infinity])/96 + 
   (1593*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 + 
   (1353*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (241*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 - 
   (121*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (501*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 - 
   (225*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/64 + 
   (2083*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (451*S2[1, n]^2*S2[2, Infinity]^2)/320 - (547*S2[2, Infinity]^3)/48 - 
   (211*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 - 
   (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/12 - 
   (63*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (419*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (217*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (917*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (463*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/384 - 
   (469*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (229*S2[1, n]^3*S2[3, Infinity])/384 - 
   (17*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/48 - 
   (741*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (1431*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (6337*S2[3, Infinity]^2)/1536 + (875*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (451*S2[1, n]*S2[5, Infinity])/16 + (11*S2[-5, -1, Infinity])/2 - 
   5*S2[-5, 1, n] - 3*S2[1, n]*S2[-4, 1, n] + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (11*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 - 
   (11*S2[1, n]^2*S2[-3, 1, n])/24 - (97*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 + 
   (43*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (7*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (239*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (25*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (25*S2[1, n]^3*S2[-2, 1, n])/24 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (17*S2[3, Infinity]*S2[-2, 1, n])/16 - (3*S2[-2, 1, n]^2)/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/12 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n] - 
   (147*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (95*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 - 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (95*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (97*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 - (157*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (247*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (27*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (43*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (3*S2[1, n]^4*S2[-1, 1, n])/16 + (73*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (27*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 + 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (37*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (497*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (85*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (5*S2[-3, 1, n]*S2[-1, 1, n])/4 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/2 + (11*S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   (5*S2[-1, 1, n]^3)/8 - (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 + 
   (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (11*Half[S2[1, n], n]^3*S2[2, 1, n])/48 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (S2[1, n]^3*S2[2, 1, n])/3 - (21*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (23*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (37*S2[3, Infinity]*S2[2, 1, n])/8 - 4*S2[-2, 1, n]*S2[2, 1, n] - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - (5*S2[2, 1, n]^2)/2 + 
   S2[1, n]*S2[4, 1, n] + 10*S2[-4, 1, 1, n] + S2[-3, -2, 1, n] - 
   2*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[-2, 1, -2, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 + 
   S2[1, n]^2*S2[-2, 1, -1, n] + (5*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 + (5*S2[-2, 2, -2, n])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/24 - 
   (11*S2[2, Infinity]*S2[-1, -2, -1, n])/16 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 + 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (19*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (113*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/8 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/4 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/4 + (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 + 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/2 - (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (33*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (39*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (53*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 - (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/2 + (5*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    4 + (3*S2[-1, 1, 1, n]^2)/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/4 + (13*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 - 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/2 - (5*S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 + S2[1, n]*S2[2, 1, -2, n] + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (19*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 - 
   (23*S2[1, n]^2*S2[2, 1, -1, n])/12 - (15*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (3*S2[-1, 1, n]*S2[2, 1, -1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/
    4 - (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 - 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/2 + 5*S2[2, Infinity]*S2[2, 1, 1, n] - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 2*S2[3, 1, -2, n] + 
   S2[1, n]*S2[3, 1, 1, n] - 5*S2[4, 1, 1, n] + 13*S2[-3, 1, 1, 1, n] - 
   S2[-2, -2, 1, 1, n] - 2*S2[1, n]*S2[-2, 1, 1, 1, n] + S2[-2, 2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (7*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (7*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (5*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (25*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (79*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (43*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (119*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   3*S2[1, n]*S2[1, 1, -2, -1, n] - 3*S2[1, n]*S2[1, 1, 2, -1, n] - 
   S2[1, n]*S2[1, 2, -1, -1, n] - 4*S2[2, -2, 1, 1, n] + 
   4*S2[1, n]*S2[2, 1, 1, 1, n] + 3*S2[-2, 1, 1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (17*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 + Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] + (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (5*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] + (5*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 + 
   (29*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (73*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - S2[1, -2, -1, 1, -1, n] + 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] - 
   (5*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, 1, -2, n] - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   S2[1, n]*S2[1, -1, -1, 1, -1, n] + 2*S2[1, -1, -1, 1, 2, n] + 
   S2[1, -1, 1, -2, -1, n] - (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    4 + (11*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + 3*S2[1, -1, 1, 1, -2, n] + 
   2*S2[1, -1, 1, 2, -1, n] + 3*S2[1, 1, -2, -1, 1, n] + 
   4*S2[1, 1, -2, 1, -1, n] + S2[1, 1, -1, -2, -1, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   (15*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 + 4*S2[1, 1, -1, 1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (5*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 + 2*S2[1, 1, -1, 1, 2, n] + 
   2*S2[1, 1, -1, 2, -1, n] + 14*S2[1, 1, 1, -2, -1, n] + 
   8*S2[1, 1, 1, -1, -2, n] + (5*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/
    2 - (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + 4*S2[1, 1, 1, -1, 2, n] + 
   16*S2[1, 1, 1, 2, -1, n] + 4*S2[1, 1, 2, -1, -1, n] + 
   3*S2[1, 1, 2, -1, 1, n] + 8*S2[1, 1, 2, 1, -1, n] + 
   2*S2[1, 2, 1, -1, -1, n] + 3*S2[1, 2, 1, 1, -1, n] - 
   3*S2[2, 1, 1, 1, 1, n] - S2[-1, -1, -1, 1, -1, -1, n]/2 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/2 + S2[-1, -1, 1, 1, -1, -1, n]/2 - 
   3*S2[-1, 1, -1, -1, -1, -1, n] - (5*S2[-1, 1, -1, -1, -1, 1, n])/4 - 
   2*S2[-1, 1, -1, -1, 1, 1, n] - (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   S2[-1, 1, 1, -1, -1, -1, n]/2 - (3*S2[-1, 1, 1, -1, -1, 1, n])/2 - 
   S2[-1, 1, 1, 1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   (37*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 5*S2[1, -1, -1, -1, -1, -1, n] + 
   (3*S2[1, -1, -1, -1, 1, -1, n])/4 + (3*S2[1, -1, -1, 1, -1, -1, n])/2 - 
   (3*S2[1, -1, -1, 1, 1, -1, n])/2 + S2[1, -1, 1, -1, -1, -1, n] - 
   (3*S2[1, -1, 1, 1, -1, -1, n])/2 + 3*S2[1, 1, -1, -1, -1, -1, n] - 
   (5*S2[1, 1, -1, -1, 1, -1, n])/2 - 3*S2[1, 1, -1, 1, -1, -1, n] - 
   (15*S2[1, 1, 1, -1, -1, -1, n])/2 + (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[1, -2, -1, 1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 1]^3/32 + (35*Diff[Half[S2[1, n], n], n, 2]^2)/
    64 + (89*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    144 - Diff[Half[S2[1, n], n], n, 5]/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 3])/48 - Diff[Half[S2[4, 1, n], n], n, 1]/
    4 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/16 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/36 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (19*Diff[S2[1, n], n, 1]^3)/32 - Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 2] + (59*Diff[S2[1, n], n, 2]^2)/96 - 
   (215*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (455*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (203*Diff[S2[1, n], n, 5])/2880 + (3*Diff[S2[-4, 1, n], n, 1])/2 + 
   (3*Diff[S2[-3, 1, n], n, 2])/8 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   Diff[S2[-2, 1, n], n, 3]/12 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 - 
   (13*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   Diff[S2[-1, 1, n], n, 4]/6 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[2, 1, n], n, 3]/4 + 2*Diff[S2[4, 1, n], n, 1] - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + Diff[S2[-2, 1, -1, n], n, 2]/4 - 
   Diff[S2[-1, -2, -1, n], n, 2]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (11*Diff[S2[-1, 1, -1, n], n, 3])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   Diff[S2[1, 2, -1, n], n, 2]/4 - Diff[S2[2, 1, -2, n], n, 1]/2 + 
   Diff[S2[2, 1, -1, n], n, 2]/4 + Diff[S2[2, 1, 1, n], n, 2]/4 + 
   Diff[S2[3, 1, 1, n], n, 1] - Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    2 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 + 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/6 + (13*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/72 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    8 + (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (131*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 + 
   (23*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 + (23*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 - 
   Half[S2[2, 1, n], n]^2/64 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + 
   (7*S2[-1, Infinity]^6)/1440 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 + 
   (31*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (73*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (25*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (47*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (65*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 - 
   (7*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (19*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (7*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 - 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (7*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (91*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (31*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 - 
   (67*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (83*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/12 + 
   (15*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/12 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + (7*S2[-1, Infinity]^4*S2[1, n]^2)/
    96 + (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/12 + (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    48 + (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^4)/8 - (7*Half[S2[1, n], n]*S2[1, n]^5)/
    12 + (13*S2[1, n]^6)/48 + (3*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/4 - (89*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    288 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (37*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (91*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 - (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 - (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (29*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (17*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (77*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity] - 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (37*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (29*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (S2[1, n]^4*S2[2, Infinity])/16 + (61*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/64 + (77*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    960 + (49*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/192 - 
   (279*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (453*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 + 
   (149*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 + 
   (459*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (2113*S2[1, n]^2*S2[2, Infinity]^2)/960 - (2027*S2[2, Infinity]^3)/1344 + 
   (39*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (25*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (161*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 - (115*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (449*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (317*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/16 - 
   (17*S2[1, n]^3*S2[3, Infinity])/192 - 
   (407*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (195*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (665*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (499*S2[3, Infinity]^2)/3072 + (Half[S2[1, n], n]*S2[5, Infinity])/128 - 
   (3*S2[1, n]*S2[5, Infinity])/16 + (5*S2[-5, -1, Infinity])/8 - 
   4*S2[1, n]*S2[-4, 1, n] + (23*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    48 + (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (25*S2[1, n]^2*S2[-3, 1, n])/24 - (43*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 - 
   (S2[1, n]^3*S2[-2, 1, n])/12 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (S2[3, Infinity]*S2[-2, 1, n])/32 - S2[-2, 1, n]^2/4 - 
   (77*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 - 
   (19*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/48 + (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    4 - (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (11*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (29*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (17*S2[1, n]^4*S2[-1, 1, n])/24 + (79*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (25*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (23*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (547*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (119*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (107*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (55*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/48 + (11*S2[2, Infinity]*S2[-1, 1, n]^2)/12 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (25*S2[1, n]^3*S2[2, 1, n])/24 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (67*S2[3, Infinity]*S2[2, 1, n])/96 - (S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - S2[2, 1, n]^2/4 - 
   4*S2[1, n]*S2[4, 1, n] - S2[1, n]*S2[-2, 1, -2, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + (S2[1, n]^2*S2[-2, 1, -1, n])/
    2 + (S2[2, Infinity]*S2[-2, 1, -1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (7*S2[1, n]^2*S2[-1, -2, -1, n])/24 - 
   (13*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 - 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - S2[-1, 1, -1, n]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - 2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[1, n]^3*S2[-1, 1, 1, n] - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (7*S2[3, Infinity]*S2[-1, 1, 1, n])/8 - S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, 1, n]^2 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - 2*S2[1, n]^2*S2[1, 2, -1, n] - 
   S2[2, Infinity]*S2[1, 2, -1, n] - S2[-1, 1, n]*S2[1, 2, -1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (19*S2[1, n]^2*S2[2, 1, -1, n])/12 - (13*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (13*S2[-1, 1, n]*S2[2, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + (3*S2[1, n]^2*S2[2, 1, 1, n])/
    2 + (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 2*S2[1, n]*S2[3, 1, 1, n] + 
   S2[4, 1, 1, n] - S2[-2, -2, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 + (S2[1, n]^2*S2[-1, 1, -1, 1, n])/
    2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (11*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]*S2[1, -1, 1, -2, n] + S2[1, n]*S2[1, 1, -2, -1, n] + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (7*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, -2, n] - 
   S2[1, 1, -2, -1, 1, n] - (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + S2[1, 1, -1, 1, -2, n] - 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] + 2*S2[1, 1, 1, -1, -2, n] - 
   4*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 2*S2[2, 1, 1, 1, 1, n] - 
   S2[-1, 1, -1, -1, -1, 1, n]/4 - S2[-1, 1, -1, 1, 1, 1, n] + 
   S2[-1, 1, 1, 1, -1, 1, n] - (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, -1, -1, 1, -1, n]/4 + S2[1, -1, -1, 1, -1, -1, n]/2 + 
   S2[1, -1, 1, -1, -1, -1, n]/2 + S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, 1, -1, 1, -1, n] + 4*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -2, 1, -1, -1, n] -> (-23*Diff[Half[S2[1, n], n], n, 1]^3)/192 - 
   (31*Diff[Half[S2[1, n], n], n, 2]^2)/48 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 - 
   (649*Diff[Half[S2[1, n], n], n, 5])/5760 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/192 - 
   (23*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   Diff[Half[S2[4, 1, n], n], n, 1]/4 + 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   Diff[Half[S2[2, 1, 1, 1, n], n], n, 1]/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 + 
   (83*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/96 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/192 + 
   (105*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (29*Diff[S2[1, n], n, 1]^3)/16 + (133*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (133*Diff[S2[1, n], n, 2]^2)/96 + 
   (1381*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3] + (919*Diff[S2[1, n], n, 5])/
    5760 - Diff[S2[-4, 1, n], n, 1]/2 - (7*Diff[S2[-3, 1, n], n, 2])/96 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (85*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/48 - 
   (3*Diff[S2[-2, 1, n], n, 3])/16 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/24 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/192 - 
   (175*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (17*Diff[S2[-1, 1, n], n, 4])/64 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (5*Diff[S2[2, 1, n], n, 3])/12 - 2*Diff[S2[4, 1, n], n, 1] - 
   2*Diff[S2[-3, 1, 1, n], n, 1] + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - (5*Diff[S2[-1, -2, -1, n], n, 2])/
    96 + (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/48 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/96 - 
   Diff[S2[-1, 1, -1, n], n, 3]/32 + (47*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (51*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/8 - (5*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (17*Diff[S2[2, 1, -1, n], n, 2])/48 + 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 + Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + (13*Diff[S2[-1, 1, -1, -1, n], n, 2])/
    48 + Diff[S2[-1, 1, -1, 1, n], n, 2]/4 + 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 2])/8 - Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] - 2*Diff[S2[1, 1, 2, -1, n], n, 1] + 
   2*Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (17*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/8 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (107*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (61*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/12 + (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (59*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 + (325*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (67*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 - (33*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (115*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 - 
   (9*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (17*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (23*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/64 - 
   (215*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/576 + 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/192 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 - (271*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/192 + (445*Diff[S2[1, n], n, 3]*
     Half[S2[1, n], n]^2)/1152 - (25*Diff[S2[-2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/48 - (7*Diff[S2[-1, 1, n], n, 2]*
     Half[S2[1, n], n]^2)/96 - (11*Diff[S2[2, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (19*Diff[S2[-1, 1, -1, n], n, 1]*
     Half[S2[1, n], n]^2)/96 + (13*Diff[S2[-1, 1, 1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (23*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n]^3)/96 + (71*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/
    96 - (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/96 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/24 + 
   Half[S2[2, 1, n], n]^2/64 - (11*Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/32 - 
   Half[S2[4, 1, 1, n], n]/16 - Half[S2[2, 2, 1, 1, n], n]/16 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/384 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/128 + 
   (53*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 - S2[-1, Infinity]^6/72 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 + (281*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/96 - 
   (5*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 - 
   (27*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (137*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (227*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 - 
   (853*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (187*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 + 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (129*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/32 + 
   (53*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (23*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 + 
   (11*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/24 - 
   (33*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 + 
   (73*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (11*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (41*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/8 - 
   (21*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/9 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (19*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (347*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (113*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (37*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (121*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (175*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 - 
   (S2[-1, Infinity]^5*S2[1, n])/320 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/64 - 
   (347*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (37*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/192 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (299*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/192 + 
   (1351*Diff[S2[1, n], n, 3]*S2[1, n]^2)/1152 - 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/48 + 
   (119*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (25*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (59*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (49*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (113*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (29*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/32 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/128 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/6 - 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (45*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 - (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    96 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - (19*Half[S2[1, n], n]^2*S2[1, n]^4)/
    24 + (Half[S2[1, n], n]*S2[1, n]^5)/3 - S2[1, n]^6/32 - 
   (233*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/96 + 
   (365*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 - 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/192 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (123*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 + (93*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 + 
   (73*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (29*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 + 
   (107*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/96 - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (25*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (59*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    96 + (463*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/192 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 + 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (125*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (7*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (243*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (39*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 + 
   (89*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (37*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 + 
   (457*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (427*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (67*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (49*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (323*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/32 - (27*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (7*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/4 - (613*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (295*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (91*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/32 + (69*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/16 + (45*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    32 + (103*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (23*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (101*S2[1, n]^4*S2[2, Infinity])/96 - 
   (1007*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/640 - 
   (743*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 - 
   (2141*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (79*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 + 
   (2033*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (1547*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (1883*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (37291*S2[2, Infinity]^3)/
    4480 + (113*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (107*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (235*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (165*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    128 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity] - 
   (17*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (23*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (169*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (45*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (81*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (175*S2[1, n]^3*S2[3, Infinity])/192 + 
   (1447*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (315*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (6325*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (5041*S2[3, Infinity]^2)/3072 - (2407*Half[S2[1, n], n]*S2[5, Infinity])/
    512 + (6559*S2[1, n]*S2[5, Infinity])/512 - (87*S2[-5, -1, Infinity])/
    16 - S2[-5, 1, n] + (S2[1, n]*S2[-4, 1, n])/2 - 
   (103*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 - 
   (39*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/32 - 
   (5*Half[S2[1, n], n]^2*S2[-3, 1, n])/12 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 - 
   (25*S2[1, n]^2*S2[-3, 1, n])/24 + (191*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 - 
   (53*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/48 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/6 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (77*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (S2[1, n]^3*S2[-2, 1, n])/12 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] - 
   (71*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (5*S2[3, Infinity]*S2[-2, 1, n])/32 + (5*S2[-2, 1, n]^2)/4 - 
   (25*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/96 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 - 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 - 
   (155*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/96 + 
   (13*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/3 + 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/192 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/96 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/16 - 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/64 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (53*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (17*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (197*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (7*S2[1, n]^4*S2[-1, 1, n])/48 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (19*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (51*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (139*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (45*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (89*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (47*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   (45*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (105*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (5*S2[-3, 1, n]*S2[-1, 1, n])/8 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 - (11*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 - 
   (15*S2[1, n]^2*S2[-1, 1, n]^2)/32 - (3*S2[2, Infinity]*S2[-1, 1, n]^2)/2 - 
   (25*S2[-1, 1, n]^3)/48 + (23*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/
    32 - (37*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/8 - (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/
    8 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (33*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (S2[1, n]^3*S2[2, 1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] + 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (5*S2[3, Infinity]*S2[2, 1, n])/32 + (5*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + (5*S2[2, 1, n]^2)/4 - 
   (S2[1, n]*S2[4, 1, n])/2 - 6*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 + 
   S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (3*S2[1, n]^2*S2[-2, 1, -1, n])/8 - S2[2, Infinity]*S2[-2, 1, -1, n] - 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/4 - (5*S2[-2, 2, -2, n])/8 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/96 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/32 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 + (11*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/3 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (25*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (27*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (43*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (51*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (3*S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/8 - 
   (5*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/8 - 
   (7*S2[1, n]^3*S2[-1, 1, 1, n])/4 + (35*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (27*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/16 - (33*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/16 - 
   (199*S2[3, Infinity]*S2[-1, 1, 1, n])/64 + 
   (5*S2[-2, 1, n]*S2[-1, 1, 1, n])/4 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 - 
   (9*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/8 + 
   (5*S2[2, 1, n]*S2[-1, 1, 1, n])/4 - (9*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    8 - (3*S2[-1, 1, 1, n]^2)/4 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (S2[1, n]^2*S2[1, 2, -1, n])/8 + 
   (11*S2[2, Infinity]*S2[1, 2, -1, n])/4 + (3*S2[-1, 1, n]*S2[1, 2, -1, n])/
    4 + (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/48 - 
   (21*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/12 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/12 + (53*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (3*S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (S2[1, n]^2*S2[2, 1, 1, n])/8 - 
   (11*S2[2, Infinity]*S2[2, 1, 1, n])/4 - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/
    4 - S2[3, 1, -2, n]/2 + (5*S2[4, 1, 1, n])/2 - 5*S2[-3, 1, 1, 1, n] + 
   S2[-2, -2, 1, 1, n]/2 - (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[-2, 2, 1, 1, n]/2 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/24 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    16 + (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 - 
   (41*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (9*S2[1, n]^2*S2[-1, 1, -1, 1, n])/16 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (9*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/8 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    8 + (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (137*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (5*S2[2, -2, 1, 1, n])/2 - (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   (3*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/4 - 
   (7*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/4 + 
   (21*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (15*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/8 - 
   (53*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (5*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - S2[1, -1, -1, 1, -2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] - 
   S2[1, -1, 1, -2, -1, n] + (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/
    8 - (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, -1, 1, 1, -2, n])/
    2 - (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, -1, 1, 2, -1, n] - 
   2*S2[1, 1, -2, -1, -1, n] - (3*S2[1, 1, -2, -1, 1, n])/2 - 
   2*S2[1, 1, -2, 1, -1, n] - S2[1, 1, -1, -2, -1, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - 2*S2[1, 1, -1, 1, -2, n] - 
   (9*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/8 + 
   (9*S2[1, n]*S2[1, 1, -1, 1, -1, n])/8 - 2*S2[1, 1, -1, 1, 2, n] - 
   S2[1, 1, -1, 2, -1, n] - 7*S2[1, 1, 1, -2, -1, n] - 
   4*S2[1, 1, 1, -1, -2, n] - (7*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/
    4 + (7*S2[1, n]*S2[1, 1, 1, -1, -1, n])/4 - 4*S2[1, 1, 1, -1, 2, n] - 
   7*S2[1, 1, 1, 2, -1, n] - 2*S2[1, 1, 2, -1, -1, n] - 
   (3*S2[1, 1, 2, -1, 1, n])/2 - 2*S2[1, 1, 2, 1, -1, n] - 
   S2[1, 2, 1, -1, -1, n] + (3*S2[2, 1, 1, 1, 1, n])/2 + 
   (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + (7*S2[-1, -1, 1, -1, -1, -1, n])/8 - 
   S2[-1, -1, 1, 1, -1, -1, n]/4 + (5*S2[-1, 1, -1, -1, -1, -1, n])/4 + 
   (5*S2[-1, 1, -1, -1, -1, 1, n])/8 + (7*S2[-1, 1, -1, -1, 1, 1, n])/4 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - S2[-1, 1, 1, -1, -1, -1, n]/4 + 
   (3*S2[-1, 1, 1, -1, -1, 1, n])/2 + S2[-1, 1, 1, 1, -1, -1, n] - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + 10*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   (5*S2[1, -1, -1, -1, -1, -1, n])/4 - (3*S2[1, -1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 + (5*S2[1, -1, -1, 1, 1, -1, n])/4 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 + (3*S2[1, -1, 1, 1, -1, -1, n])/2 - 
   (3*S2[1, 1, -1, -1, -1, -1, n])/2 + (9*S2[1, 1, -1, -1, 1, -1, n])/4 + 
   (11*S2[1, 1, -1, 1, -1, -1, n])/4 + (27*S2[1, 1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -2, 1, -1, 1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (71*Diff[Half[S2[1, n], n], n, 2]^2)/128 - 
   (107*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 - 
   (35*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 - 
   (9*Diff[Half[S2[2, 1, n], n], n, 3])/64 + 
   (7*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   Diff[Half[S2[2, 1, 1, n], n], n, 2]/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 + 
   (401*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (19*Diff[S2[1, n], n, 1]^3)/48 + (163*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (425*Diff[S2[1, n], n, 2]^2)/192 + 
   (733*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (707*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (269*Diff[S2[1, n], n, 5])/1152 - Diff[S2[-4, 1, n], n, 1] - 
   (19*Diff[S2[-3, 1, n], n, 2])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (7*Diff[S2[-2, 1, n], n, 3])/16 - (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/32 + 
   (33*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (15*Diff[S2[-1, 1, n], n, 1]^2)/32 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] + (13*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/32 - (115*Diff[S2[-1, 1, n], n, 4])/192 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (5*Diff[S2[2, 1, n], n, 3])/24 - Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + Diff[S2[-2, 1, -2, n], n, 1]/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/8 - Diff[S2[-1, -2, -1, n], n, 2]/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 3])/16 - (7*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (9*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (5*Diff[S2[2, 1, 1, n], n, 2])/8 - Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 + Diff[S2[-1, 1, 1, 1, n], n, 2]/
    2 - Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/
    2 + 2*Diff[S2[2, 1, 1, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   (5*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 + (41*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (47*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (145*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 + 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (25*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 + (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 + (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/64 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   (5*Half[S2[2, 1, n], n]^2)/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - 
   (13*S2[-1, Infinity]^6)/1440 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[Half[S2[1, n], n], n, 2]*S2[1, n] - 
   (37*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (83*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (11*Diff[S2[1, n], n, 4]*S2[1, n])/72 - 
   (Diff[S2[-3, 1, n], n, 1]*S2[1, n])/6 - 
   (23*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (31*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 - 
   (23*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/3 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/6 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/32 - 
   (167*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (8*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/3 - (439*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    96 + (457*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/576 - 
   (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (169*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/3 + 
   (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/8 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/192 + 
   (31*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 + 
   (269*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (185*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (511*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (187*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 + 
   (21*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (65*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (57*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 - 
   (113*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (17*S2[-1, Infinity]^4*S2[1, n]^2)/192 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 + 
   (161*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (73*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (19*Half[S2[1, n], n]^3*S2[1, n]^3)/48 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    12 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (5*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (13*S2[1, n]^6)/96 - (57*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (179*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    24 - (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (61*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (53*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (33*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/192 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (55*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 - 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (33*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (29*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (2*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (185*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (277*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (49*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (217*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/6 + (5*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/12 + (41*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (31*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (53*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/32 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 - 
   (341*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (97*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (25*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (49*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (23*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (5*S2[1, n]^4*S2[2, Infinity])/12 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/32 + 
   (359*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (1289*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (887*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (1409*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (599*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (1767*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (5719*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (31931*S2[2, Infinity]^3)/
    13440 - (35*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (1291*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (55*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (665*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (581*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (697*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (793*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 - 
   (107*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (5*S2[1, n]^3*S2[3, Infinity])/12 + 
   (637*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (339*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (2629*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (14843*S2[3, Infinity]^2)/6144 + (23*Half[S2[1, n], n]*S2[5, Infinity])/
    32 + (153*S2[1, n]*S2[5, Infinity])/16 - (5*S2[-5, -1, Infinity])/2 + 
   S2[1, n]*S2[-4, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 - 
   (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (109*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/48 + 
   (59*S2[1, n]^2*S2[-3, 1, n])/24 + (35*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/3 + 
   (19*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (7*S2[1, n]^3*S2[-2, 1, n])/12 - (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (39*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (11*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (99*S2[3, Infinity]*S2[-2, 1, n])/64 + (5*S2[-2, 1, n]^2)/8 + 
   (113*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (41*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (31*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (31*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (27*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/16 - 
   (187*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (89*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 - (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (155*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (3*S2[1, n]^4*S2[-1, 1, n])/8 - (73*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (21*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (21*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (107*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (191*S2[2, Infinity]^2*S2[-1, 1, n])/120 - 
   (421*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (197*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (19*S2[-3, 1, n]*S2[-1, 1, n])/12 + 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (23*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/12 - 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (13*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (73*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (25*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (101*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (7*S2[1, n]^3*S2[2, 1, n])/24 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (239*S2[3, Infinity]*S2[2, 1, n])/192 + (5*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (5*S2[2, 1, n]^2)/8 - 
   (S2[1, n]*S2[4, 1, n])/2 + S2[-3, -2, 1, n]/2 + 
   (S2[1, n]*S2[-3, 1, 1, n])/2 + (5*S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/4 - 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + S2[-2, 2, -2, n]/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/48 + 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/24 + 
   (11*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (41*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (323*S2[3, Infinity]*S2[-1, 1, -1, n])/384 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (31*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + 2*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   (7*S2[-1, 1, 1, n]^2)/4 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/
    4 - (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/4 + 
   2*S2[1, n]^2*S2[1, 2, -1, n] + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (3*S2[-1, 1, n]*S2[1, 2, -1, n])/2 + (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (43*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/24 + 
   (29*S2[1, n]^2*S2[2, 1, -1, n])/12 + (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (5*S2[-1, 1, n]*S2[2, 1, -1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/4 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/4 - (5*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (7*S2[4, 1, 1, n])/2 + (3*S2[-2, -2, 1, 1, n])/2 + 
   (S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/24 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   S2[2, Infinity]*S2[-1, 1, -1, 1, n] + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (33*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (21*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (7*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (17*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[1, n]*S2[1, -1, 1, -2, n] - (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, 2, n])/2 - (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 
   S2[2, 2, 1, 1, n] - (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] + (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + (13*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (31*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, 1, -2, -1, 1, n]/2 - (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - S2[1, 1, -1, 1, -2, n] + 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] - 2*S2[1, 1, 1, -1, -2, n] + 
   4*S2[1, n]*S2[1, 1, 1, -1, -1, n] + (7*S2[2, 1, 1, 1, 1, n])/2 + 
   S2[-1, -1, 1, 1, -1, -1, n]/2 + S2[-1, 1, -1, -1, -1, 1, n]/4 + 
   S2[-1, 1, -1, 1, -1, -1, n]/4 + (7*S2[-1, 1, -1, 1, 1, 1, n])/4 + 
   S2[-1, 1, 1, -1, -1, -1, n] - (7*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   (13*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - S2[1, -1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, -1, -1, -1, n]/2 - 
   S2[1, 1, -1, -1, -1, -1, n]/2 - (7*S2[1, 1, 1, -1, 1, -1, n])/4 - 
   7*S2[1, 1, 1, 1, -1, -1, n], S2[1, -2, 1, 1, -1, n] -> 
  (-7*Diff[Half[S2[1, n], n], n, 1]^3)/192 + 
   (11*Diff[Half[S2[1, n], n], n, 2]^2)/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/8 + 
   (557*Diff[Half[S2[1, n], n], n, 5])/1152 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/16 - Diff[Half[S2[4, 1, n], n], n, 1]/8 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/64 - 
   (41*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (225*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/64 - 
   (223*Diff[S2[1, n], n, 1]^3)/64 - 5*Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 2] + (157*Diff[S2[1, n], n, 2]^2)/32 - 
   (1201*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/384 + 
   (2525*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/384 - 
   (43*Diff[S2[1, n], n, 5])/80 + Diff[S2[-4, 1, n], n, 1]/2 + 
   (11*Diff[S2[-3, 1, n], n, 2])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/16 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 + 
   (29*Diff[S2[-2, 1, n], n, 3])/24 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 - 
   (361*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/96 + 
   Diff[S2[-1, 1, n], n, 1]^2/16 - (49*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/64 - 
   (127*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (11*Diff[S2[-1, 1, n], n, 4])/8 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   Diff[S2[2, 1, n], n, 3]/16 - Diff[S2[4, 1, n], n, 1]/2 - 
   3*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-2, 1, -2, n], n, 1]/8 - 
   Diff[S2[-2, 1, -1, n], n, 2]/2 + Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 - 
   (17*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/16 + (7*Diff[S2[1, 2, -1, n], n, 2])/4 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (11*Diff[S2[2, 1, -1, n], n, 2])/8 - 
   (3*Diff[S2[2, 1, 1, n], n, 2])/4 - (5*Diff[S2[-2, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/16 - (7*Diff[S2[-1, 1, -1, 1, n], n, 2])/
    16 - (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   Diff[S2[2, 1, 1, 1, n], n, 1] - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/8 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/16 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/8 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (3*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 + (47*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (125*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    32 - (265*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/384 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 + Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (55*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/192 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (11*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    32 + (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/64 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/192 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    64 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/192 - 
   Half[S2[2, 1, n], n]^2/32 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/32 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   Half[S2[4, 1, 1, n], n]/16 - (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 + (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/
    64 - (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^5)/960 + 
   (7*S2[-1, Infinity]^6)/2880 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/96 - 
   (89*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (179*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (1105*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (227*Diff[S2[1, n], n, 4]*S2[1, n])/128 + 
   (21*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/32 - 
   (33*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (365*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/32 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/2 + 
   (15*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (25*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/16 + 
   (17*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (17*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (45*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (21*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (9*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (67*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (89*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 + 
   (Half[S2[1, n], n]^5*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/64 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 - 
   (19*S2[-1, Infinity]^5*S2[1, n])/960 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (61*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/192 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/32 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/32 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (187*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/64 - 
   (33*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 - 
   (15*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/32 - 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (239*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/192 + 
   (59*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (75*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/6 + 
   (15*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/64 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (19*S2[-1, Infinity]^4*S2[1, n]^2)/384 + 
   (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/64 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (55*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (23*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 + 
   (137*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (31*Half[S2[1, n], n]^2*S2[1, n]^4)/48 + (23*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (7*S2[1, n]^6)/48 + (5*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/4 + (11*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    192 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/64 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (35*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (9*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (65*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (11*Half[S2[1, n], n]^4*S2[2, Infinity])/96 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (35*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/24 - 
   (29*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/32 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    16 - (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/64 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (33*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/64 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (67*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (61*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/64 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (117*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/64 - 
   (47*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/64 - 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (47*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (S2[1, n]^4*S2[2, Infinity])/32 + (239*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/640 + (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (157*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 - 
   (397*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (207*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (1433*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (27*S2[1, n]^2*S2[2, Infinity]^2)/128 - (783*S2[2, Infinity]^3)/896 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/768 - 
   (163*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (45*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (409*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 - (461*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (133*Half[S2[1, n], n]^3*S2[3, Infinity])/768 + 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (229*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (1841*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 - 
   (51*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (215*S2[1, n]^3*S2[3, Infinity])/768 - 
   (305*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (687*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (837*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (505*S2[3, Infinity]^2)/256 - (61*Half[S2[1, n], n]*S2[5, Infinity])/256 - 
   (1233*S2[1, n]*S2[5, Infinity])/256 + (25*S2[-5, -1, Infinity])/8 + 
   2*S2[-5, 1, n] + (3*S2[1, n]*S2[-4, 1, n])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/32 + 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/2 - 
   (39*S2[1, n]^2*S2[-3, 1, n])/32 - (11*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/48 - 
   (17*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/16 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/16 + 
   (11*S2[1, n]^3*S2[-2, 1, n])/48 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (13*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 - 
   (17*S2[3, Infinity]*S2[-2, 1, n])/32 - S2[-2, 1, n]^2/2 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/96 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 - 
   (21*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (19*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/192 + 
   (65*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 + 
   (75*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (17*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (19*S2[1, n]^4*S2[-1, 1, n])/48 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (35*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (33*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (33*S2[2, Infinity]^2*S2[-1, 1, n])/64 + 
   (7*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (5*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/8 - 
   (23*S2[-3, 1, n]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (27*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 + (9*S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 + 
   (59*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (39*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/96 + (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    4 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (95*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (67*S2[1, n]^3*S2[2, 1, n])/96 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - (17*S2[3, Infinity]*S2[2, 1, n])/
    32 - S2[-2, 1, n]*S2[2, 1, n] - (3*Half[S2[1, n], n]*S2[-1, 1, n]*
     S2[2, 1, n])/16 + (11*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 - 
   S2[2, 1, n]^2/2 + (5*S2[1, n]*S2[4, 1, n])/2 - 2*S2[-4, 1, 1, n] - 
   S2[-3, -2, 1, n]/2 + S2[1, n]*S2[-3, 1, 1, n] - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/8 - (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 + (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   S2[-2, 2, -2, n]/8 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    32 + (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/32 - (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/16 + 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (47*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - (S2[2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   S2[1, n]^3*S2[-1, 1, 1, n] - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (35*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   S2[2, 1, n]*S2[-1, 1, 1, n] + (3*S2[-1, 1, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + (S2[1, n]^2*S2[1, 2, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 - (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (S2[1, n]*S2[2, 1, -2, n])/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/16 - (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/16 - (9*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - (S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 + 2*S2[1, n]*S2[3, 1, 1, n] + (5*S2[4, 1, 1, n])/2 - 
   3*S2[-3, 1, 1, 1, n] - S2[-2, -2, 1, 1, n]/2 + 
   (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - S2[-2, 2, 1, 1, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/16 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 - (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (19*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 - 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 + (S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   S2[2, -2, 1, 1, n]/2 + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   S2[2, 2, 1, 1, n] - (3*S2[-2, 1, 1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - (11*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 + 
   (19*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 + S2[1, -1, 1, 1, -2, n]/2 + 
   S2[1, -1, 1, 1, 2, n]/2 - S2[1, 1, -2, -1, 1, n]/2 - 
   2*S2[1, 1, -2, 1, -1, n] + (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/
    4 - (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 3*S2[1, 1, 1, -2, -1, n] - 
   3*S2[1, 1, 1, 2, -1, n] - S2[1, 1, 2, -1, 1, n]/2 - 
   2*S2[1, 1, 2, 1, -1, n] - S2[1, 2, 1, 1, -1, n] - 
   (3*S2[2, 1, 1, 1, 1, n])/2 + S2[-1, -1, -1, 1, -1, -1, n]/8 + 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/8 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   (3*S2[-1, 1, -1, -1, -1, -1, n])/4 - S2[-1, 1, -1, -1, -1, 1, n]/8 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 - (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] + (3*S2[-1, 1, 1, 1, -1, 1, n])/4 - 
   (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + (5*S2[1, -1, -1, -1, -1, -1, n])/
    4 + (3*S2[1, -1, -1, -1, 1, -1, n])/8 + S2[1, -1, -1, 1, -1, -1, n]/2 + 
   S2[1, -1, 1, -1, -1, -1, n]/4 + (3*S2[1, 1, 1, -1, 1, -1, n])/4 + 
   3*S2[1, 1, 1, 1, -1, -1, n], S2[1, -2, 1, 1, 1, n] -> 
  -Diff[S2[-2, 1, 1, 1, n], n, 1] - (Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/3 + Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
    S2[2, Infinity] - Diff[S2[1, n], n, 1]^2*S2[2, Infinity] + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/3 - Diff[S2[-2, 1, n], n, 1]*
    S2[2, Infinity] - Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 - 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 - 
   (769*S2[2, Infinity]^3)/420 - (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/16 + (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (51*S2[3, Infinity]^2)/128 - S2[2, Infinity]*S2[-3, 1, n] + 
   S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] + S2[3, Infinity]*S2[-2, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   S2[2, Infinity]*S2[1, 2, -1, n] - S2[2, Infinity]*S2[2, 1, -1, n] - 
   S2[-3, 1, 1, 1, n] + S2[1, n]*S2[-2, 1, 1, 1, n] - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 4*S2[-2, 1, 1, 1, 1, n], 
 S2[1, 2, -1, -1, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/64 - 
   (17*Diff[Half[S2[1, n], n], n, 2]^2)/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/36 + 
   (89*Diff[Half[S2[1, n], n], n, 5])/128 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/96 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/64 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 3])/96 + 
   (5*Diff[Half[S2[4, 1, n], n], n, 1])/16 - 
   (193*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/192 - 
   (373*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 + 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (1955*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/192 - 
   (591*Diff[S2[1, n], n, 1]^3)/64 - (167*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 + (571*Diff[S2[1, n], n, 2]^2)/96 - 
   (4567*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/1152 + 
   (11167*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/1152 - 
   (479*Diff[S2[1, n], n, 5])/720 - 2*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/4 - (25*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/48 - 
   (163*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (19*Diff[S2[-2, 1, n], n, 3])/12 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (155*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (75*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/64 - 
   (177*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (59*Diff[S2[-1, 1, n], n, 4])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (31*Diff[S2[2, 1, n], n, 3])/48 - 3*Diff[S2[4, 1, n], n, 1] - 
   (15*Diff[S2[-3, 1, 1, n], n, 1])/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + 
   Diff[S2[-2, 1, -1, n], n, 2]/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/32 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/96 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 - 
   (89*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/16 + 
   (15*Diff[S2[-1, 1, 1, n], n, 3])/16 + (9*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (9*Diff[S2[2, 1, -1, n], n, 2])/4 + (3*Diff[S2[2, 1, 1, n], n, 2])/2 + 
   Diff[S2[3, 1, 1, n], n, 1] - 6*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/16 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 - 
   (15*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, -2, n], n, 1]/
    2 + (3*Diff[S2[1, -1, 1, 2, n], n, 1])/2 - 
   2*Diff[S2[1, 1, -2, -1, n], n, 1] + (3*Diff[S2[1, 1, -1, 2, n], n, 1])/2 - 
   Diff[S2[1, 2, -1, -1, n], n, 1] + (5*Diff[S2[2, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/16 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (7*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/8 - 
   (9*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/16 - 
   (9*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/8 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - Diff[S2[1, 1, 1, -1, -1, n], n, 1]/
    2 + (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/9 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/32 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/192 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (715*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    96 - (1015*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/1152 - 
   (167*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (49*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 - (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    192 + (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (17*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (29*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (23*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/32 - (27*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 + (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    12 - (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (41*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/192 - 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (55*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/192 + 
   (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/32 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/16 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/192 + 
   (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/64 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/32 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/32 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (3*Half[S2[4, 1, 1, n], n])/16 + (27*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^4)/128 + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/8 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/384 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^5)/320 - 
   (31*S2[-1, Infinity]^6)/2880 - (41*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 - 
   (227*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 + 
   (7*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (15*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/32 + 
   (469*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/64 + 
   (197*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (2285*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/96 + 
   (3151*Diff[S2[1, n], n, 4]*S2[1, n])/1152 + 
   (383*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/96 - 
   (149*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (133*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (757*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/192 - 
   (29*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (29*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/96 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/16 - 
   (21*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/8 - 
   (115*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/48 - 
   (19*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/48 - 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (25*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (151*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (743*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (41*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (21*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (23*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (149*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/192 - 
   (55*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/32 + 
   (61*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (Half[S2[1, n], n]^5*S2[1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (59*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/192 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 + 
   (89*S2[-1, Infinity]^5*S2[1, n])/960 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (847*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/576 - 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/96 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (691*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/96 + 
   (283*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (709*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 + 
   (25*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (913*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/192 + 
   (19*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/32 + 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/96 + 
   (25*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/64 - 
   (121*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (95*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/32 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/12 + 
   (91*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    128 - (349*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/192 + 
   (77*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 - 
   (133*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (25*Half[S2[1, n], n]^3*S2[1, n]^3)/24 - 
   (41*Half[S2[2, 1, n], n]*S2[1, n]^3)/192 + 
   (53*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/96 - 
   (259*Diff[S2[1, n], n, 1]*S2[1, n]^4)/96 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]^4)/16 + (29*Half[S2[1, n], n]*S2[1, n]^5)/
    48 - (5*S2[1, n]^6)/48 - (35*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 + (563*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    192 + (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (227*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    64 - (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/64 - 
   (19*Diff[S2[1, n], n, 3]*S2[2, Infinity])/18 + 
   (49*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] - 
   (7*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (103*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (167*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (15*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/3 + 
   (87*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/64 + 
   (3*Half[S2[1, n], n]^4*S2[2, Infinity])/32 - 
   (29*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (5*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (117*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (27*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (21*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/64 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/8 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (343*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (325*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/96 - (173*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (47*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (481*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 + (71*Half[S2[1, n], n]^2*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/64 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/12 - (325*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 + (125*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/192 - (17*Half[S2[1, n], n]^2*S2[1, n]^2*
     S2[2, Infinity])/16 + (53*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/64 + (99*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    64 + (65*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (247*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/64 - 
   (29*S2[1, n]^4*S2[2, Infinity])/96 - 
   (465*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/128 + 
   (47*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 - 
   (187*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/384 + 
   (733*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (561*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (233*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/96 - 
   (1133*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (1199*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (20467*S2[2, Infinity]^3)/
    4480 + (579*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/256 - 
   (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 + 
   (361*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (901*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (317*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/768 - 
   (57*Half[S2[1, n], n]^3*S2[3, Infinity])/256 + 
   (53*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 + 
   (367*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/768 + 
   (331*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/256 - 
   (311*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/256 - 
   (193*S2[1, n]^3*S2[3, Infinity])/768 - 
   (1073*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (1635*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 - 
   (2827*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (6803*S2[3, Infinity]^2)/1536 - (189*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (3877*S2[1, n]*S2[5, Infinity])/256 + (7*S2[-5, -1, Infinity])/8 + 
   6*S2[-5, 1, n] + (9*S2[1, n]*S2[-4, 1, n])/2 - 
   (107*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/96 + 
   (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (15*Half[S2[1, n], n]^2*S2[-3, 1, n])/32 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (41*S2[1, n]^2*S2[-3, 1, n])/96 + (73*S2[2, Infinity]*S2[-3, 1, n])/24 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/48 - 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/16 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (325*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/48 + 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/48 - 
   (67*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/48 - 
   (43*S2[1, n]^3*S2[-2, 1, n])/48 + (29*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (71*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (5*S2[3, Infinity]*S2[-2, 1, n])/32 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/32 - 
   (57*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/32 + 
   (149*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/32 - 
   (113*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/72 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/24 + 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/32 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/48 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/32 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 + 
   (31*S2[-1, Infinity]^4*S2[-1, 1, n])/192 - 
   (85*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (95*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (11*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   (289*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/96 - 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 - 
   (S2[1, n]^4*S2[-1, 1, n])/48 - (113*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (33*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (41*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (83*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (25*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (13*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3931*S2[2, Infinity]^2*S2[-1, 1, n])/960 - 
   Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n] - 
   S2[1, n]*S2[3, Infinity]*S2[-1, 1, n] + (7*S2[-3, 1, n]*S2[-1, 1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/32 - 
   (43*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/48 - (61*S2[2, Infinity]*S2[-1, 1, n]^2)/48 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/32 - 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/32 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/32 + 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/32 - 
   (27*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/32 + 
   (3*S2[1, n]^3*S2[2, 1, n])/32 + (31*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (187*S2[3, Infinity]*S2[2, 1, n])/32 + S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/16 + 
   (23*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/16 + S2[2, 1, n]^2 + 
   (3*S2[1, n]*S2[4, 1, n])/2 - 6*S2[-4, 1, 1, n] - S2[-3, -2, 1, n]/2 + 
   3*S2[1, n]*S2[-3, 1, 1, n] + (S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (5*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (5*S2[-2, 2, -2, n])/8 - (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/96 - (11*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/96 + (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    12 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/48 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/48 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (11*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (149*S2[3, Infinity]*S2[-1, 1, -1, n])/128 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 + 
   (3*S2[2, 1, n]*S2[-1, 1, -1, n])/8 + S2[-1, 1, -1, n]^2/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (21*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    8 - (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (41*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - 3*S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (3*S2[-1, 1, 1, n]^2)/4 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/8 - (37*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + 3*S2[1, n]^2*S2[1, 2, -1, n] - 
   (S2[2, Infinity]*S2[1, 2, -1, n])/2 + (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (3*S2[1, n]*S2[2, 1, -2, n])/2 - (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/48 - (101*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 + 
   (131*S2[1, n]^2*S2[2, 1, -1, n])/48 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 + (13*S2[-1, 1, n]*S2[2, 1, -1, n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + 2*S2[1, n]^2*S2[2, 1, 1, n] - 
   2*S2[2, Infinity]*S2[2, 1, 1, n] + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[3, 1, -2, n])/2 + S2[1, n]*S2[3, 1, 1, n] + (5*S2[4, 1, 1, n])/2 - 
   9*S2[-3, 1, 1, 1, n] + S2[-2, -2, 1, 1, n]/2 + 
   (9*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - (3*S2[-2, 2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/48 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (23*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (49*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (81*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/16 - 
   3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/16 + 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (31*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (3*S2[1, n]*S2[1, 1, -2, -1, n])/2 + (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   S2[1, n]*S2[1, 2, -1, -1, n] + (3*S2[2, -2, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - S2[2, 2, 1, 1, n]/2 - 
   (9*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/8 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (89*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/8 - 
   (9*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (9*S2[1, n]*S2[1, -1, -1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/8 - S2[1, -1, -1, 1, 2, n] + 
   (5*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/8 - 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/8 - (3*S2[1, -1, 1, 1, -2, n])/2 + 
   (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, -1, 1, 2, -1, n] - 
   (3*S2[1, 1, -2, -1, 1, n])/2 - 2*S2[1, 1, -2, 1, -1, n] + 
   (7*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/4 - 
   (7*S2[1, n]*S2[1, 1, -1, -1, -1, n])/4 - 2*S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] - 7*S2[1, 1, 1, -2, -1, n] - 
   4*S2[1, 1, 1, -1, -2, n] - 9*S2[1, 1, 1, 2, -1, n] - 
   4*S2[1, 1, 2, -1, -1, n] - (3*S2[1, 1, 2, -1, 1, n])/2 - 
   6*S2[1, 1, 2, 1, -1, n] - S2[1, 2, -1, 1, -1, n] - 
   2*S2[1, 2, 1, -1, -1, n] - 3*S2[1, 2, 1, 1, -1, n] + 
   (3*S2[2, 1, 1, 1, 1, n])/2 + (3*S2[-1, -1, -1, 1, -1, -1, n])/8 + 
   (9*S2[-1, -1, 1, -1, -1, -1, n])/8 - S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   (9*S2[-1, 1, -1, -1, -1, -1, n])/4 + (3*S2[-1, 1, -1, -1, -1, 1, n])/8 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 + (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   (31*S2[-1, 1, 1, 1, 1, 1, Infinity])/4 + (15*S2[1, -1, -1, -1, -1, -1, n])/
    4 - S2[1, -1, -1, -1, 1, -1, n]/8 - S2[1, -1, -1, 1, -1, -1, n]/2 - 
   (3*S2[1, -1, 1, -1, -1, -1, n])/4 - 2*S2[1, 1, -1, -1, -1, -1, n] - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, 2, -1, 1, 1, n] -> (-17*Diff[Half[S2[1, n], n], n, 5])/48 + 
   (8*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   (7*Diff[S2[1, n], n, 1]^3)/2 + (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (13*Diff[S2[1, n], n, 2]^2)/4 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3] - 
   (14*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 + 
   (17*Diff[S2[1, n], n, 5])/48 + (7*Diff[S2[-4, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, n], n, 2]/2 + (7*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 - (7*Diff[S2[-2, 1, n], n, 3])/12 + 
   (37*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   4*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] - 
   (23*Diff[S2[-1, 1, n], n, 4])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   (7*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - (11*Diff[S2[-1, 1, 1, n], n, 3])/12 - 
   Diff[S2[1, 2, -1, n], n, 2] + Diff[S2[2, 1, -2, n], n, 1]/2 - 
   Diff[S2[2, 1, -1, n], n, 2] + Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 - S2[-1, Infinity]^6/360 + 
   (11*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 - 
   6*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (61*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (15*Diff[S2[1, n], n, 4]*S2[1, n])/8 - 3*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] + (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 - 
   6*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (13*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 + 2*Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (5*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (4*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/3 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (27*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (83*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/12 - (9*Diff[S2[1, n], n, 2]*S2[1, n]^3)/
    4 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (13*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (S2[1, n]^4*S2[2, Infinity])/3 - (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/20 + (147*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    80 - (123*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 + 
   (3*S2[1, n]^2*S2[2, Infinity]^2)/4 - (1243*S2[2, Infinity]^3)/560 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 + 
   (109*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 + 
   (2*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] - 
   (71*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 + 
   (49*S2[1, n]^3*S2[3, Infinity])/24 - 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 - 
   (19*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/2 + 
   (95*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/12 - 
   (533*S2[3, Infinity]^2)/192 - (143*S2[1, n]*S2[5, Infinity])/8 - 
   (3*S2[-5, -1, Infinity])/2 + 6*S2[-5, 1, n] - 4*S2[1, n]*S2[-4, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-3, 1, n] + 4*S2[1, n]^2*S2[-3, 1, n] - 
   2*S2[2, Infinity]*S2[-3, 1, n] + (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    12 - (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (S2[1, n]^3*S2[-2, 1, n])/3 + S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] + 
   (2*S2[3, Infinity]*S2[-2, 1, n])/3 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 2*Diff[S2[1, n], n, 2]*S2[1, n]*
    S2[-1, 1, n] + (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (13*S2[2, Infinity]^2*S2[-1, 1, n])/10 + S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (3*S2[1, n]^3*S2[2, 1, n])/2 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 - (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] + 5*S2[-4, 1, 1, n] - 
   6*S2[1, n]*S2[-3, 1, 1, n] + (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   S2[3, Infinity]*S2[-1, 1, 1, n] - S2[2, 1, n]*S2[-1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - (S2[1, n]^2*S2[1, 2, -1, n])/2 - 
   (S2[2, Infinity]*S2[1, 2, -1, n])/2 - 2*S2[1, n]*S2[2, 1, -2, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - S2[1, n]^2*S2[2, 1, -1, n] - 
   S2[2, Infinity]*S2[2, 1, -1, n] - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] + 
   S2[-1, 1, n]*S2[2, 1, 1, n] + 2*S2[-3, 1, 1, 1, n] - S2[-2, 2, 1, 1, n] + 
   2*S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - 2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   14*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[1, -1, 1, 2, n] + S2[1, n]*S2[1, 1, 2, -1, n] - 
   S2[2, -2, 1, 1, n] - 2*S2[-2, 1, 1, 1, 1, n] + S2[1, -1, 1, 1, 2, n] + 
   S2[1, 1, -1, 1, 2, n] + 2*S2[1, 1, 1, -1, 2, n] - S2[1, 1, 2, -1, 1, n] + 
   2*S2[-1, 1, 1, 1, 1, 1, Infinity], S2[1, 2, 1, -1, 1, n] -> 
  (-19*Diff[Half[S2[1, n], n], n, 5])/240 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (7*Diff[S2[1, n], n, 1]^3)/8 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (5*Diff[S2[1, n], n, 2]^2)/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (53*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (19*Diff[S2[1, n], n, 5])/240 - 2*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/2 + (3*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 - Diff[S2[-2, 1, n], n, 3]/4 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (3*Diff[S2[-1, 1, n], n, 4])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   Diff[S2[-3, 1, 1, n], n, 1]/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/3 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 + 2*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (9*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + (7*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/
    2 - (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (7*S2[-1, Infinity]^6)/1440 - (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/
    48 + (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/48 + 3*Diff[S2[-3, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (2*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/3 - 2*Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] - Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/6 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (9*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (11*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/2 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (21*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 + 
   (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 + 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (7*S2[1, n]^4*S2[2, Infinity])/12 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 - 
   (67*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (411*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/4 - 
   (27*S2[1, n]^2*S2[2, Infinity]^2)/16 + (7181*S2[2, Infinity]^3)/3360 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/24 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/6 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (91*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 - 
   (151*S2[1, n]^3*S2[3, Infinity])/96 + 
   (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 + 
   (41*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (107*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/12 - 
   (49*S2[3, Infinity]^2)/192 + (209*S2[1, n]*S2[5, Infinity])/16 + 
   (7*S2[-5, -1, Infinity])/8 - 5*S2[-5, 1, n] + (7*S2[1, n]*S2[-4, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - (17*S2[1, n]^2*S2[-3, 1, n])/
    4 + (9*S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/12 - (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/
    4 - (7*S2[3, Infinity]*S2[-2, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   (11*S2[2, Infinity]^2*S2[-1, 1, n])/5 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (3*S2[1, n]^3*S2[2, 1, n])/2 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   2*S2[1, n]*S2[2, Infinity]*S2[2, 1, n] + (13*S2[3, Infinity]*S2[2, 1, n])/
    8 + (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 3*S2[-4, 1, 1, n] + 
   (9*S2[1, n]*S2[-3, 1, 1, n])/2 - Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   2*S2[3, Infinity]*S2[-1, 1, 1, n] + 2*S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - (S2[1, n]^2*S2[1, 2, -1, n])/
    4 + (7*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 2*S2[1, n]*S2[2, 1, -2, n] + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - (S2[1, n]^2*S2[2, 1, -1, n])/
    4 + (7*S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 + S2[-3, 1, 1, 1, n] - 2*S2[1, n]*S2[-2, 1, 1, 1, n] + 
   (3*S2[-2, 2, 1, 1, n])/2 - (7*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 11*S2[2, Infinity]*
    S2[-1, 1, 1, 1, Infinity] - S2[1, n]*S2[1, -1, 1, 2, n] - 
   (S2[1, n]*S2[1, 1, -1, 2, n])/2 - (3*S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   S2[2, -2, 1, 1, n]/2 + (7*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, 1, -1, 1, 2, n] - 
   2*S2[1, 1, 1, -1, 2, n] - S2[1, 1, 2, -1, 1, n]/2 - 
   (7*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, S2[1, 2, 1, 1, 1, n] -> 
  Diff[S2[1, n], n, 1]^3/12 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    24 + Diff[S2[1, n], n, 5]/720 + Diff[S2[2, 1, 1, n], n, 2]/4 + 
   Diff[S2[3, 1, 1, n], n, 1] - Diff[S2[2, 1, 1, 1, n], n, 1]/2 - 
   (2*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 + (17*S2[2, Infinity]^3)/21 - 
   2*S2[3, Infinity]^2 + S2[3, Infinity]*S2[2, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + S2[2, Infinity]*S2[2, 1, 1, n] + 
   2*S2[4, 1, 1, n] + S2[1, n]*S2[2, 1, 1, 1, n] - S2[2, 2, 1, 1, n]/2 - 
   4*S2[2, 1, 1, 1, 1, n], S2[1, -1, -2, -1, -1, n] -> 
  (-7*Diff[Half[S2[1, n], n], n, 2]^2)/32 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 + 
   Diff[Half[S2[1, n], n], n, 5]/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/96 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 + (35*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (263*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (85*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 - 
   (209*Diff[S2[1, n], n, 1]^3)/96 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + Diff[S2[1, n], n, 2]^2/16 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/144 + 
   (565*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (17*Diff[S2[1, n], n, 5])/720 + (3*Diff[S2[-3, 1, n], n, 2])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (10*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   (5*Diff[S2[-2, 1, n], n, 3])/24 - 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (101*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (19*Diff[S2[-1, 1, n], n, 4])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   Diff[S2[2, 1, n], n, 3]/6 + (3*Diff[S2[4, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, -1, n], n, 2]/4 + Diff[S2[-1, -2, -1, n], n, 2]/16 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (17*Diff[S2[-1, 1, -1, n], n, 3])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, n], n, 3]/8 + Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -1, n], n, 2]/8 + Diff[S2[2, 1, 1, n], n, 2]/2 + 
   (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/4 + 
   (7*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 - Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 - (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (49*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (19*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/3 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (37*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (35*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 + (55*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    192 - (11*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (89*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    24 + (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   (3*Half[S2[2, 1, n], n]^2)/32 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/32 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - 
   (19*S2[-1, Infinity]^6)/1440 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (53*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (25*Diff[S2[1, n], n, 4]*S2[1, n])/144 - 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 - 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (11*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 + 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 - 3*Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] + (13*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (25*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (59*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (19*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 - 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (4*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (23*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (25*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (23*S2[-1, Infinity]^5*S2[1, n])/480 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/32 - 
   (41*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/48 + 
   (197*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/96 - 
   (119*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   Diff[S2[2, 1, n], n, 1]*S2[1, n]^2 + 
   (25*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (37*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (11*S2[-1, Infinity]^4*S2[1, n]^2)/96 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/96 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 - 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]^4)/3 + (3*Half[S2[1, n], n]^2*S2[1, n]^4)/
    4 - (2*Half[S2[1, n], n]*S2[1, n]^5)/3 + (11*S2[1, n]^6)/48 - 
   (33*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 + 
   (269*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/96 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (43*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (469*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 + 
   (17*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 + 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (139*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (53*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/12 + 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]^4*S2[2, Infinity])/8 - 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (9*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (45*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (85*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (65*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (109*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (75*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (107*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (115*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (235*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (7*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (157*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/96 - 
   (61*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (17*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (125*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 - 
   (37*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (7*S2[1, n]^4*S2[2, Infinity])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/32 - 
   (139*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/30 - 
   (37*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/12 + 
   (669*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (653*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (2363*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 - 
   (1511*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (479*S2[1, n]^2*S2[2, Infinity]^2)/240 + (2591*S2[2, Infinity]^3)/448 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (41*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 - 
   (51*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (95*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (53*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (47*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 - 
   (59*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (289*S2[1, n]^3*S2[3, Infinity])/384 + 
   (2273*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (291*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (4487*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (4187*S2[3, Infinity]^2)/1536 - (439*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (2497*S2[1, n]*S2[5, Infinity])/128 - (17*S2[-5, -1, Infinity])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/12 - 
   (181*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (15*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/6 + (53*S2[1, n]^2*S2[-3, 1, n])/
    48 + (65*S2[2, Infinity]*S2[-3, 1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 + 
   (79*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (53*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/24 - 
   (61*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (23*S2[1, n]^3*S2[-2, 1, n])/24 + (23*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (59*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (3*S2[3, Infinity]*S2[-2, 1, n])/16 + (3*S2[-2, 1, n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (33*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/36 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/6 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/12 + 
   (17*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (25*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/3 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/12 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/48 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/8 + 
   (17*S2[1, n]^4*S2[-1, 1, n])/24 - (73*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (31*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (4*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/3 - 
   2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (41*S2[2, Infinity]^2*S2[-1, 1, n])/96 - 
   (11*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (49*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/3 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (25*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 - 
   (25*S2[1, n]^2*S2[-1, 1, n]^2)/48 - (89*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (13*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 - 
   (15*Diff[S2[1, n], n, 2]*S2[2, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (13*S2[1, n]^3*S2[2, 1, n])/16 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   2*S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - (19*S2[3, Infinity]*S2[2, 1, n])/
    16 + 3*S2[-2, 1, n]*S2[2, 1, n] - 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (3*S2[2, 1, n]^2)/2 - 
   3*S2[1, n]*S2[4, 1, n] + (9*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (5*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (5*S2[1, n]^2*S2[-2, 1, -1, n])/4 - (9*S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/12 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/3 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 + (17*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 + (7*S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 - 
   (19*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (111*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/4 + S2[-1, 1, -1, n]^2/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (5*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/4 - 
   (11*S2[1, n]^3*S2[-1, 1, 1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (47*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - (3*S2[-1, 1, 1, n]^2)/2 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (5*S2[1, n]^2*S2[1, 2, -1, n])/4 + (9*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (5*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/24 + (17*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 + (7*S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (5*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (11*S2[1, n]^2*S2[2, 1, 1, n])/4 - (15*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   3*S2[1, n]*S2[3, 1, 1, n] - 3*S2[4, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (2*S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 + 
   (7*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (11*S2[1, n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   3*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (5*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (11*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (75*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (17*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   3*S2[1, n]*S2[2, 1, 1, 1, n] + (3*S2[2, 2, 1, 1, n])/2 - 
   (5*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (5*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (23*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (5*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, -2, n] - 
   S2[1, -1, 1, 2, -1, n] - Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] - S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] + 2*S2[1, 1, 1, -2, -1, n] - 
   S2[1, 1, 1, -1, -2, n] + S2[1, 1, 2, -1, -1, n] + 3*S2[2, 1, 1, 1, 1, n] + 
   (5*S2[-1, -1, 1, 1, -1, -1, n])/2 + (5*S2[-1, 1, -1, -1, -1, 1, n])/4 + 
   2*S2[-1, 1, -1, 1, -1, -1, n] + (3*S2[-1, 1, -1, 1, 1, 1, n])/2 + 
   (7*S2[-1, 1, 1, -1, -1, -1, n])/2 - (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 
   (19*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - (7*S2[1, -1, -1, -1, 1, -1, n])/
    4 - S2[1, -1, -1, 1, -1, -1, n]/2 + 2*S2[1, -1, 1, -1, -1, -1, n] - 
   S2[1, 1, -1, -1, -1, -1, n] - (3*S2[1, 1, 1, -1, 1, -1, n])/2 - 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[1, -1, -2, -1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/48 + (5*Diff[Half[S2[1, n], n], n, 2]^2)/
    48 - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 + 
   (461*Diff[Half[S2[1, n], n], n, 5])/1440 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/48 + 
   (31*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 - 
   (49*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   (19*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/24 + 
   (19*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/48 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 - 
   (45*Diff[S2[1, n], n, 1]^3)/16 - (47*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (17*Diff[S2[1, n], n, 2]^2)/6 - 
   (187*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (133*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/32 - 
   (461*Diff[S2[1, n], n, 5])/1440 - 5*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/24 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/12 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   (11*Diff[S2[-2, 1, n], n, 3])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (67*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   Diff[S2[-1, 1, n], n, 1]^2/4 - (25*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/48 - 
   (59*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   Diff[S2[-1, 1, n], n, 4] + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/4 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (9*Diff[S2[-3, 1, 1, n], n, 1])/2 + Diff[S2[-1, -2, -1, n], n, 2]/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/12 + (3*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   (5*Diff[S2[2, 1, -1, n], n, 2])/6 - 3*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 2])/12 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + Diff[S2[1, -1, 1, 2, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/4 + 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1] - 
   (7*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 - 
   (3*Diff[S2[1, -1, -1, 1, -1, n], n, 1])/2 - 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 + (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/48 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/24 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (55*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (77*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/96 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (2*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 - (11*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (25*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/6 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (23*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/30 - (49*S2[-1, Infinity]^6)/1440 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 - (91*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (227*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 + 
   (16*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 - 
   (97*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (73*Diff[S2[1, n], n, 4]*S2[1, n])/48 - 
   (5*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/4 - 
   (8*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (85*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (7*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/3 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/6 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (95*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    16 + (91*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 - 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (53*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (11*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (5*S2[-1, Infinity]^5*S2[1, n])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (99*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (91*Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (35*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (33*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (5*S2[-1, Infinity]^4*S2[1, n]^2)/
    96 - (35*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 + 
   (65*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/24 + 
   (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/8 - (7*Half[S2[1, n], n]*S2[1, n]^5)/
    8 + (7*S2[1, n]^6)/24 - (11*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/24 - (79*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    48 + (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (20*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    3 - (241*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 + 
   (29*Diff[S2[1, n], n, 3]*S2[2, Infinity])/32 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (85*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/24 + 
   (9*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (27*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + 4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 + 
   (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (51*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (21*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    4 + (27*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   (41*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (45*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (143*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (35*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (7*S2[1, n]^4*S2[2, Infinity])/3 - 
   (653*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 + 
   (159*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/32 - 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/40 + 
   (61*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (267*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (21*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (79*S2[1, n]^2*S2[2, Infinity]^2)/160 - (5741*S2[2, Infinity]^3)/672 - 
   (193*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (23*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 - 
   (137*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/96 - 
   (61*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (107*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/16 + 
   (307*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (303*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (167*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (201*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (665*S2[1, n]^3*S2[3, Infinity])/192 + 
   (29*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/96 - 
   (11*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/4 + 
   (217*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/24 + 
   (2735*S2[3, Infinity]^2)/384 + (219*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (2953*S2[1, n]*S2[5, Infinity])/128 - (97*S2[-5, -1, Infinity])/8 - 
   10*S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (5*S2[1, n]^2*S2[-3, 1, n])/8 - 2*S2[2, Infinity]*S2[-3, 1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (4*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n] - (17*S2[1, n]^3*S2[-2, 1, n])/
    12 - (Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (7*S2[3, Infinity]*S2[-2, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/6 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/3 - 
   (13*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (35*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - Diff[S2[-1, 1, n], n, 2]*
    S2[-1, 1, n] + (5*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n] - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/12 - (4*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/3 + (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, n])/4 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*
     S2[-1, 1, n])/4 + (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/
    4 - (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/2 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/3 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 + 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 + 
   (3*S2[1, n]^4*S2[-1, 1, n])/4 - (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (43*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (19*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (26*S2[2, Infinity]^2*S2[-1, 1, n])/5 + 
   (101*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/2 - Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] + (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (17*S2[1, n]^2*S2[-1, 1, n]^2)/8 + (S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   S2[-1, 1, n]^3/6 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (11*S2[1, n]^3*S2[2, 1, n])/8 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (7*S2[3, Infinity]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 9*S2[-4, 1, 1, n] + 
   2*S2[1, n]*S2[-3, 1, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/2 - (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 + 3*S2[2, Infinity]*S2[-2, 1, -1, n] + 
   2*S2[-1, 1, n]*S2[-2, 1, -1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/8 + (3*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 - (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    4 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/3 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/3 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (3*S2[1, n]^3*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 + 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] - Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - 2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, 1, n] + 3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, 1, n] + (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] - 
   6*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   3*S2[1, n]^3*S2[-1, 1, 1, n] + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (7*S2[3, Infinity]*S2[-1, 1, 1, n])/8 - 2*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   2*S2[2, 1, n]*S2[-1, 1, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[1, 2, -1, n])/2 + (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/4 - (19*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 - 2*S2[-1, 1, n]*S2[1, 2, -1, n] + (S2[1, n]*S2[2, 1, -2, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/2 - (13*S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   S2[-1, 1, n]*S2[2, 1, -1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, 1, n])/2 - (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   3*S2[2, Infinity]*S2[2, 1, 1, n] + (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 - 6*S2[-3, 1, 1, 1, n] + (3*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 + S2[-2, 2, 1, 1, n]/2 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    4 + (S2[1, n]^2*S2[-1, 1, -1, -1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, -1, 1, n] - S2[1, n]^2*S2[-1, 1, -1, 1, n] + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 + 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (25*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   8*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, n]*S2[1, -1, 1, 2, n] - 
   S2[1, n]*S2[1, 1, -1, 2, n] - (S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (3*S2[2, -2, 1, 1, n])/2 - (7*S2[-2, 1, 1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 2*S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (75*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    4 + (5*S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (9*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, 2, n]/2 + 
   2*S2[1, 1, -1, -1, -2, n] + (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - S2[1, 1, -1, 1, 2, n] - 
   S2[1, 1, 1, -1, 2, n] + (3*S2[1, 1, 2, -1, 1, n])/2 - 
   S2[-1, 1, -1, -1, 1, 1, n] - S2[-1, 1, 1, -1, -1, 1, n] + 
   (49*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 2*S2[1, -1, -1, 1, 1, -1, n] + 
   S2[1, -1, 1, 1, -1, -1, n] + 3*S2[1, 1, -1, 1, -1, -1, n] + 
   6*S2[1, 1, 1, -1, -1, -1, n], S2[1, -1, -2, 1, -1, n] -> 
  (3*Diff[Half[S2[1, n], n], n, 1]^3)/32 + 
   (17*Diff[Half[S2[1, n], n], n, 2]^2)/96 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 - 
   (437*Diff[Half[S2[1, n], n], n, 5])/960 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (55*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (91*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 + 
   (13*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 + 
   (101*Diff[S2[1, n], n, 1]^3)/32 + (123*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (193*Diff[S2[1, n], n, 2]^2)/48 + 
   (427*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 - 
   (1081*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (437*Diff[S2[1, n], n, 5])/960 + Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/2 + (13*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   (13*Diff[S2[-2, 1, n], n, 3])/12 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (47*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (69*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (5*Diff[S2[-1, 1, n], n, 4])/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   4*Diff[S2[-3, 1, 1, n], n, 1] - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (17*Diff[S2[-1, 1, 1, n], n, 3])/24 - (3*Diff[S2[1, 2, -1, n], n, 2])/2 - 
   (3*Diff[S2[2, 1, -1, n], n, 2])/2 + 3*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 + 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 + 
   (7*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, -1, -1, n], n, 1])/2 + 
   2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/
    4 - (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/8 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (53*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (53*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 - (137*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (103*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (9*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 + (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 + (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    4 - (29*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/96 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/96 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/64 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/40 + S2[-1, Infinity]^6/720 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 + (9*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (109*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/32 - 
   (169*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (195*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (343*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (17*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (233*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (15*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/8 - (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (121*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (9*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (71*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (7*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (S2[-1, Infinity]^5*S2[1, n])/40 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (23*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (8*Diff[S2[1, n], n, 3]*S2[1, n]^2)/3 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (37*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (65*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/24 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    64 - (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 + 
   (17*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 + (5*Half[S2[1, n], n]^2*S2[1, n]^4)/
    12 - (5*Half[S2[1, n], n]*S2[1, n]^5)/24 + S2[1, n]^6/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 + (49*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (85*Diff[S2[1, n], n, 3]*S2[2, Infinity])/192 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (37*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    16 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (69*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (27*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (37*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/8 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (45*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (105*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (15*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (33*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (7*S2[1, n]^4*S2[2, Infinity])/48 + 
   (111*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 - 
   (101*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (59*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/320 - 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (91*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (167*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (183*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (87*S2[1, n]^2*S2[2, Infinity]^2)/320 + (1769*S2[2, Infinity]^3)/1344 + 
   (247*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (47*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 + 
   (43*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (113*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/384 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/16 - 
   (93*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (165*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (57*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (213*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (287*S2[1, n]^3*S2[3, Infinity])/384 + 
   (59*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (151*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (263*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (731*S2[3, Infinity]^2)/384 - (221*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (537*S2[1, n]*S2[5, Infinity])/128 + (9*S2[-5, -1, Infinity])/8 - 
   2*S2[1, n]*S2[-4, 1, n] + (15*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    16 - (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (13*S2[1, n]^2*S2[-3, 1, n])/16 - (7*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/24 + 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (13*S2[1, n]^3*S2[-2, 1, n])/24 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/2 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (13*S2[3, Infinity]*S2[-2, 1, n])/12 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (95*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 + Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] + (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/12 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 + 
   (S2[1, n]^4*S2[-1, 1, n])/24 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (19*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (19*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (79*S2[2, Infinity]^2*S2[-1, 1, n])/80 - 
   (7*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (17*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/8 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/8 - (5*S2[2, Infinity]*S2[-1, 1, n]^2)/16 - 
   S2[-1, 1, n]^3/8 + (17*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/24 - 
   (17*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (25*S2[1, n]^3*S2[2, 1, n])/48 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (7*S2[3, Infinity]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 6*S2[-4, 1, 1, n] - 
   2*S2[1, n]*S2[-3, 1, 1, n] - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - 
   (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/16 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (11*S2[3, Infinity]*S2[-1, 1, -1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (19*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/2 - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (S2[1, n]^2*S2[1, 2, -1, n])/2 + (7*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/8 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (3*S2[2, Infinity]*S2[2, 1, 1, n])/4 - 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 4*S2[-3, 1, 1, 1, n] - 
   2*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/8 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    8 + (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 - 
   2*S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 
   (17*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - S2[2, -2, 1, 1, n] + 
   2*S2[-2, 1, 1, 1, 1, n] + (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   S2[1, n]*S2[-1, 1, -1, -1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/
    2 + (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + 3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - S2[1, -1, 1, -2, -1, n] - 
   S2[1, -1, 1, 1, 2, n] - S2[1, 1, -1, -2, -1, n] - 
   S2[1, 1, -1, -1, -2, n] + (Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + 2*S2[1, 1, 1, 2, -1, n] + 
   S2[1, 1, 2, 1, -1, n] - S2[-1, -1, -1, 1, -1, -1, n]/4 - 
   (3*S2[-1, -1, 1, -1, -1, -1, n])/4 - (3*S2[-1, 1, -1, -1, -1, -1, n])/2 + 
   S2[-1, 1, -1, -1, 1, 1, n] + (3*S2[-1, 1, 1, -1, -1, 1, n])/2 + 
   S2[-1, 1, 1, 1, -1, -1, n] - S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/2 + (3*S2[1, -1, -1, 1, 1, -1, n])/2 + 
   S2[1, -1, 1, 1, -1, -1, n]/2 + S2[1, 1, -1, -1, 1, -1, n]/2 - 
   S2[1, 1, -1, 1, -1, -1, n] - (3*S2[1, 1, 1, -1, -1, -1, n])/2, 
 S2[1, -1, -2, 1, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/32 - 
   (17*Diff[Half[S2[1, n], n], n, 2]^2)/128 - 
   (133*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (33*Diff[Half[S2[1, n], n], n, 5])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 3])/64 - 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   (7*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/12 - 
   (701*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (61*Diff[S2[1, n], n, 1]^3)/48 - (259*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (247*Diff[S2[1, n], n, 2]^2)/64 - 
   (1453*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (1397*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 - 
   (2509*Diff[S2[1, n], n, 5])/5760 - Diff[S2[-4, 1, n], n, 1] + 
   (11*Diff[S2[-3, 1, n], n, 2])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (15*Diff[S2[-2, 1, n], n, 3])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 - 
   (49*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (17*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (97*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (251*Diff[S2[-1, 1, n], n, 4])/192 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (3*Diff[S2[2, 1, n], n, 3])/8 - Diff[S2[-3, 1, 1, n], n, 1]/2 - 
   (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - (11*Diff[S2[-2, 1, -1, n], n, 2])/8 + 
   (9*Diff[S2[-1, -2, -1, n], n, 2])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (61*Diff[S2[-1, 1, -1, n], n, 3])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 3])/16 + (15*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (17*Diff[S2[2, 1, -1, n], n, 2])/16 - 
   (9*Diff[S2[2, 1, 1, n], n, 2])/8 + Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 - Diff[S2[-1, 1, 1, 1, n], n, 2]/
    2 + Diff[S2[1, -1, 1, -2, n], n, 1]/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/
    2 - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    4 + (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 - 
   (5*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (209*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (7*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (155*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    3 + (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (241*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (5*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (25*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (15*Diff[S2[1, n], n, 1]*
     Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (41*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (5*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 - (29*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (53*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (19*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   (5*Half[S2[2, 1, n], n]^2)/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/160 + S2[-1, Infinity]^6/1440 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 - (829*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 - 
   (35*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (83*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (95*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (1129*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (73*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 - 
   (163*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 + 
   (113*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (121*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (59*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (13*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (31*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 + 
   (29*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (9*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (19*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (67*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 + 
   (17*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (71*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (185*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (61*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 + (109*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (4*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (59*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (11*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (35*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (9*Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (S2[-1, Infinity]^5*S2[1, n])/48 - 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (149*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 + 
   (61*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/3 + 
   (19*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 - 
   (1805*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (27*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (247*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 - 
   (55*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (83*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (65*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/96 + 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 + 
   (7*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (3*S2[-1, Infinity]^4*S2[1, n]^2)/16 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 + 
   (47*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 + 
   (61*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 - 
   (14*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/3 - (19*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    48 - 2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4 + 
   (127*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - Half[S2[1, n], n]^2*
    S2[1, n]^4 + (29*Half[S2[1, n], n]*S2[1, n]^5)/24 - (47*S2[1, n]^6)/96 + 
   (21*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 + 
   (157*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 - (275*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (121*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 - (23*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (41*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (57*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (51*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (43*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (125*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (65*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/32 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (113*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (163*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 - (43*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 - (53*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 + (47*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + 2*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] + (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
    S2[2, Infinity] + (35*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/24 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/3 + 
   (37*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (101*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (23*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (3*S2[1, n]^4*S2[2, Infinity])/32 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 - 
   (89*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (329*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (257*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (833*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (929*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 + 
   (67*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/64 + 
   (5207*S2[1, n]^2*S2[2, Infinity]^2)/1920 - (17789*S2[2, Infinity]^3)/
    13440 - (17*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 - 
   (931*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 - 
   (71*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (51*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (51*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity] - 
   (21*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (75*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (361*S2[1, n]^3*S2[3, Infinity])/192 + 
   (139*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (45*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (301*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (17275*S2[3, Infinity]^2)/6144 + (39*Half[S2[1, n], n]*S2[5, Infinity])/
    32 - (29*S2[1, n]*S2[5, Infinity])/256 + 4*S2[-5, -1, Infinity] + 
   (S2[1, n]*S2[-4, 1, n])/2 - (23*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/48 + (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/6 + (35*S2[1, n]^2*S2[-3, 1, n])/
    48 - (11*S2[2, Infinity]*S2[-3, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (2*S2[1, n]^3*S2[-2, 1, n])/3 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (35*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 + 
   (5*S2[3, Infinity]*S2[-2, 1, n])/64 - (5*S2[-2, 1, n]^2)/8 + 
   (151*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (439*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/16 - 
   (41*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 + 
   (119*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (65*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 - 
   (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (83*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (61*S2[1, n]^4*S2[-1, 1, n])/48 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (29*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (13*S2[2, Infinity]^2*S2[-1, 1, n])/12 - 
   (91*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (235*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/12 - 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (17*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/12 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (23*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 - (17*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (157*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 + 
   (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (87*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (17*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (113*S2[1, n]^3*S2[2, 1, n])/48 - (15*S2[-1, Infinity]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (17*S2[3, Infinity]*S2[2, 1, n])/192 - (5*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - (5*S2[2, 1, n]^2)/8 + 
   (S2[1, n]*S2[4, 1, n])/2 + S2[-3, -2, 1, n]/2 + S2[1, n]*S2[-3, 1, 1, n] + 
   (3*S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (7*S2[1, n]^2*S2[-2, 1, -1, n])/4 - 
   (S2[2, Infinity]*S2[-2, 1, -1, n])/4 + S2[-2, 2, -2, n]/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 + 
   (17*S2[1, n]^2*S2[-1, -2, -1, n])/48 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (5*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 + 
   (29*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (29*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (67*S2[3, Infinity]*S2[-1, 1, -1, n])/384 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 - S2[-1, 1, -1, n]^2/32 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   2*S2[1, n]^3*S2[-1, 1, 1, n] + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - S2[-1, 1, 1, n]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (13*S2[1, n]^2*S2[1, 2, -1, n])/4 + (S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + S2[1, n]*S2[2, 1, -2, n] + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 + 
   (53*S2[1, n]^2*S2[2, 1, -1, n])/24 + (S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (S2[-1, 1, n]*S2[2, 1, -1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - 3*S2[1, n]^2*S2[2, 1, 1, n] + S2[1, n]*S2[3, 1, 1, n] + 
   (3*S2[4, 1, 1, n])/2 + S2[-2, -2, 1, 1, n]/2 + 
   S2[1, n]*S2[-2, 1, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/6 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    24 - (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   S2[1, n]^2*S2[-1, 1, -1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, n])/8 + (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (33*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[1, n]*S2[1, -1, 1, -2, n] - (S2[1, n]*S2[1, 1, -2, -1, n])/2 + 
   S2[1, n]*S2[1, 1, -1, 2, n] + (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 - 
   S2[2, 2, 1, 1, n] + (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, -2, n]/2 + 
   S2[1, 1, -2, -1, 1, n]/2 + (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   2*S2[1, n]*S2[1, 1, -1, -1, -1, n] + S2[1, 1, -1, 1, -2, n] + 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] + S2[1, 1, 1, -1, -2, n] + 
   4*S2[1, n]*S2[1, 1, 1, -1, -1, n] + S2[2, 1, 1, 1, 1, n]/2 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 - S2[-1, 1, -1, -1, -1, 1, n]/4 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 + S2[-1, 1, -1, 1, 1, 1, n]/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] - S2[-1, 1, 1, 1, -1, 1, n]/4 - 
   S2[-1, 1, 1, 1, 1, 1, Infinity]/2 + S2[1, -1, -1, -1, 1, -1, n]/2 + 
   (3*S2[1, -1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, -1, -1, -1, n]/2 + 
   S2[1, 1, -1, -1, -1, -1, n]/2 - S2[1, 1, 1, -1, 1, -1, n]/4 - 
   S2[1, 1, 1, 1, -1, -1, n], S2[1, -1, 2, -1, -1, n] -> 
  (5*Diff[Half[S2[1, n], n], n, 1]^3)/32 + Diff[Half[S2[1, n], n], n, 2]^2/
    32 + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 - 
   (31*Diff[Half[S2[1, n], n], n, 5])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   (41*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/32 + 
   (923*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 + 
   (15*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 - 
   (253*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (361*Diff[S2[1, n], n, 1]^3)/96 + (141*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (71*Diff[S2[1, n], n, 2]^2)/16 + 
   (167*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/64 - 
   (3529*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (31*Diff[S2[1, n], n, 5])/64 - Diff[S2[-4, 1, n], n, 1] - 
   (7*Diff[S2[-3, 1, n], n, 2])/6 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/8 + 
   (77*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (5*Diff[S2[-2, 1, n], n, 3])/4 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 + 
   (179*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] - 
   (4*Diff[S2[-1, 1, n], n, 4])/3 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   4*Diff[S2[-3, 1, 1, n], n, 1] - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 3])/8 - (3*Diff[S2[1, 2, -1, n], n, 2])/2 - 
   (3*Diff[S2[2, 1, -1, n], n, 2])/2 + 3*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/8 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + 
   (7*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/8 + Diff[S2[-1, 1, 1, -1, -1, n], 
    n, 1] + 2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (5*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/4 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 - (57*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    16 + (35*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/64 + 
   (9*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (19*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    32 - (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/144 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/24 + (13*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/24 - (107*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    288 + (23*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 - (11*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/20 + (13*S2[-1, Infinity]^6)/1440 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (13*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (439*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/96 - 
   (73*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (679*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 - 
   (361*Diff[S2[1, n], n, 4]*S2[1, n])/192 - 
   (9*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (15*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (161*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (73*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/32 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (5*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/9 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (25*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (163*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (19*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (35*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/96 + 
   (85*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 + 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 + 
   (15*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (19*S2[-1, Infinity]^5*S2[1, n])/240 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/2 - 
   (43*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/3 - 
   (211*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (775*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/24 - 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/96 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/12 - 
   (15*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - 
   (11*S2[-1, Infinity]^4*S2[1, n]^2)/192 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/32 - 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 - 
   (2*Half[S2[1, n], n]^3*S2[1, n]^3)/3 + 
   (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/96 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/48 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    3 + (Half[S2[1, n], n]*S2[1, n]^5)/12 - S2[1, n]^6/12 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/4 + 
   (59*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (127*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    48 + (23*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (113*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (61*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    48 - (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (29*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (61*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (11*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (43*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/2 + 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/6 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/3 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/6 - (7*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/12 - (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (21*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (57*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (13*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    6 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (117*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (25*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 - 
   (39*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/32 - 
   (S2[1, n]^4*S2[2, Infinity])/4 + (239*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/320 + (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    240 + (713*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (89*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (33*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (649*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 - 
   (47*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (1043*S2[1, n]^2*S2[2, Infinity]^2)/960 - (797*S2[2, Infinity]^3)/2240 + 
   (227*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/384 - 
   (11*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/192 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (161*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (15*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (17*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (157*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (37*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/128 + 
   (209*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (385*S2[1, n]^3*S2[3, Infinity])/384 - 
   (209*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (139*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (439*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (379*S2[3, Infinity]^2)/192 - (657*Half[S2[1, n], n]*S2[5, Infinity])/
    256 + (137*S2[1, n]*S2[5, Infinity])/256 + (27*S2[-5, -1, Infinity])/8 - 
   4*S2[-5, 1, n] - 2*S2[1, n]*S2[-4, 1, n] + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (49*Half[S2[1, n], n]^2*S2[-3, 1, n])/48 - 
   (67*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/24 + 
   (85*S2[1, n]^2*S2[-3, 1, n])/48 - (73*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/24 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 + 
   (11*Half[S2[1, n], n]^3*S2[-2, 1, n])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 - 
   (15*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/8 + 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 - 
   (19*S2[1, n]^3*S2[-2, 1, n])/24 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (19*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (19*S2[3, Infinity]*S2[-2, 1, n])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n] + 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/12 + 
   Diff[S2[1, n], n, 3]*S2[-1, 1, n] + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n] + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 - 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (2*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/3 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/12 + (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (101*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (31*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (461*S2[2, Infinity]^2*S2[-1, 1, n])/240 - 
   (19*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (7*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/4 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 - (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/2 - (S2[2, Infinity]*S2[-1, 1, n]^2)/4 - 
   S2[-1, 1, n]^3/6 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (5*Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (S2[1, n]^3*S2[2, 1, n])/16 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (17*S2[3, Infinity]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 6*S2[-4, 1, 1, n] - 
   2*S2[1, n]*S2[-3, 1, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 + (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] - 
   S2[1, n]^2*S2[-2, 1, -1, n] - S2[2, Infinity]*S2[-2, 1, -1, n] - 
   S2[-1, 1, n]*S2[-2, 1, -1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/16 - (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (7*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/48 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/24 + 
   (19*S2[1, n]^2*S2[-1, -2, -1, n])/48 + 
   (17*S2[2, Infinity]*S2[-1, -2, -1, n])/48 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (11*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/6 + 
   (11*S2[3, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (9*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   S2[2, 1, n]*S2[-1, 1, 1, n] - S2[-1, 1, -1, n]*S2[-1, 1, 1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + 2*S2[2, Infinity]*S2[1, 2, -1, n] + 
   S2[-1, 1, n]*S2[1, 2, -1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/8 + (17*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   (7*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/24 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/12 - 
   (5*S2[1, n]^2*S2[2, 1, -1, n])/24 + (41*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 + (S2[-1, 1, n]*S2[2, 1, -1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] - 
   S2[2, Infinity]*S2[2, 1, 1, n] - S2[-1, 1, n]*S2[2, 1, 1, n] + 
   4*S2[-3, 1, 1, 1, n] - 2*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (2*S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (2*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/
    2 - 2*S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/8 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (11*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/8 + 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 - S2[2, -2, 1, 1, n] + 
   2*S2[-2, 1, 1, 1, 1, n] + (3*Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/
    4 - (3*S2[1, n]*S2[-1, -1, 1, -1, -1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (7*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/4 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/4 - 
   (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/4 - 6*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + (19*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 + (5*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n])/2 - 
   (5*S2[1, n]*S2[1, -1, -1, -1, -1, n])/2 - S2[1, -1, 1, -2, -1, n] - 
   S2[1, -1, 1, 1, 2, n] + S2[1, 1, -2, -1, -1, n] - 
   S2[1, 1, -1, -2, -1, n] - S2[1, 1, -1, -1, -2, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/4 + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/4 - Half[S2[1, n], n]*
    S2[1, 1, 1, -1, -1, n] + S2[1, n]*S2[1, 1, 1, -1, -1, n] + 
   2*S2[1, 1, 1, 2, -1, n] - (3*S2[-1, -1, -1, 1, -1, -1, n])/4 - 
   (7*S2[-1, -1, 1, -1, -1, -1, n])/4 - (5*S2[-1, 1, -1, -1, -1, -1, n])/2 + 
   (3*S2[-1, 1, -1, -1, 1, 1, n])/2 + (3*S2[-1, 1, 1, -1, -1, 1, n])/2 + 
   S2[-1, 1, 1, 1, -1, -1, n] - (13*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   (5*S2[1, -1, -1, -1, -1, -1, n])/2 + S2[1, -1, -1, 1, 1, -1, n] + 
   S2[1, -1, 1, 1, -1, -1, n]/2 + S2[1, 1, -1, -1, 1, -1, n] - 
   (3*S2[1, 1, -1, 1, -1, -1, n])/2 - 3*S2[1, 1, 1, -1, -1, -1, n], 
 S2[1, -1, 2, -1, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/32 + 
   (123*Diff[Half[S2[1, n], n], n, 2]^2)/128 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 5])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/4 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/64 - (3*Diff[Half[S2[4, 1, n], n], n, 1])/
    32 - (5*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 - 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 - 
   (127*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/96 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/32 - 
   (25*Diff[S2[1, n], n, 1]^3)/48 - (167*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (131*Diff[S2[1, n], n, 2]^2)/64 - 
   (223*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/192 + 
   (65*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/32 - 
   (1061*Diff[S2[1, n], n, 5])/5760 - Diff[S2[-4, 1, n], n, 1] - 
   (25*Diff[S2[-3, 1, n], n, 2])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   Diff[S2[-2, 1, n], n, 3]/16 + (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/32 - 
   (29*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (67*Diff[S2[-1, 1, n], n, 1]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (47*Diff[S2[-1, 1, n], n, 4])/192 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   Diff[S2[2, 1, n], n, 3]/8 - Diff[S2[-3, 1, 1, n], n, 1]/2 - 
   (3*Diff[S2[-2, 1, -2, n], n, 1])/8 + Diff[S2[-2, 1, -1, n], n, 2]/8 - 
   (3*Diff[S2[-1, -2, -1, n], n, 2])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 + 
   (13*Diff[S2[-1, 1, -1, n], n, 3])/32 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (45*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, 1, n], n, 3]/16 + (3*Diff[S2[1, 2, -1, n], n, 2])/8 - 
   Diff[S2[2, 1, -2, n], n, 1]/2 + (5*Diff[S2[2, 1, -1, n], n, 2])/16 + 
   (5*Diff[S2[2, 1, 1, n], n, 2])/8 + 3*Diff[S2[3, 1, 1, n], n, 1] - 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, -1, -1, n], n, 2]/8 - 
   (7*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 - Diff[S2[-1, 1, 1, 1, n], n, 2]/
    2 + Diff[S2[1, -1, 1, -2, n], n, 1]/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/
    2 - (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/4 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 - 
   (15*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   (7*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 + 
   (7*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/192 + (5*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (9*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (19*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/192 - 
   (11*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (9*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/16 + (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (61*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 - (7*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (27*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 - (29*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 + 
   (53*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    32 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 - 
   Half[S2[2, 1, n], n]^2/128 + (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 + 
   (47*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 + 
   (41*S2[-1, Infinity]^6)/1440 - (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 - 
   (103*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/192 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/32 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (163*Diff[S2[1, n], n, 4]*S2[1, n])/192 + 
   (53*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/16 + 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (47*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (17*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/16 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 - 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 - 
   (9*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/8 + 
   (9*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (19*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/16 + (11*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    8 + (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (15*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n] - 
   2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n] + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/32 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/32 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 + 
   (13*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 - 
   (13*S2[-1, Infinity]^5*S2[1, n])/60 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (37*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/16 + 
   (11*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (29*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (85*Diff[S2[1, n], n, 3]*S2[1, n]^2)/64 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/32 - 
   (23*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 - 
   (21*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/16 - 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/32 + 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/32 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/12 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^3)/16 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 - 
   5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   Half[S2[1, n], n]^3*S2[1, n]^3 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/4 + (11*Half[S2[1, n], n]*S2[1, n]^5)/
    8 - (13*S2[1, n]^6)/32 + (73*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 - (17*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    192 + (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (109*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (9*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 3]*S2[2, Infinity])/32 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/2 - 
   (41*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/64 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (105*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 + 
   (9*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/64 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (51*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (81*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 + (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (203*S2[-1, Infinity]^4*S2[2, Infinity])/192 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/64 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (139*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 - (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/32 - (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/32 - (23*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    64 + (99*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 - (51*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
    S2[2, Infinity] + (49*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 - 
   (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 - 
   (17*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (49*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (43*S2[1, n]^4*S2[2, Infinity])/96 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 - 
   (291*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/320 + 
   (711*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/640 - 
   (2123*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 - 
   (2573*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 - 
   (659*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (4811*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 + 
   (125*S2[1, n]^2*S2[2, Infinity]^2)/128 - (15347*S2[2, Infinity]^3)/4480 - 
   (61*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (17*Diff[S2[1, n], n, 2]*S2[3, Infinity])/768 + 
   (205*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 + 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (99*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 - 
   (119*S2[1, n]^3*S2[3, Infinity])/96 - 
   (4481*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (855*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (6587*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (18847*S2[3, Infinity]^2)/6144 - (237*Half[S2[1, n], n]*S2[5, Infinity])/
    64 + (1733*S2[1, n]*S2[5, Infinity])/256 + (27*S2[-5, -1, Infinity])/4 + 
   (9*S2[1, n]*S2[-4, 1, n])/2 - (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/16 + (13*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-3, 1, n] - (51*S2[1, n]^2*S2[-3, 1, n])/16 - 
   (11*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    16 + (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/8 + 
   (3*S2[1, n]^3*S2[-2, 1, n])/4 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 + (33*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/16 + 
   (S2[3, Infinity]*S2[-2, 1, n])/64 - S2[-2, 1, n]^2/8 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/32 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (31*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/32 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (27*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/32 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/2 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/32 + 
   (73*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    16 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/16 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (89*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 - 
   (47*S2[1, n]^4*S2[-1, 1, n])/48 + (25*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (45*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (105*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (7*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (401*S2[2, Infinity]^2*S2[-1, 1, n])/80 - 
   (55*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (607*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   2*S2[-3, 1, n]*S2[-1, 1, n] - (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/8 + (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/32 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/16 - 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/32 + (59*S2[2, Infinity]*S2[-1, 1, n]^2)/
    16 - (21*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 + 
   (49*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 + (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    16 + 2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (51*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 - 
   (45*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 + 
   (113*S2[1, n]^3*S2[2, 1, n])/48 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (355*S2[3, Infinity]*S2[2, 1, n])/192 - (S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (7*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 - S2[2, 1, n]^2/8 + 
   (9*S2[1, n]*S2[4, 1, n])/2 + S2[-3, -2, 1, n]/2 + 
   S2[1, n]*S2[-3, 1, 1, n] + (3*S2[1, n]*S2[-2, 1, -2, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (3*S2[1, n]^2*S2[-2, 1, -1, n])/4 + 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + S2[-2, 2, -2, n]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/16 - (3*S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (9*S2[1, n]^3*S2[-1, 1, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 - 
   (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/128 - (S2[-2, 1, n]*S2[-1, 1, -1, n])/
    8 + (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/16 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (3*S2[-1, 1, -1, n]^2)/32 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   2*S2[1, n]^3*S2[-1, 1, 1, n] - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (33*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 + (27*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (131*S2[3, Infinity]*S2[-1, 1, 1, n])/32 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + (11*S2[-1, 1, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 - (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + S2[1, n]*S2[2, 1, -2, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (11*S2[1, n]^2*S2[2, 1, -1, n])/8 - (3*S2[2, Infinity]*S2[2, 1, -1, n])/
    8 + (S2[-1, 1, n]*S2[2, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - (5*S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (7*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 2*S2[1, n]*S2[3, 1, 1, n] + 
   (13*S2[4, 1, 1, n])/2 + S2[-2, -2, 1, 1, n]/2 + 
   S2[1, n]*S2[-2, 1, 1, 1, n] + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    8 + (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/
    4 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   S2[1, n]^2*S2[-1, 1, -1, 1, n] + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 - 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (33*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (17*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 - 
   (15*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (37*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   12*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - S2[1, n]*S2[1, -1, 1, -2, n] - 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 + S2[1, n]*S2[1, 1, -1, 2, n] + 
   (9*S2[1, n]*S2[2, 1, 1, 1, n])/2 - (5*S2[2, 2, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (5*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 + (5*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - (9*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + 8*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   8*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (47*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   26*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (3*S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 + S2[1, -1, 1, 1, -2, n]/2 + 
   (3*S2[1, 1, -2, -1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 - 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + S2[1, 1, -1, 1, -2, n] - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[1, 1, 1, -1, -2, n] - 
   2*S2[1, n]*S2[1, 1, 1, -1, -1, n] - (11*S2[2, 1, 1, 1, 1, n])/2 - 
   S2[-1, -1, 1, 1, -1, -1, n]/2 + S2[-1, 1, -1, -1, -1, 1, n]/4 - 
   S2[-1, 1, -1, 1, -1, -1, n]/4 - (3*S2[-1, 1, -1, 1, 1, 1, n])/4 - 
   S2[-1, 1, 1, -1, -1, -1, n] + (11*S2[-1, 1, 1, 1, -1, 1, n])/4 - 
   (41*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - S2[1, -1, -1, 1, -1, -1, n]/4 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 - (3*S2[1, 1, -1, -1, -1, -1, n])/2 + 
   (19*S2[1, 1, 1, -1, 1, -1, n])/4 + 11*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -1, 2, 1, -1, n] -> (-11*Diff[Half[S2[1, n], n], n, 2]^2)/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/16 + 
   Diff[Half[S2[1, n], n], n, 5]/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/16 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/16 + Diff[Half[S2[4, 1, n], n], n, 1]/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/32 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/16 - 
   (5*Diff[S2[1, n], n, 1]^3)/4 + (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (5*Diff[S2[1, n], n, 2]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (9*Diff[S2[1, n], n, 5])/320 - 2*Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2] + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/8 - 
   Diff[S2[-2, 1, n], n, 3]/4 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, n], n, 1]^2/4 + (11*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/16 - 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   Diff[S2[-1, 1, n], n, 4]/24 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   Diff[S2[2, 1, n], n, 3]/8 - Diff[S2[4, 1, n], n, 1]/2 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (11*Diff[S2[-1, 1, -1, n], n, 3])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[2, 1, 1, n], n, 2])/4 - Diff[S2[-1, 1, -1, 1, n], n, 2]/8 + 
   (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    4 + Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/4 + 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 - 
   (3*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/2 - Diff[S2[1, 1, 1, -1, -1, n], 
    n, 1] - (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 - (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    48 + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/16 + (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/4 + (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    16 + (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/48 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    16 + (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 + 
   Half[S2[2, 1, n], n]^2/16 - (3*Diff[S2[1, n], n, 1]*
     Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 - 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - S2[-1, Infinity]^6/480 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 + (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - 3*Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] + (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (9*S2[-1, Infinity]^5*S2[1, n])/160 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/96 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/32 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/16 + 
   (31*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (17*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 + 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + Diff[Half[S2[1, n], n], n, 2]*
    Half[S2[1, n], n]*S2[1, n]^2 - Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
    S2[1, n]^2 + (27*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/
    16 + (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/8 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - (3*S2[-1, Infinity]^4*S2[1, n]^2)/
    32 - (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/2 + (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/2 - 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/8 - (3*Half[S2[1, n], n]*S2[1, n]^5)/
    4 + S2[1, n]^6/4 - (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    4 + (53*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/32 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (47*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/32 + 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (47*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (11*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (101*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/4 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (21*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (37*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 + 
   (43*S2[-1, Infinity]^4*S2[2, Infinity])/192 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (149*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (61*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/16 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/4 + (7*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/8 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (69*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/32 - (95*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/32 - Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity] + 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (9*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 - 
   (21*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (11*S2[1, n]^4*S2[2, Infinity])/24 + 
   (107*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (129*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 - 
   (15*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/16 + 
   (169*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (47*S2[-1, Infinity]^2*S2[2, Infinity]^2)/20 - 
   (61*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (321*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (19*S2[1, n]^2*S2[2, Infinity]^2)/16 + (7643*S2[2, Infinity]^3)/2240 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 + 
   (361*Diff[S2[1, n], n, 2]*S2[3, Infinity])/384 - 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/64 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (75*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (33*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (27*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (89*S2[1, n]^3*S2[3, Infinity])/192 + 
   (625*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (51*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (1723*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (595*S2[3, Infinity]^2)/192 + (65*Half[S2[1, n], n]*S2[5, Infinity])/128 + 
   (2303*S2[1, n]*S2[5, Infinity])/128 - (25*S2[-5, -1, Infinity])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/4 - 
   (19*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 + 
   (5*S2[1, n]^2*S2[-3, 1, n])/2 + (41*S2[2, Infinity]*S2[-3, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 + Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/2 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/4 - (Half[S2[1, n], n]^3*S2[-2, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (S2[1, n]^3*S2[-2, 1, n])/4 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-2, 1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   2*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] - (S2[3, Infinity]*S2[-2, 1, n])/
    8 + S2[-2, 1, n]^2 + (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/48 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (33*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (11*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (13*S2[-1, Infinity]^4*S2[-1, 1, n])/96 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    8 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/4 + 
   (3*S2[1, n]^4*S2[-1, 1, n])/4 - (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (35*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (21*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (47*S2[2, Infinity]^2*S2[-1, 1, n])/160 + 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (51*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (23*S2[-3, 1, n]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 + 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/8 - (13*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/4 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    8 - (Half[S2[1, n], n]^3*S2[2, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (5*S2[1, n]^3*S2[2, 1, n])/4 + (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (23*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (9*S2[3, Infinity]*S2[2, 1, n])/8 + 2*S2[-2, 1, n]*S2[2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2 - 
   3*S2[1, n]*S2[4, 1, n] + (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 + 
   (7*S2[2, Infinity]*S2[-1, -2, -1, n])/16 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/3 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/16 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (83*S2[3, Infinity]*S2[-1, 1, -1, n])/192 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 + (S2[2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[1, n]^3*S2[-1, 1, 1, n] + 3*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    4 - (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (29*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - (3*S2[-1, 1, 1, n]^2)/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (S2[1, n]^2*S2[1, 2, -1, n])/2 + 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (7*S2[2, Infinity]*S2[2, 1, -1, n])/8 + (S2[-1, 1, n]*S2[2, 1, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + 2*S2[1, n]^2*S2[2, 1, 1, n] - 
   3*S2[2, Infinity]*S2[2, 1, 1, n] - 3*S2[1, n]*S2[3, 1, 1, n] - 
   3*S2[4, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/
    4 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (41*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (13*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   3*S2[1, n]*S2[2, 1, 1, 1, n] + (3*S2[2, 2, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    2 - Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n] + 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] + (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (23*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   (27*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, -2, n] - 
   S2[1, -1, 1, 2, -1, n] + S2[1, 1, -2, 1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[1, 1, -1, -1, -1, n])/2 - S2[1, 1, -1, 1, -2, n] - 
   S2[1, 1, -1, 2, -1, n] + 2*S2[1, 1, 1, -2, -1, n] - 
   S2[1, 1, 1, -1, -2, n] + 3*S2[2, 1, 1, 1, 1, n] + 
   S2[-1, -1, 1, 1, -1, -1, n] + S2[-1, 1, -1, -1, -1, 1, n]/4 + 
   S2[-1, 1, -1, 1, -1, -1, n]/2 + S2[-1, 1, -1, 1, 1, 1, n]/2 + 
   2*S2[-1, 1, 1, -1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 
   (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - (3*S2[1, -1, -1, -1, 1, -1, n])/
    4 - S2[1, -1, -1, 1, -1, -1, n] - S2[1, -1, 1, -1, -1, -1, n]/2 - 
   (5*S2[1, 1, 1, -1, 1, -1, n])/2 - 6*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -1, 2, 1, 1, n] -> (7*Diff[Half[S2[1, n], n], n, 5])/80 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 - 
   Diff[S2[1, n], n, 1]^3/8 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + (7*Diff[S2[1, n], n, 2]^2)/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (7*Diff[S2[1, n], n, 5])/80 - Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 + 
   Diff[S2[-2, 1, n], n, 3]/12 - 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (13*Diff[S2[-1, 1, n], n, 4])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (3*Diff[S2[-3, 1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/6 + Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -1, n], n, 2]/4 - Diff[S2[-1, 1, 1, 1, n], n, 2]/4 + 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1]/2 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + S2[-1, Infinity]^6/1440 - 
   (11*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[1, n], n, 4]*S2[1, n])/12 + 2*Diff[S2[-3, 1, n], n, 1]*
    S2[1, n] - (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   (4*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/3 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (S2[-1, Infinity]^5*S2[1, n])/240 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (15*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (19*Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 + (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/
    8 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/32 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (S2[1, n]^4*S2[2, Infinity])/3 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/20 + (43*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (73*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (47*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (13*S2[1, n]^2*S2[2, Infinity]^2)/16 + (323*S2[2, Infinity]^3)/480 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 2]*S2[3, Infinity])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 - 
   (25*S2[1, n]^3*S2[3, Infinity])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 + 
   (29*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (61*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/24 + 
   (13*S2[3, Infinity]^2)/24 + (1005*S2[1, n]*S2[5, Infinity])/128 - 
   (3*S2[-5, -1, Infinity])/8 + 3*S2[1, n]*S2[-4, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - (7*S2[1, n]^2*S2[-3, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-3, 1, n])/4 - (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    12 + (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (S2[1, n]^3*S2[-2, 1, n])/3 - (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (S2[3, Infinity]*S2[-2, 1, n])/6 - (3*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/
    8 - (3*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (S2[2, Infinity]^2*S2[-1, 1, n])/10 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (S2[1, n]^3*S2[2, 1, n])/2 + (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 2*S2[-4, 1, 1, n] + 
   3*S2[1, n]*S2[-3, 1, 1, n] - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (S2[1, n]^2*S2[1, 2, -1, n])/4 - (S2[2, Infinity]*S2[1, 2, -1, n])/4 + 
   (S2[1, n]*S2[2, 1, -2, n])/2 + (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 - (S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 1, -2, n]/2 - S2[-3, 1, 1, 1, n] + (S2[1, n]*S2[-2, 1, 1, 1, n])/2 + 
   S2[-2, 2, 1, 1, n]/2 - (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   S2[1, n]*S2[1, -1, 1, 2, n] - S2[1, n]*S2[1, 1, -1, 2, n] - 
   (S2[1, n]*S2[1, 1, 2, -1, n])/2 - S2[2, -2, 1, 1, n]/2 + 
   S2[-2, 1, 1, 1, 1, n]/2 - (S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, 1, 1, 2, n]/2 + S2[1, 1, -1, 1, 2, n] + S2[1, 1, 1, -1, 2, n] + 
   S2[1, 1, 2, -1, 1, n]/2 - S2[-1, 1, 1, 1, 1, 1, Infinity]/2, 
 S2[1, -1, -1, -2, -1, n] -> (-5*Diff[Half[S2[1, n], n], n, 2]^2)/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/8 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/48 + Diff[Half[S2[4, 1, n], n], n, 1]/
    16 + (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 + 
   (37*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (79*Diff[S2[1, n], n, 1]^3)/48 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + Diff[S2[1, n], n, 2]^2/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/32 + 
   Diff[S2[1, n], n, 5]/180 - Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 + 3*Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 3]/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, n], n, 1]^2/8 - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/8 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   Diff[S2[-1, 1, n], n, 4]/24 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   Diff[S2[2, 1, n], n, 3]/8 - (3*Diff[S2[4, 1, n], n, 1])/2 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   Diff[S2[-1, 1, -1, n], n, 3]/6 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[-1, 1, -1, 1, n], n, 2]/4 - 
   Diff[S2[2, 1, 1, 1, n], n, 1]/2 - (3*Diff[S2[-1, -1, 1, -1, -1, n], n, 1])/
    2 - (5*Diff[S2[-1, 1, -1, -1, -1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, -1, n], n, 
    1] - (5*Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/24 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 + (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/24 - (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/6 + (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n] + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n] + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    16 + (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/32 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 - 
   (3*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 - 
   (3*Half[S2[2, 1, n], n]^2)/32 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/12 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/8 + S2[-1, Infinity]^6/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 - 
   (7*Diff[S2[1, n], n, 4]*S2[1, n])/24 + 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/4 + Diff[S2[-2, 1, n], n, 2]*
    S2[1, n] - (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (25*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (43*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 + 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n] + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 - 
   (51*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 + 
   (77*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 - Diff[S2[2, 1, n], n, 1]*
    S2[1, n]^2 - (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/4 + 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    48 + (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^3 + (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^3)/3 - (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/
    6 + Half[S2[1, n], n]^3*S2[1, n]^3 - (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    16 - (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/3 + 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 - 
   (37*Half[S2[1, n], n]^2*S2[1, n]^4)/24 + (13*Half[S2[1, n], n]*S2[1, n]^5)/
    12 - (7*S2[1, n]^6)/24 - (5*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 - (35*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    48 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/16 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (27*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (71*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (121*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^4*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/4 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (15*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (9*Half[S2[1, n], n]^3*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (25*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/2 + 
   (31*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (55*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (11*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    4 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (75*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity] - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (71*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (17*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (7*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 + 
   (15*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (S2[1, n]^4*S2[2, Infinity])/8 - (191*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/80 + (899*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    160 + (407*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 - 
   (15*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/8 - 
   (61*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 - 
   (27*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (75*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 - 
   (37*S2[1, n]^2*S2[2, Infinity]^2)/40 - (449*S2[2, Infinity]^3)/84 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 - 
   (139*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (19*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/3 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 - 
   (57*Half[S2[1, n], n]^3*S2[3, Infinity])/64 - 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/48 + 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (269*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 - 
   (43*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/192 - 
   (29*S2[1, n]^3*S2[3, Infinity])/64 - 
   (139*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   (159*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (79*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (4115*S2[3, Infinity]^2)/1536 + (219*Half[S2[1, n], n]*S2[5, Infinity])/
    64 - (1241*S2[1, n]*S2[5, Infinity])/128 + (73*S2[-5, -1, Infinity])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/4 + 
   (35*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 + 
   (9*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 - 
   (19*S2[1, n]^2*S2[-3, 1, n])/8 - (19*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (3*Half[S2[1, n], n]^3*S2[-2, 1, n])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (S2[1, n]^3*S2[-2, 1, n])/4 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-2, 1, n] - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (3*S2[3, Infinity]*S2[-2, 1, n])/16 - (3*S2[-2, 1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/3 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 - 
   (19*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/3 - 2*Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] - (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 - 
   (37*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    4 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/3 - 
   (2*S2[1, n]^4*S2[-1, 1, n])/3 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   2*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (59*S2[2, Infinity]^2*S2[-1, 1, n])/20 - 
   (13*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/96 + 
   (55*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/96 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/2 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 + (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, n]^2 + (S2[1, n]^2*S2[-1, 1, n]^2)/2 + 
   (S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 + 
   (11*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^3*S2[2, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (15*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (31*S2[1, n]^3*S2[2, 1, n])/24 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (25*S2[3, Infinity]*S2[2, 1, n])/48 - 3*S2[-2, 1, n]*S2[2, 1, n] - 
   (3*S2[2, 1, n]^2)/2 + S2[1, n]*S2[4, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (3*S2[1, n]^2*S2[-2, 1, -1, n])/2 + 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - S2[-2, 2, -2, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 - (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/8 - 
   (13*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/8 + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, -1, n] + (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n] + 
   (7*S2[1, n]^3*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 + 
   (109*S2[3, Infinity]*S2[-1, 1, -1, n])/96 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/2 + S2[-1, 1, -1, n]^2/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (9*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   2*S2[1, n]^3*S2[-1, 1, 1, n] - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    4 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (3*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[-1, 1, 1, n]^2/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (3*S2[1, n]^2*S2[1, 2, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 - (5*S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   S2[-1, 1, n]*S2[2, 1, -1, n] - (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + 3*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - 2*S2[1, n]^2*S2[2, 1, 1, n] + 
   2*S2[2, Infinity]*S2[2, 1, 1, n] + S2[1, n]*S2[3, 1, 1, n] + 
   S2[4, 1, 1, n] - (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   S2[1, n]^2*S2[-1, 1, -1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, n])/2 - (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] - (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + (11*Diff[S2[1, n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/2 + 3*Half[S2[1, n], n]^2*
    S2[-1, 1, 1, 1, Infinity] - 3*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, Infinity] - (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (43*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, n]*S2[2, 1, 1, 1, n] - 
   S2[2, 2, 1, 1, n]/2 + S2[1, n]*S2[-1, 1, -1, -1, -1, n] + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] - 3*S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - Half[S2[1, n], n]*
    S2[1, -1, -1, 1, -1, n] + S2[1, n]*S2[1, -1, -1, 1, -1, n] - 
   S2[1, -1, -1, 1, 2, n] + Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n] - 
   S2[1, n]*S2[1, -1, 1, -1, -1, n] + S2[1, -1, 1, 1, -2, n] + 
   S2[1, -1, 1, 2, -1, n] + 3*Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] + S2[1, 1, -1, 1, -2, n] + 
   S2[1, 1, -1, 2, -1, n] - S2[1, 1, 1, -2, -1, n] - S2[2, 1, 1, 1, 1, n] - 
   3*S2[-1, -1, 1, 1, -1, -1, n] - S2[-1, 1, -1, -1, -1, 1, n] - 
   2*S2[-1, 1, -1, 1, -1, -1, n] - S2[-1, 1, -1, 1, 1, 1, n]/2 - 
   5*S2[-1, 1, 1, -1, -1, -1, n] + S2[-1, 1, 1, 1, -1, 1, n]/2 - 
   (15*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 3*S2[1, -1, -1, -1, 1, -1, n] + 
   2*S2[1, -1, -1, 1, -1, -1, n] - S2[1, -1, 1, -1, -1, -1, n] + 
   S2[1, 1, 1, -1, 1, -1, n]/2 + 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -1, -1, -2, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]^2)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/12 - 
   (31*Diff[Half[S2[1, n], n], n, 5])/120 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/12 + 
   (8*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/3 + 
   (11*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 + 
   (11*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/12 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/12 - 
   (131*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 + 
   (79*Diff[S2[1, n], n, 1]^3)/24 + (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (59*Diff[S2[1, n], n, 2]^2)/24 + 
   (115*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (175*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (31*Diff[S2[1, n], n, 5])/120 + 2*Diff[S2[-4, 1, n], n, 1] - 
   (5*Diff[S2[-3, 1, n], n, 2])/6 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/3 + 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (11*Diff[S2[-2, 1, n], n, 3])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   (25*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/6 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (29*Diff[S2[-1, 1, n], n, 4])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (3*Diff[S2[-3, 1, 1, n], n, 1])/2 - Diff[S2[-1, -2, -1, n], n, 2]/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/6 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   (7*Diff[S2[2, 1, -1, n], n, 2])/12 + Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 2])/6 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - Diff[S2[1, -1, 1, 2, n], n, 1]/2 - 
   Diff[S2[1, 1, -1, 2, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1] + 
   (5*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/2 + 
   2*Diff[S2[1, -1, -1, 1, -1, n], n, 1] + 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/2 + 
   3*Diff[S2[1, 1, -1, -1, -1, n], n, 1] - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 + (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    12 + (7*Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/24 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/4 + 
   (61*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    24 + (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/12 - (51*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/8 + (31*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 + (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 + (7*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    24 - Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n] - 
   Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/6 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - 2*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/12 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/12 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/16 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/12 + (17*S2[-1, Infinity]^6)/1440 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n] + 
   (43*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 - 
   (20*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/3 - 
   (103*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (123*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (13*Diff[S2[1, n], n, 4]*S2[1, n])/8 + 
   (13*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 + 
   (5*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/3 + Diff[S2[2, 1, n], n, 2]*
    S2[1, n] + Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n] + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + Diff[S2[2, 1, -1, n], n, 1]*
    S2[1, n] + Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n] - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (23*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 + (21*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   (79*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (37*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   2*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/2 + 
   Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n] + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (S2[-1, Infinity]^5*S2[1, n])/6 - (23*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[1, n]^2)/8 - (17*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/4 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/8 + 
   (45*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (45*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (91*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (2*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/3 - 
   (9*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[1, n]^2 + (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (55*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/4 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    6 + (43*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 - 
   (113*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 + 4*Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^3 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^3)/2 + (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (3*Half[S2[2, 1, n], n]*S2[1, n]^3)/8 - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]^4 + 4*Diff[S2[1, n], n, 1]*S2[1, n]^4 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/4 + (5*Half[S2[1, n], n]*S2[1, n]^5)/
    4 - (5*S2[1, n]^6)/12 - (29*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/48 - (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    12 - Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity] + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    12 - (2*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/3 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/48 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/2 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (59*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (15*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] + 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (4*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/8 + 
   (95*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (37*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   6*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - 9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] + (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (27*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (17*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (17*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (57*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (41*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (37*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 - 
   (23*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (61*S2[1, n]^4*S2[2, Infinity])/24 + 
   (59*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 - 
   (53*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/5 - 
   (53*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/16 + 
   (411*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (39*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/8 - 
   (9*S2[1, n]^2*S2[2, Infinity]^2)/80 + (241*S2[2, Infinity]^3)/480 + 
   (59*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 - 
   (127*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/12 + 
   (73*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (161*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/8 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (105*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (99*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (115*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/16 - 
   (365*S2[1, n]^3*S2[3, Infinity])/96 - 
   (269*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (89*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (227*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 - 
   (1093*S2[3, Infinity]^2)/384 - (217*Half[S2[1, n], n]*S2[5, Infinity])/
    64 + (301*S2[1, n]*S2[5, Infinity])/128 + (9*S2[-5, -1, Infinity])/8 + 
   2*S2[-5, 1, n] - 3*S2[1, n]*S2[-4, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (3*S2[1, n]^2*S2[-3, 1, n])/2 - (3*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/6 + 
   (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/6 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (5*S2[3, Infinity]*S2[-2, 1, n])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 + 
   (13*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 + 
   (17*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] + (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[-1, 1, n] + Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n] - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/2 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/2 + 
   (4*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n] + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n] - 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] + 
   2*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n] - S2[1, n]^4*S2[-1, 1, n] - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (93*S2[2, Infinity]^2*S2[-1, 1, n])/20 + 
   (11*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (25*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/2 + Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] - S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (9*S2[1, n]^2*S2[-1, 1, n]^2)/4 - (3*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (2*S2[-1, 1, n]^3)/3 - Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n] + 
   Diff[S2[1, n], n, 2]*S2[2, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n] + (5*S2[1, n]^3*S2[2, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] + 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (5*S2[3, Infinity]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 
   S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] + 2*S2[-4, 1, 1, n] - 
   3*S2[1, n]*S2[-3, 1, 1, n] + Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] - 
   S2[1, n]^2*S2[-2, 1, -1, n] - (S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 
   2*S2[-1, 1, n]*S2[-2, 1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/4 + (S2[2, Infinity]*S2[-1, -2, -1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/2 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, -1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    2 - S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n] + 
   (5*S2[3, Infinity]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + 2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, 1, n] - 3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, 1, 1, n] - (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   6*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   3*S2[1, n]^3*S2[-1, 1, 1, n] + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (S2[3, Infinity]*S2[-1, 1, 1, n])/8 + 
   2*S2[-2, 1, n]*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   2*S2[2, 1, n]*S2[-1, 1, 1, n] - S2[-1, 1, -1, n]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   (7*S2[2, Infinity]*S2[1, 2, -1, n])/4 + 2*S2[-1, 1, n]*S2[1, 2, -1, n] - 
   (S2[1, n]*S2[2, 1, -2, n])/2 - (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/4 + (3*S2[2, Infinity]*S2[2, 1, -1, n])/2 + 
   S2[-1, 1, n]*S2[2, 1, -1, n] + (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/
    2 - (S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (3*S2[-1, 1, n]*S2[2, 1, 1, n])/2 - S2[3, 1, -2, n]/2 + 
   2*S2[-3, 1, 1, 1, n] - (3*S2[1, n]*S2[-2, 1, 1, 1, n])/2 - 
   S2[-2, 2, 1, 1, n]/2 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - S2[2, Infinity]*
    S2[-1, 1, -1, -1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, 1, n])/2 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, -1, 1, n] + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   S2[-1, 1, n]*S2[-1, 1, -1, 1, n] - (5*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    2 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   4*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   12*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, n]*S2[1, -1, 1, 2, n] + 
   S2[1, n]*S2[1, 1, -1, 2, n] + (S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   S2[2, -2, 1, 1, n]/2 + (5*S2[-2, 1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - Half[S2[1, n], n]*
    S2[-1, 1, -1, 1, 1, n] + S2[1, n]*S2[-1, 1, -1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] - 3*S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 
   10*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   20*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - S2[1, -1, -1, 1, -2, n] - 
   2*S2[1, n]*S2[1, -1, -1, 1, -1, n] - (5*S2[1, n]*S2[1, -1, 1, -1, -1, n])/
    2 - S2[1, -1, 1, 1, 2, n]/2 - S2[1, 1, -1, -1, -2, n] - 
   3*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 2*Half[S2[1, n], n]*
    S2[1, 1, -1, 1, -1, n] + 2*S2[1, n]*S2[1, 1, -1, 1, -1, n] - 
   3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   3*S2[1, n]*S2[1, 1, 1, -1, -1, n] - S2[1, 1, 1, -1, 2, n] - 
   S2[1, 1, 2, -1, 1, n]/2 + 2*S2[-1, 1, -1, -1, 1, 1, n] + 
   S2[-1, 1, 1, -1, -1, 1, n] - (17*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   2*S2[1, -1, -1, 1, 1, -1, n] + 2*S2[1, 1, -1, -1, 1, -1, n] + 
   S2[1, 1, -1, 1, -1, -1, n] + 3*S2[1, 1, 1, -1, -1, -1, n], 
 S2[1, -1, -1, 2, -1, n] -> (-3*Diff[Half[S2[1, n], n], n, 1]^3)/16 - 
   (5*Diff[Half[S2[1, n], n], n, 2]^2)/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/8 + 
   (29*Diff[Half[S2[1, n], n], n, 5])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 - 
   (35*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/16 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/16 - 
   (45*Diff[S2[1, n], n, 1]^3)/16 - (43*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (67*Diff[S2[1, n], n, 2]^2)/24 - 
   (131*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (377*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 - 
   (29*Diff[S2[1, n], n, 5])/96 + 2*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2] - (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 + 
   (5*Diff[S2[-2, 1, n], n, 3])/6 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/3 - 
   (61*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   Diff[S2[-1, 1, n], n, 1]^2/4 - (13*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/16 - 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (11*Diff[S2[-1, 1, n], n, 4])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   4*Diff[S2[-3, 1, 1, n], n, 1] + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (11*Diff[S2[-1, 1, 1, n], n, 3])/12 + Diff[S2[1, 2, -1, n], n, 2] + 
   Diff[S2[2, 1, -1, n], n, 2] - 2*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 2])/4 - 
   (3*Diff[S2[-1, 1, -1, -1, 1, n], n, 1])/4 - 
   2*Diff[S2[-1, 1, 1, -1, -1, n], n, 1] + 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 + 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/4 + 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 + (3*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/8 + (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/8 - (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (107*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (59*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/96 + 
   (9*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 - (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 + (15*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (2*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/3 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 - 
   Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2 + 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (9*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (5*Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/30 - S2[-1, Infinity]^6/360 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    24 - (19*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/8 + 
   (33*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (59*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (33*Diff[S2[1, n], n, 4]*S2[1, n])/32 - 
   (9*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   (89*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/48 + 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/6 - 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (9*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (79*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 + 
   (Half[S2[1, n], n]^5*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (S2[-1, Infinity]^5*S2[1, n])/30 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (59*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (27*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 - 
   (13*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/8 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[1, n]^2 + Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - 
   (113*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/48 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/12 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/2 - 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/96 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (14*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (13*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (19*Half[S2[1, n], n]^2*S2[1, n]^4)/12 + (7*Half[S2[1, n], n]*S2[1, n]^5)/
    6 - S2[1, n]^6/3 - (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/
    16 - (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 - (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (35*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (19*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (5*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (21*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (4*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (19*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    4 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (51*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (4*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (39*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (8*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 - 
   (37*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (9*S2[1, n]^4*S2[2, Infinity])/8 + 
   (81*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/160 - 
   (83*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 - 
   (91*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/160 - 
   (16*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/5 + 
   (107*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 - 
   (111*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (113*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (361*S2[1, n]^2*S2[2, Infinity]^2)/160 + (7031*S2[2, Infinity]^3)/3360 - 
   (97*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 - 
   (65*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (99*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/192 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (127*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (41*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 + 
   (187*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 - 
   (419*S2[1, n]^3*S2[3, Infinity])/192 - 
   (49*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (81*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (9*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/2 + 
   (91*S2[3, Infinity]^2)/64 + (Half[S2[1, n], n]*S2[5, Infinity])/16 - 
   (97*S2[1, n]*S2[5, Infinity])/32 - (3*S2[-5, -1, Infinity])/2 + 
   4*S2[-5, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - 
   (7*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + (5*S2[1, n]^2*S2[-3, 1, n])/
    8 + (5*S2[2, Infinity]*S2[-3, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/12 - 
   (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (5*Half[S2[1, n], n]^3*S2[-2, 1, n])/12 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (13*S2[1, n]^3*S2[-2, 1, n])/12 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/2 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (S2[3, Infinity]*S2[-2, 1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (11*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/8 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/2 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[-1, 1, n] + Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (31*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/2 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (49*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/6 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] - 
   S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (81*S2[2, Infinity]^2*S2[-1, 1, n])/20 + 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/4 - 
   (25*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/2 + Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] - 2*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, n]^2 - S2[1, n]^2*S2[-1, 1, n]^2 - 
   (S2[2, Infinity]*S2[-1, 1, n]^2)/8 - S2[-1, 1, n]^3/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/12 + 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (7*Half[S2[1, n], n]^3*S2[2, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (31*S2[1, n]^3*S2[2, 1, n])/24 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 - (S2[3, Infinity]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 8*S2[-4, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - 2*S2[1, n]^2*S2[-2, 1, -1, n] + 
   (S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 2*S2[-1, 1, n]*S2[-2, 1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, -2, -1, n])/8 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/24 - 
   (7*Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 + (5*S2[3, Infinity]*S2[-1, 1, -1, n])/16 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (15*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + 2*S2[1, n]^2*S2[1, 2, -1, n] - 
   (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 2*S2[-1, 1, n]*S2[1, 2, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/4 + S2[-1, 1, n]*S2[2, 1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - 2*S2[1, n]^2*S2[2, 1, 1, n] + 
   (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 2*S2[-1, 1, n]*S2[2, 1, 1, n] - 
   4*S2[-3, 1, 1, 1, n] + (3*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/4 + 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (13*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/4 + 
   (21*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   6*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 2*S2[2, -2, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, -1, 1, -1, -1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   2*S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + 4*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   3*Half[S2[1, n], n]*S2[1, -1, -1, -1, -1, n] + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] - S2[1, -1, -1, 1, -2, n] + 
   S2[1, -1, 1, -2, -1, n] + S2[1, -1, 1, 1, 2, n] + 
   S2[1, 1, -1, -2, -1, n] + S2[1, 1, -1, -1, -2, n] - 
   2*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] + 
   2*S2[1, n]*S2[1, 1, -1, 1, -1, n] - 4*Half[S2[1, n], n]*
    S2[1, 1, 1, -1, -1, n] + 4*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 
   S2[1, 1, 1, -1, 2, n] - S2[1, 1, 1, 2, -1, n] + 
   S2[-1, -1, -1, 1, -1, -1, n]/2 + (3*S2[-1, -1, 1, -1, -1, -1, n])/2 + 
   3*S2[-1, 1, -1, -1, -1, -1, n] - 2*S2[-1, 1, 1, -1, -1, 1, n] - 
   2*S2[-1, 1, 1, 1, -1, -1, n] + 2*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   5*S2[1, -1, -1, -1, -1, -1, n] + S2[1, -1, -1, 1, 1, -1, n] - 
   2*S2[1, -1, 1, 1, -1, -1, n] + S2[1, 1, -1, 1, -1, -1, n] + 
   3*S2[1, 1, 1, -1, -1, -1, n], S2[1, -1, -1, 2, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/32 - (91*Diff[Half[S2[1, n], n], n, 2]^2)/
    128 - (247*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/
    288 + (13*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/6 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 3])/192 + 
   (3*Diff[Half[S2[4, 1, n], n], n, 1])/32 + 
   (9*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (101*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 - 
   (65*Diff[S2[1, n], n, 1]^3)/48 + (59*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 - (169*Diff[S2[1, n], n, 2]^2)/192 + 
   (197*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (79*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (131*Diff[S2[1, n], n, 5])/1920 + Diff[S2[-4, 1, n], n, 1] + 
   (37*Diff[S2[-3, 1, n], n, 2])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (43*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (19*Diff[S2[-2, 1, n], n, 3])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/32 + 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 - 
   (43*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (87*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (7*Diff[S2[-1, 1, n], n, 4])/64 + (17*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   Diff[S2[2, 1, n], n, 3]/3 + Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + (3*Diff[S2[-2, 1, -2, n], n, 1])/8 - 
   (5*Diff[S2[-2, 1, -1, n], n, 2])/8 + (7*Diff[S2[-1, -2, -1, n], n, 2])/
    32 + (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (17*Diff[S2[-1, 1, -1, n], n, 3])/32 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/16 + Diff[S2[1, 2, -1, n], n, 2]/8 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - Diff[S2[2, 1, -1, n], n, 2]/16 - 
   (7*Diff[S2[2, 1, 1, n], n, 2])/8 - 2*Diff[S2[3, 1, 1, n], n, 1] + 
   Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + 
   (3*Diff[S2[-1, 1, -1, 1, n], n, 2])/16 + Diff[S2[-1, 1, 1, 1, n], n, 2]/
    2 - Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/
    2 + Diff[S2[2, 1, 1, 1, n], n, 1] + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    4 + Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 + 
   (3*Diff[S2[-1, 1, -1, 1, 1, n], n, 1])/4 + 
   (11*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 - 
   (5*Diff[S2[1, -1, -1, -1, -1, n], n, 1])/4 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 - 
   (7*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/4 - 
   (7*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (167*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (9*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 + (101*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (89*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (23*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (7*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    96 + (11*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/32 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (7*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/16 - (27*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/32 + (59*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    192 - (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (23*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   (9*Half[S2[2, 1, n], n]^2)/128 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (23*Half[S2[1, n], n]*S2[-1, Infinity]^5)/480 - 
   (13*S2[-1, Infinity]^6)/480 + (31*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/32 + 
   (389*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 + 
   (5*Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 - 
   (3*Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (173*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/48 + 
   (149*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (461*Diff[S2[1, n], n, 4]*S2[1, n])/576 - 
   (55*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 + 
   (83*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 + 
   (21*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (7*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (35*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (9*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (5*Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (41*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (119*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 + (49*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (55*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/96 + 
   (19*S2[-1, Infinity]^5*S2[1, n])/120 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (199*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (17*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/6 - 
   (167*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (1249*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (143*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (19*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (55*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 + 
   (21*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (17*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + 
   (13*S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 - 
   (115*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/6 + (11*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    48 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/12 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^4)/12 - (17*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + (9*S2[1, n]^6)/32 - (41*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/32 + (583*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/576 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/
    12 - (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (11*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (269*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (83*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 + 
   (73*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[2, Infinity] + (45*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 - 
   (197*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/
    192 - (29*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (131*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/12 + 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 - 
   (67*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (11*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (45*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (87*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (49*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (27*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (49*S2[-1, Infinity]^4*S2[2, Infinity])/64 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (89*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (341*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 + 
   (109*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 - (59*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (47*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (49*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (67*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (23*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (11*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 - (47*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    24 - (83*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 - 
   (57*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (217*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/96 - 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (67*S2[1, n]^4*S2[2, Infinity])/96 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/16 - 
   (907*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/192 - 
   (1501*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (1267*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (3837*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (2713*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (4059*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (4891*S2[1, n]^2*S2[2, Infinity]^2)/1920 + (94133*S2[2, Infinity]^3)/
    13440 - (13*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (129*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 - 
   (221*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (649*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    384 + (553*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/384 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (73*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 + 
   (139*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/384 - 
   (61*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/48 + 
   (269*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/192 - 
   (701*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/384 + 
   (277*S2[1, n]^3*S2[3, Infinity])/192 + 
   (3721*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/768 - 
   (927*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (6911*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/768 + 
   (37319*S2[3, Infinity]^2)/6144 - (77*Half[S2[1, n], n]*S2[5, Infinity])/
    64 + (1209*S2[1, n]*S2[5, Infinity])/256 - (15*S2[-5, -1, Infinity])/2 - 
   (5*S2[1, n]*S2[-4, 1, n])/2 + (43*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/48 - (71*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   (29*S2[1, n]^2*S2[-3, 1, n])/48 + (157*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 - 
   (23*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (43*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (9*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (25*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 + 
   (S2[1, n]^3*S2[-2, 1, n])/3 + (67*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (27*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (175*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (73*S2[3, Infinity]*S2[-2, 1, n])/64 + (9*S2[-2, 1, n]^2)/8 - 
   (107*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 + 
   (17*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (107*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 - 
   (11*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (15*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/8 + 
   (85*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (115*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (65*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 - (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (13*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (55*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/48 + 
   (41*S2[1, n]^4*S2[-1, 1, n])/48 - (35*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (73*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (51*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (611*S2[2, Infinity]^2*S2[-1, 1, n])/240 - 
   (193*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/384 - 
   (239*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/384 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/6 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/24 - (13*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/12 - 
   (11*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (47*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (113*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (41*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (77*Diff[S2[1, n], n, 2]*S2[2, 1, n])/96 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (9*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, 1, n] + (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/
    16 + (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (73*S2[1, n]^3*S2[2, 1, n])/48 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (27*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - (443*S2[3, Infinity]*S2[2, 1, n])/
    192 + (9*S2[-2, 1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + (9*S2[2, 1, n]^2)/8 - 
   (7*S2[1, n]*S2[4, 1, n])/2 - S2[-3, -2, 1, n]/2 - 
   S2[1, n]*S2[-3, 1, 1, n] - (3*S2[1, n]*S2[-2, 1, -2, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-2, 1, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (3*S2[1, n]^2*S2[-2, 1, -1, n])/4 - 
   (11*S2[2, Infinity]*S2[-2, 1, -1, n])/4 - (5*S2[-2, 2, -2, n])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (11*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 + (37*S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 - 
   (41*S2[1, n]^3*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (25*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (193*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 - 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 + (5*S2[-1, 1, -1, n]^2)/32 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   3*S2[1, n]^3*S2[-1, 1, 1, n] + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (79*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (7*S2[-1, 1, 1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 - 
   2*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (9*S2[1, n]^2*S2[1, 2, -1, n])/4 + (11*S2[2, Infinity]*S2[1, 2, -1, n])/
    4 - (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - S2[1, n]*S2[2, 1, -2, n] - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 - 
   (37*S2[1, n]^2*S2[2, 1, -1, n])/24 + (37*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (S2[-1, 1, n]*S2[2, 1, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + (5*S2[1, n]^2*S2[2, 1, 1, n])/2 - 
   (9*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 2*S2[1, n]*S2[3, 1, 1, n] - 
   (9*S2[4, 1, 1, n])/2 - S2[-2, -2, 1, 1, n]/2 - 
   S2[1, n]*S2[-2, 1, 1, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/3 + (5*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    24 + (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 - 
   (5*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 + 
   (29*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (29*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (13*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   (13*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (27*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 - 
   9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, n]*S2[1, -1, 1, -2, n] + 
   (S2[1, n]*S2[1, 1, -2, -1, n])/2 - S2[1, n]*S2[1, 1, -1, 2, n] - 
   (7*S2[1, n]*S2[2, 1, 1, 1, n])/2 + 2*S2[2, 2, 1, 1, n] - 
   (3*S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - (7*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (7*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 - 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (23*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 - 
   19*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   (3*Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 - 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 - S2[1, -1, -1, 1, 2, n] + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - S2[1, -1, 1, 1, -2, n]/2 - 
   S2[1, 1, -2, -1, 1, n]/2 + (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] - S2[1, 1, -1, 1, -2, n] + 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] - 2*S2[1, 1, 1, -1, -2, n] + 
   (7*S2[2, 1, 1, 1, 1, n])/2 + S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   (3*S2[-1, 1, -1, -1, -1, 1, n])/4 + S2[-1, 1, -1, 1, -1, -1, n]/4 + 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + S2[-1, 1, 1, -1, -1, -1, n] - 
   (7*S2[-1, 1, 1, 1, -1, 1, n])/4 + (39*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   S2[1, -1, -1, -1, 1, -1, n] - (7*S2[1, -1, -1, 1, -1, -1, n])/4 - 
   (3*S2[1, -1, 1, -1, -1, -1, n])/2 - (5*S2[1, 1, -1, -1, -1, -1, n])/2 - 
   (11*S2[1, 1, 1, -1, 1, -1, n])/4 - 7*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -1, -1, -1, -2, n] -> (17*Diff[Half[S2[1, n], n], n, 2]^2)/64 + 
   (67*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   Diff[Half[S2[1, n], n], n, 5]/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/96 - Diff[Half[S2[4, 1, n], n], n, 1]/
    16 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (17*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 + 
   (5*Diff[S2[1, n], n, 1]^3)/16 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (29*Diff[S2[1, n], n, 2]^2)/96 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/144 - 
   (121*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (101*Diff[S2[1, n], n, 5])/2880 + Diff[S2[-4, 1, n], n, 1] + 
   (5*Diff[S2[-3, 1, n], n, 2])/16 + (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/12 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   Diff[S2[-2, 1, n], n, 3]/24 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (9*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (5*Diff[S2[-1, 1, n], n, 4])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   Diff[S2[4, 1, n], n, 1]/2 + Diff[S2[-2, 1, -1, n], n, 2]/4 - 
   Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/48 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/8 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -1, n], n, 2]/8 - Diff[S2[-1, 1, -1, 1, n], n, 2]/8 - 
   Diff[S2[2, 1, 1, 1, n], n, 1]/2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/
    2 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/4 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/16 + (61*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (17*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    6 + (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (17*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 + (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/6 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/6 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/24 + (15*Diff[S2[1, n], n, 1]^2*
     Half[S2[1, n], n]^2)/16 - (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/
    32 + (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/6 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    16 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 + 
   Half[S2[2, 1, n], n]^2/64 + (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/
    8 - (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/96 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 - S2[-1, Infinity]^6/720 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    48 - (43*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/12 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (17*Diff[S2[1, n], n, 4]*S2[1, n])/144 - 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/6 - 
   (13*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/3 + Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] + (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/12 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (23*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    8 + (47*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (4*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 - 
   (S2[-1, Infinity]^5*S2[1, n])/30 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/12 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/6 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/6 + 
   (15*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (61*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 + 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/6 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (35*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (3*Half[S2[1, n], n]^4*S2[1, n]^2)/16 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    12 - (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 + 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (3*Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    4 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^4)/6 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^4)/12 - (2*Half[S2[1, n], n]*S2[1, n]^5)/
    3 + (7*S2[1, n]^6)/48 + (15*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/16 - (19*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    288 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/12 - 
   (27*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 + (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/72 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (107*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (55*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/4 - 
   (11*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (103*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 + 
   (71*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 + (215*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 + (35*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (29*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 + (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (10*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/3 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (67*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (11*S2[1, n]^4*S2[2, Infinity])/16 + 
   (181*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 - 
   (787*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 - 
   (269*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (133*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 + 
   (353*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (1123*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 + 
   (397*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (2617*S2[1, n]^2*S2[2, Infinity]^2)/960 + (283*S2[2, Infinity]^3)/336 - 
   (33*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 + 
   (65*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (103*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 + (221*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/64 + 
   (33*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 - 
   (167*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/96 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/24 - 
   (145*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/192 + 
   (7*S2[1, n]^3*S2[3, Infinity])/12 - 
   (523*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (1709*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (7447*S2[3, Infinity]^2)/3072 - (31*Half[S2[1, n], n]*S2[5, Infinity])/
    64 - (485*S2[1, n]*S2[5, Infinity])/128 - 4*S2[-5, -1, Infinity] + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/12 - 
   (29*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 - Half[S2[1, n], n]*S2[1, n]*
    S2[-3, 1, n] + (11*S2[1, n]^2*S2[-3, 1, n])/8 + 
   (7*S2[2, Infinity]*S2[-3, 1, n])/12 - (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    8 + (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/4 - (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    8 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 - 
   (S2[1, n]^3*S2[-2, 1, n])/2 + (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (17*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (33*S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/4 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/24 + 
   (13*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + Diff[S2[-2, 1, n], n, 1]*
    S2[-1, 1, n] + (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (31*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    24 - (3*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 - 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 + 
   (9*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (23*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (5*S2[1, n]^4*S2[-1, 1, n])/24 + (37*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/6 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/3 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (55*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 + 
   (823*S2[2, Infinity]^2*S2[-1, 1, n])/240 + 
   (7*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (77*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 - (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/16 + (9*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 - 
   (13*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/8 - (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    8 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (17*S2[1, n]^3*S2[2, 1, n])/24 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (67*S2[3, Infinity]*S2[2, 1, n])/96 + (S2[-2, 1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + S2[2, 1, n]^2/4 + 
   S2[1, n]*S2[4, 1, n] - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + (S2[1, n]^2*S2[-2, 1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-2, 1, -1, n])/2 + S2[-2, 2, -2, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 + (S2[1, n]^2*S2[-1, -2, -1, n])/
    8 + (S2[2, Infinity]*S2[-1, -2, -1, n])/12 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (61*S2[3, Infinity]*S2[-1, 1, -1, n])/192 - 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/8 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/4 - (3*S2[-1, 1, -1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (25*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[-1, 1, 1, n]^2/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (S2[1, n]^2*S2[1, 2, -1, n])/2 - 
   (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 + (S2[1, n]^2*S2[2, 1, -1, n])/4 + 
   (S2[2, Infinity]*S2[2, 1, -1, n])/6 + (S2[-1, 1, n]*S2[2, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + S2[2, Infinity]*S2[2, 1, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] + S2[4, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (5*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, n] - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + (13*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]*S2[2, 1, 1, 1, n] - S2[2, 2, 1, 1, n]/2 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] + S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + 4*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, -1, 1, 2, n] - (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 - 2*Half[S2[1, n], n]*
    S2[1, 1, -1, -1, -1, n] + 2*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 
   S2[1, 1, 1, -1, -2, n] - S2[2, 1, 1, 1, 1, n] + 
   S2[-1, -1, 1, 1, -1, -1, n] + S2[-1, 1, -1, 1, -1, -1, n]/2 - 
   S2[-1, 1, -1, 1, 1, 1, n]/2 + 2*S2[-1, 1, 1, -1, -1, -1, n] + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 + S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   (3*S2[1, -1, -1, -1, 1, -1, n])/2 - (3*S2[1, -1, -1, 1, -1, -1, n])/2 - 
   S2[1, -1, 1, -1, -1, -1, n] - S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, 1, -1, 1, -1, n]/2 + 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -1, -1, -1, 2, n] -> Diff[Half[S2[1, n], n], n, 1]^3/24 + 
   Diff[Half[S2[1, n], n], n, 2]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 5])/720 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/18 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 + 
   (7*Diff[S2[1, n], n, 1]^3)/24 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + Diff[S2[1, n], n, 2]^2/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 - 
   (11*Diff[S2[1, n], n, 5])/720 - Diff[S2[-4, 1, n], n, 1] - 
   Diff[S2[-3, 1, n], n, 2]/6 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   Diff[S2[-1, 1, n], n, 4]/48 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, 1, n], n, 1] + Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - Diff[S2[-1, 1, 1, n], n, 3]/4 + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/4 - (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 + Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, 1, n], 
    n, 1] - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/2 - 
   Diff[S2[1, 1, -1, -1, -1, n], n, 1]/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 - (9*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/16 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/2 + (59*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    2 - (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/16 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (41*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 - (11*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   2*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n] - 
   2*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] - 
   Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   2*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/24 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    4 + (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/4 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 - S2[-1, Infinity]^6/240 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    4 + (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 + (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/
    2 + (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 + 
   (5*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 - 2*Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] + (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/2 - 
   (9*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - 2*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/3 + (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (27*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/32 + 
   (17*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (37*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (21*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (3*S2[-1, Infinity]^5*S2[1, n])/40 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/24 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (11*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/32 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 + 
   (7*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    6 - (17*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/3 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 - 
   (4*Diff[S2[1, n], n, 1]*S2[1, n]^4)/3 + Half[S2[1, n], n]^2*S2[1, n]^4 - 
   Half[S2[1, n], n]*S2[1, n]^5 + S2[1, n]^6/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/3 - 
   (25*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 + 
   (65*Diff[S2[1, n], n, 3]*S2[2, Infinity])/576 - 
   (19*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 + 
   (47*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/
    24 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (7*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (4*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (59*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    12 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    24 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/24 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (41*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (15*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (9*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 - (3*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    4 + (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (69*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (31*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (23*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (7*S2[1, n]^4*S2[2, Infinity])/8 - 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 + 
   (409*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/240 - 
   (41*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/240 + 
   (501*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (273*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (217*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/60 - 
   (337*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 - 
   (379*S2[1, n]^2*S2[2, Infinity]^2)/120 - (123*S2[2, Infinity]^3)/70 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/24 + 
   (27*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/96 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (135*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (169*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (193*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (233*S2[1, n]^3*S2[3, Infinity])/96 + 
   (733*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (25*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (1021*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   S2[3, Infinity]^2/6 + (213*Half[S2[1, n], n]*S2[5, Infinity])/128 + 
   (77*S2[1, n]*S2[5, Infinity])/128 - S2[-5, -1, Infinity] - S2[-5, 1, n] + 
   S2[1, n]*S2[-4, 1, n] + (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/6 + 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (15*S2[1, n]^2*S2[-3, 1, n])/8 - (65*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[-2, 1, n] + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/3 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (5*S2[3, Infinity]*S2[-2, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (145*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/48 + 
   (23*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/32 - 
   (9*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (33*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 + Diff[S2[-1, 1, -1, n], n, 1]*
    S2[-1, 1, n] - (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n] + 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (5*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/3 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 - 
   (9*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n] + S2[1, n]^4*S2[-1, 1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (61*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (17*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (4*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (1157*S2[2, Infinity]^2*S2[-1, 1, n])/240 + 
   (9*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 + 
   (71*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (15*S2[-3, 1, n]*S2[-1, 1, n])/8 - 
   (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/4 + 
   (11*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/4 + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (9*S2[1, n]^2*S2[-1, 1, n]^2)/8 + (3*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   (11*S2[-1, 1, n]^3)/24 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (9*S2[1, n]^3*S2[2, 1, n])/8 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (7*S2[3, Infinity]*S2[2, 1, n])/16 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 3*S2[-4, 1, 1, n] + 
   S2[1, n]*S2[-3, 1, 1, n] - (5*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/
    2 + (5*S2[1, n]^2*S2[-2, 1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-2, 1, -1, n])/4 + (5*S2[-1, 1, n]*S2[-2, 1, -1, n])/
    2 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/6 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (5*S2[1, n]^2*S2[-1, -2, -1, n])/8 - 
   (11*S2[2, Infinity]*S2[-1, -2, -1, n])/48 - 
   (5*S2[-1, 1, n]*S2[-1, -2, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/24 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (19*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    24 - (7*S2[3, Infinity]*S2[-1, 1, -1, n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 - 
   (13*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/2 + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   2*S2[1, n]^2*S2[1, 2, -1, n] - (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (5*S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 - 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/4 - (23*S2[2, Infinity]*S2[2, 1, -1, n])/
    24 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/2 + (S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (5*S2[-1, 1, n]*S2[2, 1, 1, n])/2 + S2[-3, 1, 1, 1, n] + 
   S2[1, n]*S2[-2, 1, 1, 1, n] - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    6 - (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    8 - (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + 
   S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   4*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (21*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   8*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - S2[2, -2, 1, 1, n] - 
   S2[-2, 1, 1, 1, 1, n] + S2[1, n]*S2[-1, 1, -1, -1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/
    2 - (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 7*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - 9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, -1, 1, -2, n] + 2*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n] - 
   2*S2[1, n]*S2[1, 1, -1, 1, -1, n] + 
   (9*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (9*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + S2[1, 1, 1, -1, 2, n] - 
   S2[-1, 1, -1, -1, 1, 1, n] + S2[-1, 1, 1, -1, -1, 1, n]/2 + 
   3*S2[-1, 1, 1, 1, 1, 1, Infinity] - (3*S2[1, -1, -1, 1, 1, -1, n])/2 + 
   S2[1, -1, 1, 1, -1, -1, n]/2 - S2[1, 1, -1, -1, 1, -1, n]/2 - 
   (3*S2[1, 1, 1, -1, -1, -1, n])/2, S2[1, -1, 1, -2, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 2]^2/128 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/288 + 
   (5*Diff[Half[S2[1, n], n], n, 5])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 3])/64 - Diff[Half[S2[4, 1, n], n], n, 1]/
    32 + (3*Diff[Half[S2[2, 1, 1, n], n], n, 2])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 - 
   (191*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/48 - 
   (79*Diff[S2[1, n], n, 1]^3)/96 - (53*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/64 + (39*Diff[S2[1, n], n, 2]^2)/64 - 
   (149*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (589*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (143*Diff[S2[1, n], n, 5])/1920 + Diff[S2[-4, 1, n], n, 1]/2 + 
   (17*Diff[S2[-3, 1, n], n, 2])/32 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (35*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 + 
   (5*Diff[S2[-2, 1, n], n, 3])/16 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/32 - 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]^2)/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   (53*Diff[S2[-1, 1, n], n, 4])/192 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/16 - 
   (5*Diff[S2[2, 1, n], n, 3])/24 + Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[-2, 1, -2, n], n, 1]/8 - (3*Diff[S2[-2, 1, -1, n], n, 2])/8 + 
   (3*Diff[S2[-1, -2, -1, n], n, 2])/32 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/16 - 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 3])/16 + (3*Diff[S2[1, 2, -1, n], n, 2])/8 + 
   (3*Diff[S2[2, 1, -1, n], n, 2])/16 - (5*Diff[S2[2, 1, 1, n], n, 2])/8 - 
   Diff[S2[3, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, 1, n], n, 2]/16 - 
   Diff[S2[1, -1, 1, -2, n], n, 1]/2 + Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/
    4 + Diff[S2[-1, 1, -1, -1, -1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/4 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/8 + 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/4 - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, 1, 1, -1, -1, n], n, 1])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/96 - (23*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/576 - (3*Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/64 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 + (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (41*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/288 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (25*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/48 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/8 + (3*Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/
    32 + (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    16 + (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/32 - 
   (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/192 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/96 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/64 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    96 + (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/32 + 
   (3*Half[S2[2, 1, n], n]^2)/128 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/80 - (7*S2[-1, Infinity]^6)/720 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    32 - (49*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/576 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/96 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/64 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 + 
   (11*Diff[S2[1, n], n, 4]*S2[1, n])/72 + 
   (Diff[S2[-3, 1, n], n, 1]*S2[1, n])/6 - 
   (19*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/16 - 
   (3*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/16 + 
   (13*Diff[S2[2, 1, n], n, 2]*S2[1, n])/32 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 - Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] + (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/8 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/48 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/48 + 
   (49*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (29*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (7*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/48 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/48 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/48 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/96 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (3*Half[S2[4, 1, n], n]*S2[1, n])/32 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/32 + 
   (S2[-1, Infinity]^5*S2[1, n])/20 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (59*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 - 
   (29*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (43*Diff[S2[1, n], n, 3]*S2[1, n]^2)/576 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (53*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/96 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (13*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/32 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 + 
   (7*Half[S2[1, n], n]^4*S2[1, n]^2)/96 - 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/96 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/16 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    24 + (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/3 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/48 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (7*Half[S2[1, n], n]^3*S2[1, n]^3)/24 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    2 - (5*Half[S2[1, n], n]*S2[1, n]^5)/12 + (13*S2[1, n]^6)/96 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 + 
   (217*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/576 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    32 + (23*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (167*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 + 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/16 + 
   (73*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/192 - 
   (43*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (59*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/96 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/8 - 
   (25*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/192 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (39*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/64 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/32 - (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/64 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (19*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/32 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/4 + 
   (17*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (137*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/192 + 
   (109*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (161*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/96 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/48 + (145*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/96 + (41*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/96 + (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    192 - (19*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/32 + (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 - (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (41*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (23*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/32 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/32 + 
   (17*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/32 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 - 
   (5*S2[1, n]^4*S2[2, Infinity])/96 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/64 - 
   (61*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/30 - 
   (799*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/1920 + 
   (449*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/320 + 
   (447*S2[-1, Infinity]^2*S2[2, Infinity]^2)/640 + 
   (811*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/960 - 
   (1061*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/320 - 
   (209*S2[1, n]^2*S2[2, Infinity]^2)/384 + (5945*S2[2, Infinity]^3)/2688 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/8 - 
   (55*Diff[S2[1, n], n, 2]*S2[3, Infinity])/256 + 
   (75*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/128 - 
   (29*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (79*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/128 + 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/128 + 
   (3*Half[S2[2, 1, n], n]*S2[3, Infinity])/256 - 
   (55*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/128 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (63*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/128 + 
   (21*S2[1, n]^3*S2[3, Infinity])/64 - 
   (99*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (51*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/256 - 
   (1099*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/256 + 
   (4711*S2[3, Infinity]^2)/2048 + (93*Half[S2[1, n], n]*S2[5, Infinity])/
    128 + (2439*S2[1, n]*S2[5, Infinity])/256 - (9*S2[-5, -1, Infinity])/8 + 
   (3*S2[1, n]*S2[-4, 1, n])/2 + (11*Diff[Half[S2[1, n], n], n, 1]*
     S2[-3, 1, n])/24 - (49*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 + 
   (5*S2[1, n]^2*S2[-3, 1, n])/48 + (7*S2[2, Infinity]*S2[-3, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 - 
   (11*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/24 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-2, 1, n])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/12 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/24 - 
   (S2[1, n]^3*S2[-2, 1, n])/6 + (25*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/48 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    16 - (49*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/48 - 
   (3*S2[3, Infinity]*S2[-2, 1, n])/64 + (3*S2[-2, 1, n]^2)/8 - 
   (17*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/288 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/16 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 - 
   (37*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/96 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/16 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/96 + 
   (11*S2[-1, Infinity]^4*S2[-1, 1, n])/96 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/96 - 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 - (47*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    48 - (7*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/24 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/16 - 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/16 + 
   (19*S2[1, n]^4*S2[-1, 1, n])/48 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/96 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/32 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (19*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/32 - 
   (397*S2[2, Infinity]^2*S2[-1, 1, n])/480 - 
   (61*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/128 - 
   (127*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/128 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 + 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/24 - 
   (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/96 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/48 - 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/96 - (29*S2[2, Infinity]*S2[-1, 1, n]^2)/
    48 + (9*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/32 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/16 - 
   (3*Half[S2[2, 1, n], n]*S2[2, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/16 - 
   (11*S2[1, n]^3*S2[2, 1, n])/16 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (13*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (35*S2[3, Infinity]*S2[2, 1, n])/64 + (3*S2[-2, 1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + (3*S2[2, 1, n]^2)/8 - 
   (S2[1, n]*S2[4, 1, n])/2 - S2[-3, -2, 1, n]/2 - 
   (S2[1, n]*S2[-2, 1, -2, n])/4 + (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/
    4 + (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/4 - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/4 + 
   S2[-2, 2, -2, n]/8 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/
    24 - (7*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/16 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/48 + (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/32 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/48 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/48 + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/24 - 
   (11*S2[1, n]^3*S2[-1, 1, -1, n])/48 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/32 + 
   (43*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/96 - 
   (33*S2[3, Infinity]*S2[-1, 1, -1, n])/128 + 
   (S2[-2, 1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/48 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/8 - S2[-1, 1, -1, n]^2/32 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   S2[1, n]^3*S2[-1, 1, 1, n] + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (21*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (3*S2[-1, 1, 1, n]^2)/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/4 + Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - (3*S2[1, n]^2*S2[1, 2, -1, n])/4 + 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (S2[-1, 1, n]*S2[1, 2, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/12 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/8 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 - 
   (13*S2[1, n]^2*S2[2, 1, -1, n])/24 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (5*S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   S2[1, n]^2*S2[2, 1, 1, n] - (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   2*S2[1, n]*S2[3, 1, 1, n] - (5*S2[4, 1, 1, n])/2 - S2[-2, -2, 1, 1, n]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/8 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/8 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - S2[2, Infinity]*
    S2[-1, 1, 1, 1, Infinity] - (11*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/
    4 + S2[1, n]*S2[1, -1, 1, -2, n] + (S2[1, n]*S2[1, 1, -2, -1, n])/2 - 
   (3*S2[1, n]*S2[2, 1, 1, 1, n])/2 + S2[2, 2, 1, 1, n] - 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, 1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 + (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    4 + (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   6*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/4 - (3*S2[1, -1, 1, 1, -2, n])/2 - 
   S2[1, 1, -2, -1, 1, n]/2 - Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] + 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] - S2[1, 1, -1, 1, -2, n] + 
   (3*S2[2, 1, 1, 1, 1, n])/2 + S2[-1, -1, 1, 1, -1, -1, n]/2 + 
   S2[-1, 1, -1, 1, -1, -1, n]/4 + (3*S2[-1, 1, -1, 1, 1, 1, n])/4 + 
   S2[-1, 1, 1, -1, -1, -1, n] - (3*S2[-1, 1, 1, 1, -1, 1, n])/4 + 
   7*S2[-1, 1, 1, 1, 1, 1, Infinity] - S2[1, -1, -1, -1, 1, -1, n]/4 - 
   S2[1, -1, -1, 1, -1, -1, n]/4 + S2[1, 1, -1, -1, -1, -1, n]/2 - 
   (3*S2[1, 1, 1, -1, 1, -1, n])/4 - 3*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -1, 1, 2, 1, n] -> (-41*Diff[Half[S2[1, n], n], n, 5])/240 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (9*Diff[S2[1, n], n, 1]^3)/8 + (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (13*Diff[S2[1, n], n, 2]^2)/8 + 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (33*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 + 
   (41*Diff[S2[1, n], n, 5])/240 + (3*Diff[S2[-4, 1, n], n, 1])/2 + 
   Diff[S2[-3, 1, n], n, 2]/4 + Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 3]/3 + 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (23*Diff[S2[-1, 1, n], n, 4])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 + 
   2*Diff[S2[-3, 1, 1, n], n, 1] - Diff[S2[-1, 1, 1, n], n, 3]/3 - 
   Diff[S2[1, 2, -1, n], n, 2]/2 - Diff[S2[2, 1, -1, n], n, 2]/2 + 
   Diff[S2[-2, 1, 1, 1, n], n, 1] + (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/4 - 
   Diff[S2[1, -1, 1, 2, n], n, 1]/2 + (3*Diff[S2[-1, 1, 1, 1, 1, n], n, 1])/
    2 - (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (11*S2[-1, Infinity]^6)/1440 + (3*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/
    4 - 3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (63*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 - 
   Diff[S2[1, n], n, 4]*S2[1, n] - Diff[S2[-3, 1, n], n, 1]*S2[1, n] + 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 3*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (11*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 + 
   (13*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (19*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (7*S2[-1, Infinity]^5*S2[1, n])/240 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (31*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (101*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (15*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (15*Diff[S2[1, n], n, 2]*S2[1, n]^3)/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (11*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/2 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 - 
   (87*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (S2[1, n]^2*S2[2, Infinity]^2)/2 - (713*S2[2, Infinity]^3)/840 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (23*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 + 
   (15*S2[1, n]^3*S2[3, Infinity])/16 + 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/2 - 
   (201*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (21*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (915*S2[3, Infinity]^2)/256 - (1001*S2[1, n]*S2[5, Infinity])/128 + 
   (7*S2[-5, -1, Infinity])/8 + S2[-5, 1, n] - 3*S2[1, n]*S2[-4, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + (3*S2[1, n]^2*S2[-3, 1, n])/4 - 
   (3*S2[2, Infinity]*S2[-3, 1, n])/4 + (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    4 - Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (S2[1, n]^3*S2[-2, 1, n])/2 - (S2[3, Infinity]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (S2[1, n]^3*S2[2, 1, n])/2 - (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 3*S2[-4, 1, 1, n] - 
   3*S2[1, n]*S2[-3, 1, 1, n] + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 - 2*S2[3, Infinity]*S2[-1, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 - (3*S2[1, n]^2*S2[1, 2, -1, n])/
    4 + (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - (S2[1, n]*S2[2, 1, -2, n])/
    2 + (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/4 + (3*S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + (S2[-1, 1, n]*S2[2, 1, 1, n])/2 - 
   S2[3, 1, -2, n]/2 + 2*S2[-3, 1, 1, 1, n] - (3*S2[1, n]*S2[-2, 1, 1, 1, n])/
    2 - S2[-2, 2, 1, 1, n]/2 - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]*S2[1, -1, 1, 2, n] + (S2[1, n]*S2[1, 1, 2, -1, n])/2 + 
   (3*S2[-2, 1, 1, 1, 1, n])/2 + (7*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 - (3*S2[1, -1, 1, 1, 2, n])/2 - S2[1, 1, -1, 1, 2, n] - 
   S2[1, 1, 2, -1, 1, n]/2 - (11*S2[-1, 1, 1, 1, 1, 1, Infinity])/2, 
 S2[1, -1, 1, -1, -2, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/24 - 
   Diff[Half[S2[1, n], n], n, 2]^2/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/8 + 
   (109*Diff[Half[S2[1, n], n], n, 5])/720 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 - 
   (11*Diff[S2[1, n], n, 1]^3)/24 - (21*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 + (11*Diff[S2[1, n], n, 2]^2)/8 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (27*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 - 
   (109*Diff[S2[1, n], n, 5])/720 + 2*Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   Diff[S2[-2, 1, n], n, 3]/3 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/8 - 
   (13*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/24 - 
   Diff[S2[-1, 1, n], n, 1]^2/2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/4 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (5*Diff[S2[-1, 1, n], n, 4])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 + Diff[S2[1, 2, -1, n], n, 2]/2 + 
   Diff[S2[2, 1, -1, n], n, 2]/2 - Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/4 - (7*Diff[S2[-1, 1, 1, 1, n], n, 2])/
    4 - Diff[S2[-1, 1, -1, -1, 1, n], n, 1] - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1]/2 - 
   2*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - Diff[S2[1, -1, -1, 1, -1, n], n, 1]/
    2 - (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/8 - (5*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/16 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/4 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    4 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 + (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    8 - (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 + 
   Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    4 + (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^5)/40 + S2[-1, Infinity]^6/180 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 - (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/2 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 + 
   (41*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (41*Diff[S2[1, n], n, 4]*S2[1, n])/48 + 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/4 - 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 - 
   Diff[S2[-1, 1, n], n, 3]*S2[1, n] - (Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 - 
   Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n] + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/4 - Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (3*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + Diff[S2[-1, 1, -1, -1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 + 
   (35*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/96 + 
   (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (33*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (9*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (S2[-1, Infinity]^5*S2[1, n])/12 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/8 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/8 + 
   (47*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (167*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    24 - (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Half[S2[2, 1, n], n]*S2[1, n]^3)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/8 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/32 - 
   (17*Diff[S2[1, n], n, 3]*S2[2, Infinity])/64 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 + 
   (13*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/32 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (11*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/32 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (17*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (45*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity] - 
   (19*S2[-1, Infinity]^4*S2[2, Infinity])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/32 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (23*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    8 - (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/32 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 - (51*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (27*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 + (21*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/16 + (11*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (69*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (41*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (13*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (7*S2[1, n]^4*S2[2, Infinity])/12 - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, Infinity]^2 + (89*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (31*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 + 
   (417*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/160 - 
   (621*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (11*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 - 
   (53*S2[1, n]^2*S2[2, Infinity]^2)/80 + (767*S2[2, Infinity]^3)/840 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/16 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (103*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (73*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (21*Half[S2[2, 1, n], n]*S2[3, Infinity])/64 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] - 
   (27*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 + 
   (75*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/64 - 
   (145*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (55*S2[1, n]^3*S2[3, Infinity])/96 + 
   (455*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (25*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (1919*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (551*S2[3, Infinity]^2)/192 + (109*Half[S2[1, n], n]*S2[5, Infinity])/32 + 
   (207*S2[1, n]*S2[5, Infinity])/32 + (9*S2[-5, -1, Infinity])/4 + 
   6*S2[-5, 1, n] + 2*S2[1, n]*S2[-4, 1, n] - Diff[S2[1, n], n, 1]*
    S2[-3, 1, n] + (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/8 - 
   (3*S2[1, n]^2*S2[-3, 1, n])/8 + (3*S2[2, Infinity]*S2[-3, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 - Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/2 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/4 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
     S2[-2, 1, n])/2 - (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (S2[1, n]^3*S2[-2, 1, n])/3 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (31*S2[3, Infinity]*S2[-2, 1, n])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (23*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/96 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/8 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (177*S2[2, Infinity]^2*S2[-1, 1, n])/80 - 
   (11*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (93*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/64 - 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/8 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/4 + (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/8 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/8 + (5*S2[2, Infinity]*S2[-1, 1, n]^2)/16 + 
   (5*S2[-1, 1, n]^3)/8 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 - Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/4 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    2 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 + 
   (3*S2[1, n]^3*S2[2, 1, n])/8 + (13*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 - 
   (21*S2[3, Infinity]*S2[2, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 
   (9*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + 2*S2[-4, 1, 1, n] + 
   2*S2[1, n]*S2[-3, 1, 1, n] - (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/
    2 + (S2[1, n]^2*S2[-2, 1, -1, n])/2 - (S2[2, Infinity]*S2[-2, 1, -1, n])/
    4 + (S2[-1, 1, n]*S2[-2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    16 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/8 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/8 - (9*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/8 + (15*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/8 - 
   (21*S2[3, Infinity]*S2[-1, 1, -1, n])/32 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/4 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 + 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/4 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/8 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/8 + 
   (19*S2[3, Infinity]*S2[-1, 1, 1, n])/32 - (3*S2[-2, 1, n]*S2[-1, 1, 1, n])/
    2 - (5*Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/4 - 
   (3*S2[2, 1, n]*S2[-1, 1, 1, n])/2 + (5*S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/
    4 + (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 + 
   (S2[1, n]^2*S2[1, 2, -1, n])/2 - (3*S2[2, Infinity]*S2[1, 2, -1, n])/4 - 
   (S2[-1, 1, n]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/4 + 
   (3*S2[1, n]^2*S2[2, 1, -1, n])/4 - (7*S2[2, Infinity]*S2[2, 1, -1, n])/8 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[2, Infinity]*S2[2, 1, 1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, 1, n])/2 + 2*S2[1, n]*S2[-2, 1, 1, 1, n] - 
   S2[1, n]^2*S2[-1, 1, -1, -1, n] + S2[2, Infinity]*S2[-1, 1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 - 
   (3*S2[2, Infinity]*S2[-1, 1, -1, 1, n])/8 - 
   (5*S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/4 + 2*S2[2, Infinity]*
    S2[-1, 1, 1, 1, n] - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/2 + Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + (3*Half[S2[1, n], n]*S2[1, n]*
     S2[-1, 1, 1, 1, Infinity])/2 - S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 - 
   6*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - S2[2, -2, 1, 1, n] - 
   2*S2[-2, 1, 1, 1, 1, n] + 2*S2[1, n]*S2[-1, 1, -1, -1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, -1, 1, 1, n] + (3*S2[1, n]*S2[-1, 1, 1, -1, -1, n])/2 - 
   3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n] + 
   3*S2[1, n]*S2[-1, 1, 1, 1, -1, n] + 9*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - 10*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, 1, 1, 2, n] - S2[1, 1, -1, -1, -2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[1, 1, -1, 1, 2, n] + 
   (3*Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n])/2 - 
   (3*S2[1, n]*S2[1, 1, 1, -1, -1, n])/2 + 2*S2[1, 1, 1, -1, 2, n] - 
   2*S2[-1, 1, -1, -1, 1, 1, n] - (3*S2[-1, 1, 1, -1, -1, 1, n])/2 - 
   4*S2[-1, 1, 1, 1, 1, 1, Infinity] - (3*S2[1, -1, -1, 1, 1, -1, n])/2 - 
   S2[1, -1, 1, 1, -1, -1, n]/2 - (5*S2[1, 1, -1, -1, 1, -1, n])/2 - 
   2*S2[1, 1, -1, 1, -1, -1, n] - (9*S2[1, 1, 1, -1, -1, -1, n])/2, 
 S2[1, -1, 1, -1, 2, n] -> (15*Diff[Half[S2[1, n], n], n, 2]^2)/64 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   Diff[Half[S2[1, n], n], n, 5]/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/16 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/96 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    16 - (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/48 + 
   (97*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 + 
   (73*Diff[S2[1, n], n, 1]^3)/48 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/32 - (29*Diff[S2[1, n], n, 2]^2)/96 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/144 - 
   (263*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/288 + 
   (119*Diff[S2[1, n], n, 5])/2880 - (3*Diff[S2[-3, 1, n], n, 2])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 + 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/12 - 
   (5*Diff[S2[-2, 1, n], n, 3])/24 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (11*Diff[S2[-1, 1, n], n, 1]^2)/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 + 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (19*Diff[S2[-1, 1, n], n, 4])/96 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   Diff[S2[2, 1, n], n, 3]/12 - Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[-2, 1, -1, n], n, 2]/4 - Diff[S2[-1, -2, -1, n], n, 2]/16 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (5*Diff[S2[-1, 1, -1, n], n, 3])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/8 - Diff[S2[1, 2, -1, n], n, 2]/4 - 
   Diff[S2[2, 1, -1, n], n, 2]/8 + Diff[S2[-1, 1, -1, 1, n], n, 2]/8 - 
   Diff[S2[2, 1, 1, 1, n], n, 1]/2 - Diff[S2[-1, -1, 1, -1, -1, n], n, 1]/2 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - 
   (5*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/4 + 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 + Diff[S2[1, 1, 1, -1, -1, n], n, 
    1] + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/48 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/288 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 + (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (19*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (19*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 - 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (11*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 - (7*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/16 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/3 - 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/8 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    16 + (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 + 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/48 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/3 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 - (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/16 - 
   (5*Half[S2[2, 1, n], n]^2)/64 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/96 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/32 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/48 + S2[-1, Infinity]^6/360 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (17*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 + 
   (53*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/24 - 
   (25*Diff[S2[1, n], n, 4]*S2[1, n])/144 + 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 + 
   (11*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/24 - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/16 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 + Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/3 + 
   (5*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 + (35*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    24 - (47*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 + 
   (S2[-1, Infinity]^5*S2[1, n])/80 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/3 - 
   (35*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 + 
   (91*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (17*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (5*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (13*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/48 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 - (7*S2[-1, Infinity]^4*S2[1, n]^2)/
    48 + (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 - 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/24 + 
   (25*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/24 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    6 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 - (2*Half[S2[1, n], n]^2*S2[1, n]^4)/
    3 + (Half[S2[1, n], n]*S2[1, n]^5)/2 - (7*S2[1, n]^6)/48 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 - 
   (185*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    16 - (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (11*Diff[S2[1, n], n, 3]*S2[2, Infinity])/18 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (25*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/8 - 
   (17*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (9*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (49*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/4 + 
   (23*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (21*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (39*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 + (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (15*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (29*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (79*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (29*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (127*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/48 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/24 - (77*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/48 - (43*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 - (17*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/6 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/3 + 
   (25*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (25*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (19*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (61*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (5*S2[1, n]^4*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 + 
   (269*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/96 + 
   (1433*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/960 - 
   (91*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 - 
   (221*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (1379*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 + 
   (883*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/160 + 
   (1367*S2[1, n]^2*S2[2, Infinity]^2)/960 - (4537*S2[2, Infinity]^3)/1680 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/16 - 
   (59*Diff[S2[1, n], n, 2]*S2[3, Infinity])/128 + 
   (107*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/64 + 
   (175*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/
    192 - (151*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/192 - 
   (19*Half[S2[1, n], n]^3*S2[3, Infinity])/64 - 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/128 - 
   (199*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/192 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/12 - 
   (37*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/48 + 
   (281*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/192 - 
   (35*S2[1, n]^3*S2[3, Infinity])/48 - 
   (445*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (603*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (1667*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (803*S2[3, Infinity]^2)/3072 + (3*Half[S2[1, n], n]*S2[5, Infinity])/2 - 
   (1243*S2[1, n]*S2[5, Infinity])/128 + (11*S2[-5, -1, Infinity])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/6 + 
   (47*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/24 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (19*S2[1, n]^2*S2[-3, 1, n])/24 - (41*S2[2, Infinity]*S2[-3, 1, n])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/8 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/4 + 
   (5*Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/3 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/12 + 
   (S2[1, n]^3*S2[-2, 1, n])/6 - (23*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/
    8 + (53*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 + 
   (5*S2[3, Infinity]*S2[-2, 1, n])/32 - (5*S2[-2, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (17*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/144 - 
   (2*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/24 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 + 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 - 
   (3*S2[1, n]^4*S2[-1, 1, n])/8 + (17*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (7*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (15*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (43*S2[2, Infinity]^2*S2[-1, 1, n])/120 + 
   (229*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (289*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/6 - (5*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/12 + (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/24 + 
   (7*Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/24 + 
   (31*S2[1, n]^2*S2[-1, 1, n]^2)/48 + (13*S2[2, Infinity]*S2[-1, 1, n]^2)/
    24 - (11*Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/16 + 
   (35*Diff[S2[1, n], n, 2]*S2[2, 1, n])/48 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/4 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/8 + (5*Half[S2[2, 1, n], n]*S2[2, 1, n])/
    8 - (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/8 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 + 
   (19*S2[1, n]^3*S2[2, 1, n])/24 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 - (15*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + 
   (47*S2[3, Infinity]*S2[2, 1, n])/96 - (5*S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - (5*S2[2, 1, n]^2)/4 + 
   S2[1, n]*S2[4, 1, n] - (3*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-2, 1, -1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - (S2[1, n]^2*S2[-2, 1, -1, n])/2 + 
   (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/6 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/24 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/24 - (11*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 + 
   (13*S2[1, n]^3*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/16 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 + 
   (65*S2[3, Infinity]*S2[-1, 1, -1, n])/64 - (S2[-2, 1, n]*S2[-1, 1, -1, n])/
    4 - (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/4 - S2[-1, 1, -1, n]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   2*S2[1, n]^3*S2[-1, 1, 1, n] + (15*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (29*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + S2[-1, 1, 1, n]^2/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[1, 2, -1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + (S2[1, n]^2*S2[1, 2, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/12 - (11*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (S2[-1, 1, n]*S2[2, 1, -1, n])/3 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, 1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] + 
   2*S2[2, Infinity]*S2[2, 1, 1, n] + S2[1, n]*S2[3, 1, 1, n] + 
   S2[4, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/3 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/3 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, -1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   S2[1, n]^2*S2[-1, 1, -1, 1, n] - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, 1, 1, n])/4 + (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/4 + 
   4*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   4*S2[1, n]^2*S2[-1, 1, 1, 1, n] - (7*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    4 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/4 + 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] - 
   5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (17*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + S2[1, n]*S2[2, 1, 1, 1, n] - 
   S2[2, 2, 1, 1, n]/2 + (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + Half[S2[1, n], n]*
    S2[-1, 1, 1, -1, -1, n] - S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] + 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 + S2[1, -1, 1, 1, -2, n] + 
   Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n] - 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] + S2[1, 1, 1, -1, -2, n] - 
   S2[2, 1, 1, 1, 1, n] - S2[-1, -1, 1, 1, -1, -1, n] - 
   S2[-1, 1, -1, -1, -1, 1, n]/2 - S2[-1, 1, -1, 1, -1, -1, n]/2 - 
   (3*S2[-1, 1, -1, 1, 1, 1, n])/2 - 2*S2[-1, 1, 1, -1, -1, -1, n] + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 - 2*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, -1, -1, 1, -1, n] + (3*S2[1, -1, -1, 1, -1, -1, n])/2 + 
   S2[1, -1, 1, -1, -1, -1, n] + S2[1, 1, -1, -1, -1, -1, n] - 
   S2[1, 1, 1, -1, 1, -1, n]/2 + 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, 1, -2, 1, 1, n] -> -Diff[Half[S2[1, n], n], n, 5]/6 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   (3*Diff[S2[1, n], n, 1]^3)/2 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/2 - (3*Diff[S2[1, n], n, 2]^2)/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3] - 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 + 
   Diff[S2[1, n], n, 5]/6 - Diff[S2[-3, 1, n], n, 2]/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 - 
   Diff[S2[-2, 1, n], n, 3]/2 + (3*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/2 + 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] - Diff[S2[-1, 1, n], n, 4]/2 + 
   Diff[S2[-3, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/2 - Diff[S2[1, 2, -1, n], n, 2]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/2 + 3*Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/6 + Diff[S2[-3, 1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/2 + Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] + 
   Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n] - 
   (2*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   3*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 + (5*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    3 - (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (9*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   2*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/10 - 
   (69*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 - 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/4 - 
   (39*S2[1, n]^2*S2[2, Infinity]^2)/80 + (5303*S2[2, Infinity]^3)/1680 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[3, Infinity] - (5*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[3, Infinity])/16 + (7*S2[1, n]^3*S2[3, Infinity])/16 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/2 + 
   (17*S2[3, Infinity]^2)/128 - (41*S2[1, n]*S2[5, Infinity])/32 + 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - (S2[1, n]^2*S2[-3, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[-3, 1, n])/2 + (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    2 - (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (S2[1, n]^3*S2[-2, 1, n])/2 - (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/
    2 - 2*S2[3, Infinity]*S2[-2, 1, n] - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/2 - Diff[S2[1, n], n, 2]*S2[1, n]*
    S2[-1, 1, n] + (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   S2[-4, 1, 1, n] - S2[1, n]*S2[-3, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - (S2[1, n]^2*S2[1, 2, -1, n])/
    2 + (5*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - (S2[1, n]^2*S2[2, 1, -1, n])/
    2 + (5*S2[2, Infinity]*S2[2, 1, -1, n])/2 + 3*S2[-3, 1, 1, 1, n] - 
   3*S2[1, n]*S2[-2, 1, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   4*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 6*S2[-2, 1, 1, 1, 1, n], 
 S2[1, 1, 2, 1, 1, n] -> -Diff[S2[1, n], n, 1]^3/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/8 - Diff[S2[1, n], n, 5]/240 - 
   Diff[S2[2, 1, 1, n], n, 2]/4 - 2*Diff[S2[3, 1, 1, n], n, 1] + 
   (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 - Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] + (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 - (17*S2[2, Infinity]^3)/30 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[3, Infinity] - S2[1, n]*S2[2, Infinity]*S2[3, Infinity] + 
   (9*S2[3, Infinity]^2)/2 + (11*S2[1, n]*S2[5, Infinity])/2 + 
   S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - 2*S2[3, Infinity]*S2[2, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + (S2[1, n]^2*S2[2, 1, 1, n])/2 - 
   (5*S2[2, Infinity]*S2[2, 1, 1, n])/2 - S2[1, n]*S2[3, 1, 1, n] - 
   5*S2[4, 1, 1, n] - 3*S2[1, n]*S2[2, 1, 1, 1, n] + 
   (3*S2[2, 2, 1, 1, n])/2 + 6*S2[2, 1, 1, 1, 1, n], 
 S2[1, 1, -1, -2, 1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/32 + 
   Diff[Half[S2[1, n], n], n, 2]^2/64 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/144 - 
   (55*Diff[Half[S2[1, n], n], n, 5])/192 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/32 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/6 + (3*Diff[Half[S2[4, 1, n], n], n, 1])/
    16 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/16 + 
   Diff[Half[S2[3, 1, 1, n], n], n, 1]/8 - 
   (115*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/96 + 
   (115*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (9*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/32 + 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/96 + 
   (19*Diff[S2[1, n], n, 1]^3)/32 + (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - (67*Diff[S2[1, n], n, 2]^2)/32 + 
   (767*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/576 - 
   (1547*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/576 + 
   (713*Diff[S2[1, n], n, 5])/2880 - Diff[S2[-4, 1, n], n, 1]/2 - 
   (5*Diff[S2[-3, 1, n], n, 2])/8 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/24 + 
   (25*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/24 - 
   (7*Diff[S2[-2, 1, n], n, 3])/12 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/16 + 
   (31*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]^2)/16 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 + 
   (65*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/32 - 
   (5*Diff[S2[-1, 1, n], n, 4])/6 + (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/8 - 
   (15*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/8 + 
   (11*Diff[S2[2, 1, n], n, 3])/24 - Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-3, 1, 1, n], n, 1]/2 + Diff[S2[-2, 1, -2, n], n, 1]/4 + 
   (3*Diff[S2[-2, 1, -1, n], n, 2])/4 - Diff[S2[-1, -2, -1, n], n, 2]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/8 + 
   (19*Diff[S2[-1, 1, -1, n], n, 3])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/8 - 
   Diff[S2[-1, 1, 1, n], n, 3]/2 - (5*Diff[S2[1, 2, -1, n], n, 2])/4 + 
   Diff[S2[2, 1, -2, n], n, 1]/2 - (3*Diff[S2[2, 1, -1, n], n, 2])/4 + 
   (3*Diff[S2[2, 1, 1, n], n, 2])/4 + Diff[S2[-2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/8 + Diff[S2[-1, 1, -1, 1, n], n, 2]/4 + 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + Diff[S2[1, 1, -1, 2, n], n, 1]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/8 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    2 - Diff[S2[1, -1, -1, -1, -1, n], n, 1]/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1]/4 - 
   (3*Diff[S2[1, -1, 1, -1, -1, n], n, 1])/8 - 
   (3*Diff[S2[1, 1, -1, -1, -1, n], n, 1])/4 + 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1]/2 + 
   2*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/6 + (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/72 + (Diff[Half[S2[2, 1, n], n], n, 2]*
     Half[S2[1, n], n])/32 - (Diff[Half[S2[2, 1, 1, n], n], n, 1]*
     Half[S2[1, n], n])/16 - (25*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    24 - (43*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    48 + (179*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/576 - 
   (23*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/48 - 
   (13*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    24 - Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (13*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/96 + 
   (Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/24 + 
   (Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/96 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/96 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (5*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/48 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/24 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/32 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    48 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/24 + 
   Half[S2[2, 1, n], n]^2/64 - (Diff[Half[S2[1, n], n], n, 1]*
     Half[S2[2, 1, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/192 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/192 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/96 + S2[-1, Infinity]^6/240 - 
   (21*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    16 + (235*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/288 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/48 + 
   (13*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/32 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/8 + 
   (91*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/16 - 
   (617*Diff[S2[1, n], n, 4]*S2[1, n])/576 + 
   (41*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/48 + 
   (43*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/24 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (209*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/96 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 - 
   (5*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n])/4 + 
   (11*Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/48 - 
   (7*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/8 + 
   (3*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/8 + 
   (11*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/4 + 
   (47*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/24 - 
   (5*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/16 - 
   (89*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/144 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/48 + 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/24 - (85*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    48 - (269*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/288 + 
   (2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/6 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/16 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (5*Half[S2[4, 1, n], n]*S2[1, n])/16 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[3, 1, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 - 
   (S2[-1, Infinity]^5*S2[1, n])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/2 - 
   (155*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/288 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/48 - 
   (29*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/96 - 
   (77*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/24 + 
   (23*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 + 
   (443*Diff[S2[1, n], n, 3]*S2[1, n]^2)/288 - 
   (13*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/8 - 
   (55*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/48 + 
   (31*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/16 + 
   (17*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/24 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (31*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/16 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/12 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (5*S2[-1, Infinity]^4*S2[1, n]^2)/
    48 - (11*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/12 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 - 
   (2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/3 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/24 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    6 + (21*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/16 - 
   (83*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^4)/8 - (13*Half[S2[1, n], n]*S2[1, n]^5)/
    24 + (11*S2[1, n]^6)/48 - (Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/4 - (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    288 + (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (71*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/24 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/32 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (61*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/96 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/48 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/96 + 
   (21*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/32 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/12 - 
   (25*S2[-1, Infinity]^4*S2[2, Infinity])/64 + 
   (23*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/96 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/6 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 - (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/24 + (Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/48 + (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    96 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (11*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 - (5*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    12 - (17*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/48 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/48 + 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (3*S2[1, n]^4*S2[2, Infinity])/16 + 
   (161*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/320 - 
   (269*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/960 + 
   (23*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/192 - 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/32 + 
   (171*S2[-1, Infinity]^2*S2[2, Infinity]^2)/320 - 
   (109*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/480 + 
   (35*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/32 - 
   (55*S2[1, n]^2*S2[2, Infinity]^2)/192 + (331*S2[2, Infinity]^3)/480 - 
   (39*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/128 + 
   (133*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/128 + 
   (33*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (123*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 - 
   (21*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (145*S2[1, n]^3*S2[3, Infinity])/96 + 
   (167*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/384 - 
   (87*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/128 + 
   (1543*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/384 + 
   (895*S2[3, Infinity]^2)/3072 - (187*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (639*S2[1, n]*S2[5, Infinity])/128 - (3*S2[-5, -1, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/48 - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (S2[1, n]^2*S2[-3, 1, n])/12 + (19*S2[2, Infinity]*S2[-3, 1, n])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/12 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/3 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 + 
   (S2[1, n]^3*S2[-2, 1, n])/3 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/24 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/8 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/24 - 
   (S2[3, Infinity]*S2[-2, 1, n])/32 + S2[-2, 1, n]^2/4 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/144 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/16 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n] + 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/9 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/12 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/48 - 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/32 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/48 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    12 + (4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/48 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 - 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/8 - 
   (17*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/24 + 
   (13*S2[1, n]^4*S2[-1, 1, n])/24 + (29*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (5*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/16 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/16 + 
   (689*S2[2, Infinity]^2*S2[-1, 1, n])/480 + 
   (73*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (137*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/192 + 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/24 - 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/12 - 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/16 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/48 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/12 + 
   (5*S2[1, n]^2*S2[-1, 1, n]^2)/48 + (7*S2[2, Infinity]*S2[-1, 1, n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (23*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/8 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[2, 1, n] + 3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (13*S2[1, n]^3*S2[2, 1, n])/12 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (15*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/16 + 
   (29*S2[3, Infinity]*S2[2, 1, n])/96 + (S2[-2, 1, n]*S2[2, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/8 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/8 + S2[2, 1, n]^2/4 + 
   S2[1, n]*S2[4, 1, n] - S2[1, n]*S2[-3, 1, 1, n] - 
   (S2[1, n]*S2[-2, 1, -2, n])/2 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-2, 1, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 - S2[-2, 2, -2, n]/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/48 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    48 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/24 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 - 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/48 - 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/24 + S2[-1, 1, -1, n]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[-1, 1, 1, n]^2/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n])/2 - 
   (3*S2[1, n]^2*S2[1, 2, -1, n])/2 - S2[1, n]*S2[2, 1, -2, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/24 + 
   (17*Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 - 
   (7*S2[1, n]^2*S2[2, 1, -1, n])/6 + (S2[2, Infinity]*S2[2, 1, -1, n])/24 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n])/2 + 
   S2[1, n]^2*S2[2, 1, 1, n] + (S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   S2[1, n]*S2[3, 1, 1, n] + S2[4, 1, 1, n] - S2[1, n]*S2[-2, 1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/24 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/12 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/24 - 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/8 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (27*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/8 + 
   (9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/4 - 
   S2[1, n]*S2[1, 1, -1, 2, n] - (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/4 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/4 + 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/4 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, 1, -1, -1, -1, n])/2 + 
   S2[1, n]*S2[1, 1, -1, -1, -1, n] - S2[1, 1, -1, 1, -2, n] - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 2*S2[1, 1, 1, -1, -2, n] - 
   2*S2[1, n]*S2[1, 1, 1, -1, -1, n] - S2[2, 1, 1, 1, 1, n] + 
   S2[-1, 1, -1, -1, -1, 1, n]/4 - S2[-1, 1, -1, 1, 1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 - 3*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   S2[1, -1, -1, -1, 1, -1, n]/4 - S2[1, -1, -1, 1, -1, -1, n]/2 - 
   S2[1, -1, 1, -1, -1, -1, n]/2 - S2[1, 1, -1, -1, -1, -1, n] + 
   S2[1, 1, 1, -1, 1, -1, n]/2 + 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, 1, -1, 2, 1, n] -> Diff[Half[S2[1, n], n], n, 5]/12 - 
   (2*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 - 
   Diff[S2[1, n], n, 1]^3 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 + (3*Diff[S2[1, n], n, 2]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/2 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/6 - 
   Diff[S2[1, n], n, 5]/12 - Diff[S2[-4, 1, n], n, 1]/2 + 
   Diff[S2[-3, 1, n], n, 2]/4 - (3*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/4 + Diff[S2[-2, 1, n], n, 3]/4 - 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   Diff[S2[-1, 1, n], n, 4]/4 - Diff[S2[-3, 1, 1, n], n, 1]/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/6 + Diff[S2[1, 2, -1, n], n, 2]/4 + 
   Diff[S2[2, 1, -1, n], n, 2]/4 - Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - Diff[S2[1, 1, -1, 2, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + Diff[S2[1, n], n, 1]*
    Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/16 - S2[-1, Infinity]^6/240 - 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/12 - Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (2*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/3 - 
   (Diff[S2[1, 2, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + Diff[S2[-1, 1, 1, 1, n], n, 1]*
    S2[1, n] - Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (S2[-1, Infinity]^5*S2[1, n])/40 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   2*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - (11*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    12 + (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 + 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/
    3 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (S2[1, n]^4*S2[2, Infinity])/6 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/4 + (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (41*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/2 - 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/10 + 
   (21*S2[1, n]^2*S2[2, Infinity]^2)/80 - (843*S2[2, Infinity]^3)/1120 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 - 
   (41*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 + 
   (4*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 - 
   (2*S2[1, n]^3*S2[3, Infinity])/3 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/6 + (127*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/32 - (11*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/12 + 
   (1145*S2[3, Infinity]^2)/768 - (23*S2[1, n]*S2[5, Infinity])/8 - 
   2*S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] + (S2[1, n]^2*S2[-3, 1, n])/2 - 
   (S2[2, Infinity]*S2[-3, 1, n])/2 - (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - (S2[1, n]^3*S2[-2, 1, n])/3 + 
   (S2[3, Infinity]*S2[-2, 1, n])/3 + (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/
    2 - (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[2, Infinity]^2*S2[-1, 1, n])/2 - S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] - S2[-4, 1, 1, n] - S2[1, n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + S2[3, Infinity]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 + (S2[1, n]^2*S2[1, 2, -1, n])/
    2 - (S2[2, Infinity]*S2[1, 2, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + (S2[1, n]^2*S2[2, 1, -1, n])/
    2 - (S2[2, Infinity]*S2[2, 1, -1, n])/2 - S2[-3, 1, 1, 1, n] + 
   S2[1, n]*S2[-2, 1, 1, 1, n] + S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   S2[1, n]*S2[1, 1, -1, 2, n] + S2[2, -2, 1, 1, n]/2 - 
   S2[-2, 1, 1, 1, 1, n] - 3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, 1, -1, 1, 2, n] - 2*S2[1, 1, 1, -1, 2, n] + 
   3*S2[-1, 1, 1, 1, 1, 1, Infinity], S2[1, 1, -1, -1, 2, n] -> 
  (3*Diff[Half[S2[1, n], n], n, 2]^2)/32 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/72 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/48 - Diff[Half[S2[4, 1, n], n], n, 1]/
    16 - (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/36 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/3 + 
   (13*Diff[S2[1, n], n, 1]^3)/24 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + Diff[S2[1, n], n, 2]^2/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/9 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/36 - 
   (31*Diff[S2[1, n], n, 5])/1440 + Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/6 + 
   (2*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   Diff[S2[-2, 1, n], n, 3]/6 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/8 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   Diff[S2[-1, 1, n], n, 4]/24 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   Diff[S2[2, 1, n], n, 3]/24 + Diff[S2[4, 1, n], n, 1]/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, n], n, 3]/24 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[2, 1, 1, n], n, 2]/4 - Diff[S2[2, 1, 1, 1, n], n, 1]/2 + 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1] + Diff[S2[1, 1, -1, 1, -1, n], n, 1]/
    2 + Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/6 + (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    9 - (2*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n])/3 - (3*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n] - 
   (11*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/72 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    3 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (7*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/6 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/12 - 
   Half[S2[2, 1, n], n]^2/32 + (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/
    4 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 + 
   (13*S2[-1, Infinity]^6)/1440 - (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/
    9 - (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (7*Diff[S2[1, n], n, 4]*S2[1, n])/36 - 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 - 
   (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/4 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 + Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/6 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/6 - (4*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/3 + 
   (55*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (11*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 - 
   (S2[-1, Infinity]^5*S2[1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/6 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/12 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (59*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/12 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (4*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/24 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/12 + 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/6 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    24 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/12 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]^4)/24 - (Half[S2[1, n], n]*S2[1, n]^5)/
    12 - (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 - 
   (25*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/36 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 - 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/48 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (15*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/2 + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (31*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    24 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/48 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity] - 
   (13*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/6 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (S2[1, n]^4*S2[2, Infinity])/6 - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, Infinity]^2 + (1421*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/480 - 
   (127*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/480 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (179*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/15 + 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/4 - 
   (163*S2[1, n]^2*S2[2, Infinity]^2)/120 - (12119*S2[2, Infinity]^3)/3360 - 
   (27*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 - 
   (27*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/24 + 
   (85*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/64 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/6 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/12 + 
   (73*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/96 - 
   (137*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/96 + 
   (S2[1, n]^3*S2[3, Infinity])/3 - (467*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/192 - (99*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/64 + (961*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/
    192 - (4345*S2[3, Infinity]^2)/1536 + 
   (23*Half[S2[1, n], n]*S2[5, Infinity])/16 - (615*S2[1, n]*S2[5, Infinity])/
    128 + (29*S2[-5, -1, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/12 + 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/6 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/12 - 
   (7*S2[1, n]^2*S2[-3, 1, n])/12 - (37*S2[2, Infinity]*S2[-3, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n])/2 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 + 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/4 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/3 - 
   (S2[1, n]^3*S2[-2, 1, n])/6 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/12 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (11*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/12 + 
   (S2[3, Infinity]*S2[-2, 1, n])/16 - S2[-2, 1, n]^2/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/36 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] + (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/
    36 - (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[-1, 1, n])/24 - (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    4 + (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/24 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/12 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (S2[1, n]^4*S2[-1, 1, n])/12 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/24 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (17*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (7*S2[2, Infinity]^2*S2[-1, 1, n])/48 - 
   (73*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/96 + 
   (187*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/96 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/6 - 
   (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/6 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/12 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/24 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/12 - 
   (11*S2[1, n]^2*S2[-1, 1, n]^2)/24 + (7*S2[2, Infinity]*S2[-1, 1, n]^2)/
    12 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (S2[1, n]^3*S2[2, 1, n])/12 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (19*S2[3, Infinity]*S2[2, 1, n])/48 - S2[-2, 1, n]*S2[2, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - S2[2, 1, n]^2/2 + 
   S2[1, n]*S2[4, 1, n] - Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   S2[2, Infinity]*S2[-2, 1, -1, n] + S2[-2, 2, -2, n]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 - (7*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/12 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/24 + 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/3 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/12 - S2[-1, 1, -1, n]^2/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[1, n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + S2[-1, 1, 1, n]^2/2 + Diff[S2[1, n], n, 1]*
    S2[1, 2, -1, n] - S2[2, Infinity]*S2[1, 2, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/3 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/6 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/6 - (7*S2[2, Infinity]*S2[2, 1, -1, n])/12 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/6 - Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 + (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 + 
   S2[1, n]*S2[3, 1, 1, n] + S2[4, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/12 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - 2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   2*S2[1, n]^2*S2[-1, 1, 1, 1, n] + (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (7*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]*S2[2, 1, 1, 1, n] - S2[2, 2, 1, 1, n]/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, -1, n])/2 - (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/
    2 - (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] - 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (15*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, -1, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 + 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 - Half[S2[1, n], n]*
    S2[1, 1, -1, -1, -1, n] + S2[1, n]*S2[1, 1, -1, -1, -1, n] + 
   S2[1, 1, -1, 1, -2, n] + S2[1, 1, 1, -1, -2, n] - S2[2, 1, 1, 1, 1, n] - 
   S2[-1, 1, -1, -1, -1, 1, n]/2 + S2[-1, 1, -1, 1, 1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 - (13*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, -1, -1, -1, 1, -1, n]/2 + S2[1, -1, -1, 1, -1, -1, n] + 
   S2[1, -1, 1, -1, -1, -1, n] + 2*S2[1, 1, -1, -1, -1, -1, n] + 
   (3*S2[1, 1, 1, -1, 1, -1, n])/2 + 2*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, 1, 1, -2, 1, n] -> Diff[Half[S2[1, n], n], n, 5]/3 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2 - 
   3*Diff[S2[1, n], n, 1]^3 - 3*Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[1, n], n, 2] + 3*Diff[S2[1, n], n, 2]^2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3] + 
   (13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/3 - 
   Diff[S2[1, n], n, 5]/3 - Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[-3, 1, n], n, 2]/2 - (5*Diff[S2[1, n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 + (5*Diff[S2[-2, 1, n], n, 3])/6 - 
   3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1] - 
   4*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] + 
   Diff[S2[-1, 1, n], n, 4] - 2*Diff[S2[-3, 1, 1, n], n, 1] - 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, 1, n], n, 3] + Diff[S2[1, 2, -1, n], n, 2] + 
   Diff[S2[2, 1, -1, n], n, 2] - 3*Diff[S2[-2, 1, 1, 1, n], n, 1] + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/6 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   13*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (5*Diff[S2[1, n], n, 4]*S2[1, n])/3 - Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + 5*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 3*Diff[S2[-1, 1, n], n, 3]*S2[1, n] - 
   2*Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n] - 2*Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - 2*Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] - 
   3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] + 
   2*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n] + 
   (4*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/3 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 + 
   6*Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - (10*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    3 + (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   3*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n]^2 - (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/2 + 
   3*Diff[S2[1, n], n, 2]*S2[1, n]^3 - Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 - 
   Diff[S2[1, n], n, 1]*S2[1, n]^4 - (5*Diff[Half[S2[1, n], n], n, 3]*
     S2[2, Infinity])/6 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 - 2*Diff[S2[1, n], n, 1]^2*
    S2[2, Infinity] + (Diff[S2[1, n], n, 3]*S2[2, Infinity])/3 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/2 - 
   2*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] - 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] + Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*
    S2[2, Infinity] - (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*
     S2[2, Infinity])/2 - Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
    S2[2, Infinity] + (S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity] - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/10 + 
   (31*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (13*S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 + 3*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity]^2 + (41*S2[1, n]^2*S2[2, Infinity]^2)/80 - 
   (3721*S2[2, Infinity]^3)/1680 - (Diff[Half[S2[1, n], n], n, 2]*
     S2[3, Infinity])/2 - (3*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (7*S2[1, n]^3*S2[3, Infinity])/8 + (21*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/16 + S2[1, n]*S2[2, Infinity]*S2[3, Infinity] + 
   (83*S2[3, Infinity]^2)/128 + (57*S2[1, n]*S2[5, Infinity])/16 - 
   S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] - (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/
    2 + (S2[1, n]^2*S2[-3, 1, n])/2 - (S2[2, Infinity]*S2[-3, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/6 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/6 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/
    2 + (4*S2[3, Infinity]*S2[-2, 1, n])/3 + Diff[S2[1, n], n, 1]^2*
    S2[-1, 1, n] - Diff[S2[1, n], n, 3]*S2[-1, 1, n] + 
   2*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 2*S2[-4, 1, 1, n] + 
   2*S2[1, n]*S2[-3, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 
   S2[1, n]^2*S2[1, 2, -1, n] - 2*S2[2, Infinity]*S2[1, 2, -1, n] - 
   Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + S2[1, n]^2*S2[2, 1, -1, n] - 
   2*S2[2, Infinity]*S2[2, 1, -1, n] - 3*S2[-3, 1, 1, 1, n] + 
   3*S2[1, n]*S2[-2, 1, 1, 1, n] - Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 4*S2[-2, 1, 1, 1, 1, n], 
 S2[1, 1, 1, 2, 1, n] -> Diff[S2[1, n], n, 1]^3/8 + 
   (3*Diff[S2[1, n], n, 2]^2)/16 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   Diff[S2[1, n], n, 5]/80 + (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/
    4 + Diff[S2[2, 1, n], n, 3]/24 - Diff[S2[4, 1, n], n, 1]/2 - 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[3, 1, 1, n], n, 1] - 
   (3*Diff[S2[2, 1, 1, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 + 2*Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] + (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (3*Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/2 + 
   (3*S2[1, n]^2*S2[2, Infinity]^2)/5 + (47*S2[2, Infinity]^3)/105 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[3, Infinity] + 3*S2[1, n]*S2[2, Infinity]*S2[3, Infinity] - 
   3*S2[3, Infinity]^2 - 10*S2[1, n]*S2[5, Infinity] + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (S2[1, n]^3*S2[2, 1, n])/6 - (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (4*S2[3, Infinity]*S2[2, 1, n])/3 + S2[1, n]*S2[4, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 - S2[1, n]^2*S2[2, 1, 1, n] + 
   2*S2[2, Infinity]*S2[2, 1, 1, n] + 2*S2[1, n]*S2[3, 1, 1, n] + 
   4*S2[4, 1, 1, n] + 3*S2[1, n]*S2[2, 1, 1, 1, n] - 
   (3*S2[2, 2, 1, 1, n])/2 - 4*S2[2, 1, 1, 1, 1, n], 
 S2[1, 1, 1, 1, -2, n] -> (-7*Diff[Half[S2[1, n], n], n, 5])/40 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   (13*Diff[S2[1, n], n, 1]^3)/8 + (19*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/12 - (19*Diff[S2[1, n], n, 2]^2)/12 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (55*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (7*Diff[S2[1, n], n, 5])/40 + Diff[S2[-4, 1, n], n, 1] + 
   Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] - 
   Diff[S2[-2, 1, n], n, 3]/3 + (3*Diff[S2[1, n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/2 + 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, n], n, 2] - Diff[S2[-1, 1, n], n, 4]/2 + 
   Diff[S2[-3, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/2 - Diff[S2[1, 2, -1, n], n, 2]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/2 + Diff[S2[-2, 1, 1, 1, n], n, 1] - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (8*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 + 
   (83*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (7*Diff[S2[1, n], n, 4]*S2[1, n])/8 + Diff[S2[-2, 1, n], n, 2]*S2[1, n] - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/2 + Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] + 
   Diff[S2[2, 1, -1, n], n, 1]*S2[1, n] + 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 - 
   Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (13*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (7*Diff[S2[1, n], n, 3]*S2[1, n]^2)/4 - Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 - (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/3 - 
   (19*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (S2[1, n]^4*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/40 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]^2)/8 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/4 - 
   (13*S2[1, n]^2*S2[2, Infinity]^2)/40 + (213*S2[2, Infinity]^3)/560 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/6 + 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/3 - 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/48 + 
   (5*S2[1, n]^3*S2[3, Infinity])/16 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/12 - 
   (81*S2[3, Infinity]^2)/128 - (103*S2[1, n]*S2[5, Infinity])/32 + 
   S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] + (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/
    3 - Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (S2[1, n]^3*S2[-2, 1, n])/3 - (S2[3, Infinity]*S2[-2, 1, n])/3 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/2 - Diff[S2[1, n], n, 2]*S2[1, n]*
    S2[-1, 1, n] + (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + S2[-4, 1, 1, n] - 
   S2[1, n]*S2[-3, 1, 1, n] + (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - 
   (S2[1, n]^2*S2[1, 2, -1, n])/2 + (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - (S2[1, n]^2*S2[2, 1, -1, n])/
    2 + (S2[2, Infinity]*S2[2, 1, -1, n])/2 + S2[-3, 1, 1, 1, n] - 
   S2[1, n]*S2[-2, 1, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + S2[-2, 1, 1, 1, 1, n], 
 S2[1, 1, 1, 1, 2, n] -> -Diff[S2[1, n], n, 1]^3/12 - 
   (5*Diff[S2[1, n], n, 2]^2)/48 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 + 
   Diff[S2[1, n], n, 5]/144 - (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/
    4 - Diff[S2[2, 1, n], n, 3]/24 + Diff[S2[4, 1, n], n, 1]/2 + 
   Diff[S2[2, 1, 1, n], n, 2]/4 + Diff[S2[2, 1, 1, 1, n], n, 1]/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/
    8 - (Diff[S2[1, n], n, 3]*S2[1, n]^2)/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + (Diff[S2[1, n], n, 2]*S2[1, n]^3)/
    12 - (Diff[S2[1, n], n, 1]*S2[1, n]^4)/24 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   (S2[1, n]^4*S2[2, Infinity])/24 + (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    8 - (3*S2[1, n]^2*S2[2, Infinity]^2)/20 - (31*S2[2, Infinity]^3)/840 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/3 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/6 + 
   (S2[1, n]^3*S2[3, Infinity])/6 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/6 + (5*S2[3, Infinity]^2)/6 + 
   (11*S2[1, n]*S2[5, Infinity])/2 - (Diff[S2[1, n], n, 2]*S2[2, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (S2[1, n]^3*S2[2, 1, n])/6 + (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (S2[3, Infinity]*S2[2, 1, n])/3 - S2[1, n]*S2[4, 1, n] + 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   S2[1, n]*S2[3, 1, 1, n] - S2[4, 1, 1, n] - S2[1, n]*S2[2, 1, 1, 1, n] + 
   S2[2, 2, 1, 1, n]/2 + S2[2, 1, 1, 1, 1, n], 
 S2[-1, -1, -1, -1, -1, -1, n] -> Diff[Half[S2[1, n], n], n, 2]^2/72 - 
   Diff[S2[1, n], n, 1]^3/48 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/36 + Diff[S2[1, n], n, 2]^2/72 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   Diff[S2[1, n], n, 5]/720 + (Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/120 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/12 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/120 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/36 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/36 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + Half[S2[1, n], n]^6/720 - 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/120 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/120 - 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (Half[S2[1, n], n]^5*S2[1, n])/120 + (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/
    16 - (Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/36 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/36 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/36 - (Diff[S2[1, n], n, 1]*S2[1, n]^4)/
    48 + (Half[S2[1, n], n]^2*S2[1, n]^4)/48 - (Half[S2[1, n], n]*S2[1, n]^5)/
    120 + S2[1, n]^6/720 + (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 + 
   (S2[1, n]^4*S2[2, Infinity])/48 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (9*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (9*S2[1, n]^2*S2[2, Infinity]^2)/80 + (61*S2[2, Infinity]^3)/560 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/24 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/8 - 
   (Half[S2[1, n], n]^3*S2[3, Infinity])/24 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/8 + 
   (S2[1, n]^3*S2[3, Infinity])/24 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/8 + (S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   S2[3, Infinity]^2/32 - (3*Half[S2[1, n], n]*S2[5, Infinity])/16 + 
   (3*S2[1, n]*S2[5, Infinity])/16, S2[-1, -1, -1, -1, -1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 2]^2/12 + Diff[Half[S2[1, n], n], n, 5]/60 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/12 + 
   Diff[S2[1, n], n, 2]^2/3 + (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    12 - Diff[S2[1, n], n, 5]/60 + 8*Diff[S2[-4, 1, n], n, 1] + 
   2*Diff[S2[-3, 1, n], n, 2] - Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + Diff[S2[-2, 1, n], n, 3]/3 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 - 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   Diff[S2[-1, 1, n], n, 4]/24 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n] - 
   (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    12 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/3 + 
   4*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n] + 
   Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/6 - 
   Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/4 + 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/3 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/12 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/12 - 
   (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/20 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/30 - 4*Diff[S2[-3, 1, n], n, 1]*S2[1, n] - 
   Diff[S2[-2, 1, n], n, 2]*S2[1, n] + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + Diff[S2[2, 1, n], n, 2]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (2*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 - 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (4*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n] - 
   (Half[S2[1, n], n]^5*S2[1, n])/30 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   Diff[S2[1, n], n, 1]^2*S2[1, n]^2 - (5*Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    12 + Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/6 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/4 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/12 + 
   (2*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/3 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    12 - (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]^4)/3 - (Half[S2[1, n], n]*S2[1, n]^5)/6 + 
   S2[1, n]^6/30 + (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/4 + Diff[S2[-2, 1, n], n, 1]*
    S2[2, Infinity] + (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity] + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]^3*S2[-1, Infinity]*
     S2[2, Infinity])/4 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*
     S2[2, Infinity])/4 - (S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   (4*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] + 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/3 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 - 
   2*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity] + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity] - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (S2[1, n]^4*S2[2, Infinity])/3 + (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/10 - (37*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 + 
   (19*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/20 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/2 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]^2)/4 - 
   (14*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 + 
   (37*S2[1, n]^2*S2[2, Infinity]^2)/20 + (208*S2[2, Infinity]^3)/35 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/48 + 
   (17*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/4 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (7*Half[S2[1, n], n]^3*S2[3, Infinity])/48 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/4 - 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/16 + 
   (17*S2[1, n]^3*S2[3, Infinity])/48 - 
   (55*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (63*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (115*S2[3, Infinity]^2)/32 + (185*Half[S2[1, n], n]*S2[5, Infinity])/32 - 
   (161*S2[1, n]*S2[5, Infinity])/32 + S2[-5, -1, Infinity] + 
   16*S2[-5, 1, n] + 8*Half[S2[1, n], n]*S2[-4, 1, n] - 
   8*S2[1, n]*S2[-4, 1, n] - 2*Diff[S2[1, n], n, 1]*S2[-3, 1, n] + 
   2*Half[S2[1, n], n]^2*S2[-3, 1, n] - 4*Half[S2[1, n], n]*S2[1, n]*
    S2[-3, 1, n] + 2*S2[1, n]^2*S2[-3, 1, n] + 
   2*S2[2, Infinity]*S2[-3, 1, n] + (Diff[Half[S2[1, n], n], n, 2]*
     S2[-2, 1, n])/3 - (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/3 + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-2, 1, n] - Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n] + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n] - (S2[1, n]^3*S2[-2, 1, n])/3 + 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n] - 
   S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] - (S2[3, Infinity]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 + 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/4 + (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (9*S2[2, Infinity]^2*S2[-1, 1, n])/40 - 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/4 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/3 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/3 - Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[2, 1, n] + (Half[S2[1, n], n]^3*S2[2, 1, n])/3 + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] - Half[S2[1, n], n]^2*S2[1, n]*
    S2[2, 1, n] + Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n] - 
   (S2[1, n]^3*S2[2, 1, n])/3 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] - S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - 
   (S2[3, Infinity]*S2[2, 1, n])/2 + 8*Half[S2[1, n], n]*S2[4, 1, n] - 
   8*S2[1, n]*S2[4, 1, n] - Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + S2[2, Infinity]*
    S2[-1, 1, 1, 1, Infinity] + S2[-1, -1, -1, 1, -1, -1, n] + 
   2*S2[-1, -1, 1, -1, -1, -1, n] + 3*S2[-1, 1, -1, -1, -1, -1, n] + 
   4*S2[1, -1, -1, -1, -1, -1, n], S2[-1, -1, -1, -1, 1, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 2]^2/12 - Diff[Half[S2[1, n], n], n, 5]/40 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   Diff[S2[1, n], n, 1]^3/8 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/2 - (5*Diff[S2[1, n], n, 2]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   Diff[S2[1, n], n, 5]/40 - 8*Diff[S2[-4, 1, n], n, 1] - 
   2*Diff[S2[-3, 1, n], n, 2] + Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] - Diff[S2[-2, 1, n], n, 3]/3 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, n], n, 4]/24 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n])/6 + 
   (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/4 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    12 + (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/6 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/12 + (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   4*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n] - 
   Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n] + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/6 + 
   Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n] - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/3 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/12 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/12 + 
   (Half[S2[1, n], n]*Half[S2[4, 1, n], n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    6 - (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/12 + 4*Diff[S2[-3, 1, n], n, 1]*S2[1, n] + 
   Diff[S2[-2, 1, n], n, 2]*S2[1, n] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 - Diff[S2[2, 1, n], n, 2]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 + (17*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (7*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (2*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/3 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (Half[S2[1, n], n]^5*S2[1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (13*Diff[S2[1, n], n, 3]*S2[1, n]^2)/24 - Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 - (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 + 
   (25*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (5*Half[S2[1, n], n]^4*S2[1, n]^2)/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/4 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/2 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (25*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 + 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    12 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 - (5*Half[S2[1, n], n]^2*S2[1, n]^4)/
    12 + (5*Half[S2[1, n], n]*S2[1, n]^5)/24 - S2[1, n]^6/24 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (13*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (17*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 + 
   (4*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/48 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 - (Half[S2[1, n], n]^3*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/4 - (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*
     S2[2, Infinity])/4 + (S2[-1, Infinity]^4*S2[2, Infinity])/24 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/2 - 4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (4*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/3 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (7*S2[1, n]^4*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/8 + 
   (19*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/8 - 
   (5*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/2 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]^2)/4 + 
   (29*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/8 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/2 - 
   (19*S2[1, n]^2*S2[2, Infinity]^2)/8 - (3613*S2[2, Infinity]^3)/560 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/48 - 
   (31*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity] - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (Half[S2[1, n], n]^3*S2[3, Infinity])/48 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/8 - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[3, Infinity] + (31*Diff[S2[1, n], n, 1]*S2[1, n]*
     S2[3, Infinity])/16 - (11*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/
    16 + (21*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/16 - 
   (31*S2[1, n]^3*S2[3, Infinity])/48 + 
   (65*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (75*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (107*S2[3, Infinity]^2)/32 - (153*Half[S2[1, n], n]*S2[5, Infinity])/32 + 
   (123*S2[1, n]*S2[5, Infinity])/32 - S2[-5, -1, Infinity] - 
   16*S2[-5, 1, n] - 8*Half[S2[1, n], n]*S2[-4, 1, n] + 
   8*S2[1, n]*S2[-4, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[-3, 1, n] - 
   2*Half[S2[1, n], n]^2*S2[-3, 1, n] + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[-3, 1, n] - 2*S2[1, n]^2*S2[-3, 1, n] - 
   2*S2[2, Infinity]*S2[-3, 1, n] - (Diff[Half[S2[1, n], n], n, 2]*
     S2[-2, 1, n])/3 + (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n] - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/3 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-2, 1, n] + Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n] - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n] + (S2[1, n]^3*S2[-2, 1, n])/3 - 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n] + 
   S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] + (S2[3, Infinity]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^4*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 + (Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (9*S2[2, Infinity]^2*S2[-1, 1, n])/40 + 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/4 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/3 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/3 + Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[2, 1, n] - (Half[S2[1, n], n]^3*S2[2, 1, n])/3 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n] + Half[S2[1, n], n]^2*S2[1, n]*
    S2[2, 1, n] - Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n] + 
   (S2[1, n]^3*S2[2, 1, n])/3 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] + S2[1, n]*S2[2, Infinity]*S2[2, 1, n] + 
   (S2[3, Infinity]*S2[2, 1, n])/2 - 8*Half[S2[1, n], n]*S2[4, 1, n] + 
   8*S2[1, n]*S2[4, 1, n] + Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] + 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - S2[2, Infinity]*
    S2[-1, 1, 1, 1, Infinity] - 2*S2[-1, -1, -1, 1, -1, -1, n] - 
   3*S2[-1, -1, 1, -1, -1, -1, n] - 4*S2[-1, 1, -1, -1, -1, -1, n] - 
   5*S2[1, -1, -1, -1, -1, -1, n], S2[-1, -1, -1, -1, 1, 1, n] -> 
  (-9*Diff[Half[S2[1, n], n], n, 2]^2)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/18 + 
   Diff[Half[S2[1, n], n], n, 5]/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/6 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/8 + Diff[Half[S2[4, 1, n], n], n, 1]/4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/12 + 
   (31*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/36 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/2 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/12 + 
   (65*Diff[S2[1, n], n, 1]^3)/48 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/2 + Diff[S2[1, n], n, 2]^2/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/36 - 
   (37*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 - 
   Diff[S2[1, n], n, 5]/80 - 4*Diff[S2[-4, 1, n], n, 1] - 
   2*Diff[S2[-3, 1, n], n, 2] - (4*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/3 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 - 
   Diff[S2[-2, 1, n], n, 3]/2 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, n], n, 1]^2/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/4 + 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   Diff[S2[-1, 1, n], n, 4]/12 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   Diff[S2[2, 1, n], n, 3]/2 - 4*Diff[S2[4, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1] - 
   2*Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - Diff[S2[1, -1, -1, -1, -1, n], n, 
    1] - (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 - (25*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 + (11*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    6 - (35*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (37*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 - 
   (31*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (4*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/12 + (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/4 - (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/
    8 - (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - 2*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2 + 
   (31*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 - 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/12 - 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/12 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    24 - (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/3 - 
   Half[S2[2, 1, n], n]^2/16 + (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/
    4 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/6 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/48 + S2[-1, Infinity]^6/144 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 + (13*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 + 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (43*Diff[S2[1, n], n, 4]*S2[1, n])/144 + 
   (79*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 + 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 - Diff[S2[2, 1, n], n, 2]*
    S2[1, n] + (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/18 - 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/6 + (41*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/6 - 
   (151*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 + 
   (13*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (3*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (2*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (5*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/12 - 
   (Half[S2[4, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/6 + 
   (S2[-1, Infinity]^5*S2[1, n])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (61*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/6 + 
   (5*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/24 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/12 - 
   (253*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/48 + 
   (115*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/6 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/12 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 - 
   (23*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   6*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (11*Half[S2[1, n], n]^4*S2[1, n]^2)/48 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/6 + 
   (7*S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/6 - 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]^3)/12 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (41*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (11*Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/2 + 
   (125*Diff[S2[1, n], n, 1]*S2[1, n]^4)/48 - 
   (11*Half[S2[1, n], n]^2*S2[1, n]^4)/8 + (11*Half[S2[1, n], n]*S2[1, n]^5)/
    12 - (11*S2[1, n]^6)/48 - (3*Diff[Half[S2[1, n], n], n, 1]^2*
     S2[2, Infinity])/4 - (41*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/
    72 - (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 + 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 - (51*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (115*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 - 
   (11*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/16 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/24 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, Infinity]*S2[2, Infinity] + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (37*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 + 
   (11*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/6 + 
   (35*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 - (20*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/3 + (5*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/12 - (11*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    24 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (17*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (5*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 - 
   (65*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (77*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 - 
   2*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity] - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 + 
   3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity] + 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (65*S2[1, n]^4*S2[2, Infinity])/48 - 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 + 
   (1031*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/240 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/6 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/8 - 
   (5*S2[-1, Infinity]^2*S2[2, Infinity]^2)/2 + 
   (451*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/120 + 
   (25*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/8 - 
   (1051*S2[1, n]^2*S2[2, Infinity]^2)/240 - (1727*S2[2, Infinity]^3)/560 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 - 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (45*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/8 - 
   (15*S2[1, n]^3*S2[3, Infinity])/16 - 
   (11*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/2 - 
   (381*S2[3, Infinity]^2)/256 + (157*Half[S2[1, n], n]*S2[5, Infinity])/64 + 
   (149*S2[1, n]*S2[5, Infinity])/64 + (17*S2[-5, -1, Infinity])/4 + 
   8*S2[1, n]*S2[-4, 1, n] - (17*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/
    6 + (43*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 + 
   (31*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/6 - 
   (31*S2[1, n]^2*S2[-3, 1, n])/6 - (4*S2[2, Infinity]*S2[-3, 1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 + 
   Diff[S2[1, n], n, 2]*S2[-2, 1, n] - Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/6 + (8*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/3 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (14*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/3 - 
   (10*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/3 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/3 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/6 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (17*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/6 + 
   (S2[3, Infinity]*S2[-2, 1, n])/8 - S2[-2, 1, n]^2 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/36 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/36 - 
   (2*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/6 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/3 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/3 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/3 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (19*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n] + Half[S2[1, n], n]*S2[1, n]^3*
    S2[-1, 1, n] - (S2[1, n]^4*S2[-1, 1, n])/3 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 + 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n] - 
   (173*S2[2, Infinity]^2*S2[-1, 1, n])/120 + 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/8 - 
   (5*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/8 - 
   (7*S2[-3, 1, n]*S2[-1, 1, n])/6 - (2*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/3 + (2*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/3 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/6 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/3 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/6 - (S2[2, Infinity]*S2[-1, 1, n]^2)/3 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 + 
   Diff[S2[1, n], n, 2]*S2[2, 1, n] - Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 - 
   3*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n] + (3*S2[1, n]^3*S2[2, 1, n])/
    2 - (Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 + (S2[3, Infinity]*S2[2, 1, n])/
    8 - 2*S2[-2, 1, n]*S2[2, 1, n] - (Half[S2[1, n], n]*S2[-1, 1, n]*
     S2[2, 1, n])/2 + (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - S2[2, 1, n]^2 + 
   8*S2[1, n]*S2[4, 1, n] - Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   S2[2, Infinity]*S2[-2, 1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/6 - (S2[2, Infinity]*S2[-1, -2, -1, n])/3 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/3 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/3 + 
   S2[3, Infinity]*S2[-1, 1, -1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 - S2[-1, 1, -1, n]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/6 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/6 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/4 + Diff[S2[1, n], n, 1]*
    S2[1, 2, -1, n] - S2[2, Infinity]*S2[1, 2, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/3 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 - 
   (S2[1, n]^2*S2[2, 1, -1, n])/3 - (2*S2[2, Infinity]*S2[2, 1, -1, n])/3 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/3 - Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   S2[2, Infinity]*S2[2, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/3 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    3 - (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 + 
   (2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 - Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + 4*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   4*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (13*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, -1, 1, -1, -1, n] + 3*S2[1, n]*S2[-1, 1, -1, -1, -1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 - 
   (5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   3*S2[1, n]*S2[1, -1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + Half[S2[1, n], n]*
    S2[1, 1, -1, -1, -1, n] - S2[1, n]*S2[1, 1, -1, -1, -1, n] - 
   S2[-1, -1, 1, 1, -1, -1, n] - S2[-1, 1, -1, -1, -1, 1, n] - 
   S2[-1, 1, -1, 1, -1, -1, n] - 2*S2[-1, 1, 1, -1, -1, -1, n] - 
   5*S2[-1, 1, 1, 1, 1, 1, Infinity] + S2[1, -1, -1, -1, 1, -1, n] + 
   S2[1, -1, -1, 1, -1, -1, n] + S2[1, 1, -1, -1, -1, -1, n], 
 S2[-1, -1, -1, 1, -1, 1, n] -> Diff[Half[S2[1, n], n], n, 2]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/18 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 - 
   (31*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/12 - 
   (17*Diff[S2[1, n], n, 1]^3)/24 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + Diff[S2[1, n], n, 2]^2/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/18 + 
   (65*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 - 
   Diff[S2[1, n], n, 5]/80 + (2*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/3 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   Diff[S2[-1, 1, n], n, 1]^2/4 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1] + Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/3 + (13*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/72 - (23*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (13*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/72 + 
   (7*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (2*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     Half[S2[1, n], n])/3 - Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
    Half[S2[1, n], n] + (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/6 + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/3 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/6 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (23*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (43*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/3 + 
   (29*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/12 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/24 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^4)/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/3 + 
   (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/24 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/8 + Half[S2[2, 1, n], n]^2/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/12 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 - S2[-1, Infinity]^6/120 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    2 - (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/72 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/4 + 
   (19*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (13*Diff[S2[1, n], n, 4]*S2[1, n])/72 - 
   (31*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/6 - 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 + Diff[S2[2, 1, n], n, 2]*
    S2[1, n] - (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/6 - 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/3 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (29*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/18 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/6 - (95*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    12 + (179*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/72 - 
   (20*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/6 - 
   Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (29*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 + 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/2 + 
   (10*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/3 - 
   (23*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (23*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (Half[S2[4, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 - 
   (S2[-1, Infinity]^5*S2[1, n])/120 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (77*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/6 - 
   (35*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/12 + 
   (133*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/24 - 
   (253*Diff[S2[1, n], n, 3]*S2[1, n]^2)/144 + 5*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (47*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/12 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (53*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 - 
   (21*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/3 - 
   (37*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - (5*S2[-1, Infinity]^4*S2[1, n]^2)/
    24 - (47*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/24 + 
   (13*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (4*Half[S2[1, n], n]^3*S2[1, n]^3)/3 + 
   (17*Half[S2[2, 1, n], n]*S2[1, n]^3)/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/2 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^4)/3 + 2*Half[S2[1, n], n]^2*
    S2[1, n]^4 - (4*Half[S2[1, n], n]*S2[1, n]^5)/3 + S2[1, n]^6/3 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 + 
   (4*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/9 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/8 - 
   (47*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    24 + (25*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/12 - 
   (67*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (4*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 + 
   Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity] - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (41*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/6 - 
   (19*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/6 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/3 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
    S2[2, Infinity] - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (2*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/12 + 
   (79*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (41*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 + (109*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]*S2[2, Infinity])/12 - (11*Half[S2[1, n], n]^3*S2[1, n]*
     S2[2, Infinity])/12 + (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    12 - Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] + (29*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (29*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
    S2[2, Infinity] - (2*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   (71*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (185*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (55*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (53*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (27*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (23*S2[1, n]^4*S2[2, Infinity])/12 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/40 - 
   (91*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/30 + 
   (487*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/240 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (197*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (122*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/15 - 
   (113*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (1681*S2[1, n]^2*S2[2, Infinity]^2)/240 + (1809*S2[2, Infinity]^3)/560 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 + 
   (29*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/4 + 
   (37*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (5*Half[S2[1, n], n]^3*S2[3, Infinity])/96 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/4 - 
   (43*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 - 
   (9*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (71*S2[1, n]^3*S2[3, Infinity])/96 - 
   (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   4*S2[1, n]*S2[2, Infinity]*S2[3, Infinity] + (469*S2[3, Infinity]^2)/256 - 
   (93*Half[S2[1, n], n]*S2[5, Infinity])/64 - (213*S2[1, n]*S2[5, Infinity])/
    64 - 6*S2[-5, -1, Infinity] - 8*S2[1, n]*S2[-4, 1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/3 - 
   (29*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/4 - 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/3 + 
   (91*S2[1, n]^2*S2[-3, 1, n])/12 + (4*S2[2, Infinity]*S2[-3, 1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] + (4*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/3 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/6 + (Half[S2[1, n], n]^3*S2[-2, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[-2, 1, n])/2 - 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 + 
   (29*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (29*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 + 
   (49*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 - 
   (23*S2[1, n]^3*S2[-2, 1, n])/6 + (4*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/3 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (10*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 - 
   (S2[3, Infinity]*S2[-2, 1, n])/8 + S2[-2, 1, n]^2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/36 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/36 + 
   (4*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (13*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/3 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/12 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 + (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/6 - 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/2 + 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 + 
   (S2[1, n]^4*S2[-1, 1, n])/2 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (13*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (7*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (11*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (179*S2[2, Infinity]^2*S2[-1, 1, n])/120 - 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (9*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (17*S2[-3, 1, n]*S2[-1, 1, n])/6 + 
   (7*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/3 - 
   (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/12 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/3 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/3 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/3 - (S2[2, Infinity]*S2[-1, 1, n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/2 - (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/
    4 + (Half[S2[1, n], n]^3*S2[2, 1, n])/4 - 
   (Half[S2[2, 1, n], n]*S2[2, 1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 + 
   (15*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (23*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (11*S2[1, n]^3*S2[2, 1, n])/4 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   2*S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - (S2[3, Infinity]*S2[2, 1, n])/8 + 
   2*S2[-2, 1, n]*S2[2, 1, n] + (5*Half[S2[1, n], n]*S2[-1, 1, n]*
     S2[2, 1, n])/2 - (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 
   S2[2, 1, n]^2 - 8*S2[1, n]*S2[4, 1, n] + Diff[S2[1, n], n, 1]*
    S2[-2, 1, -1, n] - Half[S2[1, n], n]^2*S2[-2, 1, -1, n] + 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] - 
   S2[1, n]^2*S2[-2, 1, -1, n] - S2[2, Infinity]*S2[-2, 1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/3 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/3 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    3 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/6 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/3 + 
   (2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/3 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 - 
   (2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/12 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/6 - S2[-1, 1, -1, n]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/3 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/3 + Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, 1, n] - (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/
    3 - Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/3 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/2 - Diff[S2[1, n], n, 1]*
    S2[1, 2, -1, n] + Half[S2[1, n], n]^2*S2[1, 2, -1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] + 
   S2[1, n]^2*S2[1, 2, -1, n] + S2[2, Infinity]*S2[1, 2, -1, n] - 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/3 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/6 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/2 - 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/6 + (2*S2[2, Infinity]*S2[2, 1, -1, n])/3 - 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/3 + Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 
   Half[S2[1, n], n]^2*S2[2, 1, 1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] - 
   S2[2, Infinity]*S2[2, 1, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, 1, -1, -1, n])/3 - (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/
    3 - (2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/3 + 
   (2*S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 + 
   (2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 - 2*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + 2*Half[S2[1, n], n]^2*
    S2[-1, 1, 1, 1, Infinity] - 7*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, Infinity] + 5*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   2*S2[1, n]*S2[-1, -1, 1, -1, -1, n] - 
   3*S2[1, n]*S2[-1, 1, -1, -1, -1, n] - Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   4*S2[1, n]*S2[1, -1, -1, -1, -1, n] - Half[S2[1, n], n]*
    S2[1, -1, -1, 1, -1, n] + S2[1, n]*S2[1, -1, -1, 1, -1, n] - 
   Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n] + 
   S2[1, n]*S2[1, -1, 1, -1, -1, n] - 2*Half[S2[1, n], n]*
    S2[1, 1, -1, -1, -1, n] + 2*S2[1, n]*S2[1, 1, -1, -1, -1, n] + 
   2*S2[-1, -1, 1, 1, -1, -1, n] + S2[-1, 1, -1, 1, -1, -1, n] + 
   2*S2[-1, 1, 1, -1, -1, -1, n] + 6*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   S2[1, -1, -1, -1, 1, -1, n], S2[-1, -1, -1, 1, 1, -1, n] -> 
  (7*Diff[Half[S2[1, n], n], n, 2]^2)/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/18 - 
   Diff[Half[S2[1, n], n], n, 5]/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/8 - Diff[Half[S2[4, 1, n], n], n, 1]/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 - 
   (43*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/2 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/6 - 
   (23*Diff[S2[1, n], n, 1]^3)/24 - (13*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/24 - Diff[S2[1, n], n, 2]^2/6 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/36 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/144 + 
   Diff[S2[1, n], n, 5]/240 + 4*Diff[S2[-4, 1, n], n, 1] + 
   2*Diff[S2[-3, 1, n], n, 2] + (2*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/3 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   Diff[S2[-2, 1, n], n, 3]/2 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/6 - 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   Diff[S2[-1, 1, n], n, 4]/12 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   Diff[S2[2, 1, n], n, 3]/2 + 4*Diff[S2[4, 1, n], n, 1] + 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1] + 
   2*Diff[S2[-1, 1, -1, -1, -1, n], n, 1] + 
   2*Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/24 + (11*Diff[Half[S2[1, n], n], n, 4]*
     Half[S2[1, n], n])/144 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 + (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/
    12 - (23*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/144 + 
   (17*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/12 + 
   (2*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    12 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/12 - 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*Half[S2[1, n], n])/6 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/3 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/24 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/6 - 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/24 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/6 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/12 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^3)/12 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/
    24 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/24 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/24 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/16 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/12 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/240 - S2[-1, Infinity]^6/180 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    24 - (11*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 - 
   (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (35*Diff[S2[1, n], n, 4]*S2[1, n])/144 - 
   (17*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 - 
   (2*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/8 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/18 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/6 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/6 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/36 + 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (19*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/24 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (13*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/6 - 
   (7*S2[-1, Infinity]^5*S2[1, n])/240 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/18 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/3 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/24 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/3 + 
   (2*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/3 - 
   (11*Diff[S2[1, n], n, 3]*S2[1, n]^2)/72 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (19*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/6 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/24 + 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/3 - 
   (29*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (Half[S2[1, n], n]^4*S2[1, n]^2)/12 + 
   (17*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    12 + (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/8 - 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 + (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/
    4 - (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/3 - (7*Half[S2[2, 1, n], n]*S2[1, n]^3)/
    24 + (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/6 + 
   (17*Diff[S2[1, n], n, 1]*S2[1, n]^4)/12 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    2 + (Half[S2[1, n], n]*S2[1, n]^5)/3 - S2[1, n]^6/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/72 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/8 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] + 
   (15*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (77*Diff[S2[1, n], n, 3]*S2[2, Infinity])/144 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/6 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (11*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] - 
   (Half[S2[1, n], n]^4*S2[2, Infinity])/12 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (7*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (23*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    3 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    12 + (5*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/12 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    8 + (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    8 + (19*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    8 + (7*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 - 
   Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity] - 
   (35*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (13*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 + 
   (17*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (5*S2[1, n]^4*S2[2, Infinity])/12 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/40 - 
   (403*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/240 - 
   (197*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/120 - 
   (47*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (33*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (59*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/15 + 
   (47*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (55*S2[1, n]^2*S2[2, Infinity]^2)/24 + (51*S2[2, Infinity]^3)/40 - 
   (17*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/48 + 
   (37*Diff[S2[1, n], n, 2]*S2[3, Infinity])/96 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (7*Half[S2[1, n], n]^3*S2[3, Infinity])/96 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (23*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 - 
   (35*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (43*S2[1, n]^3*S2[3, Infinity])/96 + 
   (23*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (23*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (23*S2[3, Infinity]^2)/32 - (467*Half[S2[1, n], n]*S2[5, Infinity])/64 + 
   (467*S2[1, n]*S2[5, Infinity])/64 - (11*S2[-5, -1, Infinity])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/6 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/4 + 
   (19*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/6 - 
   (29*S2[1, n]^2*S2[-3, 1, n])/12 - (5*S2[2, Infinity]*S2[-3, 1, n])/6 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 + 
   (19*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/6 - 
   (29*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 + 
   (13*S2[1, n]^3*S2[-2, 1, n])/6 - (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/6 + (5*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/9 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n] + 
   Diff[S2[1, n], n, 1]^2*S2[-1, 1, n] - (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/
    9 - (2*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/12 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/12 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 - (17*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/6 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[-1, 1, n])/6 - 
   (5*Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 + 
   (4*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 - 
   (S2[1, n]^4*S2[-1, 1, n])/6 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/3 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 + 
   (5*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[2, Infinity]^2*S2[-1, 1, n])/30 - 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 - (5*S2[-3, 1, n]*S2[-1, 1, n])/
    3 - (5*Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n])/3 + 
   (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/3 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/12 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, n]^2)/6 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/3 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/6 + (5*S2[2, Infinity]*S2[-1, 1, n]^2)/12 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (5*S2[1, n]^3*S2[2, 1, n])/4 - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[2, 1, n] + S2[1, n]*S2[2, Infinity]*S2[2, 1, n] - 
   2*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n] + 
   2*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n] + Half[S2[1, n], n]^2*
    S2[-2, 1, -1, n] - 2*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] + 
   S2[1, n]^2*S2[-2, 1, -1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/6 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    6 + (S2[-1, 1, n]*S2[-1, -2, -1, n])/3 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/3 + 
   (2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/3 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/3 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/12 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/
    12 - S2[3, Infinity]*S2[-1, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/3 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/3 + S2[-1, 1, -1, n]^2/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/6 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-1, 1, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/6 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/4 - Half[S2[1, n], n]^2*
    S2[1, 2, -1, n] + 2*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] - 
   S2[1, n]^2*S2[1, 2, -1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, 1, -1, n])/3 - (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/3 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/3 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/6 + (S2[2, Infinity]*S2[2, 1, -1, n])/3 + 
   (2*S2[-1, 1, n]*S2[2, 1, -1, n])/3 + Half[S2[1, n], n]^2*S2[2, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] - 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, -1, n])/3 + 
   (2*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/3 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n])/6 - 
   (5*S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 - 
   (4*S2[-1, 1, n]*S2[-1, 1, -1, -1, n])/3 + Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - (3*Diff[S2[1, n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/2 - 2*Half[S2[1, n], n]^2*
    S2[-1, 1, 1, 1, Infinity] + 4*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, Infinity] - 2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   2*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   (7*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/2 + 
   Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n] - 
   S2[1, n]*S2[1, -1, -1, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, -1, 1, -1, -1, n])/2 - 
   (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + Half[S2[1, n], n]*
    S2[1, 1, -1, -1, -1, n] - S2[1, n]*S2[1, 1, -1, -1, -1, n] + 
   S2[-1, 1, -1, -1, -1, 1, n] + S2[-1, 1, -1, 1, -1, -1, n] + 
   S2[-1, 1, 1, -1, -1, -1, n] + 4*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, 1, -1, -1, -1, n], S2[-1, -1, -1, 1, 1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/12 + Diff[Half[S2[1, n], n], n, 2]^2/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 5])/180 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/36 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/6 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/12 - 
   (3*Diff[S2[1, n], n, 1]^3)/4 - (31*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/72 + (11*Diff[S2[1, n], n, 2]^2)/36 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (47*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/72 - 
   (7*Diff[S2[1, n], n, 5])/180 + (2*Diff[S2[-3, 1, n], n, 2])/3 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1] - 
   (4*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   Diff[S2[-2, 1, n], n, 3]/3 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   Diff[S2[-1, 1, n], n, 4]/12 + Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[2, 1, n], n, 1] - Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/2 + Diff[S2[-1, 1, 1, -1, -1, n], n, 1] - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1] - Diff[S2[1, 1, -1, -1, -1, n], n, 
    1] + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 + (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    8 - (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/8 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    24 - (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/2 + 3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
    Half[S2[1, n], n] - (7*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 - (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    12 + (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/4 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    12 + Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/3 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/4 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/36 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/8 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/60 - S2[-1, Infinity]^6/120 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    24 - (35*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/144 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 - 
   (49*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (59*Diff[S2[1, n], n, 4]*S2[1, n])/144 - 
   (17*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/12 - 
   (7*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 + 
   (4*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/3 - 
   (3*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/8 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/6 - 
   (5*Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/6 - 
   (11*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/24 + 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] - (19*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (7*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/12 - 
   (5*Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (17*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/3 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/16 + 
   (3*S2[-1, Infinity]^5*S2[1, n])/80 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/6 + 
   (35*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 - 
   (7*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/24 - 
   (43*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/12 + 
   (47*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/12 - 
   (23*Diff[S2[1, n], n, 3]*S2[1, n]^2)/18 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/3 + 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/6 - Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n]^2 + (25*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[1, n]^2)/24 - (19*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/
    6 - (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/3 - 
   (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (5*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/24 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/72 + 
   (35*Diff[S2[1, n], n, 2]*S2[1, n]^3)/18 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (5*Half[S2[1, n], n]^3*S2[1, n]^3)/36 + 
   (5*Half[S2[2, 1, n], n]*S2[1, n]^3)/24 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/12 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/3 + (5*Half[S2[1, n], n]^2*S2[1, n]^4)/
    12 - (5*Half[S2[1, n], n]*S2[1, n]^5)/12 + (5*S2[1, n]^6)/36 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/72 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/6 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/6 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (23*Diff[S2[1, n], n, 3]*S2[2, Infinity])/288 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/12 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (31*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (19*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/12 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/6 - 
   (7*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/48 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (2*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/16 - 
   (49*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/6 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/6 + (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/
    4 + (13*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    8 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/
    4 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (73*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 + 
   (29*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/12 - 
   (19*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (17*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 + 
   (7*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (7*S2[1, n]^4*S2[2, Infinity])/6 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 + 
   (59*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/120 + 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/24 + 
   (103*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (63*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (227*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 - 
   (53*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (47*S2[1, n]^2*S2[2, Infinity]^2)/48 + (41*S2[2, Infinity]^3)/210 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/36 + 
   (143*Diff[S2[1, n], n, 2]*S2[3, Infinity])/288 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (35*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (2*Half[S2[1, n], n]^3*S2[3, Infinity])/9 + 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (31*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/12 - 
   (197*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/96 + 
   (383*S2[1, n]^3*S2[3, Infinity])/288 + 
   (23*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (61*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (79*S2[3, Infinity]^2)/96 + (31*Half[S2[1, n], n]*S2[5, Infinity])/32 - 
   (279*S2[1, n]*S2[5, Infinity])/64 - (3*S2[-5, -1, Infinity])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/6 + (5*S2[1, n]^2*S2[-3, 1, n])/6 + 
   (11*S2[2, Infinity]*S2[-3, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/6 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/6 + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/6 - 
   (5*S2[1, n]^3*S2[-2, 1, n])/6 + (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/12 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/12 - 
   (7*S2[3, Infinity]*S2[-2, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/16 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/3 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 + 
   (5*S2[-1, Infinity]^4*S2[-1, 1, n])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (4*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    3 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/3 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/3 - 
   (2*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/3 + 
   (S2[1, n]^4*S2[-1, 1, n])/3 + (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/6 + (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/
    12 - (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/
    8 - (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (23*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (137*S2[2, Infinity]^2*S2[-1, 1, n])/60 - 
   (19*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (33*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/4 - (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 + (S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, n]^2 + S2[1, n]^2*S2[-1, 1, n]^2 + 
   (3*S2[2, Infinity]*S2[-1, 1, n]^2)/8 + (5*S2[-1, 1, n]^3)/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[2, 1, n] - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
     S2[2, 1, n])/4 + (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n] - S2[1, n]^3*S2[2, 1, n] + 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (11*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (7*S2[3, Infinity]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (S2[2, Infinity]*S2[-2, 1, -1, n])/2 + S2[-1, 1, n]*S2[-2, 1, -1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/6 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/6 - (7*S2[2, Infinity]*S2[-1, -2, -1, n])/
    24 - (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/3 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/12 + 
   (5*S2[1, n]^3*S2[-1, 1, -1, n])/12 - 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/3 - 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (3*S2[1, n]^3*S2[-1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - S2[2, 1, n]*S2[-1, 1, 1, n] + 
   (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - (S2[2, Infinity]*S2[1, 2, -1, n])/
    2 - S2[-1, 1, n]*S2[1, 2, -1, n] + (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    3 - (S2[1, n]^2*S2[2, 1, -1, n])/3 - (7*S2[2, Infinity]*S2[2, 1, -1, n])/
    12 - (S2[-1, 1, n]*S2[2, 1, -1, n])/2 + (S2[2, Infinity]*S2[2, 1, 1, n])/
    2 + S2[-1, 1, n]*S2[2, 1, 1, n] - 
   (2*Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/3 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/6 + 
   (2*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/3 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n])/2 + Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] - (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + Half[S2[1, n], n]^2*
    S2[-1, 1, 1, 1, Infinity] - (3*Half[S2[1, n], n]*S2[1, n]*
     S2[-1, 1, 1, 1, Infinity])/2 + (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/
    2 - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n] + 
   S2[1, n]*S2[-1, 1, 1, 1, -1, n] + 2*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 + S2[1, n]*S2[1, -1, -1, 1, -1, n] + (S2[1, n]*S2[1, -1, 1, -1, -1, n])/
    2 + S2[1, n]*S2[1, 1, -1, -1, -1, n] + Half[S2[1, n], n]*
    S2[1, 1, -1, 1, -1, n] - S2[1, n]*S2[1, 1, -1, 1, -1, n] + 
   Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] - 
   S2[1, n]*S2[1, 1, 1, -1, -1, n] - S2[-1, 1, -1, -1, 1, 1, n] + 
   S2[-1, 1, 1, 1, -1, -1, n] + 6*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   S2[1, -1, -1, 1, 1, -1, n] + S2[1, -1, 1, 1, -1, -1, n] - 
   S2[1, 1, -1, -1, 1, -1, n] - S2[1, 1, 1, -1, -1, -1, n], 
 S2[-1, -1, 1, -1, -1, 1, n] -> Diff[Half[S2[1, n], n], n, 2]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/8 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 - 
   (9*Diff[S2[1, n], n, 1]^3)/8 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 + Diff[S2[1, n], n, 2]^2/8 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   Diff[S2[1, n], n, 5]/240 - Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   Diff[S2[-1, 1, n], n, 1]^2/4 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 - (11*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/4 - (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    8 + (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 + 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/8 + Half[S2[2, 1, n], n]^2/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (2*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] + (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n] + 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/6 - 
   (S2[-1, Infinity]^5*S2[1, n])/120 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/24 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (13*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 - Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 - (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    16 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/8 - 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 + Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3 - 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 - 
   (Half[S2[2, 1, n], n]*S2[1, n]^3)/8 + Diff[S2[1, n], n, 1]*S2[1, n]^4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 + 2*Diff[S2[1, n], n, 1]^2*S2[2, Infinity] - 
   (17*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] + 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (5*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (21*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
    S2[2, Infinity] + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (15*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/8 - 
   (199*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (31*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/20 - 
   (4*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/5 + 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]^2)/4 + 
   (113*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (7*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (51*S2[1, n]^2*S2[2, Infinity]^2)/40 + (65*S2[2, Infinity]^3)/28 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (7*Half[S2[1, n], n]^3*S2[3, Infinity])/32 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (33*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 - 
   (45*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (19*S2[1, n]^3*S2[3, Infinity])/32 + 
   (27*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (41*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (139*S2[3, Infinity]^2)/256 - (125*Half[S2[1, n], n]*S2[5, Infinity])/32 + 
   (125*S2[1, n]*S2[5, Infinity])/32 - (7*S2[-5, -1, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/4 + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-3, 1, n] - (5*S2[1, n]^2*S2[-3, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-2, 1, n] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/2 - (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    2 + Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (3*S2[1, n]^3*S2[-2, 1, n])/2 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-2, 1, n])/2 - S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] + 
   (7*S2[3, Infinity]*S2[-2, 1, n])/8 + S2[-2, 1, n]^2 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/12 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (7*S2[2, Infinity]^2*S2[-1, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 - (S2[-3, 1, n]*S2[-1, 1, n])/
    2 - Half[S2[1, n], n]*S2[-2, 1, n]*S2[-1, 1, n] + 
   S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (3*S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[2, 1, n] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/4 - (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    2 + Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (3*S2[1, n]^3*S2[2, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + (7*S2[3, Infinity]*S2[2, 1, n])/
    8 + 2*S2[-2, 1, n]*S2[2, 1, n] - (3*Half[S2[1, n], n]*S2[-1, 1, n]*
     S2[2, 1, n])/2 + (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 + 
   S2[2, 1, n]^2 + Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   Half[S2[1, n], n]^2*S2[-2, 1, -1, n] - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] + S2[1, n]^2*S2[-2, 1, -1, n] - 
   S2[2, Infinity]*S2[-2, 1, -1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/4 + (S2[1, n]^2*S2[-1, -2, -1, n])/
    4 + (S2[2, Infinity]*S2[-1, -2, -1, n])/4 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 + Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, -1, n] - Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, -1, n] - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, -1, n] + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, -1, n] - (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n] - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/2 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/2 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 - 
   (3*S2[3, Infinity]*S2[-1, 1, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + (3*S2[-1, 1, -1, n]^2)/4 - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - Half[S2[1, n], n]^2*
    S2[1, 2, -1, n] + 2*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] - 
   S2[1, n]^2*S2[1, 2, -1, n] + S2[2, Infinity]*S2[1, 2, -1, n] - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/2 + (S2[1, n]^2*S2[2, 1, -1, n])/2 + 
   (S2[2, Infinity]*S2[2, 1, -1, n])/2 + S2[-1, 1, n]*S2[2, 1, -1, n] + 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + Half[S2[1, n], n]^2*S2[2, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] + S2[1, n]^2*S2[2, 1, 1, n] - 
   S2[2, Infinity]*S2[2, 1, 1, n] - Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, -1, -1, n] + Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n] + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] - 
   S2[1, n]^2*S2[-1, 1, -1, -1, n] - 2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n] - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (5*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   4*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   4*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, -1, 1, -1, -1, n] - S2[1, n]*S2[-1, 1, -1, -1, -1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, -1, -1, 1, n] - 
   S2[1, n]*S2[-1, 1, -1, -1, 1, n] - Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   Half[S2[1, n], n]*S2[1, -1, -1, 1, -1, n] - 
   S2[1, n]*S2[1, -1, -1, 1, -1, n] + S2[-1, 1, -1, -1, -1, 1, n] + 
   S2[-1, 1, -1, 1, -1, -1, n] + 2*S2[-1, 1, 1, -1, -1, -1, n] - 
   S2[1, -1, -1, 1, -1, -1, n] + S2[1, -1, 1, -1, -1, -1, n], 
 S2[-1, -1, 1, -1, 1, -1, n] -> -Diff[Half[S2[1, n], n], n, 2]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 + 
   (9*Diff[S2[1, n], n, 1]^3)/8 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - Diff[S2[1, n], n, 2]^2/8 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   Diff[S2[1, n], n, 5]/240 + Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, n], n, 1]^2/4 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, -1, 1, -1, -1, n], n, 1] - Diff[S2[-1, 1, -1, -1, -1, n], n, 
    1] + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/4 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 - (7*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (17*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/48 + 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (7*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^3)/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (Half[S2[1, n], n]^3*Half[S2[2, 1, n], n])/8 - Half[S2[2, 1, n], n]^2/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, 1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/60 + S2[-1, Infinity]^6/120 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (2*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] - (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (5*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n] - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (3*Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 + 
   (S2[-1, Infinity]^5*S2[1, n])/60 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/24 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (13*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (5*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 - 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    12 - (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/8 + 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 - Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3 + 
   3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (Half[S2[2, 1, n], n]*S2[1, n]^3)/8 - Diff[S2[1, n], n, 1]*S2[1, n]^4 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/8 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 - (9*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (19*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - Diff[S2[-1, 1, n], n, 2]*
    S2[2, Infinity] + (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^3*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (9*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (21*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - 2*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
    S2[2, Infinity] + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (33*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (15*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/8 + 
   (191*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (71*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/40 + 
   (49*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 - 
   (197*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (131*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (11*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (3*S2[1, n]^2*S2[2, Infinity]^2)/2 - (739*S2[2, Infinity]^3)/280 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (7*Half[S2[1, n], n]^3*S2[3, Infinity])/32 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (35*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (33*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (45*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (19*S2[1, n]^3*S2[3, Infinity])/32 - 
   (35*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (49*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (365*S2[3, Infinity]^2)/256 + (283*Half[S2[1, n], n]*S2[5, Infinity])/64 - 
   (283*S2[1, n]*S2[5, Infinity])/64 + 6*S2[-5, -1, Infinity] + 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-3, 1, n])/4 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-3, 1, n] + (5*S2[1, n]^2*S2[-3, 1, n])/4 - 
   (S2[2, Infinity]*S2[-3, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 - Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] + Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-2, 1, n] + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 + 
   (Half[S2[1, n], n]^3*S2[-2, 1, n])/2 + (Half[S2[2, 1, n], n]*S2[-2, 1, n])/
    2 - Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (3*S2[1, n]^3*S2[-2, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-2, 1, n])/2 + S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] + 
   (S2[3, Infinity]*S2[-2, 1, n])/8 - S2[-2, 1, n]^2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/4 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 + 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   2*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (9*S2[2, Infinity]^2*S2[-1, 1, n])/8 + 
   (7*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (7*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (S2[-3, 1, n]*S2[-1, 1, n])/2 + Half[S2[1, n], n]*S2[-2, 1, n]*
    S2[-1, 1, n] - S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n] + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 - 
   (3*S2[2, Infinity]*S2[-1, 1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[2, 1, n] + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]^3*S2[2, 1, n])/4 + (Half[S2[2, 1, n], n]*S2[2, 1, n])/
    2 - Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 - 
   (3*S2[1, n]^3*S2[2, 1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/2 - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/2 + (S2[3, Infinity]*S2[2, 1, n])/
    8 - 2*S2[-2, 1, n]*S2[2, 1, n] + (3*Half[S2[1, n], n]*S2[-1, 1, n]*
     S2[2, 1, n])/2 - (3*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/2 - 
   S2[2, 1, n]^2 - Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   Half[S2[1, n], n]^2*S2[-2, 1, -1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-2, 1, -1, n] - S2[1, n]^2*S2[-2, 1, -1, n] + 
   S2[2, Infinity]*S2[-2, 1, -1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[-1, -2, -1, n])/4 - (S2[1, n]^2*S2[-1, -2, -1, n])/
    4 - (S2[2, Infinity]*S2[-1, -2, -1, n])/2 - 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, -1, n] + Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, -1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, -1, n] - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, -1, n] + (Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n] + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/2 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   S2[3, Infinity]*S2[-1, 1, -1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, -1, n])/2 - (3*S2[-1, 1, -1, n]^2)/4 + 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + Half[S2[1, n], n]^2*
    S2[1, 2, -1, n] - 2*Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] + 
   S2[1, n]^2*S2[1, 2, -1, n] - S2[2, Infinity]*S2[1, 2, -1, n] + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, 1, -1, n])/2 - (S2[1, n]^2*S2[2, 1, -1, n])/2 - 
   S2[2, Infinity]*S2[2, 1, -1, n] - S2[-1, 1, n]*S2[2, 1, -1, n] - 
   Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - Half[S2[1, n], n]^2*S2[2, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] + 
   S2[2, Infinity]*S2[2, 1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, -1, -1, n] - Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n] - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, -1, n] + 
   S2[1, n]^2*S2[-1, 1, -1, -1, n] + (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/
    2 + 2*S2[-1, 1, n]*S2[-1, 1, -1, -1, n] + 2*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + 3*Half[S2[1, n], n]^2*
    S2[-1, 1, 1, 1, Infinity] - 5*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, Infinity] + 2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] - Half[S2[1, n], n]*
    S2[-1, 1, -1, -1, 1, n] + S2[1, n]*S2[-1, 1, -1, -1, 1, n] + 
   2*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - Half[S2[1, n], n]*
    S2[1, -1, -1, 1, -1, n] + S2[1, n]*S2[1, -1, -1, 1, -1, n] - 
   2*S2[-1, -1, 1, 1, -1, -1, n] - S2[-1, 1, -1, -1, -1, 1, n] - 
   2*S2[-1, 1, -1, 1, -1, -1, n] - 2*S2[-1, 1, 1, -1, -1, -1, n] - 
   6*S2[-1, 1, 1, 1, 1, 1, Infinity] - S2[1, -1, 1, -1, -1, -1, n], 
 S2[-1, -1, 1, -1, 1, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/4 - 
   Diff[Half[S2[1, n], n], n, 5]/90 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/8 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 - 
   (23*Diff[S2[1, n], n, 1]^3)/24 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/16 + (5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    48 + Diff[S2[1, n], n, 5]/90 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-2, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, n], n, 1]^2/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/8 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, -1, -1, n], n, 2]/2 - 
   2*Diff[S2[-1, 1, 1, -1, -1, n], n, 1] + Diff[S2[1, -1, -1, 1, -1, n], n, 
    1] - Diff[S2[1, -1, 1, -1, -1, n], n, 1] - Diff[Half[S2[1, n], n], n, 1]*
    Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/16 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 - (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 + (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/6 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/4 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/16 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/15 + S2[-1, Infinity]^6/90 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    4 - (5*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/48 - (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/
    4 - (Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/8 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 + Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + Diff[S2[-1, 1, -1, -1, n], n, 1]*
    S2[1, n] + (9*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/
    8 + (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] + (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/16 - 
   (3*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (13*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/8 + 
   Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (7*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 - 
   (13*S2[-1, Infinity]^5*S2[1, n])/120 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/6 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 - 
   (5*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - Diff[S2[-1, 1, -1, n], n, 1]*
    S2[1, n]^2 + 2*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    12 + (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 - Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]^3 + (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[1, n]^3)/2 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/
    2 + (Half[S2[1, n], n]^3*S2[1, n]^3)/4 - 
   (Half[S2[2, 1, n], n]*S2[1, n]^3)/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - (3*Half[S2[1, n], n]^2*S2[1, n]^4)/
    4 + (3*Half[S2[1, n], n]*S2[1, n]^5)/4 - S2[1, n]^6/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    4 + (43*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (41*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (21*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/2 - (27*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/3 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] - 4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] + (3*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (7*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (45*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (27*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (4*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (39*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (57*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity] + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (15*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (17*S2[1, n]^4*S2[2, Infinity])/8 + 
   (109*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/40 - 
   (331*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/4 - 
   (151*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (149*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (71*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (17*S2[1, n]^2*S2[2, Infinity]^2)/40 + (347*S2[2, Infinity]^3)/140 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/16 - 
   (7*Diff[S2[1, n], n, 2]*S2[3, Infinity])/8 + 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 - 
   (99*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (Half[S2[1, n], n]^3*S2[3, Infinity])/2 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (157*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (39*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (165*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (55*S2[1, n]^3*S2[3, Infinity])/16 - 
   (91*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (105*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 - 
   (95*S2[3, Infinity]^2)/128 - (211*Half[S2[1, n], n]*S2[5, Infinity])/128 + 
   (1079*S2[1, n]*S2[5, Infinity])/128 + (11*S2[-5, -1, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (S2[1, n]^2*S2[-3, 1, n])/2 + (7*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   Diff[S2[-1, 1, n], n, 1]*S2[-2, 1, n] + Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[-2, 1, n] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-2, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (7*S2[3, Infinity]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/8 + 
   Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n] + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + 
   (29*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (35*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (19*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n] - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 - 
   (11*S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 + 
   2*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n] - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n] - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 - 
   (3*S2[1, n]^4*S2[-1, 1, n])/4 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (17*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (15*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (33*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (129*S2[2, Infinity]^2*S2[-1, 1, n])/20 + 
   (33*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (89*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (9*S2[-3, 1, n]*S2[-1, 1, n])/4 + (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 - (5*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/4 - 
   (9*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (9*S2[1, n]^2*S2[-1, 1, n]^2)/4 - (5*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (3*S2[-1, 1, n]^3)/4 + Diff[S2[-1, 1, n], n, 1]*S2[2, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (3*S2[1, n]^3*S2[2, 1, n])/2 - (11*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + 3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] + 
   (19*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (7*S2[3, Infinity]*S2[2, 1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 
   (5*S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    S2[-2, 1, -1, n] + Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] - 
   S2[1, n]^2*S2[-2, 1, -1, n] - (3*S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 
   3*S2[-1, 1, n]*S2[-2, 1, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/2 + (5*S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 + (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (3*S2[1, n]^3*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 - 
   Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   3*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   6*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   3*S2[1, n]^3*S2[-1, 1, 1, n] - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (13*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 3*S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   3*S2[2, 1, n]*S2[-1, 1, 1, n] - (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] + S2[1, n]^2*S2[1, 2, -1, n] + 
   (3*S2[2, Infinity]*S2[1, 2, -1, n])/2 + 3*S2[-1, 1, n]*S2[1, 2, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/2 - 
   Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   S2[1, n]^2*S2[2, 1, -1, n] + (5*S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (3*S2[-1, 1, n]*S2[2, 1, -1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] - 
   (3*S2[2, Infinity]*S2[2, 1, 1, n])/2 - 3*S2[-1, 1, n]*S2[2, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n] - 
   S2[2, Infinity]*S2[-1, 1, -1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n] + 
   S2[1, n]^2*S2[-1, 1, -1, 1, n] + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n])/2 - 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 4*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - 6*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - (3*Half[S2[1, n], n]^2*
     S2[-1, 1, 1, 1, Infinity])/2 + 2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 
   11*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   S2[1, n]*S2[-1, 1, -1, -1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + 3*S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 8*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + 13*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, n]*S2[1, -1, -1, 1, -1, n] - 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (5*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - 3*Half[S2[1, n], n]*
    S2[1, 1, 1, -1, -1, n] + 3*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 
   S2[-1, 1, -1, -1, 1, 1, n] - S2[-1, 1, 1, -1, -1, 1, n] - 
   3*S2[-1, 1, 1, 1, -1, -1, n] - 8*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   2*S2[1, -1, -1, 1, 1, -1, n] - 3*S2[1, -1, 1, 1, -1, -1, n] + 
   S2[1, 1, -1, -1, 1, -1, n] - S2[1, 1, -1, 1, -1, -1, n], 
 S2[-1, -1, 1, 1, -1, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/12 - 
   Diff[Half[S2[1, n], n], n, 2]^2/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 5])/720 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/4 + 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 + 
   (25*Diff[S2[1, n], n, 1]^3)/12 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/8 - Diff[S2[1, n], n, 2]^2/4 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 + 
   (7*Diff[S2[1, n], n, 5])/720 - 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] + 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-2, 1, n], n, 1] - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/4 + 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, n], n, 1]^2 - (7*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1] - 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1] - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1] + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 + Diff[S2[-1, 1, 1, -1, -1, n], n, 
    1] + Diff[S2[1, -1, 1, -1, -1, n], n, 1]/2 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
    Half[S2[1, n], n] - (5*Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    8 - (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/8 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 + 3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
    Half[S2[1, n], n] - 5*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
    Half[S2[1, n], n] + (11*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (3*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 + (11*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    4 - (3*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/2 + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   2*Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/2 + 
   Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n] - 
   Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n] - 
   2*Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] - 
   Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   2*Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/2 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/4 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/2 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/2 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/16 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/15 + S2[-1, Infinity]^6/360 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/8 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (19*Diff[S2[1, n], n, 4]*S2[1, n])/48 + 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (9*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (11*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/8 - 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/2 - 2*Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] + (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/4 - 
   Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n] + Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + 2*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 2*Diff[S2[2, 1, 1, n], n, 1]*
    S2[1, n] - Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] + 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 + (17*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (11*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (9*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n] - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/48 + 
   (7*S2[-1, Infinity]^5*S2[1, n])/80 + Diff[Half[S2[1, n], n], n, 1]^2*
    S2[1, n]^2 - (7*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (15*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (4*Diff[S2[1, n], n, 3]*S2[1, n]^2)/3 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/2 - 3*Diff[S2[-1, 1, n], n, 2]*
    S2[1, n]^2 + (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (9*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/2 + (7*S2[-1, Infinity]^4*S2[1, n]^2)/
    48 - (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]^3)/2 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 - 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/4 + (Half[S2[2, 1, n], n]*S2[1, n]^3)/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 + (3*Half[S2[1, n], n]^2*S2[1, n]^4)/
    4 - (3*Half[S2[1, n], n]*S2[1, n]^5)/4 + S2[1, n]^6/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 + 
   (15*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    4 - (25*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (17*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity] + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/4 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (33*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 + (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 - (5*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/8 + 
   (27*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + 3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 - S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (33*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (63*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (19*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (39*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (15*S2[1, n]^4*S2[2, Infinity])/8 - 
   (67*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/16 + 
   (431*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/10 + 
   (437*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (107*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 + 
   (13*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (327*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (23*S2[1, n]^2*S2[2, Infinity]^2)/10 - (1303*S2[2, Infinity]^3)/560 - 
   (19*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 + 
   (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 - 
   (13*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (105*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 + 
   (Half[S2[1, n], n]^3*S2[3, Infinity])/2 + 
   (5*Half[S2[2, 1, n], n]*S2[3, Infinity])/8 + 
   (39*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (21*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/4 + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity] - 
   (171*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 + 
   (123*S2[1, n]^3*S2[3, Infinity])/32 + 
   (3*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/2 - 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/4 - 
   (163*S2[3, Infinity]^2)/128 + (645*Half[S2[1, n], n]*S2[5, Infinity])/
    128 - (1079*S2[1, n]*S2[5, Infinity])/128 + (3*S2[-5, -1, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-3, 1, n])/2 - (3*S2[2, Infinity]*S2[-3, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/2 - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] - 2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-2, 1, n] + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/
    2 + (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   4*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n] - 
   (5*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 + 
   (3*S2[1, n]^3*S2[-2, 1, n])/2 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-2, 1, n] - 3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n] - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (5*S2[3, Infinity]*S2[-2, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 - 
   (39*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (47*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 - 
   (7*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 - 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 - 
   (3*Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 + 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/8 - 
   (7*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 + 
   (3*S2[1, n]^4*S2[-1, 1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, Infinity]*S2[-1, 1, n] + (15*Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/4 + Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n] - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (15*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (39*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (5*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (121*S2[2, Infinity]^2*S2[-1, 1, n])/20 - 
   (45*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (115*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (9*S2[-3, 1, n]*S2[-1, 1, n])/4 - (3*Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 + (7*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, n]^2 + 2*S2[1, n]^2*S2[-1, 1, n]^2 + 
   (S2[2, Infinity]*S2[-1, 1, n]^2)/4 + (3*S2[-1, 1, n]^3)/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/2 - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] - Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[2, 1, n] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/2 - S2[1, n]^3*S2[2, 1, n] + 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n] - 
   (7*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (5*S2[3, Infinity]*S2[2, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[-2, 1, -1, n] - 2*Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] + 
   2*S2[1, n]^2*S2[-2, 1, -1, n] + S2[2, Infinity]*S2[-2, 1, -1, n] + 
   3*S2[-1, 1, n]*S2[-2, 1, -1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, -2, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/2 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/2 - (S2[2, Infinity]*S2[-1, -2, -1, n])/4 - 
   (3*S2[-1, 1, n]*S2[-1, -2, -1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (3*S2[3, Infinity]*S2[-1, 1, -1, n])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   5*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   (5*S2[1, n]^3*S2[-1, 1, 1, n])/2 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 - 
   (29*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - 3*S2[-2, 1, n]*S2[-1, 1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   3*S2[2, 1, n]*S2[-1, 1, 1, n] + (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, 2, -1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + 2*Half[S2[1, n], n]*S2[1, n]*
    S2[1, 2, -1, n] - 2*S2[1, n]^2*S2[1, 2, -1, n] - 
   S2[2, Infinity]*S2[1, 2, -1, n] - 3*S2[-1, 1, n]*S2[1, 2, -1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n] + 
   Diff[S2[1, n], n, 1]*S2[2, 1, -1, n] + Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, -1, n] - S2[1, n]^2*S2[2, 1, -1, n] - 
   (S2[2, Infinity]*S2[2, 1, -1, n])/2 - (3*S2[-1, 1, n]*S2[2, 1, -1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - 2*Half[S2[1, n], n]*S2[1, n]*
    S2[2, 1, 1, n] + 2*S2[1, n]^2*S2[2, 1, 1, n] + 
   S2[2, Infinity]*S2[2, 1, 1, n] + 3*S2[-1, 1, n]*S2[2, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n] - 
   S2[1, n]^2*S2[-1, 1, -1, 1, n] - (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   (3*Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n])/2 + 
   3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, n] - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (15*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (7*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (S2[1, n]*S2[-1, 1, -1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - 2*S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 8*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - (21*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity])/
    2 + (S2[1, n]*S2[1, -1, 1, -1, -1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (5*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + 3*Half[S2[1, n], n]*
    S2[1, 1, 1, -1, -1, n] - 3*S2[1, n]*S2[1, 1, 1, -1, -1, n] + 
   2*S2[-1, 1, 1, -1, -1, 1, n] + 3*S2[-1, 1, 1, 1, -1, -1, n] - 
   2*S2[-1, 1, 1, 1, 1, 1, Infinity] - S2[1, -1, -1, 1, 1, -1, n] + 
   2*S2[1, -1, 1, 1, -1, -1, n], S2[-1, -1, 1, 1, 1, -1, n] -> 
  Diff[Half[S2[1, n], n], n, 1]^3/24 + Diff[Half[S2[1, n], n], n, 2]^2/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/12 + 
   (17*Diff[Half[S2[1, n], n], n, 5])/720 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/24 - 
   (29*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/24 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/2 - 
   (7*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/24 + 
   (55*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/24 - 
   (9*Diff[S2[1, n], n, 1]^3)/8 - (5*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/12 + Diff[S2[1, n], n, 2]^2/3 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (29*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 - 
   (17*Diff[S2[1, n], n, 5])/720 - Diff[S2[-3, 1, n], n, 2]/12 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, n], n, 1]^2/2 + (23*Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/24 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   Diff[S2[-1, 1, n], n, 4]/24 + Diff[S2[-1, -2, -1, n], n, 2]/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[2, 1, -1, n], n, 2]/6 - Diff[S2[-1, 1, -1, -1, n], n, 2]/3 - 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 - Diff[S2[-1, 1, 1, -1, -1, n], n, 
    1] - Diff[S2[1, -1, 1, -1, -1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 + (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/
    3 + (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/24 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*Half[S2[1, n], n])/4 - 
   (23*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    24 - (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/3 + (35*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/12 - (13*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/48 + 
   (3*Diff[S2[-3, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (5*Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    6 - (19*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    12 + (19*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   Diff[S2[-2, 1, -1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[-1, -2, -1, n], n, 1]*Half[S2[1, n], n])/4 - 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   Diff[S2[1, 2, -1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[2, 1, -1, n], n, 1]*Half[S2[1, n], n])/2 - 
   Diff[S2[2, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]^2)/8 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/3 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/12 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]^2)/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/12 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[2, 1, n], n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/8 + 
   (Half[S2[1, n], n]^2*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/60 + S2[-1, Infinity]^6/360 - 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/3 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/24 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 + 
   (35*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/24 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 - 
   (41*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (13*Diff[S2[1, n], n, 4]*S2[1, n])/48 - 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/4 - 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/6 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/6 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/12 - 
   (19*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] - (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/12 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] - (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 + 
   Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 - (25*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 + 
   (59*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/48 - 
   (5*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (43*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/8 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 + 
   (Half[S2[1, n], n]^2*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 - 
   (S2[-1, Infinity]^5*S2[1, n])/60 - 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/24 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (21*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (43*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (41*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n]^2 - (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[1, n]^2)/8 - 2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    16 + (7*Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 - 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/6 - (Half[S2[1, n], n]^2*S2[1, n]^4)/4 + 
   (Half[S2[1, n], n]*S2[1, n]^5)/4 - S2[1, n]^6/12 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (23*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    12 + (79*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/48 - 
   (25*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (23*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/48 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/48 - 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/8 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/8 + (Half[S2[1, n], n]^2*S2[-1, Infinity]^2*
     S2[2, Infinity])/4 - (2*Half[S2[1, n], n]*S2[-1, Infinity]^3*
     S2[2, Infinity])/3 + (7*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/48 + 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 + (27*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (9*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (5*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/8 + (2*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (27*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (11*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 - 
   (9*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (17*S2[1, n]^4*S2[2, Infinity])/24 + 
   (159*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 - 
   (189*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (143*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (71*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 + 
   (83*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (11*S2[1, n]^2*S2[2, Infinity]^2)/10 + (323*S2[2, Infinity]^3)/1680 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 - 
   (145*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 - 
   (Half[S2[1, n], n]^3*S2[3, Infinity])/6 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (229*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/96 - 
   (17*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/32 + 
   (79*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (85*S2[1, n]^3*S2[3, Infinity])/48 - 
   (157*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/4 + 
   (73*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (29*S2[3, Infinity]^2)/64 + (Half[S2[1, n], n]*S2[5, Infinity])/32 - 
   (S2[1, n]*S2[5, Infinity])/32 + S2[-5, -1, Infinity]/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-3, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-3, 1, n])/4 + 
   (3*S2[1, n]^2*S2[-3, 1, n])/4 + (3*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/3 - 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 + Diff[S2[-1, 1, n], n, 1]*
    S2[-2, 1, n] + Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
    S2[-2, 1, n] - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/
    2 - 2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[-2, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   S2[1, n]^3*S2[-2, 1, n] - (Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/
    4 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (7*S2[3, Infinity]*S2[-2, 1, n])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[-1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/3 + 
   (49*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/24 - 
   (23*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/48 + 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[-1, 1, n])/2 + 
   (9*Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/8 + 
   (Diff[S2[2, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/24 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[-1, 1, n])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[-1, 1, n])/4 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/24 + 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/2 - 
   (S2[1, n]^4*S2[-1, 1, n])/4 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (15*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (41*S2[2, Infinity]^2*S2[-1, 1, n])/20 + 
   (19*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/32 - 
   (47*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/32 + 
   (3*S2[-3, 1, n]*S2[-1, 1, n])/4 + (Half[S2[1, n], n]*S2[-2, 1, n]*
     S2[-1, 1, n])/2 - (3*S2[1, n]*S2[-2, 1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/4 - 
   (3*S2[1, n]^2*S2[-1, 1, n]^2)/4 - (S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (5*S2[-1, 1, n]^3)/12 + (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 + Diff[S2[-1, 1, n], n, 1]*
    S2[2, 1, n] + (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*
     S2[2, 1, n])/2 - (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/
    2 - (Half[S2[1, n], n]^2*S2[1, n]*S2[2, 1, n])/4 + 
   (S2[1, n]^3*S2[2, 1, n])/4 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (7*S2[3, Infinity]*S2[2, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[-1, 1, n]*S2[2, 1, n])/4 - Diff[Half[S2[1, n], n], n, 1]*
    S2[-2, 1, -1, n] + Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] + 
   Half[S2[1, n], n]*S2[1, n]*S2[-2, 1, -1, n] - 
   S2[1, n]^2*S2[-2, 1, -1, n] - (S2[2, Infinity]*S2[-2, 1, -1, n])/2 - 
   S2[-1, 1, n]*S2[-2, 1, -1, n] + (Diff[Half[S2[1, n], n], n, 1]*
     S2[-1, -2, -1, n])/4 - (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, -2, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/4 + (S2[2, Infinity]*S2[-1, -2, -1, n])/8 + 
   (S2[-1, 1, n]*S2[-1, -2, -1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n])/2 - 
   (Half[S2[2, 1, n], n]*S2[-1, 1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 - 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[1, n]^3*S2[-1, 1, 1, n] - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   (15*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[-2, 1, n]*S2[-1, 1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n])/2 + S2[2, 1, n]*S2[-1, 1, 1, n] - 
   (S2[-1, 1, -1, n]*S2[-1, 1, 1, n])/2 + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, 2, -1, n] - Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] - 
   Half[S2[1, n], n]*S2[1, n]*S2[1, 2, -1, n] + S2[1, n]^2*S2[1, 2, -1, n] + 
   (S2[2, Infinity]*S2[1, 2, -1, n])/2 + S2[-1, 1, n]*S2[1, 2, -1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, 1, -1, n])/2 + 
   (S2[1, n]^2*S2[2, 1, -1, n])/2 + (S2[2, Infinity]*S2[2, 1, -1, n])/4 + 
   (S2[-1, 1, n]*S2[2, 1, -1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*
    S2[2, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] + 
   Half[S2[1, n], n]*S2[1, n]*S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] - 
   (S2[2, Infinity]*S2[2, 1, 1, n])/2 - S2[-1, 1, n]*S2[2, 1, 1, n] + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + (S2[-1, 1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, n])/2 - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, n] + (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   (Half[S2[1, n], n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] + Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, -1, n] - S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 
   2*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - Half[S2[1, n], n]*
    S2[1, 1, -1, 1, -1, n] + S2[1, n]*S2[1, 1, -1, 1, -1, n] - 
   Half[S2[1, n], n]*S2[1, 1, 1, -1, -1, n] + 
   S2[1, n]*S2[1, 1, 1, -1, -1, n] - S2[-1, 1, 1, -1, -1, 1, n] - 
   2*S2[-1, 1, 1, 1, -1, -1, n] - 2*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   S2[1, -1, 1, 1, -1, -1, n], S2[-1, -1, 1, 1, 1, 1, n] -> 
  Diff[Half[S2[1, n], n], n, 2]^2/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/8 - 
   Diff[Half[S2[1, n], n], n, 5]/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/48 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    8 - (5*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 + 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 + 
   (5*Diff[S2[1, n], n, 1]^3)/8 + (41*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/48 - (15*Diff[S2[1, n], n, 2]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/8 - 
   (127*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/96 + 
   (53*Diff[S2[1, n], n, 5])/480 - (3*Diff[S2[-3, 1, n], n, 2])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   (5*Diff[S2[-2, 1, n], n, 3])/12 + 
   (5*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   Diff[S2[-1, 1, n], n, 1]^2/2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/8 + 
   (23*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (19*Diff[S2[-1, 1, n], n, 4])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   Diff[S2[2, 1, n], n, 3]/12 + Diff[S2[-2, 1, -1, n], n, 2]/2 - 
   Diff[S2[-1, -2, -1, n], n, 2]/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   (7*Diff[S2[-1, 1, -1, n], n, 3])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - Diff[S2[1, 2, -1, n], n, 2]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 + Diff[S2[2, 1, 1, n], n, 2]/2 - 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, -1, 1, -1, n], n, 1]/
    2 + Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (7*Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 - (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/3 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/2 + (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/8 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/8 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/16 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/48 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 + S2[-1, Infinity]^6/160 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 + (17*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 + 
   3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   (23*Diff[S2[1, n], n, 4]*S2[1, n])/48 + 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/4 + 
   (5*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (9*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/8 - 
   (3*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] + (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 + Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] - (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (S2[-1, Infinity]^5*S2[1, n])/120 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + 
   (71*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 - 
   (5*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 - 
   (13*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    24 - (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/48 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   (Half[S2[2, 1, n], n]*S2[1, n]^3)/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/3 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]^4)/16 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    16 - (Half[S2[1, n], n]*S2[1, n]^5)/8 + S2[1, n]^6/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (37*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (11*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/4 + (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/16 + (Half[S2[1, n], n]*S2[-1, Infinity]^3*
     S2[2, Infinity])/6 - (13*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (2*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (33*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 + 
   (11*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (7*S2[1, n]^4*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/8 + 
   (103*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (21*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/80 - 
   (109*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (53*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (21*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (169*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (59*S2[1, n]^2*S2[2, Infinity]^2)/160 - (949*S2[2, Infinity]^3)/1120 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/192 + 
   (109*Diff[S2[1, n], n, 2]*S2[3, Infinity])/192 + 
   (29*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/6 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 - 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/12 + 
   (37*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/96 - 
   (109*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (109*S2[1, n]^3*S2[3, Infinity])/192 - 
   (221*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (29*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (305*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/192 + 
   (341*S2[3, Infinity]^2)/768 - (31*Half[S2[1, n], n]*S2[5, Infinity])/64 + 
   (31*S2[1, n]*S2[5, Infinity])/64 + (3*S2[-5, -1, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - (3*S2[1, n]^2*S2[-3, 1, n])/8 - 
   (3*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (5*S2[1, n]^3*S2[-2, 1, n])/12 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 + (3*S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (S2[3, Infinity]*S2[-2, 1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/6 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/12 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 + 
   (S2[1, n]^4*S2[-1, 1, n])/6 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (33*S2[2, Infinity]^2*S2[-1, 1, n])/40 + 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/6 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 + (S2[1, n]^2*S2[-1, 1, n]^2)/8 + 
   (5*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[2, 1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (5*S2[1, n]^3*S2[2, 1, n])/24 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 + (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (S2[3, Infinity]*S2[2, 1, n])/3 - (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/
    2 + (S2[1, n]^2*S2[-2, 1, -1, n])/2 + (S2[2, Infinity]*S2[-2, 1, -1, n])/
    2 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 - (S2[2, Infinity]*S2[-1, -2, -1, n])/8 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (13*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + S2[-1, 1, 1, n]^2/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - (S2[1, n]^2*S2[1, 2, -1, n])/
    2 - (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - (S2[1, n]^2*S2[2, 1, -1, n])/
    4 - (S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + (S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - (S2[1, n]*S2[1, 1, -1, 1, -1, n])/
    2 - S2[1, n]*S2[1, 1, 1, -1, -1, n] - S2[-1, 1, -1, 1, 1, 1, n]/2 + 
   S2[-1, 1, 1, 1, -1, 1, n]/2 - (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + 
   S2[1, 1, 1, -1, 1, -1, n]/2 + S2[1, 1, 1, 1, -1, -1, n], 
 S2[-1, 1, -1, -1, 1, -1, n] -> 
  -(Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/2 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/2 - 
   Diff[S2[-1, 1, -1, -1, -1, n], n, 1] + 
   (3*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 - (Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 + 
   (S2[-1, Infinity]^5*S2[1, n])/120 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (3*S2[-1, Infinity]^4*S2[2, Infinity])/16 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   (4*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/5 - 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 - 
   (4*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   (333*S2[2, Infinity]^3)/560 - (27*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/16 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/8 + (27*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (63*S2[3, Infinity]^2)/64 + (125*Half[S2[1, n], n]*S2[5, Infinity])/32 - 
   (125*S2[1, n]*S2[5, Infinity])/32 + (7*S2[-5, -1, Infinity])/4 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/2 - 
   (7*S2[2, Infinity]^2*S2[-1, 1, n])/20 + S2[3, Infinity]*S2[-1, 1, -1, n] - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]*S2[-1, 1, -1, -1, -1, n] + Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[-1, 1, -1, -1, -1, 1, n] - S2[-1, 1, -1, 1, -1, -1, n] - 
   2*S2[-1, 1, 1, -1, -1, -1, n] - S2[1, -1, 1, -1, -1, -1, n], 
 S2[-1, 1, -1, 1, -1, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/12 - 
   Diff[Half[S2[1, n], n], n, 5]/720 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 + 
   Diff[S2[1, n], n, 1]^3/12 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/24 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    24 + Diff[S2[1, n], n, 5]/720 - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 + 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/2 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^6/720 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    24 + (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + Diff[S2[-1, 1, n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 - (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/4 + (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/
    4 - (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (S2[1, n]^4*S2[2, Infinity])/2 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/16 - (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/40 - 
   (9*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/16 + 
   (13*S2[-1, Infinity]^2*S2[2, Infinity]^2)/20 + 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 - 
   (11*S2[1, n]^2*S2[2, Infinity]^2)/80 - (2*S2[2, Infinity]^3)/35 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/8 - 
   (13*S2[1, n]^3*S2[3, Infinity])/16 + 
   (13*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (13*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (43*S2[3, Infinity]^2)/128 - (277*Half[S2[1, n], n]*S2[5, Infinity])/128 + 
   (277*S2[1, n]*S2[5, Infinity])/128 - (3*S2[-5, -1, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[2, Infinity]^2*S2[-1, 1, n])/8 + 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (5*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/2 - S2[-1, 1, n]^3/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/2 - (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (13*S2[3, Infinity]*S2[-1, 1, -1, n])/8 + Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, 1, n] - Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, 1, n] - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[1, n]^3*S2[-1, 1, 1, n] + S2[3, Infinity]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - S2[-1, 1, -1, n]*S2[-1, 1, 1, n] + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + S2[-1, 1, n]*S2[-1, 1, -1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - S2[1, n]*S2[1, -1, 1, -1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - S2[-1, 1, -1, -1, 1, 1, n] - 
   S2[-1, 1, 1, -1, -1, 1, n] + S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, 1, 1, -1, -1, n] + S2[1, 1, -1, 1, -1, -1, n], 
 S2[-1, 1, -1, 1, 1, -1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/12 + 
   Diff[Half[S2[1, n], n], n, 5]/720 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 + 
   Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1] + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 - 
   Diff[S2[1, n], n, 1]^3/12 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/24 + (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    24 - Diff[S2[1, n], n, 5]/720 + Diff[S2[-1, 1, -1, -1, n], n, 2]/2 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 + 
   2*Diff[S2[-1, 1, 1, -1, -1, n], n, 1] + 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/60 + S2[-1, Infinity]^6/360 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (S2[-1, Infinity]^5*S2[1, n])/60 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    24 - (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - Diff[S2[-1, 1, n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (19*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 - (7*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (S2[1, n]^4*S2[2, Infinity])/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/16 + (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/40 + 
   (83*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (29*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (83*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (11*S2[1, n]^2*S2[2, Infinity]^2)/80 - (109*S2[2, Infinity]^3)/560 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/8 + 
   (13*S2[1, n]^3*S2[3, Infinity])/16 + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[3, Infinity] - (3*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    2 - S2[1, n]*S2[2, Infinity]*S2[3, Infinity] - 
   (71*S2[3, Infinity]^2)/64 - (33*Half[S2[1, n], n]*S2[5, Infinity])/128 + 
   (33*S2[1, n]*S2[5, Infinity])/128 - S2[-5, -1, Infinity]/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[2, Infinity]^2*S2[-1, 1, n])/10 - 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (5*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/2 + S2[-1, 1, n]^3/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/2 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/8 - Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, 1, n] + Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   S2[1, n]^3*S2[-1, 1, 1, n] - S2[3, Infinity]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + S2[-1, 1, -1, n]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 - S2[-1, 1, n]*S2[-1, 1, -1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 2*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - 2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[-1, 1, 1, -1, -1, 1, n] + 
   3*S2[-1, 1, 1, 1, -1, -1, n] - 2*S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, 1, 1, -1, -1, n], S2[-1, 1, 1, -1, 1, -1, n] -> 
  -(Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, -1, -1, n], n, 1] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    2 + (Half[S2[1, n], n]*S2[-1, Infinity]^5)/60 - S2[-1, Infinity]^6/120 - 
   (S2[-1, Infinity]^5*S2[1, n])/60 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (2*Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (11*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 + 
   (2*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/8 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/8 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/4 - 
   (8*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/5 + 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]^2)/5 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/2 + 
   (8*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (S2[1, n]^2*S2[2, Infinity]^2)/4 + (351*S2[2, Infinity]^3)/560 - 
   (21*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (21*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (267*S2[3, Infinity]^2)/128 + (Half[S2[1, n], n]*S2[5, Infinity])/32 - 
   (S2[1, n]*S2[5, Infinity])/32 - (5*S2[-5, -1, Infinity])/2 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (7*S2[2, Infinity]^2*S2[-1, 1, n])/10 + (S2[2, Infinity]*S2[-1, 1, n]^2)/
    4 - (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[3, Infinity]*S2[-1, 1, 1, n] + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 2*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + 2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[-1, 1, 1, -1, -1, 1, n] - 3*S2[-1, 1, 1, 1, -1, -1, n] + 
   6*S2[-1, 1, 1, 1, 1, 1, Infinity] - S2[1, -1, 1, 1, -1, -1, n], 
 S2[-1, 1, 1, -1, 1, 1, n] -> (-3*Diff[Half[S2[1, n], n], n, 2]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 + 
   Diff[S2[1, n], n, 1]^3/8 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (3*Diff[S2[1, n], n, 2]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/3 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/48 + 
   (7*Diff[S2[1, n], n, 5])/240 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, n], n, 1]^2 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 - 
   Diff[S2[-1, 1, -1, n], n, 3]/6 + 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, 1, n], n, 2]/4 + 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1] - Diff[S2[1, 1, -1, 1, -1, n], n, 1]/
    2 - (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/4 + 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/3 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/60 - S2[-1, Infinity]^6/160 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/3 - 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 + 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (S2[-1, Infinity]^5*S2[1, n])/60 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    48 + (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n]^2 + (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/4 - 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    8 - (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 3]*S2[2, Infinity])/16 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/2 - (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/2 - (Half[S2[1, n], n]*S2[-1, Infinity]^3*
     S2[2, Infinity])/3 + (S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity] - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 - 
   (S2[1, n]^4*S2[2, Infinity])/4 - (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/8 + (113*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    160 - (11*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/20 + 
   (47*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 + 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (47*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (101*S2[1, n]^2*S2[2, Infinity]^2)/160 + (641*S2[2, Infinity]^3)/1120 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 - 
   (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/8 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (13*S2[1, n]^3*S2[3, Infinity])/32 + 
   (77*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (77*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (37*S2[3, Infinity]^2)/256 - (29*Half[S2[1, n], n]*S2[5, Infinity])/64 + 
   (29*S2[1, n]*S2[5, Infinity])/64 - (25*S2[-5, -1, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/2 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (S2[-1, Infinity]^4*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (67*S2[2, Infinity]^2*S2[-1, 1, n])/40 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 - (S2[1, n]^2*S2[-1, 1, n]^2)/4 - 
   (5*S2[2, Infinity]*S2[-1, 1, n]^2)/4 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 + (S2[3, Infinity]*S2[-1, 1, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 - Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 + (5*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   (39*S2[3, Infinity]*S2[-1, 1, 1, n])/16 - S2[-1, 1, 1, n]^2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 + Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 + 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/
    4 - 3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   2*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   2*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 2*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - 2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - S2[-1, 1, -1, 1, 1, 1, n]/2 - 
   (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + (9*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - 
   S2[1, 1, 1, -1, 1, -1, n]/2, S2[-1, 1, 1, 1, 1, -1, n] -> 
  Diff[Half[S2[1, n], n], n, 2]^2/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/24 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/8 + 
   Diff[S2[1, n], n, 2]^2/16 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/24 + (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    24 - Diff[S2[1, n], n, 5]/240 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/8 - 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   Diff[S2[-1, 1, n], n, 1]^2/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/8 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   Diff[S2[-1, 1, -1, n], n, 3]/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 - 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 - S2[-1, Infinity]^6/720 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n])/2 - 
   (S2[-1, Infinity]^5*S2[1, n])/120 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/6 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/4 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/20 - 
   (4*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/5 + 
   (21*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 + 
   (4*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (3*S2[1, n]^2*S2[2, Infinity]^2)/20 + (99*S2[2, Infinity]^3)/280 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (49*S2[3, Infinity]^2)/128 + (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/
    24 - (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n])/2 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[2, Infinity]^2*S2[-1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n])/2 - 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (7*S2[3, Infinity]*S2[-1, 1, 1, n])/8 + S2[-1, 1, 1, n]^2/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] - S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + S2[-1, 1, 1, 1, 1, 1, Infinity], 
 S2[1, -1, -1, -1, -1, 1, n] -> 
  (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n]^3, n, 1])/12 - 
   Diff[S2[1, -1, -1, -1, -1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]^2)/4 - 
   S2[-1, Infinity]^6/720 + (Diff[Half[S2[1, n], n]^4, n, 1]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/6 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (5*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/72 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/6 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/6 - 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/72 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/6 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    6 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/12 + 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (S2[1, n]^4*S2[2, Infinity])/12 + (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/5 - (41*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/60 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/24 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/4 + 
   (9*S2[-1, Infinity]^2*S2[2, Infinity]^2)/10 - 
   (41*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/60 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/4 + 
   (77*S2[1, n]^2*S2[2, Infinity]^2)/120 + (57*S2[2, Infinity]^3)/80 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity] + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/2 - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity] + 
   (S2[1, n]^3*S2[3, Infinity])/2 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/16 - (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/8 + (13*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (131*S2[3, Infinity]^2)/64 + S2[1, n]*S2[5, Infinity] - 
   (3*S2[-5, -1, Infinity])/2 + (7*S2[2, Infinity]*S2[-3, 1, n])/12 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/3 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 - S2[3, Infinity]*S2[-2, 1, n] - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[-1, 1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/6 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/6 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 + 
   (31*S2[2, Infinity]^2*S2[-1, 1, n])/60 - 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - S2[3, Infinity]*S2[2, 1, n] + 
   (S2[2, Infinity]*S2[-1, -2, -1, n])/12 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/12 - 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/2 + (S2[2, Infinity]*S2[2, 1, -1, n])/
    6 + (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/6 + 
   2*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[1, -1, -1, -1, -1, n] + S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   S2[1, -1, -1, -1, 1, -1, n] - S2[1, -1, -1, 1, -1, -1, n] - 
   S2[1, -1, 1, -1, -1, -1, n] - 2*S2[1, 1, -1, -1, -1, -1, n], 
 S2[1, -1, -1, -1, 1, 1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/4 - 
   Diff[Half[S2[1, n], n], n, 2]^2/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 - 
   (17*Diff[Half[S2[1, n], n], n, 5])/240 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/6 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/12 + 
   (41*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/72 + 
   (2*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/3 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/6 - 
   (25*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/12 + 
   (5*Diff[S2[1, n], n, 1]^3)/4 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/4 - (2*Diff[S2[1, n], n, 2]^2)/3 + 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (10*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/9 + 
   (17*Diff[S2[1, n], n, 5])/240 - (7*Diff[S2[-3, 1, n], n, 2])/12 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/3 + 
   Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] - 
   Diff[S2[-2, 1, n], n, 3]/3 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/6 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/3 + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 - 
   Diff[S2[-1, 1, n], n, 4]/8 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[2, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   Diff[S2[-1, -2, -1, n], n, 2]/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/6 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/6 - 
   Diff[S2[2, 1, -1, n], n, 2]/6 - Diff[S2[-1, 1, -1, -1, n], n, 2]/6 + 
   Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 + Diff[S2[1, -1, -1, 1, -1, n], n, 
    1] + Diff[S2[1, -1, 1, -1, -1, n], n, 1]/2 + 
   2*Diff[S2[1, 1, -1, -1, -1, n], n, 1] - Diff[Half[S2[1, n], n], n, 1]*
    Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n] - 
   (Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/12 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/12 + 
   (17*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    12 + (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/3 - 3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
    Half[S2[1, n], n] + (7*Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    3 + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/6 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/3 - 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]^2)/12 - 
   (17*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*
     Half[S2[1, n], n]^2)/12 - (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/
    4 + (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/4 + 
   (5*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/12 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^3)/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/12 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/12 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/30 + S2[-1, Infinity]^6/720 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    6 + (11*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/36 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/12 - 
   (29*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/12 - 
   3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 - 
   (37*Diff[S2[1, n], n, 4]*S2[1, n])/72 + 
   (7*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/6 + Diff[S2[-2, 1, n], n, 2]*
    S2[1, n] + (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
     S2[1, n])/3 - (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/
    6 + (5*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/12 + 
   (Diff[S2[2, 1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/3 + 
   (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/3 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/6 + 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[1, n] + 4*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] - 
   (31*Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (2*Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/6 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/12 - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n] - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^3*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/12 - 
   (S2[-1, Infinity]^5*S2[1, n])/15 - 
   (13*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/12 - 
   (35*Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/6 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/6 + 
   (49*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/12 - 
   (47*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/12 + 
   (23*Diff[S2[1, n], n, 3]*S2[1, n]^2)/18 - Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 - (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/24 - 
   (Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/6 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[1, n]^2 - (11*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*
     S2[1, n]^2)/12 + (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/
    2 + (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/12 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/2 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/12 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/12 - 
   (5*Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/6 - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/2 + 
   (Half[S2[1, n], n]^3*S2[1, n]^3)/12 - (Half[S2[2, 1, n], n]*S2[1, n]^3)/
    12 - (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/12 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^4)/4 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    4 + (Half[S2[1, n], n]*S2[1, n]^5)/4 - S2[1, n]^6/12 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/3 - 
   (23*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/72 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/3 + 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    12 - (4*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/3 + 
   (4*Diff[S2[1, n], n, 3]*S2[2, Infinity])/9 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/3 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/24 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/12 + 
   (31*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/24 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/12 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/2 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/2 - 2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
    S2[-1, Infinity]*S2[2, Infinity] - 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/8 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (23*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (11*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (31*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/12 - 4*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] + (7*Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/12 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/12 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity] + 
   (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (85*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/24 - 
   (43*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/24 + 
   (11*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (25*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 - 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (7*S2[1, n]^4*S2[2, Infinity])/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/80 + 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/24 - 
   (31*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/60 - 
   (21*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 + 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]^2)/10 + 
   (251*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/240 - 
   (23*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (119*S2[1, n]^2*S2[2, Infinity]^2)/120 - (179*S2[2, Infinity]^3)/140 + 
   (5*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/4 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/8 - 
   (7*Half[S2[2, 1, n], n]*S2[3, Infinity])/32 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 + 
   (37*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (5*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/4 + 
   (39*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/16 - 
   (21*S2[1, n]^3*S2[3, Infinity])/16 + 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (69*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (5*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/32 - 
   (85*S2[3, Infinity]^2)/128 - (219*Half[S2[1, n], n]*S2[5, Infinity])/128 + 
   (467*S2[1, n]*S2[5, Infinity])/128 - S2[-5, -1, Infinity] + 
   (7*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/12 - (7*S2[1, n]^2*S2[-3, 1, n])/
    12 - (7*S2[2, Infinity]*S2[-3, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/3 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/3 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/3 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/3 + 
   (S2[1, n]^3*S2[-2, 1, n])/3 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/3 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/3 + 
   (7*S2[3, Infinity]*S2[-2, 1, n])/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/12 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/6 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/12 + 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (2*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 + 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[-1, 1, n])/12 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/6 + 
   (2*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 - 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n] + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    6 - Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n] - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/6 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/12 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[-1, 1, n])/12 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/6 - 
   (S2[1, n]^4*S2[-1, 1, n])/12 - (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (5*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/6 - 
   (7*Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/12 - 
   S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (7*S2[2, Infinity]^2*S2[-1, 1, n])/30 + 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/4 + 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/2 - (S2[2, Infinity]*S2[-1, 1, n]^2)/2 - 
   S2[-1, 1, n]^3/2 - (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (S2[1, n]^3*S2[2, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 + (7*S2[3, Infinity]*S2[2, 1, n])/
    8 + (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/12 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/12 - (S2[2, Infinity]*S2[-1, -2, -1, n])/
    12 - (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, -1, n])/12 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/6 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/6 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 + (2*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/3 + (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/6 + 
   (7*S2[3, Infinity]*S2[-1, 1, -1, n])/16 + Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, 1, n] - Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, 1, n] - Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[1, n]^3*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   S2[3, Infinity]*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] + (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    6 - (S2[1, n]^2*S2[2, 1, -1, n])/6 - (S2[2, Infinity]*S2[2, 1, -1, n])/
    6 + (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, -1, n])/6 + 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/3 - 
   (2*S2[2, Infinity]*S2[-1, 1, -1, -1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + S2[-1, 1, n]*S2[-1, 1, -1, 1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   2*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   S2[1, n]*S2[-1, 1, -1, -1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + 8*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, n]*S2[1, -1, -1, 1, -1, n] - S2[1, n]*S2[1, -1, 1, -1, -1, n] - 
   2*S2[1, n]*S2[1, 1, -1, -1, -1, n] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[-1, 1, -1, -1, 1, 1, n] + 
   S2[-1, 1, 1, -1, -1, 1, n] - S2[-1, 1, 1, 1, 1, 1, Infinity] + 
   S2[1, -1, -1, 1, 1, -1, n] + 2*S2[1, 1, -1, -1, 1, -1, n] + 
   S2[1, 1, -1, 1, -1, -1, n] + 3*S2[1, 1, 1, -1, -1, -1, n], 
 S2[1, -1, -1, 1, -1, 1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/12 + 
   Diff[Half[S2[1, n], n], n, 5]/720 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 - 
   (3*Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 - 
   Diff[S2[1, n], n, 1]^3/12 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/24 + (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    24 - Diff[S2[1, n], n, 5]/720 - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 - 
   Diff[S2[1, -1, -1, 1, -1, n], n, 1] + Diff[S2[1, -1, 1, -1, -1, n], n, 1]/
    2 + (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/16 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/16 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/30 - S2[-1, Infinity]^6/72 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 + 
   (S2[-1, Infinity]^5*S2[1, n])/12 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    24 - (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - Diff[S2[-1, 1, n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 + (S2[-1, Infinity]^4*S2[1, n]^2)/24 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/8 + 
   (5*Diff[S2[1, n], n, 3]*S2[2, Infinity])/16 - 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/2 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Half[S2[2, 1, n], n]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/16 - 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] + (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 - 3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
    S2[2, Infinity] + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/2 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 + (2*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity] - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity] + 
   (5*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (S2[1, n]^4*S2[2, Infinity])/2 - (59*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/80 + (99*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (19*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/40 - 
   (29*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]^2)/16 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (13*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (7*S2[1, n]^2*S2[2, Infinity]^2)/80 - (703*S2[2, Infinity]^3)/560 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/8 + 
   (15*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/32 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity] + 
   (7*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/8 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/4 + 
   (7*S2[1, n]^3*S2[3, Infinity])/8 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/4 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (65*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (7*S2[3, Infinity]^2)/4 + (219*Half[S2[1, n], n]*S2[5, Infinity])/128 - 
   (1273*S2[1, n]*S2[5, Infinity])/128 - (21*S2[-5, -1, Infinity])/4 - 
   (3*S2[2, Infinity]*S2[-3, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/2 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[-2, 1, n])/2 + 
   S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] - (S2[3, Infinity]*S2[-2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n] - 
   (17*S2[2, Infinity]^2*S2[-1, 1, n])/40 - 
   (3*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/8 - 
   (5*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/2 + (3*S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   S2[-1, 1, n]^3/2 - (Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[2, 1, n])/2 - 
   (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - (S2[3, Infinity]*S2[2, 1, n])/
    8 + S2[2, Infinity]*S2[-2, 1, -1, n] - 
   (S2[2, Infinity]*S2[-1, -2, -1, n])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (3*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 - 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/16 - Diff[Half[S2[1, n], n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, 1, n] + Diff[S2[1, n], n, 1]*
    Half[S2[1, n], n]*S2[-1, 1, 1, n] + Diff[Half[S2[1, n], n], n, 1]*
    S2[1, n]*S2[-1, 1, 1, n] - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   S2[1, n]^3*S2[-1, 1, 1, n] - Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   S2[3, Infinity]*S2[-1, 1, 1, n] - Half[S2[1, n], n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] + S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] - S2[2, Infinity]*S2[1, 2, -1, n] - 
   (S2[2, Infinity]*S2[2, 1, -1, n])/2 + S2[2, Infinity]*S2[2, 1, 1, n] - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 - S2[-1, 1, n]*S2[-1, 1, -1, 1, n] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (11*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   3*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, 1, -1, -1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - 10*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[1, -1, -1, 1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - S2[-1, 1, -1, -1, 1, 1, n] - 
   S2[-1, 1, 1, -1, -1, 1, n] + 10*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   2*S2[1, -1, -1, 1, 1, -1, n] + S2[1, -1, 1, 1, -1, -1, n] - 
   2*S2[1, 1, -1, -1, 1, -1, n] + S2[1, 1, -1, 1, -1, -1, n], 
 S2[1, -1, -1, 1, 1, 1, n] -> (-5*Diff[Half[S2[1, n], n], n, 2]^2)/8 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 + 
   (7*Diff[Half[S2[1, n], n], n, 5])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/4 + 
   Diff[Half[S2[2, 1, n], n], n, 3]/12 + Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    4 + (7*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/8 - 
   (7*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/8 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 - 
   (5*Diff[S2[1, n], n, 1]^3)/8 - (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/6 + (4*Diff[S2[1, n], n, 2]^2)/3 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/12 + 
   (31*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/16 - 
   (41*Diff[S2[1, n], n, 5])/240 + (3*Diff[S2[-3, 1, n], n, 2])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1] - 
   2*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1] + 
   (2*Diff[S2[-2, 1, n], n, 3])/3 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/2 - 
   (13*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/12 - 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   (21*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/8 + 
   (17*Diff[S2[-1, 1, n], n, 4])/24 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1])/2 - 
   Diff[S2[2, 1, n], n, 3]/3 - Diff[S2[-2, 1, -1, n], n, 2] + 
   Diff[S2[-1, -2, -1, n], n, 2]/4 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 - 
   (2*Diff[S2[-1, 1, -1, n], n, 3])/3 + 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, 1, n], n, 3]/2 + Diff[S2[1, 2, -1, n], n, 2] + 
   Diff[S2[2, 1, -1, n], n, 2]/2 - Diff[S2[2, 1, 1, n], n, 2] + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 + 
   (3*Diff[S2[-1, 1, 1, 1, -1, n], n, 1])/2 - 
   (3*Diff[S2[1, 1, -1, 1, -1, n], n, 1])/2 - 
   3*Diff[S2[1, 1, 1, -1, -1, n], n, 1] - 
   (7*Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/24 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    8 + (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/12 + (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/6 - (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/6 + 
   (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/2 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/12 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/8 - 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/8 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/24 - 
   (7*Half[S2[1, n], n]*S2[-1, Infinity]^5)/120 - S2[-1, Infinity]^6/80 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    2 - (7*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/12 - 
   (Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/4 - 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/3 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (17*Diff[S2[1, n], n, 4]*S2[1, n])/24 - 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/2 - 2*Diff[S2[-2, 1, n], n, 2]*
    S2[1, n] + Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*
    S2[1, n] + (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 - 
   2*Diff[S2[-1, 1, n], n, 3]*S2[1, n] + (5*Diff[S2[2, 1, n], n, 2]*S2[1, n])/
    4 + 2*Diff[S2[-2, 1, -1, n], n, 1]*S2[1, n] - 
   (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/2 + Diff[S2[-1, 1, -1, n], n, 2]*
    S2[1, n] - Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n] - 
   2*Diff[S2[1, 2, -1, n], n, 1]*S2[1, n] - Diff[S2[2, 1, -1, n], n, 1]*
    S2[1, n] + 2*Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/6 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 + 2*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/3 - 
   Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (3*Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   (2*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 + 
   (11*S2[-1, Infinity]^5*S2[1, n])/120 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/24 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/4 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (11*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 - 
   (41*Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 2*Diff[S2[-2, 1, n], n, 1]*
    S2[1, n]^2 + (9*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/8 - 
   (3*Diff[S2[2, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (9*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/8 + 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/6 - 
   Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2 + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/4 - (S2[-1, Infinity]^4*S2[1, n]^2)/
    24 + (5*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/6 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/3 + 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/12 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/3 - 
   (Half[S2[2, 1, n], n]*S2[1, n]^3)/12 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/12 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^4)/2 - (Half[S2[1, n], n]^2*S2[1, n]^4)/
    6 + (Half[S2[1, n], n]*S2[1, n]^5)/3 - S2[1, n]^6/6 - 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/8 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (31*Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity] + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (7*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/24 + 
   2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/8 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (5*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/4 - (7*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/8 - (2*Half[S2[1, n], n]*S2[-1, Infinity]^3*
     S2[2, Infinity])/3 + (29*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/8 + 
   Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity] - 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    8 - (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (15*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/24 - 
   (5*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (3*S2[1, n]^4*S2[2, Infinity])/8 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/10 - 
   (69*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/5 + 
   (179*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/40 + 
   (73*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 + 
   (27*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (539*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (41*S2[1, n]^2*S2[2, Infinity]^2)/80 + (59*S2[2, Infinity]^3)/28 + 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/96 - 
   (47*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 - 
   (71*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/6 + 
   (11*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/96 + 
   (Half[S2[2, 1, n], n]*S2[3, Infinity])/12 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/48 + 
   (47*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/6 - 
   (11*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/96 - 
   (47*S2[1, n]^3*S2[3, Infinity])/48 + 
   (403*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/96 - 
   (23*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (23*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/4 - 
   (347*S2[3, Infinity]^2)/192 + (63*Half[S2[1, n], n]*S2[5, Infinity])/32 - 
   (343*S2[1, n]*S2[5, Infinity])/128 - (5*S2[-5, -1, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/4 + (3*S2[1, n]^2*S2[-3, 1, n])/4 + 
   (3*S2[2, Infinity]*S2[-3, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/2 - 
   (2*Diff[S2[1, n], n, 2]*S2[-2, 1, n])/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/2 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n] + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (2*S2[1, n]^3*S2[-2, 1, n])/3 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/2 - S2[1, n]*S2[2, Infinity]*S2[-2, 1, n] - 
   (S2[3, Infinity]*S2[-2, 1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/12 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (5*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/12 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/2 + 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/
    12 + (S2[-1, Infinity]^4*S2[-1, 1, n])/3 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/3 + 
   Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n] - 
   (5*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/12 - 
   (5*S2[1, n]^4*S2[-1, 1, n])/12 - (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n] + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (33*S2[2, Infinity]^2*S2[-1, 1, n])/10 - 
   (Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/6 - 
   (13*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/48 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/4 - (S2[1, n]^2*S2[-1, 1, n]^2)/4 - 
   (9*S2[2, Infinity]*S2[-1, 1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/4 + 
   (7*Diff[S2[1, n], n, 2]*S2[2, 1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/2 - 
   (7*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/4 + 
   (7*S2[1, n]^3*S2[2, 1, n])/12 + (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/4 + (S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/4 - 
   (S2[3, Infinity]*S2[2, 1, n])/3 + Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n] - 
   S2[1, n]^2*S2[-2, 1, -1, n] - S2[2, Infinity]*S2[-2, 1, -1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/4 + 
   (S2[1, n]^2*S2[-1, -2, -1, n])/4 + (S2[2, Infinity]*S2[-1, -2, -1, n])/4 - 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/2 - 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + 4*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   4*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (13*S2[3, Infinity]*S2[-1, 1, 1, n])/4 - 2*S2[-1, 1, 1, n]^2 - 
   Diff[S2[1, n], n, 1]*S2[1, 2, -1, n] + S2[1, n]^2*S2[1, 2, -1, n] + 
   S2[2, Infinity]*S2[1, 2, -1, n] - (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/
    2 + (S2[1, n]^2*S2[2, 1, -1, n])/2 + (S2[2, Infinity]*S2[2, 1, -1, n])/
    2 + Diff[S2[1, n], n, 1]*S2[2, 1, 1, n] - S2[1, n]^2*S2[2, 1, 1, n] - 
   S2[2, Infinity]*S2[2, 1, 1, n] - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] + 
   S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 4*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 - 
   8*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + (S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 - 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 7*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - 11*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   (3*S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + 
   3*S2[1, n]*S2[1, 1, 1, -1, -1, n] + S2[-1, 1, -1, 1, 1, 1, n] - 
   2*S2[-1, 1, 1, 1, -1, 1, n] + 9*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   2*S2[1, 1, 1, -1, 1, -1, n] - 4*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, -1, 1, -1, -1, 1, n] -> Diff[Half[S2[1, n], n], n, 1]^3/12 + 
   Diff[Half[S2[1, n], n], n, 5]/720 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 - 
   Diff[S2[1, n], n, 1]^3/12 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/24 + (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    24 - Diff[S2[1, n], n, 5]/720 - Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 - 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 - (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/30 + S2[-1, Infinity]^6/180 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 - (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] + 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 + 
   (S2[-1, Infinity]^5*S2[1, n])/30 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    24 - (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - Diff[S2[-1, 1, n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 + (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/2 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 + (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (S2[1, n]^4*S2[2, Infinity])/2 - (3*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/16 + (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/16 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/40 + 
   (91*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]^2)/10 - 
   (9*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (91*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (11*S2[1, n]^2*S2[2, Infinity]^2)/80 - (34*S2[2, Infinity]^3)/35 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/8 + 
   (13*S2[1, n]^3*S2[3, Infinity])/16 + 
   (29*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/8 - 
   (29*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (73*S2[3, Infinity]^2)/32 + (219*Half[S2[1, n], n]*S2[5, Infinity])/128 - 
   (219*S2[1, n]*S2[5, Infinity])/128 + S2[-5, -1, Infinity] + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 + (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[2, Infinity]^2*S2[-1, 1, n])/4 - 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (5*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 + 
   (S2[1, n]^2*S2[-1, 1, n]^2)/2 + S2[-1, 1, n]^3/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 + (3*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] - 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   S2[1, n]^3*S2[-1, 1, 1, n] - S2[3, Infinity]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + 
   S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] + S2[-1, 1, -1, n]*S2[-1, 1, 1, n] - 
   (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - S2[-1, 1, n]*S2[-1, 1, -1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   2*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, 1, -1, -1, 1, n] + 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 + S2[1, n]*S2[-1, 1, 1, -1, -1, n] - 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 + 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 + 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - 4*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[1, -1, 1, -1, -1, n] + 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 - S2[-1, 1, -1, -1, 1, 1, n] - 
   S2[-1, 1, 1, -1, -1, 1, n] - 4*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   S2[1, -1, 1, 1, -1, -1, n] - S2[1, 1, -1, 1, -1, -1, n], 
 S2[1, -1, 1, -1, 1, -1, n] -> -Diff[Half[S2[1, n], n], n, 1]^3/12 - 
   Diff[Half[S2[1, n], n], n, 5]/720 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/4 + 
   Diff[S2[1, n], n, 1]^3/12 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/24 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    24 + Diff[S2[1, n], n, 5]/720 + Diff[S2[-1, 1, -1, -1, 1, n], n, 1]/2 - 
   Diff[S2[1, -1, 1, -1, -1, n], n, 1]/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*
     Half[S2[1, n], n])/2 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/2 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/24 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + (Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]^2)/2 + 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]^2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/48 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/30 + S2[-1, Infinity]^6/720 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/24 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, -1, n], n, 1]*S2[1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/2 + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 - 
   Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 - 
   (S2[-1, Infinity]^5*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 + (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    24 + (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/2 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + Diff[S2[-1, 1, n], n, 1]*
    Half[S2[1, n], n]*S2[1, n]^2 + (S2[-1, Infinity]^4*S2[1, n]^2)/24 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/4 - 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 - (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]^2*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/3 + 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (9*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (3*Half[S2[1, n], n]^2*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/2 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (5*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/2 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/2 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (3*Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (S2[1, n]^4*S2[2, Infinity])/2 - (41*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/80 + (41*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 - 
   (19*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/40 - 
   (31*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (13*S2[-1, Infinity]^2*S2[2, Infinity]^2)/20 + 
   (25*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/16 + 
   (13*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/16 - 
   (87*S2[1, n]^2*S2[2, Infinity]^2)/80 - (11*S2[2, Infinity]^3)/80 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 - 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (13*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (13*Half[S2[1, n], n]^2*S2[1, n]*S2[3, Infinity])/16 + 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/8 - 
   (13*S2[1, n]^3*S2[3, Infinity])/16 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (43*S2[3, Infinity]^2)/128 - (219*Half[S2[1, n], n]*S2[5, Infinity])/128 + 
   (285*S2[1, n]*S2[5, Infinity])/128 + (3*S2[-5, -1, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, n])/2 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (Half[S2[1, n], n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (5*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (9*S2[2, Infinity]^2*S2[-1, 1, n])/20 + 
   (5*Half[S2[1, n], n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (11*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n]^2)/2 - 
   (S2[1, n]^2*S2[-1, 1, n]^2)/2 - (S2[2, Infinity]*S2[-1, 1, n]^2)/2 - 
   S2[-1, 1, n]^3/2 - (Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, -1, n])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, -1, n])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, -1, n])/4 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/4 + (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, -1, n])/4 - (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] - 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]^2*S2[1, n]*S2[-1, 1, 1, n] + 
   2*Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] - 
   S2[1, n]^3*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] - S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   S2[3, Infinity]*S2[-1, 1, 1, n] + Half[S2[1, n], n]*S2[-1, 1, n]*
    S2[-1, 1, 1, n] - S2[1, n]*S2[-1, 1, n]*S2[-1, 1, 1, n] - 
   S2[-1, 1, -1, n]*S2[-1, 1, 1, n] + (S2[1, n]^2*S2[-1, 1, -1, -1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, -1, n])/2 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + S2[-1, 1, n]*S2[-1, 1, -1, 1, n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, 1, 1, Infinity] - 
   S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   S2[1, n]*S2[-1, 1, -1, -1, 1, n] - 
   (Half[S2[1, n], n]*S2[-1, 1, -1, 1, 1, n])/2 + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - S2[1, n]*S2[-1, 1, 1, -1, -1, n] + 
   (3*Half[S2[1, n], n]*S2[-1, 1, 1, 1, -1, n])/2 - 
   (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/2 - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + 5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   (Half[S2[1, n], n]*S2[1, 1, -1, 1, -1, n])/2 + 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[-1, 1, -1, -1, 1, 1, n] + 
   S2[-1, 1, 1, -1, -1, 1, n] - S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   S2[1, -1, 1, 1, -1, -1, n] - S2[1, 1, -1, 1, -1, -1, n], 
 S2[1, -1, 1, -1, 1, 1, n] -> (3*Diff[Half[S2[1, n], n], n, 2]^2)/4 + 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/4 - 
   (2*Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 - 
   Diff[S2[1, n], n, 1]^3/4 - (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/2 + (3*Diff[S2[1, n], n, 2]^2)/4 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/3 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (7*Diff[S2[1, n], n, 5])/120 + Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[-1, 1, n], n, 1] - Diff[S2[1, n], n, 2]*
    Diff[S2[-1, 1, n], n, 1] + 2*Diff[S2[-1, 1, n], n, 1]^2 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2] + 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, n], n, 3]/3 - 4*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + 4*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, 1, n], n, 2]/2 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1] - 
   2*Diff[S2[-1, 1, 1, 1, -1, n], n, 1] + Diff[S2[1, 1, -1, 1, -1, n], n, 
    1] + (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/
    2 - (2*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/3 - 
   Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n] + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/12 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 + 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]^5)/40 - 
   Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n] + 
   Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n] + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] - 
   Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n] + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/12 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (2*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/3 + Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] + Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + Diff[S2[-1, 1, n], n, 2]*
    Half[S2[1, n], n]*S2[1, n] + 2*Diff[S2[-1, 1, 1, n], n, 1]*
    Half[S2[1, n], n]*S2[1, n] - (3*S2[-1, Infinity]^5*S2[1, n])/40 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/4 - (Diff[S2[1, n], n, 3]*S2[1, n]^2)/
    24 - Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 - 
   (Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/2 + 
   (9*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/3 - 
   (19*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/
    4 + (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 - 
   (3*Diff[S2[1, n], n, 3]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/2 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity] - 
   (5*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/2 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity] + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/4 - Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*
    S2[2, Infinity] + Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
    S2[2, Infinity] + Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity] - 
   (13*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] - 
   2*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] + 3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
    S2[2, Infinity] + (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/2 - (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*
     S2[1, n]*S2[2, Infinity])/4 - S2[-1, Infinity]^3*S2[1, n]*
    S2[2, Infinity] + (9*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/4 - (11*Diff[S2[1, n], n, 1]*S2[1, n]^2*
     S2[2, Infinity])/4 + (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/
    2 - (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/4 - 
   Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity] + 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (S2[1, n]^4*S2[2, Infinity])/2 + (5*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/4 - (113*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (11*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/10 - 
   (129*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   2*S2[-1, Infinity]^2*S2[2, Infinity]^2 - 
   (11*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (129*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (101*S2[1, n]^2*S2[2, Infinity]^2)/80 + (27*S2[2, Infinity]^3)/560 - 
   (13*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/16 + 
   (13*Diff[S2[1, n], n, 2]*S2[3, Infinity])/16 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/4 + 
   (13*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/16 + 
   (13*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/8 - 
   (39*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (13*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/16 + 
   (13*S2[1, n]^3*S2[3, Infinity])/16 - 
   (101*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/4 + 
   (101*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (109*S2[3, Infinity]^2)/32 - (47*Half[S2[1, n], n]*S2[5, Infinity])/16 + 
   (47*S2[1, n]*S2[5, Infinity])/16 + S2[-5, -1, Infinity] + 
   (2*Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/2 + 
   (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/2 - 
   (2*Diff[S2[1, n], n, 3]*S2[-1, 1, n])/3 + Diff[S2[-1, 1, n], n, 2]*
    S2[-1, 1, n] - 2*Diff[S2[-1, 1, 1, n], n, 1]*S2[-1, 1, n] - 
   (3*S2[-1, Infinity]^4*S2[-1, 1, n])/8 - Diff[Half[S2[1, n], n], n, 2]*
    S2[1, n]*S2[-1, 1, n] + Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n] - 
   2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/2 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (39*S2[2, Infinity]^2*S2[-1, 1, n])/10 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/2 + (S2[1, n]^2*S2[-1, 1, n]^2)/2 + 
   (5*S2[2, Infinity]*S2[-1, 1, n]^2)/2 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/3 - Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, -1, n] + (S2[1, n]^3*S2[-1, 1, -1, n])/3 + 
   (2*S2[3, Infinity]*S2[-1, 1, -1, n])/3 - Diff[Half[S2[1, n], n], n, 2]*
    S2[-1, 1, 1, n] + Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n] + 
   2*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n] + 
   Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, 1, 1, n] + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n] - 
   Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n] + 
   S2[1, n]^3*S2[-1, 1, 1, n] - 5*Half[S2[1, n], n]*S2[2, Infinity]*
    S2[-1, 1, 1, n] + (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/
    2 + 5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (39*S2[3, Infinity]*S2[-1, 1, 1, n])/8 + 2*S2[-1, 1, 1, n]^2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 - 2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - 2*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/
    2 + 9*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, 1, -1, 1, 1, n] + 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] - 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   9*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   9*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] - 2*S2[-1, 1, -1, 1, 1, 1, n] + 
   3*S2[-1, 1, 1, 1, -1, 1, n] + S2[1, 1, 1, -1, 1, -1, n], 
 S2[1, -1, 1, 1, -1, 1, n] -> Diff[Half[S2[1, n], n], n, 2]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/2 + 
   Diff[S2[1, n], n, 2]^2/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/6 + (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    6 - Diff[S2[1, n], n, 5]/60 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, n], n, 1]^2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, -1, n], n, 3]/12 - 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 - 
   Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/2 + Diff[S2[1, 1, -1, 1, -1, n], n, 1]/
    2 - (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/6 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/8 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/8 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/40 + S2[-1, Infinity]^6/120 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^4*S2[1, n])/24 - 
   (7*S2[-1, Infinity]^5*S2[1, n])/120 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/24 + Diff[Half[S2[1, n], n], n, 1]^2*
    S2[2, Infinity] + (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]^2*S2[2, Infinity] - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity] + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/24 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]*S2[2, Infinity] - (Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 - (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (11*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/8 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/8 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/5 - 
   (12*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/5 - 
   (37*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (63*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (313*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (39*S2[1, n]^2*S2[2, Infinity]^2)/40 - (5*S2[2, Infinity]^3)/16 + 
   (33*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (53*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (39*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (45*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (13*S2[3, Infinity]^2)/128 - (Half[S2[1, n], n]*S2[5, Infinity])/32 + 
   (657*S2[1, n]*S2[5, Infinity])/128 + (13*S2[-5, -1, Infinity])/4 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/6 - 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] - (S2[-1, Infinity]^4*S2[-1, 1, n])/6 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   (S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (33*S2[2, Infinity]^2*S2[-1, 1, n])/20 - 
   (5*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   2*S2[2, Infinity]*S2[-1, 1, n]^2 + (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/
    12 - (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/3 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - 4*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   3*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (13*S2[3, Infinity]*S2[-1, 1, 1, n])/4 + 2*S2[-1, 1, 1, n]^2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/2 - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, n] + 2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 3*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - 3*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - Half[S2[1, n], n]*S2[1, n]*
    S2[-1, 1, 1, 1, Infinity] + S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 3*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + 7*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   (S2[1, n]*S2[1, 1, -1, 1, -1, n])/2 + S2[-1, 1, -1, 1, 1, 1, n] - 
   6*S2[-1, 1, 1, 1, 1, 1, Infinity] + S2[1, 1, 1, -1, 1, -1, n], 
 S2[1, -1, 1, 1, 1, -1, n] -> -Diff[Half[S2[1, n], n], n, 2]^2/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/2 - 
   Diff[S2[1, n], n, 2]^2/4 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/6 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    6 + Diff[S2[1, n], n, 5]/60 - (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/2 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, n], n, 1]^2 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/2 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 - 
   Diff[S2[-1, 1, -1, n], n, 3]/6 + 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + Diff[S2[-1, 1, 1, 1, -1, n], n, 1] + 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/6 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/24 + S2[-1, Infinity]^6/360 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + 2*Diff[S2[-1, 1, 1, 1, n], n, 1]*
    S2[1, n] + (S2[-1, Infinity]^5*S2[1, n])/24 - 
   Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 + 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   Diff[S2[1, n], n, 1]^2*S2[2, Infinity] + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + Diff[S2[-1, 1, 1, n], n, 1]*
    S2[2, Infinity] + 2*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*
    S2[2, Infinity] - 3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*
    S2[2, Infinity] + Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*
    S2[2, Infinity] - Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
    S2[2, Infinity] - (Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity])/
    3 + (7*S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   2*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity] + 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2 + 
   Diff[S2[1, n], n, 1]*S2[2, Infinity]^2 - 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/5 + 
   4*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2 - 
   (23*S2[-1, Infinity]^2*S2[2, Infinity]^2)/10 + 
   (6*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 - 
   4*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2 - 
   (3*S2[1, n]^2*S2[2, Infinity]^2)/5 - (47*S2[2, Infinity]^3)/70 - 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/4 + 
   (7*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/2 - 
   (63*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/2 - 
   (213*S2[3, Infinity]^2)/128 + Half[S2[1, n], n]*S2[5, Infinity] - 
   S2[1, n]*S2[5, Infinity] + S2[-5, -1, Infinity]/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/6 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/6 + 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (5*S2[-1, Infinity]^4*S2[-1, 1, n])/24 - 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n] - 
   (12*S2[2, Infinity]^2*S2[-1, 1, n])/5 - 2*S2[2, Infinity]*S2[-1, 1, n]^2 - 
   2*Diff[S2[-1, 1, n], n, 1]*S2[-1, 1, 1, n] + 
   4*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (9*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 - 
   4*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (27*S2[3, Infinity]*S2[-1, 1, 1, n])/8 - 2*S2[-1, 1, 1, n]^2 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] - 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] + 
   (3*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] + 2*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - (3*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/
    2 - 5*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 4*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, n] + 4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   5*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - S2[-1, 1, 1, 1, -1, 1, n] - 
   2*S2[-1, 1, 1, 1, 1, 1, Infinity], S2[1, -1, 1, 1, 1, 1, n] -> 
  -Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - S2[-1, Infinity]^6/240 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (7*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 + S2[3, Infinity]^2/4 + 
   Half[S2[1, n], n]*S2[5, Infinity] - S2[1, n]*S2[5, Infinity] + 
   S2[-5, -1, Infinity]/2 + (2*S2[2, Infinity]^2*S2[-1, 1, n])/5 + 
   S2[3, Infinity]*S2[-1, 1, 1, n] + S2[2, Infinity]*S2[-1, 1, 1, 1, n] - 
   S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 5*S2[-1, 1, 1, 1, 1, 1, n] + 
   3*S2[-1, 1, 1, 1, 1, 1, Infinity], S2[1, 1, -1, -1, -1, 1, n] -> 
  (Diff[Half[S2[1, n], n]^3, n, 1]*Diff[S2[1, n], n, 1])/12 - 
   Diff[S2[1, 1, -1, -1, -1, n], n, 1] - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2)/
    4 + S2[-1, Infinity]^6/240 - (S2[-1, Infinity]^5*S2[1, n])/120 + 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[1, n]^2)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/8 - 
   (Diff[Half[S2[1, n], n]^3, n, 1]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 + 
   (5*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (7*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 + 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (5*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 - 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 - 
   (3*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity] + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 + 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (19*S2[-1, Infinity]^4*S2[2, Infinity])/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/
    4 - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/16 + 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (S2[1, n]^4*S2[2, Infinity])/8 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/8 - (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/40 + 
   (Half[S2[1, n], n]^2*S2[2, Infinity]^2)/4 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/16 - 
   (11*S2[-1, Infinity]^2*S2[2, Infinity]^2)/80 - 
   (3*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/8 + 
   (49*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 - 
   (7*S2[1, n]^2*S2[2, Infinity]^2)/40 + (669*S2[2, Infinity]^3)/560 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 + Diff[S2[-1, 1, n], n, 1]*
    S2[3, Infinity] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[3, Infinity])/2 - Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[3, Infinity] + (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 - 
   (S2[1, n]^3*S2[3, Infinity])/2 - (51*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/64 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/2 - (119*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   S2[3, Infinity]^2/8 + (125*S2[1, n]*S2[5, Infinity])/32 + 
   2*S2[-5, -1, Infinity] + (3*S2[2, Infinity]*S2[-3, 1, n])/8 + 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   S2[1, n]*S2[3, Infinity]*S2[-1, 1, n] + (S2[2, Infinity]*S2[-1, 1, n]^2)/
    8 + (Half[S2[1, n], n]*S2[2, Infinity]*S2[2, 1, n])/8 + 
   (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (S2[2, Infinity]*S2[-2, 1, -1, n])/2 + (S2[2, Infinity]*S2[-1, -2, -1, n])/
    8 + (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 - 
   (Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   S2[3, Infinity]*S2[-1, 1, 1, n] + (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (S2[2, Infinity]*S2[2, 1, -1, n])/4 - (S2[2, Infinity]*S2[2, 1, 1, n])/2 - 
   (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/4 + 
   (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + S2[1, n]*S2[1, 1, -1, -1, -1, n] - 
   3*S2[-1, 1, 1, 1, 1, 1, Infinity] - S2[1, 1, -1, -1, 1, -1, n] - 
   S2[1, 1, -1, 1, -1, -1, n] - 3*S2[1, 1, 1, -1, -1, -1, n], 
 S2[1, 1, -1, -1, 1, 1, n] -> (5*Diff[Half[S2[1, n], n], n, 2]^2)/16 + 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/12 - 
   Diff[Half[S2[1, n], n], n, 5]/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[2, 1, n], n], n, 1])/8 - 
   Diff[Half[S2[2, 1, n], n], n, 3]/16 - Diff[Half[S2[2, 1, 1, n], n], n, 2]/
    8 - (11*Diff[Half[S2[1, n], n], n, 1]^2*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*Diff[S2[1, n], n, 1])/16 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/2 - 
   (3*Diff[S2[1, n], n, 1]^3)/16 + (7*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/16 - (3*Diff[S2[1, n], n, 2]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/3 - 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/32 + 
   (9*Diff[S2[1, n], n, 5])/160 - (3*Diff[S2[-3, 1, n], n, 2])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-2, 1, n], n, 1])/2 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-2, 1, n], n, 1])/4 - 
   Diff[S2[-2, 1, n], n, 3]/4 + (3*Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/8 + 
   (3*Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/8 + 
   (3*Diff[S2[-1, 1, n], n, 1]^2)/4 + 
   (17*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/16 - 
   (5*Diff[S2[-1, 1, n], n, 4])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[2, 1, n], n, 1])/4 - 
   Diff[S2[1, n], n, 1]*Diff[S2[2, 1, n], n, 1] + Diff[S2[2, 1, n], n, 3]/4 + 
   Diff[S2[-2, 1, -1, n], n, 2]/2 - Diff[S2[-1, -2, -1, n], n, 2]/8 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 + 
   Diff[S2[-1, 1, -1, n], n, 3]/3 - Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + 
   (5*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/4 - 
   Diff[S2[-1, 1, 1, n], n, 3]/4 - Diff[S2[1, 2, -1, n], n, 2]/2 - 
   Diff[S2[2, 1, -1, n], n, 2]/4 + Diff[S2[2, 1, 1, n], n, 2]/2 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    2 + Diff[S2[1, 1, -1, 1, -1, n], n, 1] + 
   3*Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (3*Diff[Half[S2[1, n], n], n, 4]*Half[S2[1, n], n])/16 + 
   (Diff[Half[S2[2, 1, n], n], n, 2]*Half[S2[1, n], n])/16 - 
   (15*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n])/
    16 - (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/4 + (3*Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*
     Half[S2[1, n], n])/4 - (Diff[S2[-2, 1, n], n, 2]*Half[S2[1, n], n])/4 - 
   (7*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n])/8 + 
   (5*Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/24 - 
   (Diff[S2[2, 1, n], n, 2]*Half[S2[1, n], n])/8 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*Half[S2[1, n], n])/2 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (3*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]^2)/8 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]^2)/8 + 
   (Diff[Half[S2[1, n], n], n, 2]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 2]*Half[S2[2, 1, n], n])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*Half[S2[2, 1, n], n])/16 + 
   (Diff[S2[1, n], n, 1]*Half[S2[2, 1, 1, n], n])/8 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/12 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/20 + (17*S2[-1, Infinity]^6)/1440 - 
   (7*Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 2]*S2[1, n])/
    8 + (3*Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/16 + 
   (3*Diff[Half[S2[2, 1, n], n], n, 2]*S2[1, n])/16 + 
   (Diff[Half[S2[2, 1, 1, n], n], n, 1]*S2[1, n])/4 + 
   (7*Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/16 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/4 - 
   (7*Diff[S2[1, n], n, 4]*S2[1, n])/48 + 
   (3*Diff[S2[-3, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[-2, 1, n], n, 2]*S2[1, n])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/4 + 
   (3*Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/8 + 
   (2*Diff[S2[-1, 1, n], n, 3]*S2[1, n])/3 - 
   (7*Diff[S2[2, 1, n], n, 2]*S2[1, n])/8 - Diff[S2[-2, 1, -1, n], n, 1]*
    S2[1, n] + (Diff[S2[-1, -2, -1, n], n, 1]*S2[1, n])/4 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/2 + Diff[S2[1, 2, -1, n], n, 1]*
    S2[1, n] + (Diff[S2[2, 1, -1, n], n, 1]*S2[1, n])/2 - 
   Diff[S2[2, 1, 1, n], n, 1]*S2[1, n] - 2*Diff[S2[-1, 1, 1, 1, n], n, 1]*
    S2[1, n] - (5*Diff[Half[S2[1, n], n], n, 3]*Half[S2[1, n], n]*S2[1, n])/
    8 - (Diff[Half[S2[2, 1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n])/8 + 
   (9*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[1, n])/4 - (9*Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/4 + 
   (Diff[S2[-2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/2 - 
   Diff[S2[-1, 1, n], n, 2]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[S2[2, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n])/4 - 
   Diff[S2[-1, 1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n] + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]^2*S2[1, n])/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[2, 1, n], n]*S2[1, n])/16 - 
   (S2[-1, Infinity]^5*S2[1, n])/10 + 
   (11*Diff[Half[S2[1, n], n], n, 1]^2*S2[1, n]^2)/16 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/4 - 
   (3*Diff[Half[S2[2, 1, n], n], n, 1]*S2[1, n]^2)/16 - 
   (11*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 + 
   (39*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/16 - 
   (17*Diff[S2[1, n], n, 3]*S2[1, n]^2)/96 - 
   (3*Diff[S2[-2, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/16 + Diff[S2[2, 1, n], n, 1]*
    S2[1, n]^2 + (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 + 
   (3*Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/4 + 
   (15*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/16 - 
   (5*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/4 + 
   (7*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^2)/8 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[1, n]^2)/4 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[1, n]^2)/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[1, n]^2)/8 + (S2[-1, Infinity]^4*S2[1, n]^2)/
    12 - (13*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/16 + 
   Diff[S2[1, n], n, 2]*S2[1, n]^3 - (5*Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/
    8 - (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/4 + 
   2*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3 + 
   (Half[S2[2, 1, n], n]*S2[1, n]^3)/16 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 + (Half[S2[1, n], n]^2*S2[1, n]^4)/
    8 - (Half[S2[1, n], n]*S2[1, n]^5)/4 + S2[1, n]^6/8 + 
   (7*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 - 
   (Diff[Half[S2[2, 1, n], n], n, 1]*S2[2, Infinity])/16 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/8 + 
   (7*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 + 
   (23*Diff[S2[1, n], n, 3]*S2[2, Infinity])/96 - 
   (Diff[S2[-2, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (7*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/16 + 
   (Diff[S2[2, 1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/2 - 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/4 - 
   (5*Diff[Half[S2[1, n], n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/8 - 
   (13*Diff[S2[-1, 1, n], n, 1]*Half[S2[1, n], n]*S2[2, Infinity])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]^2*S2[2, Infinity])/8 + 
   (Half[S2[1, n], n]*Half[S2[2, 1, n], n]*S2[2, Infinity])/16 - 
   (Half[S2[2, 1, 1, n], n]*S2[2, Infinity])/8 - 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (9*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/16 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/16 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/4 + (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/16 + (Half[S2[1, n], n]*S2[-1, Infinity]^3*
     S2[2, Infinity])/2 - (65*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (9*Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/2 + 
   (17*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/8 + 
   (3*Diff[Half[S2[1, n], n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/4 - (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*
     S2[2, Infinity])/8 + (Half[S2[2, 1, n], n]*S2[1, n]*S2[2, Infinity])/
    16 + (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (27*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/16 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/2 - 
   (5*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (Half[S2[1, n], n]^2*S2[1, n]^2*S2[2, Infinity])/8 - 
   (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*S2[2, Infinity])/16 + 
   (7*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (9*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/16 + 
   (S2[1, n]^4*S2[2, Infinity])/8 + (9*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/10 + (23*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/
    160 + (7*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/20 - 
   (249*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/80 - 
   (349*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (17*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (249*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (47*S2[1, n]^2*S2[2, Infinity]^2)/160 - (383*S2[2, Infinity]^3)/224 - 
   (7*Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/64 + 
   (37*Diff[S2[1, n], n, 2]*S2[3, Infinity])/64 + 
   (7*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 + 
   (7*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/64 + 
   (7*Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/32 - 
   (111*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/64 - 
   (7*Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/64 + 
   (37*S2[1, n]^3*S2[3, Infinity])/64 - 
   (195*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (21*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/32 + 
   (361*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/64 + 
   (315*S2[3, Infinity]^2)/256 - (95*Half[S2[1, n], n]*S2[5, Infinity])/64 + 
   (405*S2[1, n]*S2[5, Infinity])/128 + (11*S2[-5, -1, Infinity])/8 + 
   (3*Diff[S2[1, n], n, 1]*S2[-3, 1, n])/8 - (3*S2[1, n]^2*S2[-3, 1, n])/8 - 
   (3*S2[2, Infinity]*S2[-3, 1, n])/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 2]*S2[-2, 1, n])/4 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-2, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[-2, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-2, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-2, 1, n])/4 + 
   (S2[1, n]^3*S2[-2, 1, n])/4 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-2, 1, n])/4 + (S2[1, n]*S2[2, Infinity]*S2[-2, 1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[-1, 1, n])/4 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/3 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[-1, 1, n])/4 - 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] - (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[-1, 1, n])/4 - 
   (S2[-1, Infinity]^4*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[-1, 1, n])/4 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[-1, 1, n])/2 + 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[-1, 1, n])/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[-1, 1, n])/4 + 
   (S2[1, n]^4*S2[-1, 1, n])/4 + (7*Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (11*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (9*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (109*S2[2, Infinity]^2*S2[-1, 1, n])/40 + 
   (21*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, n]^2)/8 - (S2[1, n]^2*S2[-1, 1, n]^2)/8 + 
   (15*S2[2, Infinity]*S2[-1, 1, n]^2)/8 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[2, 1, n])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[2, 1, n])/8 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[2, 1, n])/8 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[2, 1, n])/4 + 
   (9*Diff[S2[1, n], n, 1]*S2[1, n]*S2[2, 1, n])/8 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[2, 1, n])/8 - 
   (3*S2[1, n]^3*S2[2, 1, n])/8 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[2, 1, n])/8 - (3*S2[1, n]*S2[2, Infinity]*S2[2, 1, n])/8 - 
   (Diff[S2[1, n], n, 1]*S2[-2, 1, -1, n])/2 + (S2[1, n]^2*S2[-2, 1, -1, n])/
    2 + (S2[2, Infinity]*S2[-2, 1, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, -2, -1, n])/8 - 
   (S2[1, n]^2*S2[-1, -2, -1, n])/8 - (S2[2, Infinity]*S2[-1, -2, -1, n])/8 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 + 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/6 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[-1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/2 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[-1, 1, 1, n])/2 - Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] + (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[-1, 1, 1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, 1, n])/2 - (7*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/2 + (9*S2[-1, Infinity]*S2[2, Infinity]*
     S2[-1, 1, 1, n])/4 + (7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (39*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 2*S2[-1, 1, 1, n]^2 + 
   (Diff[S2[1, n], n, 1]*S2[1, 2, -1, n])/2 - (S2[1, n]^2*S2[1, 2, -1, n])/
    2 - (S2[2, Infinity]*S2[1, 2, -1, n])/2 + 
   (Diff[S2[1, n], n, 1]*S2[2, 1, -1, n])/4 - (S2[1, n]^2*S2[2, 1, -1, n])/
    4 - (S2[2, Infinity]*S2[2, 1, -1, n])/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, 1, 1, n])/2 + (S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (S2[2, Infinity]*S2[2, 1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 - 2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - 2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   6*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 6*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + 12*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] - 3*S2[1, n]*S2[1, 1, 1, -1, -1, n] - 
   S2[-1, 1, -1, 1, 1, 1, n]/2 + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 - 
   (17*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 + (5*S2[1, 1, 1, -1, 1, -1, n])/2 + 
   6*S2[1, 1, 1, 1, -1, -1, n], S2[1, 1, -1, 1, -1, 1, n] -> 
  -Diff[Half[S2[1, n], n], n, 2]^2/2 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/3 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/3 + 
   Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2] - 
   Diff[S2[1, n], n, 2]^2/2 + (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/3 - (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    3 + Diff[S2[1, n], n, 5]/30 - Diff[Half[S2[1, n], n], n, 2]*
    Diff[S2[-1, 1, n], n, 1] + Diff[S2[1, n], n, 2]*
    Diff[S2[-1, 1, n], n, 1] - 2*Diff[S2[-1, 1, n], n, 1]^2 + 
   Diff[Half[S2[1, n], n], n, 1]*Diff[S2[-1, 1, n], n, 2] - 
   Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/2 - 
   Diff[S2[-1, 1, -1, n], n, 3]/6 + 4*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - 4*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + Diff[S2[-1, 1, -1, 1, n], n, 2]/2 + 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1] + Diff[S2[-1, 1, 1, 1, -1, n], n, 1] - 
   Diff[S2[1, 1, -1, 1, -1, n], n, 1] + 
   (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/3 - 
   4*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/6 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/6 - 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/10 - S2[-1, Infinity]^6/360 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/3 - 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/2 - 
   Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n] + 
   4*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (2*S2[-1, Infinity]^5*S2[1, n])/15 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/2 - 
   2*Diff[Half[S2[1, n], n], n, 1]^2*S2[2, Infinity] - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 + 
   4*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] - 
   2*Diff[S2[1, n], n, 1]^2*S2[2, Infinity] + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 - 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/2 + 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 4*Diff[S2[-1, 1, n], n, 1]*
    Half[S2[1, n], n]*S2[2, Infinity] - 3*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, Infinity]*S2[2, Infinity] + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 - 
   Half[S2[1, n], n]*S2[-1, Infinity]^3*S2[2, Infinity] + 
   (5*S2[-1, Infinity]^4*S2[2, Infinity])/24 - 4*Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]*S2[2, Infinity] + (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*
     S2[1, n]*S2[2, Infinity])/2 + (2*S2[-1, Infinity]^3*S2[1, n]*
     S2[2, Infinity])/3 - (3*S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/
    2 - (31*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/20 + 
   (31*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/20 - 
   (6*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/5 + 
   (147*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/20 - 
   (17*S2[-1, Infinity]^2*S2[2, Infinity]^2)/10 + 
   (39*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (83*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (3*S2[1, n]^2*S2[2, Infinity]^2)/4 + (137*S2[2, Infinity]^3)/280 - 
   (5*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/2 + 
   8*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity] - 
   (81*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (115*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 - 
   (405*S2[3, Infinity]^2)/128 + (95*Half[S2[1, n], n]*S2[5, Infinity])/32 - 
   (219*S2[1, n]*S2[5, Infinity])/32 - (3*S2[-5, -1, Infinity])/2 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/3 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/3 + 4*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] + (S2[-1, Infinity]^4*S2[-1, 1, n])/2 - 
   4*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   4*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] + 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 
   3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n] - 
   (47*S2[2, Infinity]^2*S2[-1, 1, n])/10 - S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] - 4*S2[2, Infinity]*S2[-1, 1, n]^2 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/2 - 
   (S2[1, n]^3*S2[-1, 1, -1, n])/6 + 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/2 - 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/3 - 4*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] + 8*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   6*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   7*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (13*S2[3, Infinity]*S2[-1, 1, 1, n])/2 - 4*S2[-1, 1, 1, n]^2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/2 - (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    2 + 4*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] - 
   4*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] + 
   S2[2, Infinity]*S2[-1, 1, 1, 1, n] + 8*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] - 
   4*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, Infinity] + 
   4*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity] - 
   S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   12*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] - 
   S2[1, n]*S2[-1, 1, -1, 1, 1, n] + 3*S2[1, n]*S2[-1, 1, 1, 1, -1, n] - 
   8*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] + 
   8*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 12*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] - 16*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[1, 1, -1, 1, -1, n] + S2[-1, 1, -1, 1, 1, 1, n] - 
   3*S2[-1, 1, 1, 1, -1, 1, n] + 2*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   2*S2[1, 1, 1, -1, 1, -1, n], S2[1, 1, -1, 1, 1, -1, n] -> 
  Diff[Half[S2[1, n], n], n, 2]^2/4 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[Half[S2[1, n], n], n, 3])/6 - 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/6 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 2])/2 + 
   Diff[S2[1, n], n, 2]^2/4 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[1, n], n, 3])/6 + (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    6 - Diff[S2[1, n], n, 5]/60 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[-1, 1, n], n, 1])/2 - 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/2 + 
   Diff[S2[-1, 1, n], n, 1]^2 - (Diff[Half[S2[1, n], n], n, 1]*
     Diff[S2[-1, 1, n], n, 2])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/2 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, -1, n], n, 1])/4 + 
   Diff[S2[-1, 1, -1, n], n, 3]/12 - 2*Diff[Half[S2[1, n], n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + 2*Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] - Diff[S2[-1, 1, -1, 1, n], n, 2]/4 - 
   Diff[S2[-1, 1, -1, 1, 1, n], n, 1]/2 - Diff[S2[-1, 1, 1, 1, -1, n], n, 1]/
    2 - (Diff[S2[-1, 1, n], n, 3]*Half[S2[1, n], n])/6 + 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*Half[S2[1, n], n] - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^4)/12 + 
   (5*Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 + 
   (Half[S2[1, n], n]*S2[-1, Infinity]^5)/20 - S2[-1, Infinity]^6/480 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, -1, n], n, 2]*S2[1, n])/4 + 
   (Diff[S2[-1, 1, -1, 1, n], n, 1]*S2[1, n])/2 - 
   2*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - (S2[-1, Infinity]^5*S2[1, n])/
    20 - (Diff[S2[-1, 1, -1, n], n, 1]*S2[1, n]^2)/4 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 + Diff[Half[S2[1, n], n], n, 1]^2*
    S2[2, Infinity] + (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   2*Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity] + 
   Diff[S2[1, n], n, 1]^2*S2[2, Infinity] - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/8 + 
   (Diff[S2[-1, 1, -1, n], n, 1]*S2[2, Infinity])/4 - 
   Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 2*Diff[S2[-1, 1, n], n, 1]*
    Half[S2[1, n], n]*S2[2, Infinity] + 
   (3*Diff[Half[S2[1, n], n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 - 
   (3*Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/8 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[-1, Infinity]*
     S2[2, Infinity])/8 - (Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/4 + (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*
     S2[2, Infinity])/2 + (Half[S2[1, n], n]*S2[-1, Infinity]^3*
     S2[2, Infinity])/2 - (31*S2[-1, Infinity]^4*S2[2, Infinity])/96 + 
   (9*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Diff[Half[S2[1, n], n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/4 + (9*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*
     S2[2, Infinity])/8 - (3*Half[S2[1, n], n]*S2[-1, Infinity]^2*S2[1, n]*
     S2[2, Infinity])/4 + (3*Half[S2[1, n], n]*S2[-1, Infinity]*S2[1, n]^2*
     S2[2, Infinity])/8 + (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (3*S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/8 + 
   (41*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/40 - 
   (199*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/160 + 
   (3*Half[S2[1, n], n]^2*S2[2, Infinity]^2)/5 - 
   (81*Half[S2[1, n], n]*S2[-1, Infinity]*S2[2, Infinity]^2)/20 + 
   (361*S2[-1, Infinity]^2*S2[2, Infinity]^2)/160 - 
   (49*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 + 
   (279*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/80 + 
   (27*S2[1, n]^2*S2[2, Infinity]^2)/32 + (155*S2[2, Infinity]^3)/224 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/32 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/32 + 
   (21*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/16 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/32 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/32 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/32 - 
   (S2[1, n]^3*S2[3, Infinity])/32 - (121*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/32 + (105*S2[-1, Infinity]*S2[2, Infinity]*
     S2[3, Infinity])/32 + (123*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/
    32 + (447*S2[3, Infinity]^2)/256 - (95*Half[S2[1, n], n]*S2[5, Infinity])/
    64 + (161*S2[1, n]*S2[5, Infinity])/128 - S2[-5, -1, Infinity]/8 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/6 - 2*Diff[S2[-1, 1, 1, n], n, 1]*
    S2[-1, 1, n] - (S2[-1, Infinity]^4*S2[-1, 1, n])/4 + 
   2*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]*S2[-1, 1, n] - 
   (15*Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/8 - 
   (3*S2[-1, Infinity]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/8 + 
   (109*S2[2, Infinity]^2*S2[-1, 1, n])/40 + 
   (7*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/16 + 
   2*S2[2, Infinity]*S2[-1, 1, n]^2 + (Diff[S2[1, n], n, 2]*S2[-1, 1, -1, n])/
    12 - (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, -1, n])/4 + 
   (S2[1, n]^3*S2[-1, 1, -1, n])/12 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, -1, n])/4 + 
   (S2[3, Infinity]*S2[-1, 1, -1, n])/6 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[-1, 1, 1, n] - 4*Half[S2[1, n], n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (15*S2[-1, Infinity]*S2[2, Infinity]*S2[-1, 1, 1, n])/4 + 
   4*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] + 
   (53*S2[3, Infinity]*S2[-1, 1, 1, n])/16 + 2*S2[-1, 1, 1, n]^2 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, -1, 1, n])/4 - 
   (S2[1, n]^2*S2[-1, 1, -1, 1, n])/4 + (S2[2, Infinity]*S2[-1, 1, -1, 1, n])/
    4 - 2*Diff[Half[S2[1, n], n], n, 1]*S2[-1, 1, 1, 1, n] + 
   2*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n] - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/4 - 
   4*S2[-1, 1, n]*S2[-1, 1, 1, 1, n] + 2*Diff[Half[S2[1, n], n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - (5*Diff[S2[1, n], n, 1]*
     S2[-1, 1, 1, 1, Infinity])/2 + (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/
    2 + (7*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/4 + 
   6*S2[-1, 1, n]*S2[-1, 1, 1, 1, Infinity] + 
   (S2[1, n]*S2[-1, 1, -1, 1, 1, n])/2 - (3*S2[1, n]*S2[-1, 1, 1, 1, -1, n])/
    2 + 4*Half[S2[1, n], n]*S2[-1, 1, 1, 1, 1, n] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 6*Half[S2[1, n], n]*
    S2[-1, 1, 1, 1, 1, Infinity] + 6*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[-1, 1, -1, 1, 1, 1, n]/2 + (3*S2[-1, 1, 1, 1, -1, 1, n])/2 + 
   (3*S2[-1, 1, 1, 1, 1, 1, Infinity])/2 - S2[1, 1, 1, -1, 1, -1, n]/2, 
 S2[1, 1, -1, 1, 1, 1, n] -> Diff[S2[-1, 1, 1, 1, n], n, 2]/2 + 
   4*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + S2[-1, Infinity]^6/72 - 
   Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - (S2[-1, Infinity]^5*S2[1, n])/
    40 - Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/8 - 
   (2*Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/5 + 
   (2*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 + 
   (2*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (3*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 - 
   (2*S2[1, n]^2*S2[2, Infinity]^2)/5 - (29*S2[2, Infinity]^3)/70 - 
   Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity] + 
   Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity] - 
   (3*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/2 - 
   (S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 - (17*S2[3, Infinity]^2)/8 - 
   2*Half[S2[1, n], n]*S2[5, Infinity] + (65*S2[1, n]*S2[5, Infinity])/32 - 
   (S2[2, Infinity]^2*S2[-1, 1, n])/2 + S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] + S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   3*S2[3, Infinity]*S2[-1, 1, 1, n] - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - (7*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    2 + 4*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   3*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 10*S2[-1, 1, 1, 1, 1, 1, n] - 
   10*S2[-1, 1, 1, 1, 1, 1, Infinity], S2[1, 1, 1, -1, -1, 1, n] -> 
  -Diff[S2[1, 1, 1, -1, -1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^6/240 + 
   (S2[-1, Infinity]^5*S2[1, n])/60 - (S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/12 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/2 + 
   (7*S2[-1, Infinity]^4*S2[2, Infinity])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (2*S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/2 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 + 
   (S2[1, n]^4*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/4 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 + 
   (53*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/4 - 
   (8*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/5 + 
   (S2[1, n]^2*S2[2, Infinity]^2)/10 + S2[2, Infinity]^3/2 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (S2[1, n]^3*S2[3, Infinity])/6 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/6 - (31*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 + 
   S2[3, Infinity]^2/12 + (S2[1, n]*S2[5, Infinity])/32 - 
   S2[-5, -1, Infinity]/2 - (Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/4 + (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[2, Infinity]^2*S2[-1, 1, n])/4 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   2*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 
   S2[1, n]*S2[1, 1, 1, -1, -1, n] + 3*S2[-1, 1, 1, 1, 1, 1, Infinity] - 
   S2[1, 1, 1, -1, 1, -1, n] - 4*S2[1, 1, 1, 1, -1, -1, n], 
 S2[1, 1, 1, -1, 1, 1, n] -> 
  (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/6 - (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 - 
   6*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/16 - S2[-1, Infinity]^6/60 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 + 
   3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] + 
   (7*S2[-1, Infinity]^5*S2[1, n])/120 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/16 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/2 + 
   (5*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/16 - Diff[S2[-1, 1, n], n, 1]*
    S2[1, n]*S2[2, Infinity] + (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/
    6 + (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/10 - 
   (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/8 + 
   (27*S2[-1, Infinity]^2*S2[2, Infinity]^2)/40 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 - 
   (37*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (3*S2[1, n]^2*S2[2, Infinity]^2)/8 + (111*S2[2, Infinity]^3)/280 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/2 + 2*Diff[S2[-1, 1, n], n, 1]*
    S2[3, Infinity] - (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*
     S2[3, Infinity])/2 - Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*
    S2[3, Infinity] + (3*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/2 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 - 
   (S2[1, n]^3*S2[3, Infinity])/2 - (3*Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/2 + 3*S2[-1, Infinity]*S2[2, Infinity]*
    S2[3, Infinity] - (13*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/8 + 
   (11*S2[3, Infinity]^2)/4 + 2*Half[S2[1, n], n]*S2[5, Infinity] - 
   (127*S2[1, n]*S2[5, Infinity])/32 - S2[-5, -1, Infinity]/2 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]*S2[-1, 1, n])/2 + 
   (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/2 - 2*S2[1, n]*S2[3, Infinity]*
    S2[-1, 1, n] + (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/6 - 
   (5*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (10*S2[3, Infinity]*S2[-1, 1, 1, n])/3 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (9*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   6*S2[1, n]*S2[-1, 1, 1, 1, 1, n] - 
   7*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 10*S2[-1, 1, 1, 1, 1, 1, n] + 
   12*S2[-1, 1, 1, 1, 1, 1, Infinity], S2[1, 1, 1, 1, -1, 1, n] -> 
  -(Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 + 
   Diff[S2[-1, 1, n], n, 4]/24 - Diff[S2[1, n], n, 1]*
    Diff[S2[-1, 1, 1, n], n, 1] + Diff[S2[-1, 1, 1, n], n, 3]/3 + 
   (3*Diff[S2[-1, 1, 1, 1, n], n, 2])/2 + 
   4*Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/12 + S2[-1, Infinity]^6/120 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 - 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 - Diff[S2[-1, 1, 1, n], n, 2]*
    S2[1, n] - 3*Diff[S2[-1, 1, 1, 1, n], n, 1]*S2[1, n] - 
   (S2[-1, Infinity]^5*S2[1, n])/24 + (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/
    4 + Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2 + 
   (S2[-1, Infinity]^4*S2[1, n]^2)/12 - (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/
    6 - (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/6 - 
   (3*Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 - 
   2*Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity] + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/6 - 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 - 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^4*S2[2, Infinity])/24 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/2 - 
   (2*Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/3 + 
   (3*Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/2 + 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/3 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/2 + 
   Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity] + 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 + 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/6 - 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 - 
   (S2[1, n]^4*S2[2, Infinity])/6 + (Diff[Half[S2[1, n], n], n, 1]*
     S2[2, Infinity]^2)/10 + (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/5 - 
   (2*S2[-1, Infinity]^2*S2[2, Infinity]^2)/5 - 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/10 + 
   (7*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/4 - 
   (3*S2[1, n]^2*S2[2, Infinity]^2)/5 - (67*S2[2, Infinity]^3)/140 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/2 + 
   (11*Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 - 
   (4*Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/2 + 
   Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity] - 
   (11*Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 - 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/2 + 
   (11*S2[1, n]^3*S2[3, Infinity])/48 + 
   (5*Half[S2[1, n], n]*S2[2, Infinity]*S2[3, Infinity])/6 - 
   2*S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity] + 
   (71*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/48 - 
   (17*S2[3, Infinity]^2)/12 - Half[S2[1, n], n]*S2[5, Infinity] + 
   2*S2[1, n]*S2[5, Infinity] + (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 - 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 + 
   (S2[1, n]^4*S2[-1, 1, n])/24 + (3*Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/4 - (3*S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 + 
   (S2[2, Infinity]^2*S2[-1, 1, n])/8 + 
   (4*S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/3 - 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/3 + Diff[S2[1, n], n, 1]*S2[1, n]*
    S2[-1, 1, 1, n] - (S2[1, n]^3*S2[-1, 1, 1, n])/3 + 
   2*S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n] - 
   (5*S2[3, Infinity]*S2[-1, 1, 1, n])/3 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 + 
   (3*S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 - 
   (5*S2[2, Infinity]*S2[-1, 1, 1, 1, n])/2 + 2*Diff[S2[1, n], n, 1]*
    S2[-1, 1, 1, 1, Infinity] - 2*S2[1, n]^2*S2[-1, 1, 1, 1, Infinity] + 
   2*S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity] - 
   4*S2[1, n]*S2[-1, 1, 1, 1, 1, n] + 
   5*S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] + 5*S2[-1, 1, 1, 1, 1, 1, n] - 
   6*S2[-1, 1, 1, 1, 1, 1, Infinity], S2[1, 1, 1, 1, 1, -1, n] -> 
  -Diff[Half[S2[1, n], n], n, 5]/120 + 
   (Diff[Half[S2[1, n], n], n, 3]*Diff[S2[1, n], n, 1])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]^2)/8 + 
   Diff[S2[1, n], n, 1]^3/8 + (Diff[Half[S2[1, n], n], n, 2]*
     Diff[S2[1, n], n, 2])/12 - Diff[S2[1, n], n, 2]^2/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 3])/24 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/8 + Diff[S2[1, n], n, 5]/120 + 
   (Diff[S2[1, n], n, 2]*Diff[S2[-1, 1, n], n, 1])/6 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 2])/4 - 
   Diff[S2[-1, 1, n], n, 4]/24 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, 1, n], n, 1])/2 - 
   Diff[S2[-1, 1, 1, n], n, 3]/6 - Diff[S2[-1, 1, 1, 1, n], n, 2]/2 - 
   Diff[S2[-1, 1, 1, 1, 1, n], n, 1] - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*Half[S2[1, n], n])/12 + 
   (Diff[S2[1, n], n, 4]*Half[S2[1, n], n])/120 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^4)/48 - S2[-1, Infinity]^6/720 + 
   (Diff[Half[S2[1, n], n], n, 4]*S2[1, n])/24 - 
   (Diff[Half[S2[1, n], n], n, 2]*Diff[S2[1, n], n, 1]*S2[1, n])/4 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/6 + 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/2 - 
   (Diff[S2[1, n], n, 4]*S2[1, n])/20 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[-1, 1, n], n, 1]*S2[1, n])/2 + 
   (Diff[S2[-1, 1, n], n, 3]*S2[1, n])/6 + 
   (Diff[S2[-1, 1, 1, n], n, 2]*S2[1, n])/2 + Diff[S2[-1, 1, 1, 1, n], n, 1]*
    S2[1, n] + (Diff[S2[1, n], n, 1]^2*Half[S2[1, n], n]*S2[1, n])/8 - 
   (Diff[S2[1, n], n, 3]*Half[S2[1, n], n]*S2[1, n])/24 + 
   (S2[-1, Infinity]^5*S2[1, n])/120 - 
   (Diff[Half[S2[1, n], n], n, 3]*S2[1, n]^2)/12 + 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[1, n]^2)/4 - 
   (3*Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/8 + 
   (Diff[S2[1, n], n, 3]*S2[1, n]^2)/8 - 
   (Diff[S2[-1, 1, n], n, 2]*S2[1, n]^2)/4 - 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[1, n]^2)/2 + 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[1, n]^2)/12 - 
   (S2[-1, Infinity]^4*S2[1, n]^2)/48 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]^3)/12 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/6 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]^3)/6 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]^3)/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^4)/24 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^4)/8 + (Half[S2[1, n], n]*S2[1, n]^5)/120 - 
   S2[1, n]^6/120 + (Diff[Half[S2[1, n], n], n, 3]*S2[2, Infinity])/12 - 
   (Diff[Half[S2[1, n], n], n, 1]*Diff[S2[1, n], n, 1]*S2[2, Infinity])/4 + 
   (3*Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/16 + 
   (Diff[S2[-1, 1, n], n, 2]*S2[2, Infinity])/4 + 
   (Diff[S2[-1, 1, 1, n], n, 1]*S2[2, Infinity])/2 - 
   (Diff[S2[1, n], n, 2]*Half[S2[1, n], n]*S2[2, Infinity])/12 + 
   (Diff[S2[1, n], n, 2]*S2[-1, Infinity]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 1]*S2[-1, Infinity]^2*S2[2, Infinity])/4 - 
   (S2[-1, Infinity]^4*S2[2, Infinity])/48 - 
   (Diff[Half[S2[1, n], n], n, 2]*S2[1, n]*S2[2, Infinity])/4 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/4 - 
   (Diff[S2[-1, 1, n], n, 1]*S2[1, n]*S2[2, Infinity])/2 + 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[-1, Infinity]*S2[1, n]*S2[2, Infinity])/4 + 
   (S2[-1, Infinity]^3*S2[1, n]*S2[2, Infinity])/6 + 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]^2*S2[2, Infinity])/4 - 
   (3*Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 - 
   (S2[-1, Infinity]^2*S2[1, n]^2*S2[2, Infinity])/4 - 
   (Half[S2[1, n], n]*S2[1, n]^3*S2[2, Infinity])/12 + 
   (S2[-1, Infinity]*S2[1, n]^3*S2[2, Infinity])/4 + 
   (S2[1, n]^4*S2[2, Infinity])/16 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[2, Infinity]^2)/40 - 
   (Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/10 - 
   (S2[-1, Infinity]^2*S2[2, Infinity]^2)/10 + 
   (Half[S2[1, n], n]*S2[1, n]*S2[2, Infinity]^2)/40 - 
   (S2[-1, Infinity]*S2[1, n]*S2[2, Infinity]^2)/20 + 
   (S2[1, n]^2*S2[2, Infinity]^2)/10 - S2[2, Infinity]^3/80 + 
   (Diff[Half[S2[1, n], n], n, 2]*S2[3, Infinity])/6 - 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/48 + 
   (Diff[S2[-1, 1, n], n, 1]*S2[3, Infinity])/3 - 
   (Diff[S2[1, n], n, 1]*Half[S2[1, n], n]*S2[3, Infinity])/6 - 
   (Diff[Half[S2[1, n], n], n, 1]*S2[1, n]*S2[3, Infinity])/3 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/16 + 
   (Half[S2[1, n], n]*S2[1, n]^2*S2[3, Infinity])/6 - 
   (S2[1, n]^3*S2[3, Infinity])/48 - (Half[S2[1, n], n]*S2[2, Infinity]*
     S2[3, Infinity])/6 + (S2[-1, Infinity]*S2[2, Infinity]*S2[3, Infinity])/
    2 - (7*S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/16 + 
   (7*S2[3, Infinity]^2)/24 + (Half[S2[1, n], n]*S2[5, Infinity])/5 - 
   (S2[1, n]*S2[5, Infinity])/5 - (Diff[S2[1, n], n, 1]^2*S2[-1, 1, n])/8 + 
   (Diff[S2[1, n], n, 3]*S2[-1, 1, n])/24 - 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[-1, 1, n])/6 + 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[-1, 1, n])/4 - 
   (S2[1, n]^4*S2[-1, 1, n])/24 - (Diff[S2[1, n], n, 1]*S2[2, Infinity]*
     S2[-1, 1, n])/4 + (S2[1, n]^2*S2[2, Infinity]*S2[-1, 1, n])/4 - 
   (S2[2, Infinity]^2*S2[-1, 1, n])/40 - 
   (S2[1, n]*S2[3, Infinity]*S2[-1, 1, n])/3 + 
   (Diff[S2[1, n], n, 2]*S2[-1, 1, 1, n])/6 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[-1, 1, 1, n])/2 + 
   (S2[1, n]^3*S2[-1, 1, 1, n])/6 - 
   (S2[1, n]*S2[2, Infinity]*S2[-1, 1, 1, n])/2 + 
   (S2[3, Infinity]*S2[-1, 1, 1, n])/3 + 
   (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, n])/2 - 
   (S2[1, n]^2*S2[-1, 1, 1, 1, n])/2 + (S2[2, Infinity]*S2[-1, 1, 1, 1, n])/
    2 - (Diff[S2[1, n], n, 1]*S2[-1, 1, 1, 1, Infinity])/2 + 
   (S2[1, n]^2*S2[-1, 1, 1, 1, Infinity])/2 - 
   (S2[2, Infinity]*S2[-1, 1, 1, 1, Infinity])/2 + 
   S2[1, n]*S2[-1, 1, 1, 1, 1, n] - S2[1, n]*S2[-1, 1, 1, 1, 1, Infinity] - 
   S2[-1, 1, 1, 1, 1, 1, n] + S2[-1, 1, 1, 1, 1, 1, Infinity], 
 S2[1, 1, 1, 1, 1, 1, n] -> -Diff[S2[1, n], n, 1]^3/48 + 
   Diff[S2[1, n], n, 2]^2/72 + (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 3])/
    48 - Diff[S2[1, n], n, 5]/720 - 
   (Diff[S2[1, n], n, 1]*Diff[S2[1, n], n, 2]*S2[1, n])/12 + 
   (Diff[S2[1, n], n, 4]*S2[1, n])/120 + (Diff[S2[1, n], n, 1]^2*S2[1, n]^2)/
    16 - (Diff[S2[1, n], n, 3]*S2[1, n]^2)/48 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]^3)/36 - (Diff[S2[1, n], n, 1]*S2[1, n]^4)/
    48 + S2[1, n]^6/720 + (Diff[S2[1, n], n, 1]^2*S2[2, Infinity])/16 - 
   (Diff[S2[1, n], n, 3]*S2[2, Infinity])/48 + 
   (Diff[S2[1, n], n, 2]*S2[1, n]*S2[2, Infinity])/12 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]^2*S2[2, Infinity])/8 + 
   (S2[1, n]^4*S2[2, Infinity])/48 - 
   (9*Diff[S2[1, n], n, 1]*S2[2, Infinity]^2)/80 + 
   (9*S2[1, n]^2*S2[2, Infinity]^2)/80 + (61*S2[2, Infinity]^3)/560 + 
   (Diff[S2[1, n], n, 2]*S2[3, Infinity])/18 - 
   (Diff[S2[1, n], n, 1]*S2[1, n]*S2[3, Infinity])/6 + 
   (S2[1, n]^3*S2[3, Infinity])/18 + 
   (S2[1, n]*S2[2, Infinity]*S2[3, Infinity])/6 + S2[3, Infinity]^2/18 + 
   (S2[1, n]*S2[5, Infinity])/5}
