{S2[1, 1, n_] -> (S2[1, n]^2 + S2[2, n])/2, 
 S2[-1, 1, n_] -> S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n], 
 S2[-1, -1, n_] -> (S2[-1, n]^2 + S2[2, n])/2, 
 S2[1, 1, 1, n_] -> (S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n])/6, 
 S2[1, -1, 1, n_] -> S2[-3, n] + S2[-2, n]*S2[1, n] - S2[-2, 1, n] + 
   S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 2*S2[1, 1, -1, n], 
 S2[1, -1, -1, n_] -> (S2[1, n]*S2[2, n] + S2[3, n] + S2[-2, -1, n] + 
    S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - S2[-1, 1, -1, n])/2, 
 S2[-1, 1, 1, n_] -> (S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
   S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n], 
 S2[-1, -1, 1, n_] -> (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
    S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
    S2[-1, 1, -1, n])/2, S2[-1, -1, -1, n_] -> 
  (2*S2[-3, n] + S2[-1, n]^3 + 3*S2[-1, n]*S2[2, n])/6, 
 S2[1, 2, n_] -> S2[1, n]*S2[2, n] + S2[3, n] - S2[2, 1, n], 
 S2[1, -2, n_] -> S2[-3, n] + S2[-2, n]*S2[1, n] - S2[-2, 1, n], 
 S2[-1, 2, n_] -> S2[-3, n] + S2[-1, n]*S2[2, n] - S2[2, -1, n], 
 S2[-1, -2, n_] -> S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n], 
 S2[1, 1, 1, 1, n_] -> (S2[1, n]^4 + 6*S2[1, n]^2*S2[2, n] + 3*S2[2, n]^2 + 
    8*S2[1, n]*S2[3, n] + 6*S2[4, n])/24, S2[-1, 1, 1, 1, n_] -> 
  (S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
    3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
      2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
      2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n] + 
        S2[1, 1, 1, -1, n])))/6, S2[1, 1, -1, 1, n_] -> 
  S2[-3, n]*S2[1, n] + (S2[-2, n]*(S2[1, n]^2 - S2[2, n]))/2 - S2[-3, 1, n] - 
   S2[1, n]*S2[-2, 1, n] + S2[2, -2, n] + S2[-2, 1, 1, n] + 
   S2[1, n]*S2[1, 1, -1, n] + S2[1, 2, -1, n] + S2[2, 1, -1, n] - 
   3*S2[1, 1, 1, -1, n], S2[1, -1, 1, 1, n_] -> 
  S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-3, 1, n] + S2[1, n]*S2[-2, 1, n] + 
   (S2[1, n]^2*S2[1, -1, n])/2 + (S2[2, n]*S2[1, -1, n])/2 - S2[2, -2, n] + 
   S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 2*S2[-2, 1, 1, n] - 
   2*S2[1, n]*S2[1, 1, -1, n] - 2*S2[1, 2, -1, n] - 2*S2[2, 1, -1, n] + 
   3*S2[1, 1, 1, -1, n], S2[1, -1, 1, -1, n_] -> 
  (S2[1, n]^2*S2[2, n] + S2[4, n] + 3*S2[-3, -1, n] - 
    2*S2[-1, n]*S2[-2, 1, n] + S2[1, -1, n]^2 + S2[-1, n]*S2[2, -1, n] + 
    2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n]) - 4*S2[3, 1, n] + 
    2*S2[-1, -2, 1, n] - S2[-1, 2, -1, n] + 2*S2[2, 1, 1, n] - 
    4*S2[1, 1, -1, -1, n])/2, S2[1, -1, -1, 1, n_] -> 
  (S2[2, n]^2 + 3*S2[4, n] + 4*S2[-1, n]*S2[-2, 1, n] + 
    4*S2[-2, n]*S2[1, -1, n] - 2*S2[1, -1, n]^2 + 4*S2[3, 1, n] - 
    4*S2[-2, 1, -1, n] - 4*S2[-1, -2, 1, n] + 
    2*S2[1, n]*(S2[3, n] - S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] + 
      S2[2, 1, n] - S2[-1, 1, -1, n]) - 4*S2[2, 1, 1, n])/4, 
 S2[1, -1, -1, -1, n_] -> (3*S2[-4, n] + 3*S2[-2, n]*S2[-1, n]^2 + 
    2*S2[-3, n]*S2[1, n] + S2[-1, n]^3*S2[1, n] + 3*S2[-1, n]*S2[3, n] + 
    3*S2[2, n]*S2[1, -1, n] + 3*S2[2, -2, n] + 3*S2[-1, n]*S2[2, 1, n] + 
    3*S2[3, -1, n] - 3*S2[-1, -2, -1, n] - 3*S2[-1, n]*S2[-1, 1, -1, n] - 
    6*S2[2, 1, -1, n] - 6*S2[-1, -1, -1, 1, n])/6, 
 S2[-1, 1, 1, -1, n_] -> (-S2[-3, -1, n] - S2[1, -1, n]^2 - 
    S2[-1, n]*S2[2, -1, n] + 2*S2[-2, 1, -1, n] + S2[-1, 2, -1, n] + 
    2*S2[-1, n]*S2[1, 1, -1, n])/2, S2[-1, 1, -1, 1, n_] -> 
  (S2[-2, n]^2 + 2*S2[-3, n]*S2[-1, n] - S2[1, n]^2*S2[2, n] - 
    2*S2[1, n]*S2[3, n] - 3*S2[-3, -1, n] - 2*S2[1, n]*S2[-2, -1, n] + 
    2*S2[-2, n]*(S2[-1, n]*S2[1, n] - S2[1, -1, n]) + S2[1, -1, n]^2 + 
    S2[-1, n]*S2[2, -1, n] + 2*S2[1, n]*S2[2, 1, n] + 4*S2[3, 1, n] - 
    2*S2[-1, -2, 1, n] + 2*S2[1, n]*S2[-1, 1, -1, n] + S2[-1, 2, -1, n] - 
    4*S2[-1, n]*S2[1, 1, -1, n] - 2*S2[2, 1, 1, n] + 4*S2[1, 1, -1, -1, n])/
   2, S2[-1, 1, -1, -1, n_] -> (-(S2[-1, n]^3*S2[1, n]) + 
    S2[-2, n]*(-3*S2[-1, n]^2 + S2[2, n]) - 2*S2[-3, 1, n] + 
    S2[-1, n]^2*S2[1, -1, n] - S2[2, n]*S2[1, -1, n] - 4*S2[2, -2, n] + 
    2*S2[-1, -2, -1, n] + S2[-1, n]*(S2[1, n]*S2[2, n] + 
      2*(-S2[3, n] + S2[-2, -1, n] - 2*S2[2, 1, n] + S2[-1, 1, -1, n])) + 
    4*S2[2, 1, -1, n] + 6*S2[-1, -1, -1, 1, n])/2, 
 S2[-1, -1, 1, 1, n_] -> (S2[1, n]^2*S2[2, n] + 
    S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + S2[4, n] + 2*S2[-3, -1, n] - 
    4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
    2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - S2[-1, 1, -1, n]) - 
    2*S2[-1, 2, -1, n] - 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
      2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n])/4, 
 S2[-1, -1, 1, -1, n_] -> (S2[-4, n] + 3*S2[-2, n]*S2[-1, n]^2 + 
    S2[-1, n]^3*S2[1, n] + 3*S2[-1, n]*S2[3, n] + 2*S2[-3, 1, n] - 
    2*S2[-1, n]*S2[-2, -1, n] - S2[-1, n]^2*S2[1, -1, n] + 3*S2[2, -2, n] + 
    3*S2[-1, n]*S2[2, 1, n] - S2[3, -1, n] - S2[-1, -2, -1, n] - 
    S2[-1, n]*S2[-1, 1, -1, n] - 2*S2[2, 1, -1, n] - 6*S2[-1, -1, -1, 1, n])/
   2, S2[-1, -1, -1, -1, n_] -> (8*S2[-3, n]*S2[-1, n] + S2[-1, n]^4 + 
    6*S2[-1, n]^2*S2[2, n] + 3*S2[2, n]^2 + 6*S2[4, n])/24, 
 S2[2, -1, 1, n_] -> S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
   S2[1, 2, -1, n] - S2[2, 1, -1, n], S2[2, -1, -1, n_] -> 
  (S2[2, n]^2 + S2[4, n] + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
      S2[-1, 2, -1, n]))/4, S2[1, 2, 1, n_] -> 
  (S2[2, n]^2 + S2[4, n] + 2*(S2[1, n]*S2[2, 1, n] + S2[3, 1, n] - 
      2*S2[2, 1, 1, n]))/2, S2[1, 1, 2, n_] -> (S2[1, n]^2*S2[2, n])/2 + 
   S2[4, n]/2 + S2[1, n]*(S2[3, n] - S2[2, 1, n]) - S2[3, 1, n] + 
   S2[2, 1, 1, n], S2[1, 1, -2, n_] -> S2[-3, n]*S2[1, n] + 
   (S2[-2, n]*(S2[1, n]^2 - S2[2, n]))/2 - S2[-3, 1, n] - 
   S2[1, n]*S2[-2, 1, n] + S2[2, -2, n] + S2[-2, 1, 1, n], 
 S2[1, -1, 2, n_] -> S2[-4, n] + S2[-3, n]*S2[1, n] - S2[-3, 1, n] + 
   S2[2, n]*S2[1, -1, n] + S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n], 
 S2[1, -1, -2, n_] -> S2[4, n] + S2[1, n]*(S2[3, n] - S2[-2, -1, n]) + 
   S2[-1, n]*S2[-2, 1, n] + S2[-2, n]*S2[1, -1, n] - S2[-2, 1, -1, n] - 
   S2[-1, -2, 1, n], S2[1, -2, 1, n_] -> S2[-4, n] + S2[-2, n]*S2[2, n] + 
   S2[-3, 1, n] + S2[1, n]*S2[-2, 1, n] - S2[2, -2, n] - 2*S2[-2, 1, 1, n], 
 S2[1, -2, -1, n_] -> S2[-3, -1, n] + S2[1, n]*S2[-2, -1, n] - 
   S2[-1, n]*S2[-2, 1, n] - S2[3, 1, n] + S2[-1, -2, 1, n], 
 S2[-1, 2, 1, n_] -> S2[-3, 1, n] - S2[1, n]*S2[2, -1, n] + 
   S2[-1, n]*S2[2, 1, n] - S2[3, -1, n] + S2[1, 2, -1, n], 
 S2[-1, 1, 2, n_] -> S2[-4, n] + S2[-1, n]*S2[3, n] + 
   S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - S2[2, -2, n] - 
   S2[-1, n]*S2[2, 1, n] - S2[3, -1, n] + S2[2, 1, -1, n], 
 S2[-1, 1, -2, n_] -> (S2[-2, n]^2 + S2[4, n])/2 - S2[-3, -1, n] + 
   S2[-1, n]*(S2[-3, n] + S2[-2, n]*S2[1, n] - S2[-2, 1, n]) - 
   S2[-2, n]*S2[1, -1, n] + S2[-2, 1, -1, n], 
 S2[-1, -1, 2, n_] -> (4*S2[-3, n]*S2[-1, n] + 2*S2[-1, n]^2*S2[2, n] + 
    S2[2, n]^2 + 3*S2[4, n] - 2*S2[-3, -1, n] - 2*S2[-1, n]*S2[2, -1, n] - 
    2*S2[-1, 2, -1, n])/4, S2[-1, -1, -2, n_] -> 
  (S2[-4, n] + S2[-2, n]*S2[-1, n]^2 + 2*S2[-1, n]*S2[3, n] - 
    S2[-1, n]*S2[-2, -1, n] + S2[2, -2, n] - S2[3, -1, n] - 
    S2[-1, -2, -1, n])/2, S2[-2, -1, 1, n_] -> (S2[-2, n]^2 + S2[4, n])/2 + 
   S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
   S2[-1, -2, 1, n], S2[-2, -1, -1, n_] -> 
  (S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + 
    S2[3, -1, n] - S2[-1, -2, -1, n])/2, 
 S2[2, 2, n_] -> (S2[2, n]^2 + S2[4, n])/2, 
 S2[1, 3, n_] -> S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n], 
 S2[1, -3, n_] -> S2[-4, n] + S2[-3, n]*S2[1, n] - S2[-3, 1, n], 
 S2[-1, 3, n_] -> S2[-4, n] + S2[-1, n]*S2[3, n] - S2[3, -1, n], 
 S2[-1, -3, n_] -> S2[-3, n]*S2[-1, n] + S2[4, n] - S2[-3, -1, n], 
 S2[-2, 2, n_] -> S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n], 
 S2[-2, -2, n_] -> (S2[-2, n]^2 + S2[4, n])/2, 
 S2[1, 1, 1, 1, 1, n_] -> (S2[1, n]^5 + 20*S2[1, n]^2*S2[3, n] + 
    10*S2[2, n]*(S2[1, n]^3 + 2*S2[3, n]) + 
    15*S2[1, n]*(S2[2, n]^2 + 2*S2[4, n]) + 24*S2[5, n])/120, 
 S2[-1, 1, 1, 1, 1, n_] -> S2[-5, n] + S2[-3, n]*S2[2, n] + 
   (S2[-1, n]*(S2[1, n]^4 + 6*S2[1, n]^2*S2[2, n] + 15*S2[2, n]^2 + 
      8*S2[1, n]*S2[3, n] + 18*S2[4, n]))/24 + S2[-4, 1, n] - 
   (S2[1, n]^3*S2[1, -1, n])/6 - (S2[1, n]*S2[2, n]*S2[1, -1, n])/2 - 
   (S2[3, n]*S2[1, -1, n])/3 - S2[2, n]*S2[2, -1, n] + 
   S2[-2, n]*S2[2, 1, n] - S2[4, -1, n] - S2[-2, 2, 1, n] - S2[-1, 2, 2, n] + 
   (S2[1, n]^2*S2[1, 1, -1, n])/2 + (S2[2, n]*S2[1, 1, -1, n])/2 - 
   S2[2, 1, -2, n] + S2[-2, 1, 1, 1, n] - S2[1, n]*S2[1, 1, 1, -1, n] - 
   S2[2, -1, 1, 1, n] + S2[1, 1, 1, 1, -1, n], 
 S2[1, 1, 1, -1, 1, n_] -> -S2[-5, n] + (S2[-2, n]*S2[1, n]^3)/6 + 
   (S2[-3, n]*(S2[1, n]^2 - 3*S2[2, n]))/2 - (S2[-2, n]*S2[1, n]*S2[2, n])/
    2 - S2[-1, n]*S2[2, n]^2 + (S2[-2, n]*S2[3, n])/3 - S2[-1, n]*S2[4, n] - 
   2*S2[-4, 1, n] - S2[1, n]*S2[-3, 1, n] - S2[-3, 2, n] - 
   (S2[1, n]^2*S2[-2, 1, n])/2 + (S2[2, n]*S2[-2, 1, n])/2 + 
   S2[1, n]*S2[2, -2, n] - (S2[1, n]^2*S2[2, -1, n])/2 + 
   (3*S2[2, n]*S2[2, -1, n])/2 - 2*S2[-2, n]*S2[2, 1, n] + S2[3, -2, n] + 
   2*S2[4, -1, n] + S2[-3, 1, 1, n] + S2[1, n]*S2[-2, 1, 1, n] + 
   2*S2[-2, 2, 1, n] + 2*S2[-1, 2, 2, n] + S2[1, n]*S2[1, 2, -1, n] + 
   2*S2[2, 1, -2, n] + S2[1, n]*S2[2, 1, -1, n] - S2[3, -1, 1, n] - 
   S2[-2, 1, 1, 1, n] + S2[1, n]*S2[1, 1, 1, -1, n] + S2[2, -1, 1, 1, n] - 
   4*S2[1, 1, 1, 1, -1, n], S2[1, 1, 1, -1, -1, n_] -> 
  (-6*S2[-3, n]*S2[-2, n] - 2*S2[1, n]^3*S2[2, n] - 3*S2[1, n]^2*S2[3, n] + 
    11*S2[2, n]*S2[3, n] - S2[-1, n]^2*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 
      2*S2[3, n]) + 6*S2[5, n] + 12*S2[-4, -1, n] + 6*S2[-3, -2, n] - 
    3*S2[1, n]^2*S2[-2, -1, n] - 3*S2[2, n]*S2[-2, -1, n] - 
    6*S2[-2, n]*S2[-2, 1, n] + 12*S2[-2, n]*S2[2, -1, n] + 
    3*S2[1, n]^2*S2[2, 1, n] + 3*S2[2, n]*S2[2, 1, n] - 12*S2[3, 2, n] - 
    6*S2[4, 1, n] - 6*S2[-2, 1, -2, n] - 12*S2[-2, 2, -1, n] + 
    3*S2[1, n]^2*S2[-1, 1, -1, n] + 3*S2[2, n]*S2[-1, 1, -1, n] + 
    12*S2[-2, -1, 1, 1, n] + 12*S2[-2, 1, -1, 1, n] + 
    12*S2[-2, 1, 1, -1, n] + 12*S2[1, n]*S2[1, 1, -1, -1, n] + 
    3*S2[-1, n]*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
      4*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
      4*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n] + 
        S2[1, 1, 1, -1, n])) - 12*S2[2, -1, -1, 1, n] - 
    12*S2[2, -1, 1, -1, n] - 12*S2[2, 1, 1, 1, n] + 
    12*S2[-1, -1, 1, 1, 1, n])/12, S2[1, 1, -1, 1, 1, n_] -> 
  (8*S2[-5, n] + 2*S2[-4, n]*S2[1, n] + 10*S2[-3, n]*S2[2, n] + 
    2*S2[-2, n]*S2[1, n]*S2[2, n] + 5*S2[-1, n]*S2[2, n]^2 - 
    2*S2[-2, n]*S2[3, n] + 5*S2[-1, n]*S2[4, n] + 8*S2[-4, 1, n] + 
    2*S2[1, n]*S2[-3, 1, n] + 2*S2[-3, 2, n] + S2[1, n]^2*S2[-2, 1, n] - 
    3*S2[2, n]*S2[-2, 1, n] - 2*S2[1, n]*S2[2, -2, n] + 
    3*S2[1, n]^2*S2[2, -1, n] - 7*S2[2, n]*S2[2, -1, n] + 
    10*S2[-2, n]*S2[2, 1, n] - 2*S2[3, -2, n] + 2*S2[1, n]*S2[3, -1, n] - 
    8*S2[4, -1, n] - 4*S2[-3, 1, 1, n] - 4*S2[1, n]*S2[-2, 1, 1, n] - 
    10*S2[-2, 2, 1, n] - 10*S2[-1, 2, 2, n] + S2[1, n]^2*S2[1, 1, -1, n] + 
    S2[2, n]*S2[1, 1, -1, n] - 4*S2[1, n]*S2[1, 2, -1, n] - 
    10*S2[2, 1, -2, n] - 4*S2[1, n]*S2[2, 1, -1, n] + 4*S2[3, -1, 1, n] + 
    6*S2[-2, 1, 1, 1, n] - 6*S2[1, n]*S2[1, 1, 1, -1, n] - 
    6*S2[2, -1, 1, 1, n] + 12*S2[1, 1, 1, 1, -1, n])/2, 
 S2[1, 1, -1, 1, -1, n_] -> (-(S2[-3, n]*S2[-2, n]) - 2*S2[-4, n]*S2[-1, n] - 
    2*S2[-2, n]*S2[-1, n]*S2[2, n] + S2[1, n]^3*S2[2, n] + 
    2*S2[1, n]^2*S2[3, n] + S2[1, n]*S2[4, n] - S2[5, n] + S2[-3, -2, n] + 
    3*S2[1, n]*S2[-3, -1, n] - 2*S2[-1, n]*S2[-3, 1, n] + 
    2*S2[1, n]^2*S2[-2, -1, n] - S2[-2, n]*S2[-2, 1, n] - 
    4*S2[-1, n]*S2[1, n]*S2[-2, 1, n] + 2*S2[-2, 1, n]*S2[1, -1, n] - 
    S2[1, n]*S2[1, -1, n]^2 + 2*S2[-1, n]*S2[2, -2, n] - 
    S2[-1, n]*S2[1, n]*S2[2, -1, n] - 2*S2[1, -1, n]*S2[2, -1, n] - 
    2*S2[1, n]^2*S2[2, 1, n] - 2*S2[-1, n]*S2[3, -1, n] - 
    4*S2[1, n]*S2[3, 1, n] - S2[4, 1, n] + S2[-2, 1, -2, n] + 
    4*S2[-1, n]*S2[-2, 1, 1, n] + 2*S2[-2, 2, -1, n] + 
    2*S2[1, n]*S2[-1, -2, 1, n] - S2[1, n]^2*S2[-1, 1, -1, n] - 
    S2[2, n]*S2[-1, 1, -1, n] - S2[1, n]*S2[-1, 2, -1, n] + 
    4*S2[-1, n]*S2[1, n]*S2[1, 1, -1, n] + 2*S2[1, -1, n]*S2[1, 1, -1, n] + 
    4*S2[-1, n]*S2[1, 2, -1, n] + 4*S2[-1, n]*S2[2, 1, -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, n] - 6*S2[-1, n]*S2[1, 1, 1, -1, n] + 
    2*S2[2, -1, 1, -1, n] + 2*S2[-1, 1, -1, 1, 1, n])/2, 
 S2[1, 1, -1, -1, 1, n_] -> (8*S2[-3, n]*S2[-2, n] + 4*S2[-4, n]*S2[-1, n] + 
    S2[-1, n]^2*S2[1, n]^3 + 4*S2[-2, n]*S2[-1, n]*S2[2, n] + 
    3*S2[-1, n]^2*S2[1, n]*S2[2, n] + S2[1, n]*S2[2, n]^2 + 
    2*S2[-1, n]^2*S2[3, n] + S2[1, n]^2*S2[3, n] - 5*S2[2, n]*S2[3, n] + 
    3*S2[1, n]*S2[4, n] + 4*S2[5, n] - 4*S2[-4, -1, n] - 4*S2[-3, -2, n] + 
    4*S2[-1, n]*S2[-3, 1, n] - S2[1, n]^2*S2[-2, -1, n] + 
    3*S2[2, n]*S2[-2, -1, n] + 8*S2[-2, n]*S2[-2, 1, n] + 
    8*S2[-1, n]*S2[1, n]*S2[-2, 1, n] - 3*S2[-1, n]*S2[1, n]^2*S2[1, -1, n] - 
    3*S2[-1, n]*S2[2, n]*S2[1, -1, n] - 4*S2[-2, 1, n]*S2[1, -1, n] + 
    2*S2[1, n]*S2[1, -1, n]^2 - 4*S2[-1, n]*S2[2, -2, n] - 
    8*S2[-2, n]*S2[2, -1, n] - 8*S2[-1, n]*S2[1, n]*S2[2, -1, n] + 
    4*S2[1, -1, n]*S2[2, -1, n] + S2[1, n]^2*S2[2, 1, n] - 
    3*S2[2, n]*S2[2, 1, n] - 8*S2[-1, n]*S2[3, -1, n] + 
    4*S2[1, n]*S2[3, 1, n] + 4*S2[3, 2, n] + 4*S2[4, 1, n] - 
    4*S2[-3, -1, 1, n] - 4*S2[-3, 1, -1, n] - 4*S2[1, n]*S2[-2, 1, -1, n] + 
    4*S2[-1, n]*S2[-2, 1, 1, n] - 4*S2[1, n]*S2[-1, -2, 1, n] - 
    S2[1, n]^2*S2[-1, 1, -1, n] - S2[2, n]*S2[-1, 1, -1, n] + 
    4*S2[-2, n]*S2[1, 1, -1, n] + 4*S2[-1, n]*S2[1, n]*S2[1, 1, -1, n] - 
    4*S2[1, -1, n]*S2[1, 1, -1, n] + 4*S2[-1, n]*S2[1, 2, -1, n] + 
    4*S2[-1, n]*S2[2, 1, -1, n] - 4*S2[1, n]*S2[2, 1, 1, n] + 
    4*S2[3, -1, -1, n] + 4*S2[3, 1, 1, n] - 12*S2[-2, -1, 1, 1, n] - 
    8*S2[-2, 1, -1, 1, n] - 4*S2[-2, 1, 1, -1, n] + 8*S2[2, -1, -1, 1, n] + 
    4*S2[2, -1, 1, -1, n] + 12*S2[2, 1, 1, 1, n] - 
    12*S2[-1, -1, 1, 1, 1, n] - 4*S2[-1, 1, -1, 1, 1, n])/4, 
 S2[1, -1, 1, 1, 1, n_] -> -3*S2[-5, n] - 4*S2[-3, n]*S2[2, n] - 
   2*S2[-1, n]*S2[2, n]^2 + S2[-2, n]*S2[3, n] - 2*S2[-1, n]*S2[4, n] - 
   3*S2[-4, 1, n] + S2[2, n]*S2[-2, 1, n] + (S2[1, n]^3*S2[1, -1, n])/6 + 
   (S2[1, n]*S2[2, n]*S2[1, -1, n])/2 + (S2[3, n]*S2[1, -1, n])/3 - 
   S2[1, n]^2*S2[2, -1, n] + 3*S2[2, n]*S2[2, -1, n] - 
   4*S2[-2, n]*S2[2, 1, n] - S2[1, n]*S2[3, -1, n] + 3*S2[4, -1, n] + 
   S2[-3, 1, 1, n] + S2[1, n]*S2[-2, 1, 1, n] + 4*S2[-2, 2, 1, n] + 
   4*S2[-1, 2, 2, n] - S2[1, n]^2*S2[1, 1, -1, n] - 
   S2[2, n]*S2[1, 1, -1, n] + S2[1, n]*S2[1, 2, -1, n] + 4*S2[2, 1, -2, n] + 
   S2[1, n]*S2[2, 1, -1, n] - S2[3, -1, 1, n] - 3*S2[-2, 1, 1, 1, n] + 
   3*S2[1, n]*S2[1, 1, 1, -1, n] + 3*S2[2, -1, 1, 1, n] - 
   4*S2[1, 1, 1, 1, -1, n], S2[1, -1, 1, 1, -1, n_] -> 
  (10*S2[-3, n]*S2[-2, n] + 6*S2[-4, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n]^3 + 
    6*S2[-2, n]*S2[-1, n]*S2[2, n] + 3*S2[-1, n]^2*S2[1, n]*S2[2, n] + 
    2*S2[-1, n]^2*S2[3, n] - 4*S2[2, n]*S2[3, n] + 6*S2[5, n] - 
    4*S2[-4, -1, n] - 4*S2[-3, -2, n] - S2[1, n]*S2[-3, -1, n] + 
    6*S2[-1, n]*S2[-3, 1, n] + 4*S2[2, n]*S2[-2, -1, n] + 
    6*S2[-2, n]*S2[-2, 1, n] + 6*S2[-1, n]*S2[1, n]*S2[-2, 1, n] - 
    3*S2[-1, n]*S2[1, n]^2*S2[1, -1, n] - 3*S2[-1, n]*S2[2, n]*S2[1, -1, n] - 
    6*S2[-2, 1, n]*S2[1, -1, n] + 3*S2[1, n]*S2[1, -1, n]^2 - 
    6*S2[-1, n]*S2[2, -2, n] - 8*S2[-2, n]*S2[2, -1, n] - 
    7*S2[-1, n]*S2[1, n]*S2[2, -1, n] + 6*S2[1, -1, n]*S2[2, -1, n] - 
    6*S2[-1, n]*S2[3, -1, n] + 2*S2[3, 2, n] + 6*S2[4, 1, n] - 
    6*S2[-3, -1, 1, n] - 4*S2[-3, 1, -1, n] - 4*S2[-2, -1, 2, n] + 
    2*S2[-2, 1, -2, n] + 2*S2[1, n]*S2[-2, 1, -1, n] + 
    S2[1, n]*S2[-1, 2, -1, n] - 4*S2[1, -1, n]*S2[1, 1, -1, n] - 
    4*S2[2, 2, 1, n] + 4*S2[3, -1, -1, n] + 6*S2[3, 1, 1, n] - 
    6*S2[-2, -1, 1, 1, n] - 8*S2[-2, 1, -1, 1, n] - 4*S2[-2, 1, 1, -1, n] + 
    6*S2[-1, n]*S2[1, 1, 1, -1, n] + 8*S2[2, -1, -1, 1, n] + 
    4*S2[2, -1, 1, -1, n] + 6*S2[2, 1, 1, 1, n] - 12*S2[-1, -1, 1, 1, 1, n] - 
    6*S2[-1, 1, -1, 1, 1, n])/2, S2[1, -1, 1, -1, 1, n_] -> 
  (-8*S2[-4, n]*S2[-1, n] + S2[-2, n]^2*S2[1, n] - 2*S2[-1, n]^2*S2[1, n]^3 - 
    8*S2[-2, n]*S2[-1, n]*S2[2, n] - 6*S2[-1, n]^2*S2[1, n]*S2[2, n] - 
    S2[1, n]^3*S2[2, n] - 4*S2[-1, n]^2*S2[3, n] - 2*S2[1, n]^2*S2[3, n] + 
    6*S2[2, n]*S2[3, n] - 9*S2[5, n] + 8*S2[-4, -1, n] + 5*S2[-3, -2, n] - 
    3*S2[1, n]*S2[-3, -1, n] - 8*S2[-1, n]*S2[-3, 1, n] - 
    2*S2[1, n]^2*S2[-2, -1, n] - 6*S2[2, n]*S2[-2, -1, n] - 
    11*S2[-2, n]*S2[-2, 1, n] - 6*S2[-1, n]*S2[1, n]*S2[-2, 1, n] + 
    2*S2[-2, n]*S2[1, n]*S2[1, -1, n] + 6*S2[-1, n]*S2[1, n]^2*S2[1, -1, n] + 
    6*S2[-1, n]*S2[2, n]*S2[1, -1, n] + 6*S2[-2, 1, n]*S2[1, -1, n] - 
    3*S2[1, n]*S2[1, -1, n]^2 + S2[-3, n]*(-15*S2[-2, n] + 2*S2[1, -1, n]) + 
    8*S2[-1, n]*S2[2, -2, n] + 14*S2[-2, n]*S2[2, -1, n] + 
    15*S2[-1, n]*S2[1, n]*S2[2, -1, n] - 6*S2[1, -1, n]*S2[2, -1, n] + 
    2*S2[1, n]^2*S2[2, 1, n] + 16*S2[-1, n]*S2[3, -1, n] + 
    4*S2[1, n]*S2[3, 1, n] - 2*S2[3, 2, n] - 11*S2[4, 1, n] + 
    12*S2[-3, -1, 1, n] + 8*S2[-3, 1, -1, n] + 6*S2[-2, -1, 2, n] - 
    3*S2[-2, 1, -2, n] - 8*S2[-1, n]*S2[-2, 1, 1, n] - 
    2*S2[1, n]*S2[-1, -2, 1, n] + 2*S2[1, n]^2*S2[-1, 1, -1, n] + 
    2*S2[2, n]*S2[-1, 1, -1, n] + S2[1, n]*S2[-1, 2, -1, n] - 
    4*S2[-2, n]*S2[1, 1, -1, n] - 8*S2[-1, n]*S2[1, n]*S2[1, 1, -1, n] + 
    4*S2[1, -1, n]*S2[1, 1, -1, n] - 8*S2[-1, n]*S2[1, 2, -1, n] - 
    8*S2[-1, n]*S2[2, 1, -1, n] - 2*S2[1, n]*S2[2, 1, 1, n] + 
    6*S2[2, 2, 1, n] - 8*S2[3, -1, -1, n] - 12*S2[3, 1, 1, n] + 
    12*S2[-2, -1, 1, 1, n] + 12*S2[-2, 1, -1, 1, n] + 8*S2[-2, 1, 1, -1, n] + 
    4*S2[1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, 1, n] - 
    8*S2[2, -1, 1, -1, n] - 12*S2[2, 1, 1, 1, n] + 
    24*S2[-1, -1, 1, 1, 1, n] + 8*S2[-1, 1, -1, 1, 1, n])/2, 
 S2[1, -1, -1, 1, 1, n_] -> (6*S2[-3, n]*S2[-2, n] + 4*S2[-4, n]*S2[-1, n] + 
    S2[-1, n]^2*S2[1, n]^3 + 4*S2[-2, n]*S2[-1, n]*S2[2, n] + 
    3*S2[-1, n]^2*S2[1, n]*S2[2, n] + S2[1, n]^3*S2[2, n] + 
    2*S2[-1, n]^2*S2[3, n] + 2*S2[1, n]^2*S2[3, n] + S2[1, n]*S2[4, n] + 
    6*S2[5, n] - 4*S2[-4, -1, n] - 2*S2[-3, -2, n] + 
    2*S2[1, n]*S2[-3, -1, n] + 4*S2[-1, n]*S2[-3, 1, n] + 
    2*S2[1, n]^2*S2[-2, -1, n] + 2*S2[2, n]*S2[-2, -1, n] + 
    2*S2[-2, n]*S2[-2, 1, n] - 2*S2[-1, n]*S2[1, n]^2*S2[1, -1, n] - 
    2*S2[-1, n]*S2[2, n]*S2[1, -1, n] - 4*S2[-1, n]*S2[2, -2, n] - 
    4*S2[-2, n]*S2[2, -1, n] - 6*S2[-1, n]*S2[1, n]*S2[2, -1, n] - 
    2*S2[1, n]^2*S2[2, 1, n] + 2*S2[2, n]*S2[2, 1, n] - 
    8*S2[-1, n]*S2[3, -1, n] - 4*S2[1, n]*S2[3, 1, n] + 6*S2[4, 1, n] - 
    4*S2[-3, -1, 1, n] - 4*S2[-3, 1, -1, n] - 4*S2[-2, -1, 2, n] + 
    2*S2[-2, 1, -2, n] + 4*S2[-1, n]*S2[-2, 1, 1, n] + 
    4*S2[1, n]*S2[-1, -2, 1, n] - 2*S2[1, n]^2*S2[-1, 1, -1, n] - 
    2*S2[2, n]*S2[-1, 1, -1, n] - 2*S2[1, n]*S2[-1, 2, -1, n] + 
    4*S2[-1, n]*S2[1, n]*S2[1, 1, -1, n] + 4*S2[-1, n]*S2[1, 2, -1, n] + 
    4*S2[-1, n]*S2[2, 1, -1, n] + 4*S2[1, n]*S2[2, 1, 1, n] - 
    4*S2[2, 2, 1, n] + 4*S2[3, -1, -1, n] + 4*S2[3, 1, 1, n] - 
    4*S2[-2, 1, -1, 1, n] - 4*S2[-2, 1, 1, -1, n] - 
    4*S2[1, n]*S2[1, 1, -1, -1, n] + 4*S2[2, -1, -1, 1, n] + 
    4*S2[2, -1, 1, -1, n] - 12*S2[-1, -1, 1, 1, 1, n] - 
    4*S2[-1, 1, -1, 1, 1, n])/4, S2[1, -1, -1, 1, -1, n_] -> 
  (6*S2[-5, n] + 7*S2[-4, n]*S2[1, n] + 2*S2[-3, n]*S2[1, n]^2 + 
    3*S2[-2, n]*S2[1, n]*S2[2, n] + S2[-1, n]*S2[2, n]^2 + 
    4*S2[-2, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 4*S2[-4, 1, n] - 
    4*S2[1, n]*S2[-3, 1, n] + 2*S2[-2, n]*S2[-2, -1, n] + 
    S2[-1, n]*S2[1, n]*S2[-2, -1, n] + 3*S2[1, n]*S2[2, n]*S2[1, -1, n] + 
    3*S2[3, n]*S2[1, -1, n] + 3*S2[-2, -1, n]*S2[1, -1, n] + 
    S2[-1, n]*S2[1, -1, n]^2 - 3*S2[1, n]*S2[2, -2, n] - 
    2*S2[2, n]*S2[2, -1, n] - 3*S2[1, -1, n]*S2[2, 1, n] + 
    5*S2[1, n]*S2[3, -1, n] + 4*S2[4, -1, n] + 6*S2[-3, -1, -1, n] + 
    4*S2[-3, 1, 1, n] - 2*S2[-2, 2, 1, n] - S2[1, n]*S2[-1, -2, -1, n] - 
    S2[1, -1, n]*S2[-1, 1, -1, n] - 2*S2[-1, 2, 2, n] - 2*S2[2, 1, -2, n] - 
    2*S2[1, n]*S2[2, 1, -1, n] - 4*S2[3, -1, 1, n] - 6*S2[3, 1, -1, n] - 
    2*S2[-2, -1, -1, 1, n] - 4*S2[-2, -1, 1, -1, n] - 
    6*S2[-2, 1, -1, -1, n] + 6*S2[2, -1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
    4*S2[2, 1, 1, -1, n] - 6*S2[1, -1, 1, -1, -1, n] - 
    12*S2[1, 1, -1, -1, -1, n])/2, S2[1, -1, -1, -1, 1, n_] -> 
  (-12*S2[-5, n] - 12*S2[-4, n]*S2[1, n] + 3*S2[-2, n]*S2[-1, n]^2*S2[1, n] - 
    4*S2[-3, n]*S2[1, n]^2 + S2[-1, n]^3*S2[1, n]^2 - 
    6*S2[-2, n]*S2[1, n]*S2[2, n] - 3*S2[-1, n]*S2[2, n]^2 - 
    9*S2[-2, n]*S2[3, n] + 3*S2[-1, n]*S2[1, n]*S2[3, n] - 
    3*S2[-1, n]*S2[4, n] + 6*S2[-4, 1, n] + 12*S2[1, n]*S2[-3, 1, n] - 
    3*S2[-2, n]*S2[-2, -1, n] - 3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + 
    3*S2[-2, n]*S2[-1, n]*S2[1, -1, n] - 6*S2[1, n]*S2[2, n]*S2[1, -1, n] - 
    3*S2[3, n]*S2[1, -1, n] - 9*S2[-2, -1, n]*S2[1, -1, n] - 
    3*S2[-1, n]*S2[1, -1, n]^2 + 12*S2[1, n]*S2[2, -2, n] + 
    6*S2[2, n]*S2[2, -1, n] - 3*S2[-2, n]*S2[2, 1, n] + 
    3*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 9*S2[1, -1, n]*S2[2, 1, n] - 
    12*S2[1, n]*S2[3, -1, n] - 6*S2[4, -1, n] - 12*S2[-3, -1, -1, n] - 
    12*S2[-3, 1, 1, n] + 6*S2[-2, 2, 1, n] - 3*S2[-2, n]*S2[-1, 1, -1, n] - 
    3*S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 3*S2[1, -1, n]*S2[-1, 1, -1, n] + 
    6*S2[-1, 2, 2, n] + 6*S2[2, 1, -2, n] + 12*S2[3, -1, 1, n] + 
    12*S2[3, 1, -1, n] + 6*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
    12*S2[-2, 1, -1, -1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] - 
    12*S2[2, -1, -1, -1, n] - 6*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n] + 
    12*S2[1, -1, 1, -1, -1, n] + 24*S2[1, 1, -1, -1, -1, n])/6, 
 S2[-1, 1, 1, 1, -1, n_] -> -3*S2[-3, n]*S2[-2, n] - 2*S2[-4, n]*S2[-1, n] - 
   (S2[-1, n]^2*S2[1, n]^3)/3 - 2*S2[-2, n]*S2[-1, n]*S2[2, n] - 
   S2[-1, n]^2*S2[1, n]*S2[2, n] - (2*S2[-1, n]^2*S2[3, n])/3 + 
   S2[2, n]*S2[3, n] - 2*S2[5, n] + S2[-4, -1, n] + S2[-3, -2, n] - 
   2*S2[-1, n]*S2[-3, 1, n] - S2[2, n]*S2[-2, -1, n] - 
   2*S2[-2, n]*S2[-2, 1, n] - 2*S2[-1, n]*S2[1, n]*S2[-2, 1, n] + 
   S2[-1, n]*S2[1, n]^2*S2[1, -1, n] + S2[-1, n]*S2[2, n]*S2[1, -1, n] + 
   2*S2[-2, 1, n]*S2[1, -1, n] - S2[1, n]*S2[1, -1, n]^2 + 
   2*S2[-1, n]*S2[2, -2, n] + 2*S2[-2, n]*S2[2, -1, n] + 
   2*S2[-1, n]*S2[1, n]*S2[2, -1, n] - 2*S2[1, -1, n]*S2[2, -1, n] + 
   2*S2[-1, n]*S2[3, -1, n] - 2*S2[4, 1, n] + 2*S2[-3, -1, 1, n] + 
   2*S2[-3, 1, -1, n] + S2[-2, -1, 2, n] + S2[-2, 2, -1, n] + 
   S2[1, -1, n]*S2[1, 1, -1, n] + S2[2, 2, 1, n] - 2*S2[3, -1, -1, n] - 
   2*S2[3, 1, 1, n] + 2*S2[-2, -1, 1, 1, n] + 2*S2[-2, 1, -1, 1, n] + 
   S2[-2, 1, 1, -1, n] - S2[-1, n]*S2[1, 1, 1, -1, n] - 
   2*S2[2, -1, -1, 1, n] - S2[2, -1, 1, -1, n] - 2*S2[2, 1, 1, 1, n] + 
   4*S2[-1, -1, 1, 1, 1, n] + 2*S2[-1, 1, -1, 1, 1, n], 
 S2[-1, 1, 1, -1, 1, n_] -> 3*S2[-4, n]*S2[-1, n] + 
   (S2[-2, n]*S2[-1, n]*S2[1, n]^2)/2 + (S2[-1, n]^2*S2[1, n]^3)/2 + 
   (5*S2[-2, n]*S2[-1, n]*S2[2, n])/2 + (3*S2[-1, n]^2*S2[1, n]*S2[2, n])/2 + 
   S2[-1, n]^2*S2[3, n] - S2[2, n]*S2[3, n] + 3*S2[5, n] - 2*S2[-4, -1, n] - 
   S2[-3, -2, n] + 2*S2[-1, n]*S2[-3, 1, n] + S2[2, n]*S2[-2, -1, n] + 
   3*S2[-2, n]*S2[-2, 1, n] + 2*S2[-1, n]*S2[1, n]*S2[-2, 1, n] + 
   S2[-3, n]*(4*S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
   S2[-2, n]*S2[1, n]*S2[1, -1, n] - (3*S2[-1, n]*S2[1, n]^2*S2[1, -1, n])/
    2 - (3*S2[-1, n]*S2[2, n]*S2[1, -1, n])/2 - 2*S2[-2, 1, n]*S2[1, -1, n] + 
   S2[1, n]*S2[1, -1, n]^2 - 2*S2[-1, n]*S2[2, -2, n] - 
   3*S2[-2, n]*S2[2, -1, n] - 3*S2[-1, n]*S2[1, n]*S2[2, -1, n] + 
   2*S2[1, -1, n]*S2[2, -1, n] - 3*S2[-1, n]*S2[3, -1, n] + 3*S2[4, 1, n] - 
   3*S2[-3, -1, 1, n] - 2*S2[-3, 1, -1, n] - S2[-2, -1, 2, n] + 
   S2[-1, n]*S2[-2, 1, 1, n] - S2[-2, 2, -1, n] + S2[-2, n]*S2[1, 1, -1, n] + 
   S2[-1, n]*S2[1, n]*S2[1, 1, -1, n] - S2[1, -1, n]*S2[1, 1, -1, n] + 
   S2[-1, n]*S2[1, 2, -1, n] + S2[-1, n]*S2[2, 1, -1, n] - S2[2, 2, 1, n] + 
   2*S2[3, -1, -1, n] + 3*S2[3, 1, 1, n] - 3*S2[-2, -1, 1, 1, n] - 
   2*S2[-2, 1, -1, 1, n] - S2[-2, 1, 1, -1, n] + 2*S2[2, -1, -1, 1, n] + 
   S2[2, -1, 1, -1, n] + 3*S2[2, 1, 1, 1, n] - 6*S2[-1, -1, 1, 1, 1, n] - 
   3*S2[-1, 1, -1, 1, 1, n], S2[-1, 1, 1, -1, -1, n_] -> 
  (4*S2[-5, n] + S2[-2, n]^2*S2[-1, n] + 3*S2[-4, n]*S2[1, n] + 
    S2[-3, n]*S2[1, n]^2 + S2[-3, n]*S2[2, n] + S2[-1, n]*S2[2, n]^2 + 
    S2[-2, n]*(S2[1, n]*S2[2, n] + 2*S2[3, n]) + 2*S2[-1, n]*S2[4, n] - 
    2*S2[-4, 1, n] - 2*S2[1, n]*S2[-3, 1, n] + S2[-1, n]*S2[1, n]*
     S2[-2, -1, n] - S2[1, n]*S2[2, -2, n] - 2*S2[2, n]*S2[2, -1, n] + 
    2*S2[3, -2, n] + 3*S2[1, n]*S2[3, -1, n] + 2*S2[-3, -1, -1, n] + 
    2*S2[-3, 1, 1, n] - 2*S2[-1, -2, -2, n] - S2[1, n]*S2[-1, -2, -1, n] - 
    2*S2[-1, 2, 2, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 2*S2[2, 1, -2, n] - 
    2*S2[1, n]*S2[2, 1, -1, n] - 2*S2[3, -1, 1, n] - 2*S2[3, 1, -1, n] - 
    2*S2[-2, -1, -1, 1, n] - 2*S2[-2, -1, 1, -1, n] + 
    2*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
    2*S2[2, 1, 1, -1, n] - 2*S2[1, -1, 1, -1, -1, n] - 
    6*S2[1, 1, -1, -1, -1, n])/2, S2[-1, 1, -1, 1, -1, n_] -> 
  (-12*S2[-5, n] - 3*S2[-2, n]^2*S2[-1, n] - 12*S2[-4, n]*S2[1, n] - 
    4*S2[-3, n]*S2[1, n]^2 + 2*S2[-3, n]*S2[2, n] + 
    S2[-1, n]*S2[1, n]^2*S2[2, n] - 3*S2[-1, n]*S2[2, n]^2 + 
    2*S2[-1, n]*S2[1, n]*S2[3, n] - 5*S2[-1, n]*S2[4, n] + 8*S2[-4, 1, n] + 
    3*S2[-1, n]*S2[-3, -1, n] + 8*S2[1, n]*S2[-3, 1, n] - 2*S2[-3, 2, n] - 
    2*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 2*S2[-1, n]^2*S2[-2, 1, n] - 
    2*S2[2, n]*S2[-2, 1, n] - 4*S2[1, n]*S2[2, n]*S2[1, -1, n] - 
    4*S2[3, n]*S2[1, -1, n] - 4*S2[-2, -1, n]*S2[1, -1, n] - 
    S2[-1, n]*S2[1, -1, n]^2 + 4*S2[1, n]*S2[2, -2, n] + 
    S2[-1, n]^2*S2[2, -1, n] + 8*S2[2, n]*S2[2, -1, n] - 
    2*S2[-2, n]*(2*S2[1, n]*S2[2, n] + 5*S2[3, n] + S2[-2, -1, n] - 
      S2[2, 1, n]) - 2*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
    4*S2[1, -1, n]*S2[2, 1, n] - 4*S2[3, -2, n] - 12*S2[1, n]*S2[3, -1, n] - 
    4*S2[-1, n]*S2[3, 1, n] - 2*S2[4, -1, n] - 12*S2[-3, -1, -1, n] - 
    8*S2[-3, 1, 1, n] + 6*S2[-1, -2, -2, n] + 4*S2[1, n]*S2[-1, -2, -1, n] + 
    2*S2[-1, n]*S2[-1, -2, 1, n] + 2*S2[1, -1, n]*S2[-1, 1, -1, n] - 
    S2[-1, n]*S2[-1, 2, -1, n] + 6*S2[-1, 2, 2, n] - 
    4*S2[2, n]*S2[1, 1, -1, n] + 6*S2[2, 1, -2, n] + 
    8*S2[1, n]*S2[2, 1, -1, n] + 2*S2[-1, n]*S2[2, 1, 1, n] + 
    8*S2[3, -1, 1, n] + 12*S2[3, 1, -1, n] + 8*S2[-2, -1, -1, 1, n] + 
    12*S2[-2, -1, 1, -1, n] + 12*S2[-2, 1, -1, -1, n] - 
    4*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] - 
    8*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n] + 
    8*S2[1, -1, 1, -1, -1, n] + 24*S2[1, 1, -1, -1, -1, n])/2, 
 S2[-1, 1, -1, -1, 1, n_] -> 4*S2[-5, n] + S2[-2, n]^2*S2[-1, n] + 
   3*S2[-4, n]*S2[1, n] + S2[-3, n]*S2[1, n]^2 - (S2[-1, n]^3*S2[1, n]^2)/2 + 
   (5*S2[-1, n]*S2[2, n]^2)/4 - S2[-1, n]*S2[1, n]*S2[3, n] + 
   (11*S2[-1, n]*S2[4, n])/4 - 2*S2[-4, 1, n] - 3*S2[1, n]*S2[-3, 1, n] + 
   S2[-3, 2, n] + S2[-1, n]*S2[1, n]*S2[-2, -1, n] + 
   S2[-1, n]^2*S2[-2, 1, n] + (S2[-1, n]^2*S2[1, n]*S2[1, -1, n])/2 + 
   (3*S2[1, n]*S2[2, n]*S2[1, -1, n])/2 + S2[3, n]*S2[1, -1, n] + 
   2*S2[-2, -1, n]*S2[1, -1, n] + (S2[-1, n]*S2[1, -1, n]^2)/2 - 
   3*S2[1, n]*S2[2, -2, n] - 2*S2[2, n]*S2[2, -1, n] - 
   S2[-1, n]*S2[1, n]*S2[2, 1, n] - 2*S2[1, -1, n]*S2[2, 1, n] + 
   S2[3, -2, n] + 3*S2[1, n]*S2[3, -1, n] + S2[-1, n]*S2[3, 1, n] + 
   3*S2[-3, -1, -1, n] + 2*S2[-3, 1, 1, n] - S2[-1, n]*S2[-2, 1, -1, n] - 
   2*S2[-1, -2, -2, n] - S2[-1, n]*S2[-1, -2, 1, n] + 
   S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] - S2[1, -1, n]*S2[-1, 1, -1, n] + 
   S2[-2, n]*((-3*S2[-1, n]^2*S2[1, n])/2 + (3*S2[1, n]*S2[2, n])/2 + 
     3*S2[3, n] + S2[-1, 1, -1, n]) - 2*S2[-1, 2, 2, n] - 2*S2[2, 1, -2, n] - 
   S2[-1, n]*S2[2, 1, 1, n] - 2*S2[3, -1, 1, n] - 3*S2[3, 1, -1, n] - 
   2*S2[-2, -1, -1, 1, n] - 4*S2[-2, -1, 1, -1, n] - 3*S2[-2, 1, -1, -1, n] + 
   3*S2[1, n]*S2[-1, -1, -1, 1, n] + 3*S2[2, -1, -1, -1, n] + 
   2*S2[2, 1, -1, 1, n] + 4*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_] -> 
  (3*S2[-4, n]*S2[-1, n] + 3*S2[-2, n]*S2[-1, n]^3 + 
    2*S2[-3, n]*S2[-1, n]*S2[1, n] + S2[-1, n]^4*S2[1, n] + 
    3*S2[1, n]*S2[2, n]^2 + 3*S2[-1, n]^2*S2[3, n] + 3*S2[2, n]*S2[3, n] + 
    6*S2[1, n]*S2[4, n] + 6*S2[5, n] + 6*S2[-4, -1, n] + 
    3*S2[2, n]*S2[-2, -1, n] + 6*S2[-3, n]*S2[1, -1, n] + 
    6*S2[-1, n]*S2[2, n]*S2[1, -1, n] + 3*S2[-1, n]*S2[2, -2, n] + 
    3*S2[-1, n]^2*S2[2, 1, n] - 3*S2[2, n]*S2[2, 1, n] + 
    3*S2[-1, n]*S2[3, -1, n] - 6*S2[4, 1, n] - 6*S2[-3, 1, -1, n] - 
    3*S2[-1, n]*S2[-1, -2, -1, n] - 3*S2[-1, n]^2*S2[-1, 1, -1, n] - 
    3*S2[2, n]*S2[-1, 1, -1, n] - 6*S2[-1, n]*S2[2, 1, -1, n] + 
    6*S2[3, -1, -1, n] + 6*S2[-2, -1, -1, -1, n] - 
    6*S2[-1, n]*S2[-1, -1, -1, 1, n] - 6*S2[2, 1, -1, -1, n] - 
    24*S2[1, -1, -1, -1, -1, n])/6, S2[-1, -1, 1, 1, -1, n_] -> 
  (2*S2[-5, n] + 3*S2[-4, n]*S2[1, n] + S2[-3, n]*S2[1, n]^2 - 
    3*S2[-3, n]*S2[2, n] + S2[-2, n]*S2[1, n]*S2[2, n] + 
    4*S2[-2, n]*S2[3, n] - 2*S2[-4, 1, n] - S2[-1, n]*S2[-3, -1, n] - 
    2*S2[1, n]*S2[-3, 1, n] + 2*S2[-3, 2, n] + 2*S2[-2, n]*S2[-2, -1, n] + 
    S2[-1, n]*S2[1, n]*S2[-2, -1, n] + 2*S2[2, n]*S2[-2, 1, n] + 
    S2[1, n]*S2[2, n]*S2[1, -1, n] + S2[3, n]*S2[1, -1, n] + 
    S2[-2, -1, n]*S2[1, -1, n] - S2[1, n]*S2[2, -2, n] - 
    S2[-1, n]^2*S2[2, -1, n] - 2*S2[2, n]*S2[2, -1, n] - 
    2*S2[-2, n]*S2[2, 1, n] - S2[1, -1, n]*S2[2, 1, n] - 2*S2[3, -2, n] + 
    3*S2[1, n]*S2[3, -1, n] + 2*S2[4, -1, n] + 2*S2[-3, -1, -1, n] + 
    2*S2[-3, 1, 1, n] + 2*S2[-1, n]*S2[-2, 1, -1, n] - 
    S2[1, n]*S2[-1, -2, -1, n] - S2[1, -1, n]*S2[-1, 1, -1, n] + 
    S2[-1, n]*S2[-1, 2, -1, n] + S2[-1, n]^2*S2[1, 1, -1, n] + 
    S2[2, n]*S2[1, 1, -1, n] - 2*S2[1, n]*S2[2, 1, -1, n] - 
    2*S2[3, -1, 1, n] - 2*S2[3, 1, -1, n] - 2*S2[-2, -1, -1, 1, n] - 
    4*S2[-2, -1, 1, -1, n] - 6*S2[-2, 1, -1, -1, n] + 
    6*S2[2, -1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 4*S2[2, 1, 1, -1, n] - 
    2*S2[1, -1, 1, -1, -1, n] - 6*S2[1, 1, -1, -1, -1, n])/2, 
 S2[-1, -1, 1, -1, 1, n_] -> (2*S2[-2, n]^2*S2[-1, n] + 
    S2[-1, n]^3*S2[1, n]^2 + S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - 
    S2[-1, n]*S2[1, n]^2*S2[2, n] + S2[-1, n]*S2[1, n]*S2[3, n] + 
    S2[-1, n]*S2[4, n] - 3*S2[-1, n]*S2[-3, -1, n] + 
    2*S2[1, n]*S2[-3, 1, n] - 3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + 
    S2[-1, n]^2*S2[-2, 1, n] + S2[2, n]*S2[-2, 1, n] - 
    S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - S2[1, n]*S2[2, n]*S2[1, -1, n] - 
    S2[3, n]*S2[1, -1, n] - S2[-2, -1, n]*S2[1, -1, n] + 
    4*S2[1, n]*S2[2, -2, n] - S2[2, n]*S2[2, -1, n] + 
    5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + S2[1, -1, n]*S2[2, 1, n] + 
    2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 2*S2[4, -1, n] + 
    2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 2*S2[1, n]*S2[-1, -2, -1, n] - 
    2*S2[-1, n]*S2[-1, -2, 1, n] + S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - 
      S2[1, n]*S2[2, n] + S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - 
      S2[2, 1, n] - S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
    S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
    2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
    4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
    2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
    4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
    2*S2[1, -1, 1, -1, -1, n])/2, S2[-1, -1, 1, -1, -1, n_] -> 
  (-2*S2[-1, n]^4*S2[1, n] - 3*S2[1, n]*S2[2, n]^2 + 
    S2[-2, n]*(-6*S2[-1, n]^3 + 2*S2[-1, n]*S2[2, n]) - 5*S2[2, n]*S2[3, n] - 
    6*S2[1, n]*S2[4, n] - 8*S2[5, n] - 8*S2[-4, -1, n] - 
    5*S2[2, n]*S2[-2, -1, n] - 8*S2[-3, n]*S2[1, -1, n] + 
    S2[-1, n]^3*S2[1, -1, n] + S2[2, n]*S2[2, 1, n] + 4*S2[3, 2, n] + 
    4*S2[4, 1, n] + 8*S2[-3, 1, -1, n] + 4*S2[-2, -1, 2, n] + 
    4*S2[-2, 2, -1, n] + 5*S2[2, n]*S2[-1, 1, -1, n] + 
    S2[-1, n]^2*(S2[1, n]*S2[2, n] - 5*S2[3, n] + 3*S2[-2, -1, n] - 
      7*S2[2, 1, n] + 5*S2[-1, 1, -1, n]) + 4*S2[2, 2, 1, n] - 
    8*S2[3, -1, -1, n] - 12*S2[-2, -1, -1, -1, n] + 
    S2[-1, n]*(-4*S2[-3, 1, n] - 7*S2[2, n]*S2[1, -1, n] - 8*S2[2, -2, n] + 
      4*S2[-1, -2, -1, n] + 8*S2[2, 1, -1, n] + 12*S2[-1, -1, -1, 1, n]) + 
    12*S2[2, 1, -1, -1, n] + 24*S2[1, -1, -1, -1, -1, n])/4, 
 S2[-1, -1, -1, 1, 1, n_] -> (-6*S2[-2, n]^2*S2[-1, n] - 
    6*S2[-4, n]*S2[1, n] - 2*S2[-3, n]*S2[1, n]^2 - S2[-1, n]^3*S2[1, n]^2 + 
    14*S2[-3, n]*S2[2, n] + S2[-1, n]^3*S2[2, n] + 
    3*S2[-1, n]*S2[1, n]^2*S2[2, n] - 3*S2[-1, n]*S2[4, n] + 
    12*S2[-4, 1, n] + 6*S2[-1, n]*S2[-3, -1, n] - 12*S2[-3, 2, n] + 
    6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 6*S2[-1, n]^2*S2[-2, 1, n] - 
    6*S2[2, n]*S2[-2, 1, n] - 6*S2[1, n]*S2[2, -2, n] + 
    6*S2[2, n]*S2[2, -1, n] - 6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 
      2*S2[3, n] - 2*S2[2, 1, n]) - 12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 
    6*S2[1, n]*S2[3, -1, n] - 12*S2[-1, n]*S2[3, 1, n] - 12*S2[-2, 2, 1, n] + 
    12*S2[-1, -2, -2, n] + 6*S2[1, n]*S2[-1, -2, -1, n] + 
    12*S2[-1, n]*S2[-1, -2, 1, n] - 6*S2[-1, n]*S2[-1, 2, -1, n] + 
    6*S2[-1, n]^2*S2[1, 1, -1, n] - 6*S2[2, n]*S2[1, 1, -1, n] + 
    12*S2[1, n]*S2[2, 1, -1, n] + 12*S2[-1, n]*S2[2, 1, 1, n] + 
    12*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
    12*S2[-2, 1, -1, -1, n] + 12*S2[1, n]*S2[-1, -1, -1, 1, n] - 
    12*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] - 
    12*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n] + 
    12*S2[1, 1, -1, -1, -1, n])/12, S2[-1, -1, -1, 1, -1, n_] -> 
  (3*S2[-4, n]*S2[-1, n] + 9*S2[-2, n]*S2[-1, n]^3 + 3*S2[-1, n]^4*S2[1, n] + 
    3*S2[1, n]*S2[2, n]^2 + 9*S2[-1, n]^2*S2[3, n] + 9*S2[2, n]*S2[3, n] + 
    6*S2[1, n]*S2[4, n] + 18*S2[5, n] + 12*S2[-4, -1, n] - 6*S2[-3, -2, n] + 
    6*S2[-1, n]*S2[-3, 1, n] - 6*S2[-1, n]^2*S2[-2, -1, n] + 
    9*S2[2, n]*S2[-2, -1, n] - 2*S2[-1, n]^3*S2[1, -1, n] + 
    6*S2[-1, n]*S2[2, n]*S2[1, -1, n] + 
    S2[-3, n]*(6*S2[-2, n] + 8*S2[1, -1, n]) + 9*S2[-1, n]*S2[2, -2, n] + 
    9*S2[-1, n]^2*S2[2, 1, n] + 3*S2[2, n]*S2[2, 1, n] - 
    3*S2[-1, n]*S2[3, -1, n] - 6*S2[3, 2, n] - 6*S2[-3, 1, -1, n] - 
    12*S2[-2, -1, 2, n] - 12*S2[-2, 2, -1, n] - 
    3*S2[-1, n]*S2[-1, -2, -1, n] - 6*S2[-1, n]^2*S2[-1, 1, -1, n] - 
    6*S2[2, n]*S2[-1, 1, -1, n] - 6*S2[-1, n]*S2[2, 1, -1, n] - 
    12*S2[2, 2, 1, n] + 6*S2[3, -1, -1, n] + 18*S2[-2, -1, -1, -1, n] - 
    18*S2[-1, n]*S2[-1, -1, -1, 1, n] - 18*S2[2, 1, -1, -1, n] - 
    24*S2[1, -1, -1, -1, -1, n])/6, S2[-1, -1, -1, -1, 1, n_] -> 
  (-8*S2[-2, n]*S2[-1, n]^3 - 3*S2[-1, n]^4*S2[1, n] - 
    3*S2[1, n]*S2[2, n]^2 - 6*S2[-1, n]^2*S2[3, n] - 6*S2[2, n]*S2[3, n] - 
    6*S2[1, n]*S2[4, n] - 24*S2[5, n] - 24*S2[-4, -1, n] + 24*S2[-3, -2, n] + 
    6*S2[-1, n]^2*S2[-2, -1, n] - 18*S2[2, n]*S2[-2, -1, n] + 
    2*S2[-1, n]^3*S2[1, -1, n] - 6*S2[-1, n]*S2[2, n]*S2[1, -1, n] - 
    8*S2[-3, n]*(2*S2[-2, n] + S2[1, -1, n]) - 6*S2[-1, n]^2*S2[2, 1, n] - 
    6*S2[2, n]*S2[2, 1, n] + 24*S2[-2, -1, 2, n] + 24*S2[-2, 2, -1, n] + 
    6*S2[-1, n]^2*S2[-1, 1, -1, n] + 6*S2[2, n]*S2[-1, 1, -1, n] + 
    24*S2[2, 2, 1, n] - 24*S2[-2, -1, -1, -1, n] + 
    24*S2[-1, n]*S2[-1, -1, -1, 1, n] + 24*S2[2, 1, -1, -1, n] + 
    24*S2[1, -1, -1, -1, -1, n])/24, S2[-1, -1, -1, -1, -1, n_] -> 
  (24*S2[-5, n] + S2[-1, n]^5 + 10*S2[-1, n]^3*S2[2, n] + 
    20*S2[-3, n]*(S2[-1, n]^2 + S2[2, n]) + 
    15*S2[-1, n]*(S2[2, n]^2 + 2*S2[4, n]))/120, 
 S2[1, 2, 1, 1, n_] -> S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - 
   S2[3, 2, n] + S2[4, 1, n] + S2[1, n]*S2[2, 1, 1, n] - S2[2, 2, 1, n] + 
   S2[3, 1, 1, n] - 3*S2[2, 1, 1, 1, n], S2[1, 2, 1, -1, n_] -> 
  -(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
   S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n] + S2[2, 1, -2, n] + 
   S2[1, n]*S2[2, 1, -1, n] + S2[3, 1, -1, n] - S2[2, 1, -1, 1, n] - 
   2*S2[2, 1, 1, -1, n], S2[1, 2, -1, 1, n_] -> 
  2*S2[-5, n] + 2*S2[-3, n]*S2[2, n] + S2[-1, n]*S2[2, n]^2 + 
   S2[-1, n]*S2[4, n] + S2[-4, 1, n] + S2[1, n]*S2[2, -2, n] + 
   S2[1, n]^2*S2[2, -1, n] - S2[2, n]*S2[2, -1, n] + S2[-2, n]*S2[2, 1, n] + 
   S2[1, n]*S2[3, -1, n] - S2[4, -1, n] - S2[-2, 2, 1, n] - 
   2*S2[-1, 2, 2, n] - S2[1, n]*S2[1, 2, -1, n] - S2[2, 1, -2, n] - 
   S2[1, n]*S2[2, 1, -1, n] + S2[3, -1, 1, n] - 2*S2[2, -1, 1, 1, n] - 
   S2[2, 1, -1, 1, n], S2[1, 2, -1, -1, n_] -> 
  (S2[1, n]*(S2[2, n]^2 + S2[4, n] + 2*S2[-3, -1, n] + 
      2*S2[-1, n]*S2[2, -1, n] - 2*S2[-1, 2, -1, n]) + 
    4*(S2[2, n]*S2[3, n] + S2[5, n] + S2[-4, -1, n] + 
      S2[-2, n]*S2[2, -1, n] - S2[3, 2, n] - S2[-2, 2, -1, n] + 
      S2[3, -1, -1, n] - S2[2, -1, -1, 1, n] - S2[2, -1, 1, -1, n] - 
      S2[2, 1, -1, -1, n]))/4, S2[1, 1, 2, 1, n_] -> 
  (S2[1, n]^2*S2[2, 1, n] - S2[2, n]*(2*S2[3, n] + 3*S2[2, 1, n]) + 
    S2[1, n]*(S2[2, n]^2 + S2[4, n] + 2*S2[3, 1, n] - 4*S2[2, 1, 1, n]) - 
    2*(S2[5, n] - 2*S2[3, 2, n] + S2[4, 1, n] - 2*S2[2, 2, 1, n] + 
      2*S2[3, 1, 1, n] - 3*S2[2, 1, 1, 1, n]))/2, 
 S2[1, 1, 2, -1, n_] -> -S2[-5, n] - S2[-3, n]*S2[2, n] - 
   (S2[-1, n]*S2[2, n]^2)/2 - (S2[-1, n]*S2[4, n])/2 - S2[-4, 1, n] - 
   (S2[1, n]^2*S2[2, -1, n])/2 + (S2[2, n]*S2[2, -1, n])/2 - 
   S2[-2, n]*S2[2, 1, n] + S2[3, -2, n] + S2[4, -1, n] + S2[-2, 2, 1, n] + 
   S2[-1, 2, 2, n] + S2[1, n]*S2[1, 2, -1, n] - S2[3, -1, 1, n] - 
   S2[3, 1, -1, n] + S2[2, -1, 1, 1, n] + S2[2, 1, -1, 1, n] + 
   S2[2, 1, 1, -1, n], S2[1, 1, 1, 2, n_] -> 
  (S2[1, n]^3*S2[2, n] + 3*S2[1, n]^2*(S2[3, n] - S2[2, 1, n]) + 
    S2[2, n]*(5*S2[3, n] + 3*S2[2, 1, n]) + 
    3*S2[1, n]*(S2[4, n] - 2*S2[3, 1, n] + 2*S2[2, 1, 1, n]) + 
    6*(S2[5, n] - S2[3, 2, n] - S2[2, 2, 1, n] + S2[3, 1, 1, n] - 
      S2[2, 1, 1, 1, n]))/6, S2[1, 1, 1, -2, n_] -> 
  (3*S2[-3, n]*(S2[1, n]^2 - S2[2, n]) - 6*S2[-4, 1, n] - 
    6*S2[1, n]*S2[-3, 1, n] - 3*S2[1, n]^2*S2[-2, 1, n] + 
    3*S2[2, n]*S2[-2, 1, n] + 6*S2[1, n]*S2[2, -2, n] + 
    S2[-2, n]*(S2[1, n]^3 - 3*S2[1, n]*S2[2, n] + 2*S2[3, n] - 
      6*S2[2, 1, n]) + 6*S2[-3, 1, 1, n] + 6*S2[1, n]*S2[-2, 1, 1, n] + 
    6*S2[-2, 2, 1, n] + 6*S2[2, 1, -2, n] - 6*S2[-2, 1, 1, 1, n])/6, 
 S2[1, 1, -1, 2, n_] -> 2*S2[-5, n] + S2[-4, n]*S2[1, n] + 
   (S2[-3, n]*S2[1, n]^2)/2 + (3*S2[-3, n]*S2[2, n])/2 + 
   S2[-1, n]*S2[2, n]^2 + S2[-1, n]*S2[4, n] - S2[1, n]*S2[-3, 1, n] + 
   (S2[1, n]^2*S2[2, -1, n])/2 - (3*S2[2, n]*S2[2, -1, n])/2 + 
   S2[-2, n]*S2[2, 1, n] + S2[1, n]*S2[3, -1, n] - S2[4, -1, n] + 
   S2[-3, 1, 1, n] - S2[-2, 2, 1, n] - 2*S2[-1, 2, 2, n] + 
   S2[2, n]*S2[1, 1, -1, n] - S2[1, n]*S2[1, 2, -1, n] - S2[2, 1, -2, n] - 
   S2[1, n]*S2[2, 1, -1, n] - S2[2, -1, 1, 1, n], 
 S2[1, 1, -1, -2, n_] -> (-(S2[-3, n]*S2[-2, n]) + S2[2, n]*S2[3, n] + 
    S2[5, n] + S2[-3, -2, n] + S2[1, n]^2*(S2[3, n] - S2[-2, -1, n]) - 
    S2[2, n]*S2[-2, -1, n] + S2[-2, n]*S2[-2, 1, n] - 2*S2[3, 2, n] - 
    S2[4, 1, n] + 2*S2[-2, -1, 2, n] - S2[-2, 1, -2, n] + 
    2*S2[1, n]*(S2[4, n] + S2[-1, n]*S2[-2, 1, n] - S2[-2, 1, -1, n] - 
      S2[-1, -2, 1, n]) + 2*S2[-2, n]*S2[1, 1, -1, n] + 2*S2[3, 1, 1, n] - 
    2*S2[-2, -1, 1, 1, n])/2, S2[1, 1, -2, 1, n_] -> 
  S2[-5, n] + S2[-4, n]*S2[1, n] + 2*S2[-3, n]*S2[2, n] + 
   S2[-2, n]*S2[1, n]*S2[2, n] - S2[-2, n]*S2[3, n] + S2[-4, 1, n] + 
   S2[1, n]*S2[-3, 1, n] - S2[-3, 2, n] + (S2[1, n]^2*S2[-2, 1, n])/2 - 
   (3*S2[2, n]*S2[-2, 1, n])/2 - S2[1, n]*S2[2, -2, n] + 
   2*S2[-2, n]*S2[2, 1, n] + S2[3, -2, n] - 2*S2[-3, 1, 1, n] - 
   2*S2[1, n]*S2[-2, 1, 1, n] - 2*S2[-2, 2, 1, n] - 2*S2[2, 1, -2, n] + 
   3*S2[-2, 1, 1, 1, n], S2[1, 1, -2, -1, n_] -> 
  (S2[-3, n]*S2[-2, n] + S2[5, n] + 2*S2[-4, -1, n] + S2[-3, -2, n] + 
    2*S2[1, n]*S2[-3, -1, n] + S2[1, n]^2*S2[-2, -1, n] + 
    S2[2, n]*S2[-2, -1, n] - S2[-2, n]*S2[-2, 1, n] - 
    2*S2[-1, n]*S2[1, n]*S2[-2, 1, n] - 2*S2[1, n]*S2[3, 1, n] - 
    S2[4, 1, n] - 2*S2[-3, -1, 1, n] - 2*S2[-3, 1, -1, n] - 
    2*S2[-2, -1, 2, n] - S2[-2, 1, -2, n] - 2*S2[-2, 2, -1, n] + 
    2*S2[1, n]*S2[-1, -2, 1, n] + 2*S2[-2, -1, 1, 1, n] + 
    2*S2[-2, 1, -1, 1, n] + 2*S2[-2, 1, 1, -1, n])/2, 
 S2[1, -1, 2, 1, n_] -> -2*S2[-5, n] - 2*S2[-3, n]*S2[2, n] - 
   S2[-1, n]*S2[2, n]^2 - S2[-1, n]*S2[4, n] - S2[-4, 1, n] + 
   S2[1, n]*S2[-3, 1, n] + S2[-3, 2, n] - S2[1, n]^2*S2[2, -1, n] + 
   S2[2, n]*S2[2, -1, n] - 2*S2[-2, n]*S2[2, 1, n] + 
   S2[1, -1, n]*S2[2, 1, n] - S2[1, n]*S2[3, -1, n] + S2[4, -1, n] - 
   2*S2[-3, 1, 1, n] + 2*S2[-2, 2, 1, n] + 2*S2[-1, 2, 2, n] + 
   S2[1, n]*S2[1, 2, -1, n] + S2[2, 1, -2, n] + 2*S2[2, -1, 1, 1, n] + 
   S2[2, 1, -1, 1, n], S2[1, -1, 2, -1, n_] -> 
  S2[-3, n]*S2[-2, n] + S2[2, n]*(-S2[3, n] + S2[-2, -1, n]) - 
   2*S2[-2, n]*S2[2, -1, n] - S2[-1, n]*S2[1, n]*S2[2, -1, n] + 
   S2[1, -1, n]*S2[2, -1, n] + S2[3, 2, n] - S2[-3, -1, 1, n] - 
   S2[-3, 1, -1, n] - S2[-2, -1, 2, n] + S2[-2, 2, -1, n] + 
   S2[1, n]*S2[-1, 2, -1, n] - S2[2, 2, 1, n] + 2*S2[2, -1, -1, 1, n] + 
   S2[2, -1, 1, -1, n], S2[1, -1, 1, 2, n_] -> 
  S2[-5, n] + S2[-4, n]*S2[1, n] + S2[-3, n]*S2[2, n] + 
   S2[-2, n]*S2[1, n]*S2[2, n] - S2[2, n]*S2[-2, 1, n] + 
   S2[1, n]*S2[2, n]*S2[1, -1, n] + S2[3, n]*S2[1, -1, n] - 
   S2[1, n]*S2[2, -2, n] + S2[2, n]*S2[2, -1, n] + S2[-2, n]*S2[2, 1, n] - 
   S2[1, -1, n]*S2[2, 1, n] - S2[3, -2, n] - S2[1, n]*S2[3, -1, n] - 
   S2[-2, 2, 1, n] - 2*S2[2, n]*S2[1, 1, -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, -2, n_] -> 
  (S2[-2, n]^2*S2[1, n] + S2[1, n]*S2[4, n] + S2[5, n] - S2[-3, -2, n] - 
    2*S2[1, n]*S2[-3, -1, n] - 2*S2[-2, 1, n]*S2[1, -1, n] + 
    S2[-3, n]*(S2[-2, n] + 2*S2[1, -1, n]) - S2[4, 1, n] + 
    2*S2[-3, -1, 1, n] + S2[-2, 1, -2, n] + 2*S2[1, n]*S2[-2, 1, -1, n] - 
    S2[-2, n]*(S2[-2, 1, n] - 2*S2[1, n]*S2[1, -1, n] - 2*S2[2, -1, n] + 
      4*S2[1, 1, -1, n]) - 2*S2[-2, 1, -1, 1, n])/2, 
 S2[1, -1, -1, 2, n_] -> (-4*S2[-3, n]*(S2[-2, n] - S2[1, -1, n]) + 
    S2[1, n]*(S2[2, n]^2 + 3*S2[4, n] - 
      2*(S2[-3, -1, n] - S2[-1, n]*S2[2, -1, n] + S2[-1, 2, -1, n])) + 
    2*(S2[2, n]*(S2[3, n] - S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] - 
        S2[2, 1, n] - S2[-1, 1, -1, n]) + 2*(S2[-2, n]*S2[2, -1, n] - 
        S2[1, -1, n]*S2[2, -1, n] - S2[4, 1, n] + S2[-3, -1, 1, n] + 
        S2[-2, -1, 2, n] + S2[2, 2, 1, n] - S2[2, -1, -1, 1, n])))/4, 
 S2[1, -1, -1, -2, n_] -> (2*S2[-5, n] + 2*S2[-2, n]^2*S2[-1, n] + 
    S2[-4, n]*S2[1, n] + 2*S2[-1, n]*S2[4, n] - 2*S2[-4, 1, n] + 
    S2[-1, n]*S2[1, n]*S2[-2, -1, n] + 2*S2[3, n]*S2[1, -1, n] - 
    2*S2[-2, -1, n]*S2[1, -1, n] + S2[1, n]*S2[2, -2, n] + 2*S2[3, -2, n] - 
    S2[1, n]*S2[3, -1, n] - 2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 
    4*S2[-1, -2, -2, n] - S2[1, n]*S2[-1, -2, -1, n] + 
    S2[-2, n]*(S2[3, n] - S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] - 
      S2[2, 1, n] - S2[-1, 1, -1, n]) + 2*S2[3, -1, 1, n] - 
    2*S2[-2, -1, -1, 1, n])/2, S2[1, -1, -2, 1, n_] -> 
  -(S2[-2, n]*S2[-2, 1, n]) - S2[-1, n]*S2[1, n]*S2[-2, 1, n] + 
   S2[-2, 1, n]*S2[1, -1, n] + S2[3, 2, n] - S2[-2, -1, 2, n] + 
   S2[1, n]*S2[-1, -2, 1, n] - 2*S2[3, 1, 1, n] + 2*S2[-2, -1, 1, 1, n] + 
   S2[-2, 1, -1, 1, n], S2[1, -1, -2, -1, n_] -> 
  -S2[-5, n] - (3*S2[-2, n]^2*S2[-1, n])/2 - (3*S2[-1, n]*S2[4, n])/2 - 
   S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-2, n]*(-S2[3, n] + S2[-2, -1, n]) + 
   S2[-2, -1, n]*S2[1, -1, n] - S2[3, -2, n] + 2*S2[4, -1, n] - 
   S2[-2, 2, 1, n] + 3*S2[-1, -2, -2, n] + S2[1, n]*S2[-1, -2, -1, n] - 
   S2[3, -1, 1, n] - S2[3, 1, -1, n] + 2*S2[-2, -1, -1, 1, n] + 
   S2[-2, -1, 1, -1, n], S2[1, -2, 1, 1, n_] -> 
  -(S2[-3, n]*S2[2, n]) + S2[-3, 2, n] + S2[2, n]*S2[-2, 1, n] + 
   S2[-2, n]*(S2[3, n] - S2[2, 1, n]) - S2[3, -2, n] + S2[-3, 1, 1, n] + 
   S2[1, n]*S2[-2, 1, 1, n] + S2[-2, 2, 1, n] + S2[2, 1, -2, n] - 
   3*S2[-2, 1, 1, 1, n], S2[1, -2, 1, -1, n_] -> 
  S2[-3, 1, -1, n] + S2[-2, 1, -2, n] + S2[1, n]*S2[-2, 1, -1, n] + 
   S2[-2, 2, -1, n] - S2[-2, 1, -1, 1, n] - 2*S2[-2, 1, 1, -1, n], 
 S2[1, -2, -1, 1, n_] -> (S2[-3, n]*S2[-2, n] + S2[5, n] - S2[-3, -2, n] + 
    S2[-2, n]*S2[-2, 1, n] + S2[4, 1, n] + 2*S2[-3, -1, 1, n] + 
    2*S2[-2, -1, 2, n] - S2[-2, 1, -2, n] + 
    S2[1, n]*(S2[-2, n]^2 + S2[4, n] + 2*(S2[-1, n]*S2[-2, 1, n] + 
        S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n])) - 
    4*S2[-2, -1, 1, 1, n] - 2*S2[-2, 1, -1, 1, n])/2, 
 S2[1, -2, -1, -1, n_] -> (2*S2[-5, n] + S2[-2, n]^2*S2[-1, n] + 
    S2[-4, n]*S2[1, n] + S2[-2, n]*(S2[1, n]*S2[2, n] + 2*S2[3, n]) + 
    S2[-1, n]*S2[4, n] + S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 
    S2[1, n]*S2[2, -2, n] + S2[1, n]*S2[3, -1, n] + 2*S2[-3, -1, -1, n] - 
    2*S2[-1, -2, -2, n] - S2[1, n]*S2[-1, -2, -1, n] - 
    2*S2[-2, -1, -1, 1, n] - 2*S2[-2, -1, 1, -1, n] - 2*S2[-2, 1, -1, -1, n])/
   2, S2[-1, 2, 1, 1, n_] -> S2[-5, n] + S2[-3, n]*S2[2, n] + S2[-4, 1, n] - 
   S2[-3, 2, n] + S2[-2, n]*S2[2, 1, n] + S2[-3, 1, 1, n] - S2[-2, 2, 1, n] + 
   S2[-1, n]*S2[2, 1, 1, n] - S2[2, -1, 1, 1, n] - S2[2, 1, -1, 1, n] - 
   S2[2, 1, 1, -1, n], S2[-1, 2, 1, -1, n_] -> 
  S2[-3, n]*S2[-2, n] + 2*S2[5, n] + S2[-4, -1, n] - S2[-3, -2, n] + 
   S2[2, n]*(S2[3, n] + S2[-2, -1, n] + S2[2, 1, n]) - S2[3, 2, n] + 
   S2[4, 1, n] + S2[-3, 1, -1, n] - S2[-2, -1, 2, n] - S2[-2, 2, -1, n] + 
   S2[-1, n]*S2[2, 1, -1, n] - 2*S2[2, 2, 1, n] - S2[2, -1, 1, -1, n] - 
   2*S2[2, 1, -1, -1, n], S2[-1, 2, -1, 1, n_] -> 
  -(S2[-3, n]*S2[-2, n]) + S2[-3, -2, n] + 
   S2[2, n]*(S2[3, n] - S2[-2, -1, n]) + S2[-1, n]*S2[2, -2, n] + 
   S2[-2, n]*S2[2, -1, n] + S2[-1, n]*S2[1, n]*S2[2, -1, n] + 
   S2[-1, n]*S2[3, -1, n] - S2[3, 2, n] + S2[-3, -1, 1, n] + 
   S2[-2, -1, 2, n] - S2[-1, n]*S2[1, 2, -1, n] - S2[-1, n]*S2[2, 1, -1, n] + 
   S2[2, 2, 1, n] - 2*S2[2, -1, -1, 1, n] - S2[2, -1, 1, -1, n], 
 S2[-1, 2, -1, -1, n_] -> (4*S2[-5, n] + 4*S2[-3, n]*S2[2, n] + 
    3*S2[-1, n]*S2[2, n]^2 + 3*S2[-1, n]*S2[4, n] + 
    2*S2[-1, n]*S2[-3, -1, n] + 2*S2[-1, n]^2*S2[2, -1, n] + 
    4*S2[-3, -1, -1, n] - 2*S2[-1, n]*S2[-1, 2, -1, n] - 4*S2[-1, 2, 2, n] - 
    12*S2[2, -1, -1, -1, n])/4, S2[-1, 1, 2, 1, n_] -> 
  S2[-3, 2, n] - S2[2, n]*S2[2, -1, n] - S2[1, -1, n]*S2[2, 1, n] + 
   S2[3, -2, n] - S2[4, -1, n] + S2[-2, 2, 1, n] - S2[-1, 2, 2, n] - 
   S2[2, 1, -2, n] + S2[-1, n]*(S2[2, n]^2 + S2[4, n] + 
     S2[1, n]*S2[2, 1, n] + S2[3, 1, n] - 2*S2[2, 1, 1, n]) - 
   S2[3, -1, 1, n] - S2[3, 1, -1, n] + S2[2, 1, -1, 1, n] + 
   2*S2[2, 1, 1, -1, n], S2[-1, 1, 2, -1, n_] -> 
  -(S2[-3, n]*S2[-2, n]) - 2*S2[5, n] - S2[-4, -1, n] + S2[-3, -2, n] - 
   S2[1, -1, n]*S2[2, -1, n] - S2[2, n]*(S2[3, n] + S2[-2, -1, n] + 
     S2[2, 1, n]) + 2*S2[3, 2, n] - S2[4, 1, n] + S2[-2, -1, 2, n] + 
   2*S2[-2, 2, -1, n] + S2[-1, n]*S2[1, 2, -1, n] + 2*S2[2, 2, 1, n] - 
   2*S2[3, -1, -1, n] + S2[2, -1, 1, -1, n] + 2*S2[2, 1, -1, -1, n], 
 S2[-1, 1, 1, 2, n_] -> -(S2[-3, n]*S2[2, n]) + S2[-2, n]*S2[3, n] + 
   S2[2, n]*S2[-2, 1, n] - S2[1, n]*S2[2, n]*S2[1, -1, n] - 
   S2[3, n]*S2[1, -1, n] - S2[-2, n]*S2[2, 1, n] + S2[1, -1, n]*S2[2, 1, n] - 
   S2[3, -2, n] + S2[-1, 2, 2, n] + S2[2, n]*S2[1, 1, -1, n] + 
   S2[2, 1, -2, n] + (S2[-1, n]*(S2[1, n]^2*S2[2, n] - S2[2, n]^2 + 
      2*S2[1, n]*(S2[3, n] - S2[2, 1, n]) - 2*S2[3, 1, n] + 
      2*S2[2, 1, 1, n]))/2 + S2[3, 1, -1, n] - S2[2, 1, 1, -1, n], 
 S2[-1, 1, 1, -2, n_] -> -S2[-4, -1, n] - S2[-1, n]*S2[-3, 1, n] - 
   S2[-1, n]*S2[1, n]*S2[-2, 1, n] + S2[-3, n]*(S2[-1, n]*S2[1, n] - 
     S2[1, -1, n]) + S2[-2, 1, n]*S2[1, -1, n] + S2[-1, n]*S2[2, -2, n] + 
   S2[-3, 1, -1, n] + S2[-2, 1, -2, n] + S2[-1, n]*S2[-2, 1, 1, n] + 
   S2[-2, 2, -1, n] + (S2[-2, n]*(S2[-1, n]*(S2[1, n]^2 - S2[2, n]) - 
      2*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - S2[1, 1, -1, n])))/2 - 
   S2[-2, 1, 1, -1, n], S2[-1, 1, -1, 2, n_] -> 
  S2[-4, n]*S2[-1, n] + S2[5, n] - S2[-3, -2, n] - S2[-1, n]*S2[-3, 1, n] + 
   S2[-3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
   S2[1, -1, n]*S2[2, -1, n] + S2[-1, n]*S2[3, -1, n] + S2[-3, 1, -1, n] - 
   S2[-2, 2, -1, n] + S2[2, n]*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[-5, n] + (S2[-2, n]^2*S2[-1, n])/2 + 
   S2[-1, n]*S2[1, n]*S2[3, n] + (3*S2[-1, n]*S2[4, n])/2 - 
   S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] - 
   S2[3, n]*S2[1, -1, n] + S2[-2, -1, n]*S2[1, -1, n] - S2[4, -1, n] - 
   S2[-1, n]*S2[-2, 1, -1, n] - S2[-1, -2, -2, n] - 
   S2[-1, n]*S2[-1, -2, 1, n] + S2[-2, n]*(S2[3, n] - S2[-2, -1, n] + 
     S2[-1, 1, -1, n]) + S2[3, 1, -1, n] - S2[-2, -1, 1, -1, n], 
 S2[-1, 1, -2, 1, n_] -> (S2[-3, n]*S2[-2, n] + 2*S2[-4, n]*S2[-1, n] + 
    2*S2[-2, n]*S2[-1, n]*S2[2, n] + S2[5, n] + S2[-3, -2, n] + 
    2*S2[-1, n]*S2[-3, 1, n] + S2[-2, n]*S2[-2, 1, n] + 
    2*S2[-1, n]*S2[1, n]*S2[-2, 1, n] - 2*S2[-2, 1, n]*S2[1, -1, n] - 
    2*S2[-1, n]*S2[2, -2, n] + S2[4, 1, n] - 2*S2[-3, -1, 1, n] - 
    2*S2[-3, 1, -1, n] - 3*S2[-2, 1, -2, n] - 4*S2[-1, n]*S2[-2, 1, 1, n] - 
    2*S2[-2, 2, -1, n] + 2*S2[-2, 1, -1, 1, n] + 4*S2[-2, 1, 1, -1, n])/2, 
 S2[-1, 1, -2, -1, n_] -> S2[-3, n]*S2[2, n] + S2[-1, n]*S2[-3, -1, n] + 
   S2[-1, n]*S2[1, n]*S2[-2, -1, n] - S2[-1, n]^2*S2[-2, 1, n] - 
   S2[2, n]*S2[-2, 1, n] - S2[-2, -1, n]*S2[1, -1, n] + 
   S2[-2, n]*(-S2[3, n] + S2[2, 1, n]) + S2[3, -2, n] - 
   S2[-1, n]*S2[3, 1, n] - 2*S2[-3, -1, -1, n] + S2[-1, n]*S2[-1, -2, 1, n] - 
   S2[2, 1, -2, n] + S2[-2, -1, 1, -1, n] + 2*S2[-2, 1, -1, -1, n], 
 S2[-1, -1, 2, 1, n_] -> -S2[5, n] - S2[-4, -1, n] + S2[-3, -2, n] + 
   S2[-1, n]*S2[-3, 1, n] - S2[-2, n]*S2[2, -1, n] - 
   S2[-1, n]*S2[1, n]*S2[2, -1, n] + (S2[-1, n]^2*S2[2, 1, n])/2 - 
   (S2[2, n]*(2*S2[3, n] + S2[2, 1, n]))/2 - S2[-1, n]*S2[3, -1, n] + 
   S2[3, 2, n] - S2[-3, -1, 1, n] - S2[-3, 1, -1, n] + S2[-2, 2, -1, n] + 
   S2[-1, n]*S2[1, 2, -1, n] + S2[2, 2, 1, n] + S2[2, -1, -1, 1, n] + 
   S2[2, -1, 1, -1, n] + S2[2, 1, -1, -1, n], 
 S2[-1, -1, 2, -1, n_] -> -S2[-5, n] - S2[-3, n]*S2[2, n] - 
   S2[-1, n]*S2[2, n]^2 - S2[-1, n]*S2[4, n] - (S2[-1, n]^2*S2[2, -1, n])/2 + 
   (S2[2, n]*S2[2, -1, n])/2 + S2[4, -1, n] - 2*S2[-3, -1, -1, n] + 
   S2[-1, n]*S2[-1, 2, -1, n] + 2*S2[-1, 2, 2, n] + 3*S2[2, -1, -1, -1, n], 
 S2[-1, -1, 1, 2, n_] -> (2*S2[-3, n]*S2[-2, n] + 2*S2[-4, n]*S2[-1, n] + 
    2*S2[-2, n]*S2[-1, n]*S2[2, n] + S2[-1, n]^2*S2[1, n]*S2[2, n] + 
    S2[-1, n]^2*S2[3, n] + 2*S2[2, n]*S2[3, n] + 4*S2[5, n] - 
    2*S2[-3, -2, n] + S2[2, n]*S2[-2, -1, n] - S2[-1, n]*S2[2, n]*
     S2[1, -1, n] - 2*S2[-1, n]*S2[2, -2, n] - S2[-1, n]^2*S2[2, 1, n] + 
    2*S2[2, n]*S2[2, 1, n] - 2*S2[-1, n]*S2[3, -1, n] - 2*S2[3, 2, n] + 
    2*S2[4, 1, n] - 2*S2[-2, -1, 2, n] - 2*S2[-2, 2, -1, n] - 
    S2[2, n]*S2[-1, 1, -1, n] + 2*S2[-1, n]*S2[2, 1, -1, n] - 
    4*S2[2, 2, 1, n] + 2*S2[3, -1, -1, n] - 2*S2[2, 1, -1, -1, n])/2, 
 S2[-1, -1, 1, -2, n_] -> (S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - 
    2*S2[-1, n]*S2[-3, -1, n] - S2[-1, n]^2*S2[-2, 1, n] + 
    S2[2, n]*S2[-2, 1, n] - 2*S2[3, -2, n] + 2*S2[-3, -1, -1, n] + 
    2*S2[-1, n]*S2[-2, 1, -1, n] + 2*S2[-1, -2, -2, n] + 
    S2[-2, n]*(S2[-1, n]^2*S2[1, n] + S2[3, n] + S2[-2, -1, n] - 
      S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - S2[-1, 1, -1, n]) + 
    2*S2[2, 1, -2, n] - 2*S2[-2, 1, -1, -1, n])/2, 
 S2[-1, -1, -1, 2, n_] -> (12*S2[-5, n] + 2*S2[-1, n]^3*S2[2, n] + 
    9*S2[-1, n]*S2[2, n]^2 + 2*S2[-3, n]*(3*S2[-1, n]^2 + 5*S2[2, n]) + 
    15*S2[-1, n]*S2[4, n] - 6*S2[-1, n]*S2[-3, -1, n] - 
    6*S2[2, n]*S2[2, -1, n] - 12*S2[4, -1, n] + 12*S2[-3, -1, -1, n] - 
    6*S2[-1, n]*S2[-1, 2, -1, n] - 12*S2[-1, 2, 2, n] - 
    12*S2[2, -1, -1, -1, n])/12, S2[-1, -1, -1, -2, n_] -> 
  (-4*S2[-3, n]*S2[-2, n] + 3*S2[-4, n]*S2[-1, n] + S2[-2, n]*S2[-1, n]^3 + 
    3*S2[-1, n]^2*S2[3, n] + 3*S2[2, n]*S2[3, n] - 6*S2[-4, -1, n] + 
    6*S2[-3, -2, n] - 3*S2[2, n]*S2[-2, -1, n] + 3*S2[-1, n]*S2[2, -2, n] - 
    3*S2[-1, n]*S2[3, -1, n] - 6*S2[3, 2, n] + 6*S2[-2, -1, 2, n] + 
    6*S2[-2, 2, -1, n] - 3*S2[-1, n]*S2[-1, -2, -1, n] + 6*S2[3, -1, -1, n] - 
    6*S2[-2, -1, -1, -1, n])/6, S2[-1, -1, -2, 1, n_] -> 
  -(S2[-2, n]^2*S2[-1, n])/2 + S2[-3, n]*S2[2, n] - (S2[-1, n]*S2[4, n])/2 + 
   S2[-4, 1, n] - S2[-3, 2, n] - (S2[-1, n]^2*S2[-2, 1, n])/2 - 
   (S2[2, n]*S2[-2, 1, n])/2 + S2[-2, n]*(-S2[3, n] + S2[2, 1, n]) + 
   S2[3, -2, n] - S2[-2, 2, 1, n] + S2[-1, -2, -2, n] + 
   S2[-1, n]*S2[-1, -2, 1, n] - S2[2, 1, -2, n] - S2[3, -1, 1, n] - 
   S2[3, 1, -1, n] + S2[-2, -1, -1, 1, n] + S2[-2, -1, 1, -1, n] + 
   S2[-2, 1, -1, -1, n], S2[-1, -1, -2, -1, n_] -> 
  S2[-3, n]*S2[-2, n] + S2[5, n] + S2[-4, -1, n] - S2[-3, -2, n] - 
   (S2[-1, n]^2*S2[-2, -1, n])/2 + (S2[2, n]*S2[-2, -1, n])/2 + S2[3, 2, n] - 
   2*S2[-2, -1, 2, n] - 2*S2[-2, 2, -1, n] + S2[-1, n]*S2[-1, -2, -1, n] - 
   2*S2[3, -1, -1, n] + 3*S2[-2, -1, -1, -1, n], 
 S2[-1, -2, 1, 1, n_] -> (S2[-3, n]*S2[-2, n] + S2[5, n] - S2[-3, -2, n] + 
    S2[-2, n]*S2[-2, 1, n] + S2[4, 1, n] + S2[-2, 1, -2, n] + 
    2*S2[-1, n]*S2[-2, 1, 1, n] + 2*S2[3, 1, 1, n] - 2*S2[-2, -1, 1, 1, n] - 
    2*S2[-2, 1, -1, 1, n] - 2*S2[-2, 1, 1, -1, n])/2, 
 S2[-1, -2, 1, -1, n_] -> -(S2[-3, n]*S2[2, n]) + S2[-2, n]*S2[3, n] + 
   S2[-3, 2, n] + S2[-2, n]*S2[-2, -1, n] + S2[2, n]*S2[-2, 1, n] - 
   S2[-2, n]*S2[2, 1, n] - 2*S2[3, -2, n] + S2[4, -1, n] - 
   (S2[-1, n]*(S2[-2, n]^2 + S2[4, n] - 2*S2[-2, 1, -1, n]))/2 + 
   S2[-1, -2, -2, n] + S2[2, 1, -2, n] + S2[3, 1, -1, n] - 
   S2[-2, -1, 1, -1, n] - 2*S2[-2, 1, -1, -1, n], 
 S2[-1, -2, -1, 1, n_] -> S2[-5, n] + S2[-2, n]*(S2[3, n] - S2[-2, -1, n]) + 
   S2[3, -2, n] - S2[4, -1, n] + S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] + 
   (S2[-1, n]*(3*S2[-2, n]^2 + 3*S2[4, n] + 
      2*(S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n])))/2 + S2[3, -1, 1, n] - 2*S2[-2, -1, -1, 1, n] - 
   S2[-2, -1, 1, -1, n], S2[-1, -2, -1, -1, n_] -> 
  (S2[-4, n]*S2[-1, n] + S2[-2, n]*S2[-1, n]*S2[2, n] + 
    S2[-1, n]^2*S2[-2, -1, n] - S2[-1, n]*S2[2, -2, n] + 
    S2[-1, n]*S2[3, -1, n] + 2*S2[-2, -1, 2, n] + 2*S2[-2, 2, -1, n] - 
    S2[-1, n]*S2[-1, -2, -1, n] + 2*S2[3, -1, -1, n] - 
    6*S2[-2, -1, -1, -1, n])/2, S2[2, 2, -1, n_] -> 
  -(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
   S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n], 
 S2[2, 1, 2, n_] -> S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - 
   S2[3, 2, n] + S2[4, 1, n] - 2*S2[2, 2, 1, n], 
 S2[2, -1, 2, n_] -> S2[-5, n] + S2[-3, n]*S2[2, n] + 
   S2[-1, n]*(S2[2, n]^2 + S2[4, n]) + S2[-3, 2, n] - S2[2, n]*S2[2, -1, n] - 
   S2[4, -1, n] - 2*S2[-1, 2, 2, n], S2[2, -1, -2, n_] -> 
  -(S2[-3, n]*S2[-2, n]) + S2[-3, -2, n] + 
   S2[2, n]*(S2[3, n] - S2[-2, -1, n]) + S2[-2, n]*S2[2, -1, n] - 
   S2[3, 2, n] + S2[-2, -1, 2, n], S2[2, -2, 1, n_] -> 
  S2[-5, n] + S2[-3, n]*S2[2, n] + S2[-4, 1, n] - S2[-3, 2, n] + 
   S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n], 
 S2[2, -2, -1, n_] -> S2[-3, n]*S2[-2, n] + S2[5, n] + S2[-4, -1, n] - 
   S2[-3, -2, n] + S2[2, n]*S2[-2, -1, n] - S2[-2, -1, 2, n] - 
   S2[-2, 2, -1, n], S2[1, 3, 1, n_] -> S2[1, n]*S2[3, 1, n] + S2[3, 2, n] + 
   S2[4, 1, n] - 2*S2[3, 1, 1, n], S2[1, 3, -1, n_] -> 
  S2[3, -2, n] + S2[1, n]*S2[3, -1, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
   S2[3, 1, -1, n], S2[1, 2, 2, n_] -> (S2[1, n]*(S2[2, n]^2 + S2[4, n]))/2 - 
   S2[2, n]*S2[2, 1, n] + S2[3, 2, n] - S2[4, 1, n] + S2[2, 2, 1, n], 
 S2[1, 2, -2, n_] -> -S2[-4, 1, n] + S2[1, n]*S2[2, -2, n] - 
   S2[-2, n]*S2[2, 1, n] + S2[3, -2, n] + S2[-2, 2, 1, n], 
 S2[1, 1, 3, n_] -> (S2[1, n]^2*S2[3, n])/2 + (S2[2, n]*S2[3, n])/2 + 
   S2[5, n] + S2[1, n]*(S2[4, n] - S2[3, 1, n]) - S2[3, 2, n] - S2[4, 1, n] + 
   S2[3, 1, 1, n], S2[1, 1, -3, n_] -> S2[-5, n] + S2[-4, n]*S2[1, n] + 
   (S2[-3, n]*(S2[1, n]^2 + S2[2, n]))/2 - S2[-4, 1, n] - 
   S2[1, n]*S2[-3, 1, n] - S2[-3, 2, n] + S2[-3, 1, 1, n], 
 S2[1, -1, 3, n_] -> S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n] + 
   S2[3, n]*S2[1, -1, n] - S2[3, -2, n] - S2[1, n]*S2[3, -1, n] + 
   S2[3, -1, 1, n], S2[1, -1, -3, n_] -> S2[5, n] - S2[-3, -2, n] + 
   S2[1, n]*(S2[4, n] - S2[-3, -1, n]) + S2[-3, n]*S2[1, -1, n] - 
   S2[4, 1, n] + S2[-3, -1, 1, n], S2[1, -2, 2, n_] -> 
  S2[-5, n] + S2[-3, n]*S2[2, n] - S2[2, n]*S2[-2, 1, n] + 
   S2[1, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 
   S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n], 
 S2[1, -2, -2, n_] -> (S2[-3, n]*S2[-2, n] + S2[-2, n]^2*S2[1, n] + 
    S2[1, n]*S2[4, n] + S2[5, n] + S2[-3, -2, n] - S2[-2, n]*S2[-2, 1, n] - 
    S2[4, 1, n] - S2[-2, 1, -2, n])/2, S2[1, -3, 1, n_] -> 
  S2[-4, 1, n] + S2[1, n]*S2[-3, 1, n] + S2[-3, 2, n] - 2*S2[-3, 1, 1, n], 
 S2[1, -3, -1, n_] -> S2[-4, -1, n] + S2[-3, -2, n] + 
   S2[1, n]*S2[-3, -1, n] - S2[-3, -1, 1, n] - S2[-3, 1, -1, n], 
 S2[-1, 3, 1, n_] -> S2[-4, 1, n] + S2[3, -2, n] + S2[-1, n]*S2[3, 1, n] - 
   S2[3, -1, 1, n] - S2[3, 1, -1, n], S2[-1, 3, -1, n_] -> 
  S2[-4, -1, n] + S2[-1, n]*S2[3, -1, n] + S2[3, 2, n] - 2*S2[3, -1, -1, n], 
 S2[-1, 2, -2, n_] -> -S2[-4, -1, n] + S2[-3, -2, n] + 
   S2[-1, n]*S2[2, -2, n] - S2[-2, n]*S2[2, -1, n] + S2[-2, 2, -1, n], 
 S2[-1, 1, 3, n_] -> S2[-5, n] + S2[-2, n]*S2[3, n] - S2[3, n]*S2[1, -1, n] - 
   S2[3, -2, n] + S2[-1, n]*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n]) - 
   S2[4, -1, n] + S2[3, 1, -1, n], S2[-1, 1, -3, n_] -> 
  S2[-4, n]*S2[-1, n] + S2[5, n] - S2[-4, -1, n] - S2[-3, -2, n] - 
   S2[-1, n]*S2[-3, 1, n] + S2[-3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
     S2[1, -1, n]) + S2[-3, 1, -1, n], S2[-1, -1, 3, n_] -> 
  S2[-4, n]*S2[-1, n] + (S2[-1, n]^2*S2[3, n])/2 + (S2[2, n]*S2[3, n])/2 + 
   S2[5, n] - S2[-4, -1, n] - S2[-1, n]*S2[3, -1, n] - S2[3, 2, n] + 
   S2[3, -1, -1, n], S2[-1, -1, -3, n_] -> 
  S2[-5, n] + (S2[-3, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
   S2[-1, n]*(S2[4, n] - S2[-3, -1, n]) - S2[-3, 2, n] - S2[4, -1, n] + 
   S2[-3, -1, -1, n], S2[-1, -2, 2, n_] -> S2[-3, n]*S2[-2, n] + S2[5, n] - 
   S2[-3, -2, n] + S2[-1, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - 
     S2[2, -2, n]) + S2[3, 2, n] - S2[-2, -1, 2, n] - S2[-2, 2, -1, n], 
 S2[-1, -3, 1, n_] -> S2[-3, -2, n] + S2[-1, n]*S2[-3, 1, n] + S2[4, 1, n] - 
   S2[-3, -1, 1, n] - S2[-3, 1, -1, n], S2[-1, -3, -1, n_] -> 
  S2[-1, n]*S2[-3, -1, n] + S2[-3, 2, n] + S2[4, -1, n] - 
   2*S2[-3, -1, -1, n], S2[-2, 1, 2, n_] -> -(S2[-3, n]*S2[2, n]) + 
   S2[-3, 2, n] + S2[2, n]*S2[-2, 1, n] + 
   S2[-2, n]*(S2[3, n] - S2[2, 1, n]) - S2[3, -2, n] + S2[2, 1, -2, n], 
 S2[-2, -1, -2, n_] -> S2[-5, n] + S2[-1, n]*(S2[-2, n]^2 + S2[4, n]) + 
   S2[-2, n]*(S2[3, n] - S2[-2, -1, n]) + S2[3, -2, n] - S2[4, -1, n] - 
   2*S2[-1, -2, -2, n], S2[-2, -2, 1, n_] -> 
  (S2[-3, n]*S2[-2, n] + S2[5, n] - S2[-3, -2, n] + S2[-2, n]*S2[-2, 1, n] + 
    S2[4, 1, n] - S2[-2, 1, -2, n])/2, S2[-2, -2, -1, n_] -> 
  -(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
   S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n], 
 S2[2, 3, n_] -> S2[2, n]*S2[3, n] + S2[5, n] - S2[3, 2, n], 
 S2[2, -3, n_] -> S2[-5, n] + S2[-3, n]*S2[2, n] - S2[-3, 2, n], 
 S2[1, 4, n_] -> S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n], 
 S2[1, -4, n_] -> S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n], 
 S2[-1, 4, n_] -> S2[-5, n] + S2[-1, n]*S2[4, n] - S2[4, -1, n], 
 S2[-1, -4, n_] -> S2[-4, n]*S2[-1, n] + S2[5, n] - S2[-4, -1, n], 
 S2[-2, 3, n_] -> S2[-5, n] + S2[-2, n]*S2[3, n] - S2[3, -2, n], 
 S2[-2, -3, n_] -> S2[-3, n]*S2[-2, n] + S2[5, n] - S2[-3, -2, n], 
 S2[1, 2, 1, 1, 1, n_] -> S2[6, n] + S2[3, n]*S2[2, 1, n] - S2[4, 2, n] + 
   S2[5, 1, n] + S2[2, n]*(S2[4, n] + S2[2, 1, 1, n]) - S2[3, 2, 1, n] + 
   S2[4, 1, 1, n] + S2[1, n]*S2[2, 1, 1, 1, n] - S2[2, 2, 1, 1, n] + 
   S2[3, 1, 1, 1, n] - 4*S2[2, 1, 1, 1, 1, n], 
 S2[1, 2, 1, 1, -1, n_] -> 2*S2[-6, n] + (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 + 
   S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
   (S2[-1, n]*S2[1, n]*S2[4, n])/2 + S2[-1, n]*S2[5, n] - S2[-4, 2, n] - 
   S2[2, n]*S2[-3, 1, n] - 2*S2[-3, 3, n] + S2[3, n]*S2[-2, 1, n] - 
   (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
   S2[2, n]*S2[2, -2, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
   S2[3, n]*S2[2, -1, n] + S2[-3, n]*S2[2, 1, n] - S2[-2, 1, n]*S2[2, 1, n] + 
   S2[2, -1, n]*S2[2, 1, n] + 2*S2[-3, 1, 2, n] + S2[2, n]*S2[-2, 1, 1, n] + 
   2*S2[-2, 2, 2, n] + S2[2, n]*S2[1, 2, -1, n] + S2[2, n]*S2[2, 1, -1, n] - 
   S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) - 
   S2[-1, n]*S2[2, 2, 1, n] - 2*S2[3, -1, 2, n] + S2[3, 1, -2, n] - 
   S2[3, 2, -1, n] + S2[4, 1, -1, n] - S2[-2, 1, 1, 2, n] - 
   S2[-1, 1, 2, 2, n] - S2[-1, 2, 1, 2, n] + S2[1, n]*S2[2, 1, 1, -1, n] + 
   S2[3, 1, 1, -1, n] - S2[2, 1, 1, -1, 1, n] - 3*S2[2, 1, 1, 1, -1, n], 
 S2[1, 2, 1, -1, 1, n_] -> -S2[-6, n] + 2*S2[-4, n]*S2[2, n] + 
   (S2[-2, n]*S2[2, n]^2)/2 - (3*S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - 
   2*S2[-3, n]*S2[3, n] - 2*S2[-1, n]*S2[2, n]*S2[3, n] - 
   (S2[-2, n]*S2[4, n])/2 - (3*S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
   2*S2[-1, n]*S2[5, n] + S2[-5, 1, n] - 2*S2[-4, 2, n] + 2*S2[-3, 3, n] - 
   S2[3, n]*S2[-2, 1, n] + (3*S2[2, n]^2*S2[1, -1, n])/2 + 
   (3*S2[4, n]*S2[1, -1, n])/2 + 2*S2[1, n]*S2[2, n]*S2[2, -1, n] + 
   2*S2[3, n]*S2[2, -1, n] + S2[-3, n]*S2[2, 1, n] + 
   S2[-1, n]*S2[2, n]*S2[2, 1, n] + S2[-2, 1, n]*S2[2, 1, n] - 
   S2[2, -1, n]*S2[2, 1, n] + 2*S2[2, n]*S2[3, -1, n] + 
   S2[-2, n]*S2[3, 1, n] - S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + 
   2*S2[5, -1, n] + S2[-4, 1, 1, n] - 2*S2[-3, 1, 2, n] - 2*S2[-3, 2, 1, n] - 
   S2[2, n]*S2[-2, 1, 1, n] - 3*S2[-2, 2, 2, n] - 
   2*S2[2, n]*S2[1, 2, -1, n] - 2*S2[2, n]*S2[2, 1, -1, n] + 
   3*S2[3, -1, 2, n] - S2[3, 1, -2, n] + S2[3, 2, -1, n] + S2[4, -1, 1, n] - 
   S2[4, 1, -1, n] + S2[-2, 1, 1, 2, n] - S2[-2, 2, 1, 1, n] + 
   3*S2[-1, 1, 2, 2, n] + 2*S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n] - 
   S2[2, -2, 1, 1, n] + S2[1, n]*S2[2, 1, -1, 1, n] + S2[3, 1, -1, 1, n] - 
   2*S2[2, 1, -1, 1, 1, n] - 2*S2[2, 1, 1, -1, 1, n], 
 S2[1, 2, 1, -1, -1, n_] -> S2[-3, n]^2 - S2[-4, n]*S2[-2, n] - 
   S2[3, n]^2/2 + S2[2, n]*S2[4, n] + S2[6, n]/2 + S2[-4, -2, n] + 
   S2[2, n]*S2[-3, -1, n] + S2[-2, n]*S2[-3, 1, n] - S2[-3, n]*S2[-2, 1, n] + 
   S2[3, n]*S2[2, 1, n] - S2[-2, n]*S2[3, -1, n] - S2[4, 2, n] + 
   S2[5, 1, n] - S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - S2[-3, 2, -1, n] - 
   S2[2, n]*S2[-2, 1, -1, n] + S2[-2, n]*S2[2, 1, -1, n] - S2[2, 3, 1, n] + 
   S2[3, -2, -1, n] + S2[3, -1, -2, n] - S2[3, 2, 1, n] + 
   S2[-2, 1, -1, 2, n] + S2[-2, 1, 2, -1, n] + S2[1, n]*S2[2, 1, -1, -1, n] + 
   S2[2, 2, -1, -1, n] + S2[3, 1, -1, -1, n] - S2[2, 1, -1, -1, 1, n] - 
   S2[2, 1, -1, 1, -1, n] - 2*S2[2, 1, 1, -1, -1, n], 
 S2[1, 2, -1, 1, 1, n_] -> 2*S2[-6, n] + S2[-4, n]*S2[2, n] + 
   S2[-2, n]*S2[2, n]^2 + S2[-1, n]*S2[1, n]*S2[2, n]^2 + 
   S2[-3, n]*S2[3, n] + 2*S2[-1, n]*S2[2, n]*S2[3, n] + S2[-2, n]*S2[4, n] + 
   S2[-1, n]*S2[1, n]*S2[4, n] + 2*S2[-1, n]*S2[5, n] + S2[-5, 1, n] + 
   S2[-4, 2, n] + S2[2, n]*S2[-3, 1, n] - S2[2, n]^2*S2[1, -1, n] - 
   S2[4, n]*S2[1, -1, n] - S2[2, n]*S2[2, -2, n] - 
   S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] - 
   2*S2[2, n]*S2[3, -1, n] - 2*S2[5, -1, n] + S2[-3, 1, 2, n] + 
   S2[-3, 2, 1, n] + S2[2, n]*S2[1, 2, -1, n] + S2[2, n]*S2[2, 1, -1, n] - 
   S2[3, -1, 2, n] - S2[4, -1, 1, n] - 2*S2[-1, 1, 2, 2, n] - 
   2*S2[-1, 2, 1, 2, n] - 2*S2[-1, 2, 2, 1, n] + S2[2, -2, 1, 1, n] + 
   S2[1, n]*S2[2, -1, 1, 1, n] + S2[3, -1, 1, 1, n] - 
   3*S2[2, -1, 1, 1, 1, n] - S2[2, 1, -1, 1, 1, n], 
 S2[1, 2, -1, 1, -1, n_] -> -S2[-3, n]^2 + 2*S2[-4, n]*S2[-2, n] + 
   S2[2, n]^3/6 + S2[3, n]^2/2 + (S2[2, n]*S2[4, n])/2 + (11*S2[6, n])/6 + 
   2*S2[-5, -1, n] - 2*S2[-4, -2, n] - 2*S2[-2, n]*S2[-3, 1, n] + 
   S2[-2, n]*S2[1, n]*S2[2, -1, n] - S2[-2, 1, n]*S2[2, -1, n] + 
   S2[2, -1, n]^2/2 + S2[-3, n]*(2*S2[-2, 1, n] + S2[2, -1, n]) + 
   2*S2[-2, n]*S2[3, -1, n] - S2[4, 2, n]/2 + S2[-4, 1, -1, n] + 
   2*S2[-3, 1, -2, n] - S2[-3, 2, -1, n] + 2*S2[2, n]*S2[-2, 1, -1, n] - 
   S2[-2, n]*S2[1, 2, -1, n] + S2[2, -2, -2, n] - S2[-2, n]*S2[2, 1, -1, n] - 
   S2[3, -2, -1, n] - S2[3, -1, -2, n] + S2[4, -1, -1, n] - 
   2*S2[-2, 1, -1, 2, n] - S2[-2, 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] + 
   S2[3, -1, 1, -1, n] - S2[2, -1, 1, -1, 1, n] - 2*S2[2, -1, 1, 1, -1, n] - 
   S2[2, 1, -1, 1, -1, n], S2[1, 2, -1, -1, 1, n_] -> 
  -(S2[-4, n]*S2[-2, n]) + S2[2, n]^3/12 + (2*S2[6, n])/3 + S2[-4, -2, n] + 
   S2[-2, n]*S2[-3, 1, n] - S2[-3, n]*S2[-2, 1, n] + S2[-2, n]*S2[2, -2, n] + 
   S2[-3, n]*S2[2, -1, n] + S2[-2, 1, n]*S2[2, -1, n] - S2[2, -1, n]^2/2 - 
   (3*S2[4, 2, n])/2 + S2[-4, -1, 1, n] + S2[-3, -1, 2, n] - 
   S2[-3, 1, -2, n] + 
   (S2[2, n]*(7*S2[4, n] - 2*(S2[-3, -1, n] - S2[-1, n]*S2[2, -1, n] + 
        2*S2[-2, 1, -1, n] + S2[-1, 2, -1, n])))/4 - S2[2, -2, -2, n] + 
   S2[2, 3, 1, n] + S2[-2, 1, -1, 2, n] - S2[-2, 2, -1, 1, n] + 
   S2[1, n]*S2[2, -1, -1, 1, n] + S2[3, -1, -1, 1, n] - 
   2*S2[2, -1, -1, 1, 1, n] - S2[2, -1, 1, -1, 1, n] - 
   S2[2, 1, -1, -1, 1, n], S2[1, 2, -1, -1, -1, n_] -> 
  S2[-6, n] + S2[-4, n]*S2[2, n] + (S2[-2, n]*S2[2, n]^2)/4 + 
   (S2[-2, n]*S2[4, n])/4 - S2[-4, 2, n] + (S2[-2, n]*S2[-3, -1, n])/2 + 
   (S2[-2, n]*S2[-1, n]*S2[2, -1, n])/2 + S2[3, n]*S2[2, -1, n] + 
   S2[5, -1, n] + S2[-4, -1, -1, n] - (S2[-2, n]*S2[-1, 2, -1, n])/2 - 
   S2[3, 2, -1, n] - S2[-2, 2, -1, -1, n] + S2[1, n]*S2[2, -1, -1, -1, n] + 
   S2[3, -1, -1, -1, n] - S2[2, -1, -1, -1, 1, n] - S2[2, -1, -1, 1, -1, n] - 
   S2[2, -1, 1, -1, -1, n] - S2[2, 1, -1, -1, -1, n], 
 S2[1, 1, 2, 1, 1, n_] -> S2[2, n]^3/6 + S2[3, n]^2/2 - (7*S2[6, n])/6 - 
   2*S2[3, n]*S2[2, 1, n] + S2[1, n]*(S2[2, n]*S2[3, n] + S2[5, n] - 
     S2[3, 2, n]) + S2[1, n]*S2[4, 1, n] + 2*S2[4, 2, n] - S2[5, 1, n] + 
   S2[2, n]*((-3*S2[4, n])/2 + S2[1, n]*S2[2, 1, n] + S2[3, 1, n] - 
     (5*S2[2, 1, 1, n])/2) + (S2[1, n]^2*S2[2, 1, 1, n])/2 - 
   S2[1, n]*S2[2, 2, 1, n] - S2[2, 3, 1, n] + S2[1, n]*S2[3, 1, 1, n] + 
   2*S2[3, 2, 1, n] - 2*S2[4, 1, 1, n] - 3*S2[1, n]*S2[2, 1, 1, 1, n] + 
   3*S2[2, 2, 1, 1, n] - 3*S2[3, 1, 1, 1, n] + 6*S2[2, 1, 1, 1, 1, n], 
 S2[1, 1, 2, 1, -1, n_] -> -S2[-6, n] - S2[-4, n]*S2[2, n] + 
   S2[-2, n]*S2[2, n]^2 + S2[-3, n]*S2[3, n] - S2[-5, 1, n] + 
   2*S2[-4, 2, n] + S2[2, n]*S2[-3, 1, n] - S2[1, n]*S2[-3, 2, n] - 
   S2[3, n]*S2[-2, 1, n] - (S2[2, n]^2*S2[1, -1, n])/2 - 
   (S2[4, n]*S2[1, -1, n])/2 - S2[2, n]*S2[2, -2, n] + 
   S2[1, n]*S2[2, n]*S2[2, -1, n] - 2*S2[-3, n]*S2[2, 1, n] - 
   S2[-1, n]*S2[2, n]*S2[2, 1, n] + S2[-2, 1, n]*S2[2, 1, n] - 
   S2[2, -1, n]*S2[2, 1, n] - S2[2, n]*S2[3, -1, n] + S2[-2, n]*S2[3, 1, n] + 
   S2[-1, n]*S2[3, 2, n] + S2[4, -2, n] + S2[1, n]*S2[4, -1, n] - 
   S2[-1, n]*S2[4, 1, n] - S2[5, -1, n] - S2[-4, 1, 1, n] - S2[-3, 1, 2, n] + 
   2*S2[-3, 2, 1, n] - S2[2, n]*S2[-2, 1, 1, n] + S2[1, n]*S2[-1, 2, 2, n] + 
   S2[1, n]*S2[2, 1, -2, n] + (S2[1, n]^2*S2[2, 1, -1, n])/2 + 
   (S2[2, n]*S2[2, 1, -1, n])/2 - 2*S2[-2, n]*S2[2, 1, 1, n] + 
   2*S2[-1, n]*S2[2, 2, 1, n] + S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] - 
   S2[4, -1, 1, n] + S2[-2, 1, 1, 2, n] + S2[-2, 2, 1, 1, n] - 
   S2[-1, 1, 2, 2, n] - S2[-1, 2, 2, 1, n] + S2[2, -2, 1, 1, n] - 
   S2[1, n]*S2[2, 1, -1, 1, n] - 2*S2[1, n]*S2[2, 1, 1, -1, n] - 
   S2[3, 1, -1, 1, n] - 2*S2[3, 1, 1, -1, n] + S2[2, 1, -1, 1, 1, n] + 
   2*S2[2, 1, 1, -1, 1, n] + 3*S2[2, 1, 1, 1, -1, n], 
 S2[1, 1, 2, -1, 1, n_] -> (-2*S2[-6, n] + 4*S2[-5, n]*S2[1, n] - 
    4*S2[-4, n]*S2[2, n] + 4*S2[-3, n]*S2[1, n]*S2[2, n] - 
    3*S2[-2, n]*S2[2, n]^2 + S2[-1, n]*S2[1, n]*S2[2, n]^2 - 
    4*S2[-1, n]*S2[2, n]*S2[3, n] - S2[-2, n]*S2[4, n] + 
    S2[-1, n]*S2[1, n]*S2[4, n] - 4*S2[-1, n]*S2[5, n] - 2*S2[-5, 1, n] + 
    2*S2[1, n]*S2[-4, 1, n] - 2*S2[2, n]*S2[-3, 1, n] - 2*S2[-3, 3, n] + 
    2*S2[3, n]*S2[-2, 1, n] + S2[2, n]^2*S2[1, -1, n] + 
    S2[4, n]*S2[1, -1, n] + S2[1, n]^2*S2[2, -2, n] + 
    3*S2[2, n]*S2[2, -2, n] + S2[1, n]^3*S2[2, -1, n] - 
    S2[1, n]*S2[2, n]*S2[2, -1, n] + 2*S2[3, n]*S2[2, -1, n] - 
    2*S2[-3, n]*S2[2, 1, n] + 2*S2[-2, n]*S2[1, n]*S2[2, 1, n] - 
    2*S2[-1, n]*S2[2, n]*S2[2, 1, n] - 2*S2[-2, 1, n]*S2[2, 1, n] + 
    2*S2[2, -1, n]*S2[2, 1, n] + S2[1, n]^2*S2[3, -1, n] + 
    3*S2[2, n]*S2[3, -1, n] + 2*S2[-1, n]*S2[3, 2, n] - 2*S2[4, -2, n] - 
    2*S2[1, n]*S2[4, -1, n] - 2*S2[-1, n]*S2[4, 1, n] + 4*S2[5, -1, n] - 
    2*S2[-4, 1, 1, n] - 2*S2[-3, 1, 2, n] - 2*S2[-3, 2, 1, n] + 
    2*S2[2, n]*S2[-2, 1, 1, n] - 2*S2[1, n]*S2[-2, 2, 1, n] + 
    2*S2[-2, 2, 2, n] - 2*S2[-2, 3, 1, n] - 4*S2[1, n]*S2[-1, 2, 2, n] - 
    S2[1, n]^2*S2[1, 2, -1, n] - S2[2, n]*S2[1, 2, -1, n] - 
    2*S2[1, n]*S2[2, 1, -2, n] - S2[1, n]^2*S2[2, 1, -1, n] - 
    S2[2, n]*S2[2, 1, -1, n] + 2*S2[1, n]*S2[3, -1, 1, n] + 
    2*S2[3, -1, 2, n] - 2*S2[3, 2, -1, n] + 4*S2[4, -1, 1, n] + 
    2*S2[4, 1, -1, n] - 2*S2[-2, 1, 1, 2, n] + 2*S2[-2, 2, 1, 1, n] + 
    2*S2[-1, 1, 2, 2, n] + 4*S2[-1, 2, 1, 2, n] + 6*S2[-1, 2, 2, 1, n] - 
    2*S2[2, -2, 1, 1, n] - 4*S2[1, n]*S2[2, -1, 1, 1, n] - 
    2*S2[1, n]*S2[2, 1, -1, 1, n] - 4*S2[3, -1, 1, 1, n] - 
    2*S2[3, 1, -1, 1, n] + 6*S2[2, -1, 1, 1, 1, n] + 
    4*S2[2, 1, -1, 1, 1, n] + 2*S2[2, 1, 1, -1, 1, n])/2, 
 S2[1, 1, 2, -1, -1, n_] -> -S2[2, n]^3/8 - 2*S2[6, n] - S2[-5, -1, n] - 
   S2[-2, n]*S2[2, -2, n] - S2[-3, n]*S2[2, -1, n] - S2[3, n]*S2[2, 1, n] - 
   S2[-2, n]*S2[3, -1, n] + 2*S2[4, 2, n] - S2[5, 1, n] - S2[-4, -1, 1, n] - 
   S2[-4, 1, -1, n] + S2[-3, 2, -1, n] + 
   (S2[1, n]^2*(S2[2, n]^2 + S2[4, n] + 2*S2[-3, -1, n] + 
      2*S2[-1, n]*S2[2, -1, n] - 2*S2[-1, 2, -1, n]))/8 - 
   (S2[2, n]*(17*S2[4, n] + 2*S2[-3, -1, n] + 2*S2[-1, n]*S2[2, -1, n] - 
      2*S2[-1, 2, -1, n]))/8 + S2[-2, n]*S2[1, 2, -1, n] + S2[2, -2, -2, n] + 
   S2[3, -2, -1, n] + S2[3, -1, -2, n] + S2[3, 2, 1, n] + 
   S2[-2, 2, -1, 1, n] + S2[-2, 2, 1, -1, n] + 
   S2[1, n]*(S2[2, n]*S2[3, n] + S2[5, n] + S2[-4, -1, n] - S2[3, 2, n] - 
     S2[-2, 2, -1, n] + S2[3, -1, -1, n] - S2[2, -1, -1, 1, n] - 
     S2[2, -1, 1, -1, n] - S2[2, 1, -1, -1, n]) + S2[2, 2, -1, -1, n] - 
   S2[3, -1, -1, 1, n] - S2[3, -1, 1, -1, n] - S2[3, 1, -1, -1, n] + 
   S2[2, -1, -1, 1, 1, n] + S2[2, -1, 1, -1, 1, n] + S2[2, -1, 1, 1, -1, n] + 
   S2[2, 1, -1, -1, 1, n] + S2[2, 1, -1, 1, -1, n] + S2[2, 1, 1, -1, -1, n], 
 S2[1, 1, 1, 2, 1, n_] -> (-S2[2, n]^3 + 2*S2[1, n]^3*S2[2, 1, n] + 
    3*S2[1, n]^2*(S2[2, n]^2 + S2[4, n] + 2*S2[3, 1, n] - 4*S2[2, 1, 1, n]) + 
    3*S2[2, n]*(5*S2[4, n] - 6*S2[3, 1, n] + 8*S2[2, 1, 1, n]) - 
    6*S2[1, n]*(S2[2, n]*(2*S2[3, n] + 3*S2[2, 1, n]) + 
      2*(S2[5, n] - 2*S2[3, 2, n] + S2[4, 1, n] - 2*S2[2, 2, 1, n] + 
        2*S2[3, 1, 1, n] - 3*S2[2, 1, 1, 1, n])) - 
    2*(3*S2[3, n]^2 - 5*S2[6, n] - 8*S2[3, n]*S2[2, 1, n] + 
      6*(S2[4, 2, n] - 2*S2[2, 3, 1, n] + S2[3, 2, 1, n] - S2[4, 1, 1, n] + 
        3*S2[2, 2, 1, 1, n] - 3*S2[3, 1, 1, 1, n] + 4*S2[2, 1, 1, 1, 1, n])))/
   12, S2[1, 1, 1, 2, -1, n_] -> S2[-6, n] - S2[-5, n]*S2[1, n] + 
   S2[-4, n]*S2[2, n] - S2[-3, n]*S2[1, n]*S2[2, n] - 
   (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 + S2[-1, n]*S2[2, n]*S2[3, n] - 
   (S2[-1, n]*S2[1, n]*S2[4, n])/2 + S2[-1, n]*S2[5, n] - 
   S2[1, n]*S2[-4, 1, n] - S2[-4, 2, n] - (S2[1, n]^3*S2[2, -1, n])/3 - 
   (2*S2[3, n]*S2[2, -1, n])/3 + S2[-3, n]*S2[2, 1, n] - 
   S2[-2, n]*S2[1, n]*S2[2, 1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
   S2[1, n]*S2[3, -2, n] - S2[-2, n]*S2[3, 1, n] - S2[-1, n]*S2[3, 2, n] + 
   S2[4, -2, n] + S2[1, n]*S2[4, -1, n] + S2[-1, n]*S2[4, 1, n] + 
   S2[-4, 1, 1, n] + S2[-3, 1, 2, n] + S2[1, n]*S2[-2, 2, 1, n] + 
   S2[-2, 3, 1, n] + S2[1, n]*S2[-1, 2, 2, n] + (S2[1, n]^2*S2[1, 2, -1, n])/
    2 + (S2[2, n]*S2[1, 2, -1, n])/2 + S2[-2, n]*S2[2, 1, 1, n] - 
   S2[-1, n]*S2[2, 2, 1, n] - S2[1, n]*S2[3, -1, 1, n] - S2[3, -1, 2, n] - 
   S2[1, n]*S2[3, 1, -1, n] - S2[4, -1, 1, n] - S2[4, 1, -1, n] - 
   S2[-2, 2, 1, 1, n] - S2[-1, 2, 1, 2, n] - S2[-1, 2, 2, 1, n] + 
   S2[1, n]*S2[2, -1, 1, 1, n] + S2[1, n]*S2[2, 1, -1, 1, n] + 
   S2[1, n]*S2[2, 1, 1, -1, n] + S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
   S2[3, 1, 1, -1, n] - S2[2, -1, 1, 1, 1, n] - S2[2, 1, -1, 1, 1, n] - 
   S2[2, 1, 1, -1, 1, n] - S2[2, 1, 1, 1, -1, n], 
 S2[1, 1, 1, 1, 2, n_] -> (S2[1, n]^4*S2[2, n] + S2[2, n]^3 + 
    4*S2[1, n]^3*(S2[3, n] - S2[2, 1, n]) + 
    12*S2[2, n]*(S2[3, 1, n] - S2[2, 1, 1, n]) + 
    6*S2[1, n]^2*(S2[4, n] - 2*S2[3, 1, n] + 2*S2[2, 1, 1, n]) + 
    4*S2[1, n]*(S2[2, n]*(5*S2[3, n] + 3*S2[2, 1, n]) + 
      6*(S2[5, n] - S2[3, 2, n] - S2[2, 2, 1, n] + S2[3, 1, 1, n] - 
        S2[2, 1, 1, 1, n])) + 8*(S2[3, n]^2 + S2[6, n] - 
      S2[3, n]*S2[2, 1, n] - 3*S2[2, 3, 1, n] + 3*S2[2, 2, 1, 1, n] - 
      3*S2[3, 1, 1, 1, n] + 3*S2[2, 1, 1, 1, 1, n]))/24, 
 S2[1, 1, 1, 1, -2, n_] -> 
  (S2[-3, n]*(S2[1, n]^3 - 3*S2[1, n]*S2[2, n] + 2*S2[3, n]))/6 - 
   S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - S2[-4, 2, n] - 
   (S2[1, n]^2*S2[-3, 1, n])/2 - (S2[2, n]*S2[-3, 1, n])/2 - S2[-3, 3, n] - 
   (S2[1, n]^3*S2[-2, 1, n])/6 + (S2[1, n]*S2[2, n]*S2[-2, 1, n])/2 - 
   (S2[3, n]*S2[-2, 1, n])/3 + (S2[1, n]^2*S2[2, -2, n])/2 + 
   (S2[2, n]*S2[2, -2, n])/2 + 
   (S2[-2, n]*(S2[1, n]^4 - 6*S2[1, n]^2*S2[2, n] - 
      9*(S2[2, n]^2 + 2*S2[4, n]) + 8*S2[1, n]*(S2[3, n] - 3*S2[2, 1, n])))/
    24 + S2[4, -2, n] + S2[1, n]*S2[-3, 1, 1, n] + S2[-3, 1, 2, n] + 
   S2[-3, 2, 1, n] + (S2[1, n]^2*S2[-2, 1, 1, n])/2 - 
   (S2[2, n]*S2[-2, 1, 1, n])/2 + S2[1, n]*S2[-2, 2, 1, n] + 
   S2[-2, 2, 2, n] + S2[1, n]*S2[2, 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, 1, 1, 1, 1, n], 
 S2[1, 1, 1, -1, 2, n_] -> (-6*S2[-6, n] + 12*S2[-5, n]*S2[1, n] + 
    3*S2[-4, n]*S2[1, n]^2 + S2[-3, n]*S2[1, n]^3 + 3*S2[-4, n]*S2[2, n] + 
    9*S2[-3, n]*S2[1, n]*S2[2, n] - 10*S2[-3, n]*S2[3, n] - 
    12*S2[-1, n]*S2[2, n]*S2[3, n] - 12*S2[-1, n]*S2[5, n] - 6*S2[-5, 1, n] - 
    6*S2[-4, 2, n] - 3*S2[1, n]^2*S2[-3, 1, n] - 3*S2[2, n]*S2[-3, 1, n] + 
    6*S2[-3, 3, n] + 6*S2[2, n]^2*S2[1, -1, n] + 6*S2[4, n]*S2[1, -1, n] + 
    2*S2[1, n]^3*S2[2, -1, n] + 10*S2[3, n]*S2[2, -1, n] + 
    6*S2[-2, n]*S2[1, n]*S2[2, 1, n] + 3*S2[1, n]^2*S2[3, -1, n] + 
    9*S2[2, n]*S2[3, -1, n] - 6*S2[4, -2, n] - 6*S2[1, n]*S2[4, -1, n] + 
    12*S2[5, -1, n] + 6*S2[-4, 1, 1, n] + 6*S2[1, n]*S2[-3, 1, 1, n] - 
    6*S2[-3, 1, 2, n] - 6*S2[-3, 2, 1, n] - 6*S2[1, n]*S2[-2, 2, 1, n] - 
    12*S2[-2, 2, 2, n] - 12*S2[1, n]*S2[-1, 2, 2, n] - 
    3*S2[1, n]^2*S2[1, 2, -1, n] - 9*S2[2, n]*S2[1, 2, -1, n] - 
    6*S2[1, n]*S2[2, 1, -2, n] - 3*S2[1, n]^2*S2[2, 1, -1, n] - 
    9*S2[2, n]*S2[2, 1, -1, n] + 12*S2[3, -1, 2, n] + 6*S2[4, -1, 1, n] - 
    6*S2[-3, 1, 1, 1, n] + 12*S2[-1, 1, 2, 2, n] + 12*S2[-1, 2, 1, 2, n] + 
    12*S2[-1, 2, 2, 1, n] + 6*S2[2, n]*S2[1, 1, 1, -1, n] - 
    6*S2[2, -2, 1, 1, n] - 6*S2[1, n]*S2[2, -1, 1, 1, n] + 
    6*S2[2, -1, 1, 1, 1, n])/6, S2[1, 1, 1, -1, -2, n_] -> 
  (3*S2[-3, n]^2 + 6*S2[-4, n]*S2[-2, n] - 3*S2[-3, n]*S2[-2, n]*S2[1, n] + 
    3*S2[-2, n]^2*S2[2, n] + S2[1, n]^3*S2[3, n] + 
    3*S2[1, n]*S2[2, n]*S2[3, n] - S2[3, n]^2 + 3*S2[1, n]^2*S2[4, n] + 
    3*S2[1, n]*S2[5, n] + 6*S2[6, n] - 6*S2[-4, -2, n] + 
    3*S2[1, n]*S2[-3, -2, n] + 6*S2[-2, n]*S2[-3, 1, n] - 
    S2[1, n]^3*S2[-2, -1, n] - 3*S2[1, n]*S2[2, n]*S2[-2, -1, n] + 
    4*S2[3, n]*S2[-2, -1, n] + 3*S2[-2, n]*S2[1, n]*S2[-2, 1, n] + 
    3*S2[-1, n]*S2[1, n]^2*S2[-2, 1, n] + 3*S2[-1, n]*S2[2, n]*S2[-2, 1, n] - 
    6*S2[-2, n]*S2[2, -2, n] - 6*S2[-2, n]*S2[3, -1, n] + 
    6*S2[2, n]*S2[3, 1, n] - 6*S2[1, n]*S2[3, 2, n] - 
    3*S2[1, n]*S2[4, 1, n] + 6*S2[5, 1, n] - 6*S2[-3, -2, 1, n] - 
    6*S2[-3, 1, -2, n] + 6*S2[1, n]*S2[-2, -1, 2, n] - 
    3*S2[1, n]*S2[-2, 1, -2, n] - 3*S2[1, n]^2*S2[-2, 1, -1, n] - 
    3*S2[2, n]*S2[-2, 1, -1, n] - 3*S2[1, n]^2*S2[-1, -2, 1, n] - 
    3*S2[2, n]*S2[-1, -2, 1, n] + 6*S2[2, -2, -2, n] - 6*S2[2, 3, 1, n] + 
    6*S2[3, -1, -2, n] + 6*S2[1, n]*S2[3, 1, 1, n] + 6*S2[4, 1, 1, n] - 
    6*S2[-2, -2, 1, 1, n] - 6*S2[1, n]*S2[-2, -1, 1, 1, n] - 
    6*S2[-2, -1, 1, 2, n] - 6*S2[-2, -1, 2, 1, n] + 
    6*S2[-2, n]*S2[1, 1, 1, -1, n] - 6*S2[3, 1, 1, 1, n] + 
    6*S2[-2, -1, 1, 1, 1, n])/6, S2[1, 1, 1, -2, 1, n_] -> 
  S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
   (S2[-4, n]*S2[2, n])/2 + 2*S2[-3, n]*S2[1, n]*S2[2, n] + 
   (S2[-2, n]*S2[1, n]^2*S2[2, n])/2 + (S2[-2, n]*S2[2, n]^2)/2 - 
   S2[-3, n]*S2[3, n] - S2[-2, n]*S2[1, n]*S2[3, n] + 2*S2[-2, n]*S2[4, n] + 
   S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] + S2[-4, 2, n] + 
   (S2[1, n]^2*S2[-3, 1, n])/2 + (S2[2, n]*S2[-3, 1, n])/2 - 
   S2[1, n]*S2[-3, 2, n] + 2*S2[-3, 3, n] + (S2[1, n]^3*S2[-2, 1, n])/6 - 
   (3*S2[1, n]*S2[2, n]*S2[-2, 1, n])/2 + (4*S2[3, n]*S2[-2, 1, n])/3 - 
   (S2[1, n]^2*S2[2, -2, n])/2 - (S2[2, n]*S2[2, -2, n])/2 + 
   2*S2[-2, n]*S2[1, n]*S2[2, 1, n] + S2[1, n]*S2[3, -2, n] - 
   S2[-2, n]*S2[3, 1, n] - 2*S2[4, -2, n] + S2[-4, 1, 1, n] - 
   2*S2[1, n]*S2[-3, 1, 1, n] - 2*S2[-3, 1, 2, n] - 2*S2[-3, 2, 1, n] - 
   S2[1, n]^2*S2[-2, 1, 1, n] + 2*S2[2, n]*S2[-2, 1, 1, n] - 
   2*S2[1, n]*S2[-2, 2, 1, n] - 2*S2[-2, 2, 2, n] + S2[-2, 3, 1, n] - 
   2*S2[1, n]*S2[2, 1, -2, n] + S2[3, 1, -2, n] + 3*S2[-3, 1, 1, 1, n] + 
   3*S2[1, n]*S2[-2, 1, 1, 1, n] - 3*S2[2, -2, 1, 1, n] - 
   4*S2[-2, 1, 1, 1, 1, n], S2[1, 1, 1, -2, -1, n_] -> 
  (3*S2[-3, n]^2 - 6*S2[-4, n]*S2[-2, n] + 3*S2[-3, n]*S2[-2, n]*S2[1, n] - 
    3*S2[-2, n]^2*S2[2, n] - 3*S2[2, n]*S2[4, n] + 3*S2[1, n]*S2[5, n] - 
    3*S2[6, n] + 6*S2[-4, -2, n] + 6*S2[1, n]*S2[-4, -1, n] + 
    3*S2[1, n]*S2[-3, -2, n] + 3*S2[1, n]^2*S2[-3, -1, n] + 
    3*S2[2, n]*S2[-3, -1, n] + S2[1, n]^3*S2[-2, -1, n] + 
    3*S2[1, n]*S2[2, n]*S2[-2, -1, n] - 4*S2[3, n]*S2[-2, -1, n] - 
    3*S2[-2, n]*S2[1, n]*S2[-2, 1, n] - 3*S2[-1, n]*S2[1, n]^2*S2[-2, 1, n] - 
    3*S2[-1, n]*S2[2, n]*S2[-2, 1, n] - 3*S2[1, n]^2*S2[3, 1, n] - 
    3*S2[2, n]*S2[3, 1, n] - 3*S2[1, n]*S2[4, 1, n] - 6*S2[-4, -1, 1, n] - 
    6*S2[-4, 1, -1, n] - 6*S2[-3, -2, 1, n] - 6*S2[1, n]*S2[-3, -1, 1, n] - 
    6*S2[-3, -1, 2, n] - 6*S2[-3, 1, -2, n] - 6*S2[1, n]*S2[-3, 1, -1, n] - 
    6*S2[-3, 2, -1, n] - 6*S2[1, n]*S2[-2, -1, 2, n] - 
    3*S2[1, n]*S2[-2, 1, -2, n] + 6*S2[-2, n]*S2[-2, 1, 1, n] - 
    6*S2[1, n]*S2[-2, 2, -1, n] + 3*S2[1, n]^2*S2[-1, -2, 1, n] + 
    3*S2[2, n]*S2[-1, -2, 1, n] + 6*S2[2, -2, -2, n] + 6*S2[3, -2, -1, n] + 
    6*S2[4, 1, 1, n] + 6*S2[-3, -1, 1, 1, n] + 6*S2[-3, 1, -1, 1, n] + 
    6*S2[-3, 1, 1, -1, n] - 6*S2[-2, -2, 1, 1, n] + 
    6*S2[1, n]*S2[-2, -1, 1, 1, n] + 6*S2[-2, -1, 1, 2, n] + 
    6*S2[-2, -1, 2, 1, n] + 6*S2[1, n]*S2[-2, 1, -1, 1, n] + 
    6*S2[-2, 1, -1, 2, n] + 6*S2[1, n]*S2[-2, 1, 1, -1, n] + 
    6*S2[-2, 1, 2, -1, n] + 6*S2[-2, 2, -1, 1, n] + 6*S2[-2, 2, 1, -1, n] - 
    6*S2[-2, -1, 1, 1, 1, n] - 6*S2[-2, 1, -1, 1, 1, n] - 
    6*S2[-2, 1, 1, -1, 1, n] - 6*S2[-2, 1, 1, 1, -1, n])/6, 
 S2[1, 1, -1, 2, 1, n_] -> 2*S2[-6, n] - 2*S2[-5, n]*S2[1, n] + 
   S2[-4, n]*S2[2, n] - 2*S2[-3, n]*S2[1, n]*S2[2, n] + 
   S2[-2, n]*S2[2, n]^2 + 2*S2[-3, n]*S2[3, n] + 
   3*S2[-1, n]*S2[2, n]*S2[3, n] + 3*S2[-1, n]*S2[5, n] + 2*S2[-5, 1, n] - 
   S2[1, n]*S2[-4, 1, n] + S2[-4, 2, n] + (S2[1, n]^2*S2[-3, 1, n])/2 + 
   (3*S2[2, n]*S2[-3, 1, n])/2 + S2[1, n]*S2[-3, 2, n] - 
   S2[3, n]*S2[-2, 1, n] - S2[2, n]^2*S2[1, -1, n] - S2[4, n]*S2[1, -1, n] - 
   S2[2, n]*S2[2, -2, n] - (S2[1, n]^3*S2[2, -1, n])/2 - 
   (S2[1, n]*S2[2, n]*S2[2, -1, n])/2 - 2*S2[3, n]*S2[2, -1, n] - 
   2*S2[-2, n]*S2[1, n]*S2[2, 1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
   S2[-2, 1, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] - 
   (S2[1, n]^2*S2[3, -1, n])/2 - (5*S2[2, n]*S2[3, -1, n])/2 + 
   S2[-2, n]*S2[3, 1, n] - S2[-1, n]*S2[3, 2, n] + 2*S2[4, -2, n] + 
   S2[1, n]*S2[4, -1, n] + S2[-1, n]*S2[4, 1, n] - 3*S2[5, -1, n] - 
   S2[-4, 1, 1, n] - 2*S2[1, n]*S2[-3, 1, 1, n] + S2[-3, 2, 1, n] - 
   S2[2, n]*S2[-2, 1, 1, n] + 2*S2[1, n]*S2[-2, 2, 1, n] + S2[-2, 2, 2, n] + 
   2*S2[1, n]*S2[-1, 2, 2, n] + S2[2, 1, n]*S2[1, 1, -1, n] + 
   (S2[1, n]^2*S2[1, 2, -1, n])/2 + (3*S2[2, n]*S2[1, 2, -1, n])/2 + 
   S2[1, n]*S2[2, 1, -2, n] + S2[2, n]*S2[2, 1, -1, n] - S2[3, -1, 2, n] - 
   S2[3, 1, -2, n] + S2[3, 2, -1, n] - 2*S2[4, -1, 1, n] - S2[4, 1, -1, n] + 
   3*S2[-3, 1, 1, 1, n] + S2[-2, 1, 1, 2, n] - S2[-2, 2, 1, 1, n] - 
   2*S2[-1, 1, 2, 2, n] - 3*S2[-1, 2, 1, 2, n] - 4*S2[-1, 2, 2, 1, n] + 
   2*S2[2, -2, 1, 1, n] + 2*S2[1, n]*S2[2, -1, 1, 1, n] + 
   S2[1, n]*S2[2, 1, -1, 1, n] - 3*S2[2, -1, 1, 1, 1, n] - 
   S2[2, 1, -1, 1, 1, n], S2[1, 1, -1, 2, -1, n_] -> 
  -S2[-3, n]^2/2 - S2[-4, n]*S2[-2, n] - (S2[-2, n]^2*S2[2, n])/2 + 
   S2[2, n]^3/6 - S2[1, n]*S2[2, n]*S2[3, n] + S2[3, n]^2 + 
   2*S2[2, n]*S2[4, n] + (11*S2[6, n])/6 + 2*S2[-5, -1, n] + 
   2*S2[-4, -2, n] - S2[-2, n]*S2[-3, 1, n] + 
   S2[1, n]*S2[2, n]*S2[-2, -1, n] - S2[3, n]*S2[-2, -1, n] - 
   S2[-1, n]*S2[2, n]*S2[-2, 1, n] + 2*S2[-2, n]*S2[2, -2, n] - 
   S2[-2, n]*S2[1, n]*S2[2, -1, n] - (S2[-1, n]*S2[1, n]^2*S2[2, -1, n])/2 + 
   (S2[-1, n]*S2[2, n]*S2[2, -1, n])/2 + S2[-2, 1, n]*S2[2, -1, n] - 
   S2[2, -1, n]^2/2 + S2[-3, n]*(S2[-2, n]*S2[1, n] + S2[2, -1, n]) + 
   3*S2[-2, n]*S2[3, -1, n] - S2[2, n]*S2[3, 1, n] + S2[1, n]*S2[3, 2, n] - 
   (5*S2[4, 2, n])/2 - S2[5, 1, n] - S2[1, n]*S2[-3, -1, 1, n] - 
   S2[1, n]*S2[-3, 1, -1, n] - S2[-3, 2, -1, n] - S2[1, n]*S2[-2, -1, 2, n] + 
   S2[2, n]*S2[-2, 1, -1, n] + S2[1, n]*S2[-2, 2, -1, n] + 
   S2[2, n]*S2[-1, -2, 1, n] + (S2[1, n]^2*S2[-1, 2, -1, n])/2 - 
   (S2[2, n]*S2[-1, 2, -1, n])/2 + S2[2, -1, n]*S2[1, 1, -1, n] - 
   S2[-2, n]*S2[1, 2, -1, n] - 2*S2[2, -2, -2, n] - 
   S2[-2, n]*S2[2, 1, -1, n] - S2[1, n]*S2[2, 2, 1, n] + S2[2, 3, 1, n] - 
   S2[3, -2, -1, n] - 2*S2[3, -1, -2, n] + S2[4, -1, -1, n] + 
   S2[-3, -1, 1, 1, n] + S2[-3, 1, -1, 1, n] + S2[-3, 1, 1, -1, n] + 
   S2[-2, -1, 1, 2, n] + S2[-2, -1, 2, 1, n] - S2[-2, 1, 2, -1, n] - 
   S2[-2, 2, -1, 1, n] - S2[-2, 2, 1, -1, n] + 
   2*S2[1, n]*S2[2, -1, -1, 1, n] + S2[1, n]*S2[2, -1, 1, -1, n] - 
   2*S2[2, 2, -1, -1, n] + S2[2, 2, 1, 1, n] - 2*S2[2, -1, -1, 1, 1, n] - 
   S2[2, -1, 1, -1, 1, n] - S2[2, -1, 1, 1, -1, n], 
 S2[1, 1, -1, 1, 2, n_] -> 2*S2[-6, n] + S2[-5, n]*S2[1, n] + 
   (S2[-4, n]*S2[1, n]^2)/2 - (S2[-4, n]*S2[2, n])/2 + 
   S2[-3, n]*S2[1, n]*S2[2, n] + (S2[-2, n]*S2[1, n]^2*S2[2, n])/2 - 
   (S2[-2, n]*S2[2, n]^2)/2 + S2[-1, n]*S2[1, n]*S2[2, n]^2 + 
   S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + S2[-2, n]*S2[4, n] + 
   S2[-1, n]*S2[1, n]*S2[4, n] + S2[-1, n]*S2[5, n] + S2[-4, 2, n] - 
   S2[2, n]*S2[-3, 1, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[-2, 1, n] + 
   S2[3, n]*S2[-2, 1, n] - S2[2, n]^2*S2[1, -1, n] - S2[4, n]*S2[1, -1, n] - 
   (S2[1, n]^2*S2[2, -2, n])/2 + (S2[2, n]*S2[2, -2, n])/2 - 
   S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] + 
   S2[-2, n]*S2[1, n]*S2[2, 1, n] - S2[-1, n]*S2[2, n]*S2[2, 1, n] - 
   S2[-2, 1, n]*S2[2, 1, n] + S2[2, -1, n]*S2[2, 1, n] - 
   S2[1, n]*S2[3, -2, n] - (S2[1, n]^2*S2[3, -1, n])/2 - 
   (3*S2[2, n]*S2[3, -1, n])/2 + S2[-1, n]*S2[3, 2, n] - S2[4, -2, n] - 
   S2[-1, n]*S2[4, 1, n] - S2[5, -1, n] + S2[-3, 1, 2, n] + 
   2*S2[2, n]*S2[-2, 1, 1, n] - S2[1, n]*S2[-2, 2, 1, n] + S2[-2, 2, 2, n] - 
   S2[-2, 3, 1, n] + S2[1, n]*S2[2, n]*S2[1, 1, -1, n] + 
   S2[3, n]*S2[1, 1, -1, n] - S2[2, 1, n]*S2[1, 1, -1, n] + 
   2*S2[2, n]*S2[1, 2, -1, n] + (S2[1, n]^2*S2[2, 1, -1, n])/2 + 
   (5*S2[2, n]*S2[2, 1, -1, n])/2 + S2[1, n]*S2[3, -1, 1, n] - 
   S2[3, -1, 2, n] - S2[3, 2, -1, n] + S2[4, 1, -1, n] - S2[-2, 1, 1, 2, n] + 
   S2[-2, 2, 1, 1, n] - 2*S2[-1, 1, 2, 2, n] - S2[-1, 2, 1, 2, n] - 
   3*S2[2, n]*S2[1, 1, 1, -1, n] - S2[1, n]*S2[2, 1, -1, 1, n] - 
   S2[3, -1, 1, 1, n] + S2[2, 1, -1, 1, 1, n], 
 S2[1, 1, -1, 1, -2, n_] -> 
  (-4*S2[-3, n]^2 + S2[-2, n]^2*(S2[1, n]^2 - 3*S2[2, n]) + 
    S2[1, n]^2*S2[4, n] + S2[2, n]*S2[4, n] + 2*S2[1, n]*S2[5, n] - 
    2*S2[1, n]*S2[-3, -2, n] - 2*S2[1, n]^2*S2[-3, -1, n] - 
    2*S2[2, n]*S2[-3, -1, n] - 2*S2[-2, 1, n]^2 - 2*S2[1, n]*S2[4, 1, n] - 
    2*S2[4, 2, n] - 4*S2[5, 1, n] + 4*S2[-3, -2, 1, n] + 
    4*S2[1, n]*S2[-3, -1, 1, n] + 4*S2[-3, -1, 2, n] + 4*S2[-3, 1, -2, n] + 
    2*S2[1, n]*S2[-2, 1, -2, n] + 2*S2[1, n]^2*S2[-2, 1, -1, n] + 
    2*S2[2, n]*S2[-2, 1, -1, n] - 4*S2[-2, 1, n]*S2[1, 1, -1, n] + 
    2*S2[-3, n]*(S2[-2, n]*S2[1, n] + 2*(S2[-2, 1, n] + S2[1, 1, -1, n])) - 
    4*S2[-3, -1, 1, 1, n] + 4*S2[-2, -2, 1, 1, n] - 
    4*S2[1, n]*S2[-2, 1, -1, 1, n] - 4*S2[-2, 1, -1, 2, n] + 
    S2[-2, n]*(-8*S2[-3, 1, n] - 2*S2[1, n]*(S2[-2, 1, n] - 
        2*S2[1, 1, -1, n]) + 4*(S2[2, -2, n] + S2[-2, 1, 1, n] + 
        S2[1, 2, -1, n] + S2[2, 1, -1, n] - 3*S2[1, 1, 1, -1, n])) + 
    4*S2[-2, 1, -1, 1, 1, n])/4, S2[1, 1, -1, -1, 2, n_] -> 
  -S2[-3, n]^2/2 + 2*S2[-4, n]*S2[-2, n] + (S2[-2, n]^2*S2[2, n])/2 - 
   (S2[1, n]^2*S2[2, n]^2)/8 - S2[2, n]^3/24 - S2[3, n]^2/2 + 
   (3*S2[1, n]^2*S2[4, n])/8 - (3*S2[2, n]*S2[4, n])/8 + (2*S2[6, n])/3 - 
   2*S2[-4, -2, n] - (S2[1, n]^2*S2[-3, -1, n])/4 - 
   (3*S2[2, n]*S2[-3, -1, n])/4 - S2[1, n]*S2[2, n]*S2[-2, -1, n] + 
   S2[3, n]*S2[-2, -1, n] + S2[-1, n]*S2[2, n]*S2[-2, 1, n] - 
   S2[-2, n]*S2[2, -2, n] + S2[-2, n]*S2[1, n]*S2[2, -1, n] + 
   (S2[-1, n]*S2[1, n]^2*S2[2, -1, n])/4 - (S2[-1, n]*S2[2, n]*S2[2, -1, n])/
    4 - S2[-2, 1, n]*S2[2, -1, n] + S2[2, -1, n]^2/2 - 
   S2[-2, n]*S2[3, -1, n] + S2[2, n]*S2[3, 1, n] - S2[1, n]*S2[4, 1, n] + 
   S2[4, 2, n]/2 + S2[1, n]*S2[-3, -1, 1, n] + S2[-3, -1, 2, n] + 
   S2[1, n]*S2[-2, -1, 2, n] - S2[2, n]*S2[-1, -2, 1, n] - 
   (S2[1, n]^2*S2[-1, 2, -1, n])/4 + (S2[2, n]*S2[-1, 2, -1, n])/4 - 
   S2[2, -1, n]*S2[1, 1, -1, n] + S2[-3, n]*(-(S2[-2, n]*S2[1, n]) + 
     S2[-2, 1, n] + S2[1, 1, -1, n]) + S2[2, -2, -2, n] + 
   S2[1, n]*S2[2, 2, 1, n] + S2[3, -1, -2, n] + S2[4, 1, 1, n] - 
   S2[-3, -1, 1, 1, n] - S2[-2, -1, 1, 2, n] - S2[-2, -1, 2, 1, n] - 
   S2[-2, 1, -1, 2, n] + S2[2, n]*S2[1, 1, -1, -1, n] - 
   S2[1, n]*S2[2, -1, -1, 1, n] - S2[2, 2, 1, 1, n] + S2[2, -1, -1, 1, 1, n], 
 S2[1, 1, -1, -1, -2, n_] -> -S2[-6, n] + S2[-5, n]*S2[1, n] + 
   S2[-2, n]^2*S2[-1, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/4 + 
   (S2[-4, n]*S2[2, n])/4 - (S2[-2, n]*S2[1, n]^2*S2[2, n])/4 - 
   (S2[-2, n]*S2[2, n]^2)/4 + S2[-1, n]*S2[1, n]*S2[4, n] - 
   S2[-1, n]*S2[5, n] - 2*S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
   S2[-4, 2, n] + S2[-1, n]*S2[-3, -2, n] - S2[-2, n]*S2[-3, -1, n] + 
   S2[-3, 3, n] - S2[-3, n]*(S2[-2, n]*S2[-1, n] + 2*S2[3, n] - 
     2*S2[-2, -1, n]) - S2[-2, n]*S2[1, n]*S2[-2, -1, n] + 
   (S2[-1, n]*S2[1, n]^2*S2[-2, -1, n])/4 + 
   (S2[-1, n]*S2[2, n]*S2[-2, -1, n])/4 + (S2[1, n]^2*S2[2, -2, n])/4 + 
   (S2[2, n]*S2[2, -2, n])/4 + S2[1, n]*S2[3, -2, n] - 
   (S2[1, n]^2*S2[3, -1, n])/4 - (S2[2, n]*S2[3, -1, n])/4 - S2[4, -2, n] - 
   S2[1, n]*S2[4, -1, n] - S2[-1, n]*S2[4, 1, n] + S2[5, -1, n] + 
   S2[-4, 1, 1, n] - S2[-3, -2, -1, n] + S2[-3, -1, -2, n] + 
   S2[1, n]*S2[-2, 2, 1, n] + S2[-2, 2, 2, n] + S2[-2, 3, 1, n] - 
   2*S2[1, n]*S2[-1, -2, -2, n] - (S2[1, n]^2*S2[-1, -2, -1, n])/4 - 
   (S2[2, n]*S2[-1, -2, -1, n])/4 - S2[-2, n]*S2[-1, -2, 1, n] + 
   S2[3, n]*S2[1, 1, -1, n] - S2[-2, -1, n]*S2[1, 1, -1, n] + 
   S2[1, n]*S2[3, -1, 1, n] + S2[3, -1, 2, n] + S2[4, -1, 1, n] + 
   S2[4, 1, -1, n] - S2[1, n]*S2[-2, -1, -1, 1, n] - S2[-2, -1, -1, 2, n] - 
   S2[-2, 2, 1, 1, n] + 2*S2[-1, -2, -2, 1, n] + S2[-1, -2, 1, -2, n] + 
   S2[-2, n]*S2[1, 1, -1, -1, n] - S2[3, -1, 1, 1, n] + 
   S2[-2, -1, -1, 1, 1, n], S2[1, 1, -1, -2, 1, n_] -> 
  (-4*S2[-4, n]*S2[-2, n] - S2[-2, n]^2*S2[2, n] + S2[2, n]*S2[4, n] - 
    2*S2[6, n] + 4*S2[-4, -2, n] - 2*S2[3, n]*S2[-2, -1, n] - 
    2*S2[-3, n]*S2[-2, 1, n] - S2[-1, n]*S2[1, n]^2*S2[-2, 1, n] - 
    S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-2, 1, n]^2 + 
    2*S2[-2, n]*(-(S2[1, n]*S2[-2, 1, n]) + S2[2, -2, n] + S2[3, -1, n]) - 
    4*S2[2, n]*S2[3, 1, n] + 2*S2[1, n]*S2[3, 2, n] - S2[4, 2, n] - 
    4*S2[5, 1, n] + 2*S2[-3, -2, 1, n] - 2*S2[1, n]*S2[-2, -1, 2, n] + 
    S2[1, n]^2*S2[-1, -2, 1, n] + S2[2, n]*S2[-1, -2, 1, n] + 
    2*S2[-2, 1, n]*S2[1, 1, -1, n] - 2*S2[2, -2, -2, n] + 4*S2[2, 3, 1, n] - 
    2*S2[3, -1, -2, n] - 4*S2[1, n]*S2[3, 1, 1, n] - 2*S2[4, 1, 1, n] + 
    2*S2[-2, -2, 1, 1, n] + 4*S2[1, n]*S2[-2, -1, 1, 1, n] + 
    4*S2[-2, -1, 1, 2, n] + 4*S2[-2, -1, 2, 1, n] + 
    2*S2[1, n]*S2[-2, 1, -1, 1, n] + 2*S2[-2, 1, -1, 2, n] + 
    6*S2[3, 1, 1, 1, n] - 6*S2[-2, -1, 1, 1, 1, n] - 
    2*S2[-2, 1, -1, 1, 1, n])/2, S2[1, 1, -1, -2, -1, n_] -> 
  (6*S2[-6, n] + S2[-2, n]^3 - 2*S2[-5, n]*S2[1, n] + 6*S2[-3, n]*S2[3, n] - 
    S2[-1, n]*S2[1, n]*S2[4, n] + 5*S2[-1, n]*S2[5, n] + 4*S2[-5, 1, n] - 
    S2[-1, n]*S2[-3, -2, n] - 2*S2[-3, 3, n] - 6*S2[-3, n]*S2[-2, -1, n] - 
    S2[-1, n]*S2[1, n]^2*S2[-2, -1, n] - S2[-1, n]*S2[2, n]*S2[-2, -1, n] - 
    2*S2[4, n]*S2[1, -1, n] - S2[-2, n]^2*(S2[-1, n]*S2[1, n] + 
      2*S2[1, -1, n]) - 2*S2[1, n]*S2[3, -2, n] + 6*S2[4, -2, n] + 
    4*S2[1, n]*S2[4, -1, n] + S2[-1, n]*S2[4, 1, n] - 4*S2[5, -1, n] + 
    2*S2[-3, -2, -1, n] - 4*S2[-3, -1, -2, n] - S2[-1, n]*S2[-2, 1, -2, n] - 
    2*S2[1, n]*S2[-2, 2, 1, n] - 2*S2[-2, 2, 2, n] - 2*S2[-2, 3, 1, n] + 
    6*S2[1, n]*S2[-1, -2, -2, n] + S2[1, n]^2*S2[-1, -2, -1, n] + 
    S2[2, n]*S2[-1, -2, -1, n] + S2[-2, n]*(5*S2[-3, n]*S2[-1, n] + 
      S2[4, n] - 2*S2[1, n]*(S2[3, n] - S2[-2, -1, n]) - 
      S2[-1, n]*S2[-2, 1, n] + 2*S2[3, 1, n] + 2*S2[-2, 1, -1, n] + 
      2*S2[-1, -2, 1, n]) + 2*S2[-2, -1, n]*S2[1, 1, -1, n] - 
    2*S2[1, n]*S2[3, -1, 1, n] - 2*S2[3, -1, 2, n] - 2*S2[3, 1, -2, n] - 
    2*S2[1, n]*S2[3, 1, -1, n] - 2*S2[3, 2, -1, n] - 4*S2[4, -1, 1, n] - 
    2*S2[4, 1, -1, n] + 4*S2[1, n]*S2[-2, -1, -1, 1, n] + 
    4*S2[-2, -1, -1, 2, n] + 2*S2[1, n]*S2[-2, -1, 1, -1, n] + 
    2*S2[-2, -1, 2, -1, n] + 2*S2[-2, 2, 1, 1, n] - 6*S2[-1, -2, -2, 1, n] - 
    4*S2[-1, -2, 1, -2, n] - 4*S2[-1, 1, -2, -2, n] + 2*S2[3, -1, 1, 1, n] + 
    2*S2[3, 1, -1, 1, n] + 2*S2[3, 1, 1, -1, n] - 4*S2[-2, -1, -1, 1, 1, n] - 
    2*S2[-2, -1, 1, -1, 1, n] - 2*S2[-2, -1, 1, 1, -1, n])/2, 
 S2[1, 1, -2, 1, 1, n_] -> S2[-3, n]*(-(S2[1, n]*S2[2, n]) + 2*S2[3, n]) + 
   S2[1, n]*S2[-3, 2, n] - 2*S2[-3, 3, n] + S2[1, n]*S2[2, n]*S2[-2, 1, n] - 
   2*S2[3, n]*S2[-2, 1, n] - S2[1, n]*S2[3, -2, n] + 
   S2[-2, n]*(-2*S2[4, n] + S2[1, n]*(S2[3, n] - S2[2, 1, n]) + 
     2*S2[3, 1, n]) + 2*S2[4, -2, n] - 2*S2[-4, 1, 1, n] + 
   S2[1, n]*S2[-3, 1, 1, n] + S2[-3, 1, 2, n] + S2[-3, 2, 1, n] + 
   (S2[1, n]^2*S2[-2, 1, 1, n])/2 - (5*S2[2, n]*S2[-2, 1, 1, n])/2 + 
   S2[1, n]*S2[-2, 2, 1, n] + S2[-2, 2, 2, n] - 2*S2[-2, 3, 1, n] + 
   S2[1, n]*S2[2, 1, -2, n] - 2*S2[3, 1, -2, n] - 3*S2[-3, 1, 1, 1, n] - 
   3*S2[1, n]*S2[-2, 1, 1, 1, n] + 3*S2[2, -2, 1, 1, n] + 
   6*S2[-2, 1, 1, 1, 1, n], S2[1, 1, -2, 1, -1, n_] -> 
  (S2[-2, n]^2*S2[2, n] + S2[3, n]^2 + S2[2, n]*S2[4, n] + S2[6, n] + 
    2*S2[-5, -1, n] + 2*S2[-4, -2, n] - 2*S2[-3, n]*S2[-2, 1, n] + 
    S2[-2, 1, n]^2 - S2[4, 2, n] - 2*S2[5, 1, n] + 2*S2[-4, 1, -1, n] + 
    2*S2[-3, -2, 1, n] + 2*S2[-3, 1, -2, n] + 2*S2[1, n]*S2[-3, 1, -1, n] + 
    2*S2[-3, 2, -1, n] + 2*S2[1, n]*S2[-2, 1, -2, n] + 
    S2[1, n]^2*S2[-2, 1, -1, n] + S2[2, n]*S2[-2, 1, -1, n] + 
    2*S2[-2, n]*(S2[3, -1, n] - 2*S2[-2, 1, 1, n]) + 
    2*S2[1, n]*S2[-2, 2, -1, n] - 2*S2[2, -2, -2, n] - 2*S2[3, -2, -1, n] - 
    2*S2[3, -1, -2, n] - 2*S2[4, 1, 1, n] - 2*S2[-3, 1, -1, 1, n] - 
    4*S2[-3, 1, 1, -1, n] + 4*S2[-2, -2, 1, 1, n] - 
    2*S2[1, n]*S2[-2, 1, -1, 1, n] - 2*S2[-2, 1, -1, 2, n] - 
    4*S2[1, n]*S2[-2, 1, 1, -1, n] - 4*S2[-2, 1, 2, -1, n] - 
    2*S2[-2, 2, -1, 1, n] - 4*S2[-2, 2, 1, -1, n] + 
    2*S2[-2, 1, -1, 1, 1, n] + 4*S2[-2, 1, 1, -1, 1, n] + 
    6*S2[-2, 1, 1, 1, -1, n])/2, S2[1, 1, -2, -1, 1, n_] -> 
  (2*S2[-4, n]*S2[-2, n] + S2[-3, n]*S2[-2, n]*S2[1, n] - S2[3, n]^2 + 
    S2[1, n]*S2[5, n] + S2[6, n] - 2*S2[-4, -2, n] - S2[1, n]*S2[-3, -2, n] + 
    2*S2[3, n]*S2[-2, -1, n] + S2[-2, n]*S2[1, n]*S2[-2, 1, n] - 
    S2[-2, 1, n]^2 - 2*S2[-2, n]*S2[3, -1, n] + S2[1, n]*S2[4, 1, n] + 
    S2[4, 2, n] + 2*S2[-4, -1, 1, n] + 2*S2[-3, -2, 1, n] + 
    2*S2[1, n]*S2[-3, -1, 1, n] + 2*S2[-3, -1, 2, n] + 
    2*S2[1, n]*S2[-2, -1, 2, n] - S2[1, n]*S2[-2, 1, -2, n] + 
    S2[1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
      S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
    S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
      S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
    2*S2[3, -1, -2, n] - 2*S2[4, 1, 1, n] - 4*S2[-3, -1, 1, 1, n] - 
    2*S2[-3, 1, -1, 1, n] - 4*S2[1, n]*S2[-2, -1, 1, 1, n] - 
    4*S2[-2, -1, 1, 2, n] - 4*S2[-2, -1, 2, 1, n] - 
    2*S2[1, n]*S2[-2, 1, -1, 1, n] - 2*S2[-2, 1, -1, 2, n] - 
    2*S2[-2, 2, -1, 1, n] + 6*S2[-2, -1, 1, 1, 1, n] + 
    4*S2[-2, 1, -1, 1, 1, n] + 2*S2[-2, 1, 1, -1, 1, n])/2, 
 S2[1, 1, -2, -1, -1, n_] -> (-4*S2[-6, n] - 2*S2[-2, n]^3 + 
    6*S2[-2, n]^2*S2[-1, n]*S2[1, n] + 3*S2[-2, n]*(-2*S2[-3, n]*S2[-1, n] + 
      S2[1, n]^2*S2[2, n] + S2[2, n]^2 + 4*S2[1, n]*S2[3, n] - 2*S2[4, n] - 
      2*S2[-1, n]*S2[-2, 1, n]) + 3*(4*S2[-5, n]*S2[1, n] + 
      S2[-4, n]*(S2[1, n]^2 + S2[2, n]) + 2*S2[-1, n]*S2[1, n]*S2[4, n] - 
      2*S2[-1, n]*S2[5, n] - 4*S2[-5, 1, n] + 2*S2[-1, n]*S2[-3, -2, n] + 
      4*S2[-3, n]*S2[-2, -1, n] + S2[-1, n]*S2[1, n]^2*S2[-2, -1, n] + 
      S2[-1, n]*S2[2, n]*S2[-2, -1, n] - 4*S2[3, n]*S2[-2, 1, n] - 
      S2[1, n]^2*S2[2, -2, n] - S2[2, n]*S2[2, -2, n] + 
      S2[1, n]^2*S2[3, -1, n] + S2[2, n]*S2[3, -1, n] - 
      2*S2[-1, n]*S2[4, 1, n] + 4*S2[5, -1, n] + 4*S2[-4, -1, -1, n] + 
      4*S2[-3, -1, -2, n] + 4*S2[1, n]*S2[-3, -1, -1, n] - 
      2*S2[-1, n]*S2[-2, 1, -2, n] - 4*S2[1, n]*S2[-1, -2, -2, n] - 
      S2[1, n]^2*S2[-1, -2, -1, n] - S2[2, n]*S2[-1, -2, -1, n] - 
      4*S2[3, 1, -2, n] - 4*S2[-3, -1, -1, 1, n] - 4*S2[-3, -1, 1, -1, n] - 
      4*S2[-3, 1, -1, -1, n] - 4*S2[1, n]*S2[-2, -1, -1, 1, n] - 
      4*S2[-2, -1, -1, 2, n] - 4*S2[1, n]*S2[-2, -1, 1, -1, n] - 
      4*S2[-2, -1, 2, -1, n] - 4*S2[1, n]*S2[-2, 1, -1, -1, n] - 
      4*S2[-2, 2, -1, -1, n] + 4*S2[-1, -2, -2, 1, n] + 
      4*S2[-1, -2, 1, -2, n] + 4*S2[-2, -1, -1, 1, 1, n] + 
      4*S2[-2, -1, 1, -1, 1, n] + 4*S2[-2, -1, 1, 1, -1, n] + 
      4*S2[-2, 1, -1, -1, 1, n] + 4*S2[-2, 1, -1, 1, -1, n] + 
      4*S2[-2, 1, 1, -1, -1, n]))/12, S2[1, -1, 2, 1, 1, n_] -> 
  -S2[-6, n] + S2[-5, n]*S2[1, n] - 2*S2[-4, n]*S2[2, n] + 
   S2[-3, n]*S2[1, n]*S2[2, n] - S2[-2, n]*S2[2, n]^2 - 2*S2[-5, 1, n] + 
   S2[1, n]*S2[-4, 1, n] + S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] - 
   S2[1, n]*S2[-3, 2, n] - S2[-3, 3, n] + S2[3, n]*S2[-2, 1, n] + 
   S2[2, n]*S2[2, -2, n] - S2[-3, n]*S2[2, 1, n] + 
   S2[-2, n]*S2[1, n]*S2[2, 1, n] - S2[-1, n]*S2[2, n]*S2[2, 1, n] - 
   S2[-2, 1, n]*S2[2, 1, n] + S2[2, -1, n]*S2[2, 1, n] + 
   S2[2, n]*S2[3, -1, n] - S2[-2, n]*S2[3, 1, n] - 
   S2[-1, n]*(S2[2, n]*S2[3, n] + S2[5, n] - S2[3, 2, n]) - S2[4, -2, n] - 
   S2[-1, n]*S2[4, 1, n] + S2[5, -1, n] - S2[-4, 1, 1, n] + 
   S2[1, n]*S2[-3, 1, 1, n] + S2[-3, 1, 2, n] + S2[-3, 2, 1, n] + 
   S2[2, n]*S2[-2, 1, 1, n] - S2[1, n]*S2[-2, 2, 1, n] + S2[-2, 2, 2, n] - 
   S2[-2, n]*S2[2, 1, 1, n] + S2[1, -1, n]*S2[2, 1, 1, n] - S2[3, -1, 2, n] + 
   S2[3, 1, -2, n] - S2[3, 2, -1, n] + S2[4, -1, 1, n] + S2[4, 1, -1, n] - 
   3*S2[-3, 1, 1, 1, n] - S2[-2, 1, 1, 2, n] + 2*S2[-2, 2, 1, 1, n] + 
   S2[-1, 2, 1, 2, n] + 2*S2[-1, 2, 2, 1, n] - S2[2, -2, 1, 1, n] - 
   S2[1, n]*S2[2, -1, 1, 1, n] - S2[1, 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[2, 1, -1, 1, 1, n] + S2[2, 1, 1, -1, 1, n], 
 S2[1, -1, 2, 1, -1, n_] -> S2[-3, n]^2/2 - 4*S2[-4, n]*S2[-2, n] - 
   S2[-2, n]^2*S2[2, n] - S2[2, n]^3/3 + S2[1, n]*S2[2, n]*S2[3, n] + 
   S2[3, n]^2/2 - 2*S2[2, n]*S2[4, n] + 2*S2[1, n]*S2[5, n] - 
   (11*S2[6, n])/3 - 2*S2[-5, -1, n] + 4*S2[-4, -2, n] + 
   S2[1, n]*S2[-4, -1, n] - S2[1, n]*S2[-3, -2, n] + S2[-2, n]*S2[-3, 1, n] + 
   S2[1, n]*S2[2, n]*S2[-2, -1, n] - 2*S2[3, n]*S2[-2, -1, n] - 
   2*S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-2, n]*S2[2, -2, n] + 
   S2[-3, n]*(S2[-2, n]*S2[1, n] - 2*S2[-2, 1, n] - S2[2, -1, n]) - 
   S2[-2, n]*S2[1, n]*S2[2, -1, n] + S2[-2, 1, n]*S2[2, -1, n] - 
   S2[2, -1, n]^2/2 + S2[1, n]*S2[2, n]*S2[2, 1, n] - S2[3, n]*S2[2, 1, n] + 
   S2[-2, -1, n]*S2[2, 1, n] - S2[2, 1, n]^2/2 - 2*S2[2, n]*S2[3, 1, n] - 
   S2[1, n]*S2[3, 2, n] + S2[1, n]*S2[4, 1, n] + S2[4, 2, n] - 
   2*S2[5, 1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n] + S2[-3, -2, 1, n] + 
   S2[1, n]*S2[-3, 1, -1, n] + 2*S2[-3, 2, -1, n] - 
   S2[1, n]*S2[-2, -1, 2, n] - S2[1, n]*S2[-2, 2, -1, n] + 
   2*S2[2, n]*S2[-1, -2, 1, n] + S2[-2, n]*S2[1, 2, -1, n] - 
   S2[2, -2, -2, n] - S2[-2, n]*S2[2, 1, -1, n] + 
   S2[1, -1, n]*S2[2, 1, -1, n] - 2*S2[1, n]*S2[2, 2, 1, n] + 
   S2[3, -2, -1, n] - S2[3, -1, -2, n] + S2[3, 2, 1, n] - S2[4, -1, -1, n] - 
   S2[4, 1, 1, n] - S2[-3, 1, -1, 1, n] - 2*S2[-3, 1, 1, -1, n] + 
   2*S2[-2, -1, 1, 2, n] + S2[-2, -1, 2, 1, n] + 2*S2[-2, 1, -1, 2, n] + 
   S2[-2, 1, 2, -1, n] + S2[-2, 2, -1, 1, n] + 2*S2[-2, 2, 1, -1, n] - 
   S2[1, n]*S2[2, -1, 1, -1, n] - 2*S2[1, n]*S2[2, 1, -1, -1, n] + 
   2*S2[2, 2, -1, -1, n] + 2*S2[2, 2, 1, 1, n] + S2[2, -1, 1, -1, 1, n] + 
   2*S2[2, -1, 1, 1, -1, n] + 2*S2[2, 1, -1, -1, 1, n] + 
   S2[2, 1, -1, 1, -1, n], S2[1, -1, 2, -1, 1, n_] -> 
  S2[-3, n]^2 + 4*S2[-4, n]*S2[-2, n] + S2[-2, n]^2*S2[2, n] + 
   S2[1, n]*S2[2, n]*S2[3, n] - S2[3, n]^2 - 2*S2[2, n]*S2[4, n] + S2[6, n] - 
   4*S2[-4, -2, n] + S2[1, n]*S2[-3, -2, n] + S2[2, n]*S2[-3, -1, n] - 
   S2[1, n]*S2[2, n]*S2[-2, -1, n] + 2*S2[3, n]*S2[-2, -1, n] + 
   2*S2[-1, n]*S2[2, n]*S2[-2, 1, n] - 3*S2[-2, n]*S2[2, -2, n] + 
   S2[1, -1, n]*S2[2, -2, n] - S2[-1, n]*S2[2, n]*S2[2, -1, n] - 
   2*S2[-2, 1, n]*S2[2, -1, n] + S2[1, n]*S2[1, -1, n]*S2[2, -1, n] + 
   S2[2, -1, n]^2 - S2[-3, n]*(S2[-2, n]*S2[1, n] - 2*S2[-2, 1, n] + 
     2*S2[2, -1, n]) - 3*S2[-2, n]*S2[3, -1, n] + S2[1, -1, n]*S2[3, -1, n] + 
   2*S2[2, n]*S2[3, 1, n] - S2[1, n]*S2[3, 2, n] + 3*S2[4, 2, n] + 
   2*S2[5, 1, n] - S2[-3, -2, 1, n] + S2[1, n]*S2[-3, -1, 1, n] - 
   S2[-3, -1, 2, n] + S2[1, n]*S2[-2, -1, 2, n] - 
   2*S2[2, n]*S2[-1, -2, 1, n] + S2[2, n]*S2[-1, 2, -1, n] + 
   S2[-2, n]*S2[1, 2, -1, n] - S2[1, -1, n]*S2[1, 2, -1, n] + 
   2*S2[2, -2, -2, n] + S2[-2, n]*S2[2, 1, -1, n] - 
   S2[1, -1, n]*S2[2, 1, -1, n] + S2[1, n]*S2[2, 2, 1, n] - 
   2*S2[2, 3, 1, n] + 2*S2[3, -1, -2, n] - 2*S2[-3, -1, 1, 1, n] - 
   S2[-3, 1, -1, 1, n] - 2*S2[-2, -1, 1, 2, n] - 2*S2[-2, -1, 2, 1, n] - 
   2*S2[-2, 1, -1, 2, n] + S2[-2, 2, -1, 1, n] - 
   2*S2[1, n]*S2[2, -1, -1, 1, n] - S2[1, n]*S2[2, -1, 1, -1, n] - 
   2*S2[2, 2, 1, 1, n] + 4*S2[2, -1, -1, 1, 1, n] + 2*S2[2, -1, 1, -1, 1, n], 
 S2[1, -1, 2, -1, -1, n_] -> (4*S2[-5, n]*S2[1, n] - 4*S2[-4, n]*S2[2, n] + 
    4*S2[-3, n]*S2[1, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
    2*S2[-1, n]*S2[1, n]*S2[2, n]^2 + 4*S2[-3, n]*S2[3, n] + 
    S2[-2, n]*S2[4, n] + 2*S2[-1, n]*S2[1, n]*S2[4, n] - 4*S2[-5, 1, n] + 
    8*S2[-4, 2, n] - 2*S2[-2, n]*S2[-3, -1, n] - 4*S2[2, n]*S2[-3, 1, n] - 
    4*S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + S2[4, n]*S2[1, -1, n] + 
    2*S2[-3, -1, n]*S2[1, -1, n] - 4*S2[2, n]*S2[2, -2, n] - 
    6*S2[-2, n]*S2[-1, n]*S2[2, -1, n] - 8*S2[3, n]*S2[2, -1, n] + 
    4*S2[-2, -1, n]*S2[2, -1, n] + 2*S2[-1, n]*S2[1, -1, n]*S2[2, -1, n] + 
    4*S2[2, n]*S2[3, -1, n] - 4*S2[4, -2, n] + 4*S2[1, n]*S2[-3, -1, -1, n] + 
    4*S2[-3, 1, 2, n] - 4*S2[-2, 2, 2, n] + 6*S2[-2, n]*S2[-1, 2, -1, n] - 
    2*S2[1, -1, n]*S2[-1, 2, -1, n] - 4*S2[1, n]*S2[-1, 2, 2, n] - 
    4*S2[-1, n]*S2[2, 2, 1, n] - 4*S2[3, -1, 2, n] + 4*S2[3, 2, -1, n] - 
    4*S2[-3, -1, -1, 1, n] - 4*S2[-3, -1, 1, -1, n] - 
    4*S2[-3, 1, -1, -1, n] - 4*S2[-2, -1, 2, -1, n] + 
    4*S2[-2, 2, -1, -1, n] + 4*S2[-1, 2, 2, 1, n] - 
    12*S2[1, n]*S2[2, -1, -1, -1, n] + 12*S2[2, -1, -1, -1, 1, n] + 
    8*S2[2, -1, -1, 1, -1, n] + 4*S2[2, -1, 1, -1, -1, n])/4, 
 S2[1, -1, 1, 2, 1, n_] -> -2*S2[-6, n] + 2*S2[-4, n]*S2[2, n] - 
   S2[-1, n]*S2[1, n]*S2[2, n]^2 - 3*S2[-3, n]*S2[3, n] - 
   2*S2[-1, n]*S2[2, n]*S2[3, n] - S2[-2, n]*S2[4, n] - 
   S2[-1, n]*S2[1, n]*S2[4, n] - 2*S2[-1, n]*S2[5, n] - 2*S2[-4, 2, n] + 
   S2[1, n]*S2[-3, 2, n] + 3*S2[-3, 3, n] - S2[3, n]*S2[-2, 1, n] + 
   2*S2[2, n]^2*S2[1, -1, n] + 2*S2[4, n]*S2[1, -1, n] + 
   S2[1, n]*S2[2, n]*S2[2, -1, n] + 2*S2[3, n]*S2[2, -1, n] + 
   2*S2[-3, n]*S2[2, 1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
   S2[1, n]*S2[1, -1, n]*S2[2, 1, n] + S2[1, n]*S2[3, -2, n] + 
   2*S2[2, n]*S2[3, -1, n] - S2[-2, n]*S2[3, 1, n] + 
   S2[1, -1, n]*S2[3, 1, n] - S2[-1, n]*S2[3, 2, n] - S2[1, n]*S2[4, -1, n] + 
   S2[-1, n]*S2[4, 1, n] + 2*S2[5, -1, n] + S2[-4, 1, 1, n] - 
   2*S2[-3, 1, 2, n] - 2*S2[-3, 2, 1, n] - S2[2, n]*S2[-2, 1, 1, n] + 
   S2[1, n]*S2[-2, 2, 1, n] - 2*S2[-2, 2, 2, n] + 2*S2[-2, 3, 1, n] - 
   S2[1, n]*S2[-1, 2, 2, n] - 2*S2[2, 1, n]*S2[1, 1, -1, n] - 
   2*S2[2, n]*S2[1, 2, -1, n] - S2[1, n]*S2[2, 1, -2, n] - 
   2*S2[2, n]*S2[2, 1, -1, n] + 2*S2[-2, n]*S2[2, 1, 1, n] - 
   2*S2[1, -1, n]*S2[2, 1, 1, n] - S2[1, n]*S2[3, -1, 1, n] + 
   2*S2[3, -1, 2, n] - S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] + 
   S2[4, -1, 1, n] - S2[4, 1, -1, n] + S2[-2, 1, 1, 2, n] - 
   3*S2[-2, 2, 1, 1, n] + 3*S2[-1, 1, 2, 2, n] + 2*S2[-1, 2, 1, 2, n] + 
   S2[-1, 2, 2, 1, n] - S2[2, -2, 1, 1, n] + S2[1, n]*S2[2, 1, -1, 1, n] + 
   2*S2[1, n]*S2[2, 1, 1, -1, n] + 2*S2[3, -1, 1, 1, n] + 
   S2[3, 1, -1, 1, n] - 2*S2[2, 1, -1, 1, 1, n] - 2*S2[2, 1, 1, -1, 1, n], 
 S2[1, -1, 1, 2, -1, n_] -> S2[-3, n]^2/2 + 2*S2[-4, n]*S2[-2, n] + 
   S2[-2, n]^2*S2[2, n] + S2[2, n]^3/6 - S2[1, n]*S2[2, n]*S2[3, n] - 
   S2[3, n]^2/2 + (5*S2[2, n]*S2[4, n])/2 - 2*S2[1, n]*S2[5, n] + 
   (10*S2[6, n])/3 + S2[-5, -1, n] - S2[-4, -2, n] - S2[1, n]*S2[-4, -1, n] + 
   S2[1, n]*S2[-3, -2, n] + S2[-2, n]*S2[-3, 1, n] - 
   S2[1, n]*S2[2, n]*S2[-2, -1, n] + 2*S2[3, n]*S2[-2, -1, n] + 
   2*S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-2, n]*S2[1, n]*S2[2, -1, n] - 
   S2[-2, 1, n]*S2[2, -1, n] + S2[2, -1, n]^2 + 
   S2[-3, n]*(-(S2[-2, n]*S2[1, n]) + S2[2, -1, n]) - 
   S2[1, n]*S2[2, n]*S2[2, 1, n] + S2[3, n]*S2[2, 1, n] - 
   S2[-2, -1, n]*S2[2, 1, n] + S2[2, 1, n]^2/2 - S2[-2, n]*S2[3, -1, n] + 
   2*S2[2, n]*S2[3, 1, n] + 2*S2[1, n]*S2[3, 2, n] - S2[1, n]*S2[4, 1, n] - 
   (3*S2[4, 2, n])/2 + 2*S2[5, 1, n] + S2[-4, -1, 1, n] - S2[-3, -2, 1, n] - 
   S2[-3, 1, -2, n] + S2[1, n]*S2[-2, -1, 2, n] - 
   2*S2[2, n]*S2[-2, 1, -1, n] + 2*S2[1, n]*S2[-2, 2, -1, n] - 
   2*S2[2, n]*S2[-1, -2, 1, n] - 2*S2[2, -1, n]*S2[1, 1, -1, n] - 
   S2[-2, n]*S2[1, 2, -1, n] + S2[1, -1, n]*S2[1, 2, -1, n] - 
   S2[2, -2, -2, n] + S2[-2, n]*S2[2, 1, -1, n] + 2*S2[1, n]*S2[2, 2, 1, n] - 
   S2[3, -2, -1, n] - 2*S2[1, n]*S2[3, -1, -1, n] - 2*S2[3, 2, 1, n] + 
   S2[4, 1, 1, n] - 2*S2[-2, -1, 1, 2, n] - S2[-2, -1, 2, 1, n] - 
   2*S2[-2, 2, -1, 1, n] - S2[-2, 2, 1, -1, n] + 
   S2[1, n]*S2[2, -1, 1, -1, n] + 2*S2[1, n]*S2[2, 1, -1, -1, n] - 
   2*S2[2, 2, 1, 1, n] + 2*S2[3, -1, -1, 1, n] + S2[3, -1, 1, -1, n] - 
   S2[2, -1, 1, -1, 1, n] - 2*S2[2, 1, -1, -1, 1, n] - 
   S2[2, 1, -1, 1, -1, n], S2[1, -1, 1, 1, 2, n_] -> 
  S2[-6, n] + S2[-2, n]*S2[2, n]^2 + S2[-2, n]*S2[1, n]*S2[3, n] + 
   S2[-1, n]*S2[2, n]*S2[3, n] + S2[-1, n]*S2[5, n] + S2[-4, 2, n] + 
   S2[2, n]*S2[-3, 1, n] - S2[-3, 3, n] + S2[1, n]*S2[2, n]*S2[-2, 1, n] - 
   S2[3, n]*S2[-2, 1, n] + (S2[1, n]^2*S2[2, n]*S2[1, -1, n])/2 - 
   (S2[2, n]^2*S2[1, -1, n])/2 + S2[1, n]*S2[3, n]*S2[1, -1, n] - 
   S2[2, n]*S2[2, -2, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] - 
   S2[-2, n]*S2[1, n]*S2[2, 1, n] + S2[-2, 1, n]*S2[2, 1, n] - 
   S2[1, n]*S2[1, -1, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] - 
   S2[-3, n]*(S2[1, n]*S2[2, n] - 2*S2[3, n] + S2[2, 1, n]) - 
   S2[1, n]*S2[3, -2, n] + S2[-2, n]*S2[3, 1, n] - S2[1, -1, n]*S2[3, 1, n] - 
   S2[5, -1, n] - S2[-4, 1, 1, n] + S2[-3, 1, 2, n] + S2[-3, 2, 1, n] - 
   2*S2[2, n]*S2[-2, 1, 1, n] + S2[-2, 2, 2, n] - S2[-2, 3, 1, n] + 
   S2[1, n]*S2[-1, 2, 2, n] - 2*S2[1, n]*S2[2, n]*S2[1, 1, -1, n] - 
   2*S2[3, n]*S2[1, 1, -1, n] + 2*S2[2, 1, n]*S2[1, 1, -1, n] - 
   S2[2, n]*S2[1, 2, -1, n] + S2[1, n]*S2[2, 1, -2, n] - 
   S2[2, n]*S2[2, 1, -1, n] - S2[-2, n]*S2[2, 1, 1, n] + 
   S2[1, -1, n]*S2[2, 1, 1, n] - S2[3, -1, 2, n] + S2[1, n]*S2[3, 1, -1, n] + 
   S2[-2, 2, 1, 1, n] - S2[-1, 1, 2, 2, n] - S2[-1, 2, 1, 2, n] - 
   S2[-1, 2, 2, 1, n] + 3*S2[2, n]*S2[1, 1, 1, -1, n] + S2[2, -2, 1, 1, n] - 
   S2[1, n]*S2[2, 1, 1, -1, n] - S2[3, 1, -1, 1, n] + S2[2, 1, 1, -1, 1, n], 
 S2[1, -1, 1, 1, -2, n_] -> S2[-3, n]^2/2 + S2[-2, n]^2*S2[2, n] + 
   S2[2, n]*S2[4, n] + S2[6, n]/2 + S2[-4, -2, n] - S2[1, n]*S2[-4, -1, n] + 
   S2[-2, 1, n]^2 - S2[-3, 1, n]*S2[1, -1, n] - S2[1, n]*S2[-2, 1, n]*
    S2[1, -1, n] + S2[1, -1, n]*S2[2, -2, n] - S2[-2, 1, n]*S2[2, -1, n] - 
   S2[4, 2, n] - S2[5, 1, n] + S2[-4, -1, 1, n] + S2[-3, -2, 1, n] + 
   S2[-3, 1, -2, n] + S2[1, n]*S2[-3, 1, -1, n] + S2[1, n]*S2[-2, 1, -2, n] + 
   S2[1, -1, n]*S2[-2, 1, 1, n] + S2[1, n]*S2[-2, 2, -1, n] + 
   S2[-3, n]*(-2*S2[-2, 1, n] + S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
     2*S2[1, 1, -1, n]) + 2*S2[-2, 1, n]*S2[1, 1, -1, n] - 
   2*S2[2, -2, -2, n] - S2[4, 1, 1, n] - S2[-3, 1, -1, 1, n] + 
   2*S2[-2, -2, 1, 1, n] - S2[1, n]*S2[-2, 1, 1, -1, n] - 
   S2[-2, 2, -1, 1, n] + S2[-2, n]*(S2[-3, 1, n] + (S2[1, n]^2*S2[1, -1, n])/
      2 - (S2[2, n]*S2[1, -1, n])/2 + S2[3, -1, n] - 3*S2[-2, 1, 1, n] + 
     S2[1, n]*(S2[2, -1, n] - 2*S2[1, 1, -1, n]) - 2*S2[1, 2, -1, n] - 
     2*S2[2, 1, -1, n] + 3*S2[1, 1, 1, -1, n]) + S2[-2, 1, 1, -1, 1, n], 
 S2[1, -1, 1, -1, 2, n_] -> S2[-3, n]^2/2 + (S2[1, n]^2*S2[2, n]^2)/2 - 
   (S2[2, n]*S2[4, n])/2 - S2[6, n]/2 - S2[-4, -2, n] + 
   (3*S2[2, n]*S2[-3, -1, n])/2 - S2[-1, n]*S2[2, n]*S2[-2, 1, n] + 
   S2[-4, n]*S2[1, -1, n] - S2[-3, 1, n]*S2[1, -1, n] + 
   (S2[2, n]*S2[1, -1, n]^2)/2 - S2[-2, n]*S2[2, -2, n] + 
   (S2[-1, n]*S2[2, n]*S2[2, -1, n])/2 + S2[-2, 1, n]*S2[2, -1, n] - 
   S2[2, -1, n]^2 - S2[-2, n]*S2[3, -1, n] + S2[1, -1, n]*S2[3, -1, n] - 
   2*S2[2, n]*S2[3, 1, n] + S2[4, 2, n] - S2[5, 1, n] + S2[-3, -2, 1, n] + 
   S2[-3, 1, -2, n] + S2[2, n]*S2[-1, -2, 1, n] - 
   (S2[2, n]*S2[-1, 2, -1, n])/2 + S2[-3, n]*(S2[-2, n]*S2[1, n] - 
     S2[-2, 1, n] + S2[1, n]*S2[1, -1, n] - 2*S2[1, 1, -1, n]) + 
   2*S2[2, -1, n]*S2[1, 1, -1, n] + S2[-2, n]*S2[1, 2, -1, n] - 
   S2[1, -1, n]*S2[1, 2, -1, n] + S2[2, -2, -2, n] + 
   S2[-2, n]*S2[2, 1, -1, n] - S2[1, -1, n]*S2[2, 1, -1, n] + 
   S2[2, n]*S2[2, 1, 1, n] - S2[-3, 1, -1, 1, n] + S2[-2, 2, -1, 1, n] - 
   2*S2[2, n]*S2[1, 1, -1, -1, n] + S2[1, n]*(S2[5, n] - S2[-3, -2, n] - 
     S2[-2, n]*S2[2, -1, n] + S2[2, n]*(S2[3, n] + S2[-2, -1, n] - 
       S2[2, 1, n]) + S2[-3, 1, -1, n] - S2[-2, 2, -1, n] - 
     S2[2, -1, 1, -1, n]) + S2[2, -1, 1, -1, 1, n], 
 S2[1, -1, 1, -1, -2, n_] -> (-2*S2[-6, n])/3 - S2[-2, n]^3/3 + 
   S2[-5, n]*S2[1, n] - S2[-1, n]*S2[5, n] - S2[-5, 1, n] - 
   S2[3, n]*S2[-2, 1, n] + S2[-2, -1, n]*S2[-2, 1, n] + 
   (S2[-2, n]^2*S2[1, -1, n])/2 + S2[1, n]*S2[3, n]*S2[1, -1, n] + 
   (3*S2[4, n]*S2[1, -1, n])/2 - S2[1, n]*S2[-2, -1, n]*S2[1, -1, n] + 
   S2[-1, n]*S2[-2, 1, n]*S2[1, -1, n] + S2[3, n]*S2[2, -1, n] - 
   S2[-2, -1, n]*S2[2, -1, n] - S2[4, -2, n] - S2[1, n]*S2[4, -1, n] + 
   S2[5, -1, n] + S2[-3, -1, -2, n] - S2[1, -1, n]*S2[-2, 1, -1, n] - 
   S2[1, n]*S2[-1, -2, -2, n] - S2[1, -1, n]*S2[-1, -2, 1, n] - 
   2*S2[3, n]*S2[1, 1, -1, n] + 2*S2[-2, -1, n]*S2[1, 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] + S2[-1, -2, -2, 1, n] + 
   S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n] - 
   (S2[-2, n]*(2*S2[-3, n]*S2[-1, n] - S2[1, n]^2*S2[2, n] + S2[4, n] - 
      3*S2[-3, -1, n] + 2*S2[-1, n]*S2[-2, 1, n] - S2[1, -1, n]^2 - 
      S2[-1, n]*S2[2, -1, n] + S2[1, n]*(-4*S2[3, n] + 2*S2[2, 1, n]) + 
      4*S2[3, 1, n] - 2*S2[-1, -2, 1, n] + S2[-1, 2, -1, n] - 
      2*S2[2, 1, 1, n] + 4*S2[1, 1, -1, -1, n]))/2 - S2[3, 1, -1, 1, n] + 
   S2[-2, -1, 1, -1, 1, n], S2[1, -1, 1, -2, 1, n_] -> 
  S2[-3, n]^2 - S2[2, n]*S2[4, n] + (S2[1, n]*S2[5, n])/2 + S2[6, n] - 
   2*S2[-4, -2, n] + (S2[1, n]*S2[-3, -2, n])/2 + S2[-2, n]*S2[-3, 1, n] + 
   (S2[-2, n]*S2[1, n]*S2[-2, 1, n])/2 - S2[-2, 1, n]^2/2 + 
   S2[-3, n]*((S2[-2, n]*S2[1, n])/2 + S2[-2, 1, n]) + 
   S2[-2, n]*S2[2, n]*S2[1, -1, n] + S2[-3, 1, n]*S2[1, -1, n] + 
   S2[1, n]*S2[-2, 1, n]*S2[1, -1, n] + 
   S2[-4, n]*(S2[-2, n] + S2[1, -1, n]) - S2[-2, n]*S2[2, -2, n] - 
   S2[1, -1, n]*S2[2, -2, n] + S2[-2, 1, n]*S2[2, -1, n] + 
   (S2[1, n]*S2[4, 1, n])/2 + (3*S2[4, 2, n])/2 + 2*S2[5, 1, n] - 
   3*S2[-3, -2, 1, n] - S2[1, n]*S2[-3, -1, 1, n] - S2[-3, -1, 2, n] - 
   2*S2[-3, 1, -2, n] - S2[1, n]*S2[-3, 1, -1, n] - 
   (3*S2[1, n]*S2[-2, 1, -2, n])/2 + 2*S2[-2, n]*S2[-2, 1, 1, n] - 
   2*S2[1, -1, n]*S2[-2, 1, 1, n] - S2[1, n]*S2[-2, 2, -1, n] - 
   2*S2[-2, 1, n]*S2[1, 1, -1, n] + 2*S2[2, -2, -2, n] + S2[4, 1, 1, n] + 
   2*S2[-3, -1, 1, 1, n] + S2[-3, 1, -1, 1, n] - 4*S2[-2, -2, 1, 1, n] + 
   S2[1, n]*S2[-2, 1, -1, 1, n] + S2[-2, 1, -1, 2, n] + 
   2*S2[1, n]*S2[-2, 1, 1, -1, n] + S2[-2, 2, -1, 1, n] - 
   2*S2[-2, 1, -1, 1, 1, n] - 2*S2[-2, 1, 1, -1, 1, n], 
 S2[1, -1, 1, -2, -1, n_] -> (-2*S2[-6, n])/3 - S2[-2, n]^3/3 + 
   S2[-3, n]*S2[1, n]*S2[2, n] - 2*S2[-3, n]*S2[3, n] - 
   (3*S2[-1, n]*S2[1, n]*S2[4, n])/2 - (3*S2[-1, n]*S2[5, n])/2 - 
   (3*S2[-1, n]*S2[-3, -2, n])/2 + 2*S2[-3, n]*S2[-2, -1, n] - 
   S2[1, n]*S2[2, n]*S2[-2, 1, n] + 2*S2[3, n]*S2[-2, 1, n] - 
   2*S2[-2, -1, n]*S2[-2, 1, n] - 
   (3*S2[-2, n]^2*(S2[-1, n]*S2[1, n] - S2[1, -1, n]))/2 + 
   (3*S2[4, n]*S2[1, -1, n])/2 + S2[-3, -1, n]*S2[1, -1, n] + 
   S2[1, n]*S2[-2, -1, n]*S2[1, -1, n] - S2[-1, n]*S2[-2, 1, n]*
    S2[1, -1, n] + S2[-2, -1, n]*S2[2, -1, n] + S2[1, n]*S2[3, -2, n] - 
   S2[1, -1, n]*S2[3, 1, n] - 2*S2[4, -2, n] + (3*S2[-1, n]*S2[4, 1, n])/2 + 
   2*S2[5, -1, n] + S2[-4, 1, 1, n] + S2[-3, -2, -1, n] + S2[-3, -1, -2, n] - 
   2*S2[1, n]*S2[-3, -1, -1, n] - S2[-3, 2, 1, n] + 
   (S2[-1, n]*S2[-2, 1, -2, n])/2 + S2[2, n]*S2[-2, 1, 1, n] + 
   S2[-2, 3, 1, n] + S2[-2, n]*((-3*S2[-3, n]*S2[-1, n])/2 + S2[4, n] + 
     (7*S2[-1, n]*S2[-2, 1, n])/2 + S2[1, n]*(-S2[3, n] + S2[2, 1, n]) - 
     2*S2[-2, 1, -1, n] - 2*S2[-1, -2, 1, n]) + 
   S2[1, -1, n]*S2[-1, -2, 1, n] - 2*S2[-2, -1, n]*S2[1, 1, -1, n] - 
   S2[1, n]*S2[2, 1, -2, n] + S2[3, 1, -2, n] - 2*S2[4, 1, -1, n] + 
   2*S2[-3, -1, -1, 1, n] + S2[-3, -1, 1, -1, n] + 
   S2[1, n]*S2[-2, -1, 1, -1, n] + 2*S2[1, n]*S2[-2, 1, -1, -1, n] - 
   S2[-2, 1, 1, 2, n] - S2[-2, 2, 1, 1, n] + S2[-1, -2, 1, -2, n] + 
   3*S2[-1, 1, -2, -2, n] - S2[2, -2, 1, 1, n] - S2[-2, -1, 1, -1, 1, n] - 
   2*S2[-2, 1, -1, -1, 1, n] - S2[-2, 1, -1, 1, -1, n], 
 S2[1, -1, -1, 2, 1, n_] -> -(S2[-4, n]*S2[-2, n]) + S2[2, n]^3/12 - 
   S2[1, n]*S2[5, n] + (2*S2[6, n])/3 + S2[-4, -2, n] - 
   S2[1, n]*S2[-4, -1, n] + S2[1, n]*S2[-3, -2, n] - S2[-3, n]*S2[-2, 1, n] + 
   S2[-3, 1, n]*S2[1, -1, n] + S2[-2, n]*S2[2, -2, n] + 
   S2[-3, n]*S2[2, -1, n] + S2[-2, 1, n]*S2[2, -1, n] - 
   S2[1, n]*S2[1, -1, n]*S2[2, -1, n] - S2[2, -1, n]^2/2 + 
   (S2[3, n]*S2[2, 1, n])/2 - (S2[-2, -1, n]*S2[2, 1, n])/2 + 
   (S2[-1, n]*S2[1, -1, n]*S2[2, 1, n])/2 + S2[-2, n]*S2[3, -1, n] - 
   S2[1, -1, n]*S2[3, -1, n] + S2[1, n]*S2[3, 2, n] - S2[4, 2, n] + 
   S2[-4, -1, 1, n] - S2[-3, -2, 1, n] - S2[1, n]*S2[-3, -1, 1, n] - 
   S2[-3, 1, -2, n] - S2[1, n]*S2[-3, 1, -1, n] + S2[1, n]*S2[-2, 2, -1, n] - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/2 - 
   (S2[2, n]*(-7*S2[4, n] + 2*S2[1, n]*(2*S2[3, n] + S2[2, 1, n]) + 
      2*(S2[-3, -1, n] - S2[-1, n]*S2[2, -1, n] + 2*S2[-2, 1, -1, n] + 
        S2[-1, 2, -1, n])))/4 - S2[-2, n]*S2[1, 2, -1, n] + 
   S2[1, -1, n]*S2[1, 2, -1, n] - S2[2, -2, -2, n] + 
   S2[1, n]*S2[2, 2, 1, n] + S2[2, 3, 1, n] - S2[4, 1, 1, n] + 
   2*S2[-3, -1, 1, 1, n] + S2[-3, 1, -1, 1, n] + S2[-2, -1, 2, 1, n] + 
   S2[-2, 1, -1, 2, n] - S2[-2, 2, -1, 1, n] + S2[1, n]*S2[2, -1, -1, 1, n] + 
   S2[1, n]*S2[2, -1, 1, -1, n] + S2[1, n]*S2[2, 1, -1, -1, n] - 
   2*S2[2, -1, -1, 1, 1, n] - S2[2, -1, 1, -1, 1, n] - 
   S2[2, 1, -1, -1, 1, n], S2[1, -1, -1, 2, -1, n_] -> 
  (-4*S2[-6, n] - 4*S2[-5, n]*S2[1, n] + 2*S2[-4, n]*S2[2, n] - 
    4*S2[-3, n]*S2[1, n]*S2[2, n] - 3*S2[-2, n]*S2[2, n]^2 - 
    6*S2[-1, n]*S2[1, n]*S2[2, n]^2 - 8*S2[-3, n]*S2[3, n] - 
    S2[-2, n]*S2[4, n] - 6*S2[-1, n]*S2[1, n]*S2[4, n] + 4*S2[-5, 1, n] - 
    8*S2[-4, 2, n] - 2*S2[-2, n]*S2[-3, -1, n] + 4*S2[2, n]*S2[-3, 1, n] + 
    8*S2[-3, 3, n] + 4*S2[-3, n]*S2[-2, -1, n] + 2*S2[-1, n]*S2[2, n]*
     S2[-2, -1, n] + 2*S2[2, n]^2*S2[1, -1, n] + 2*S2[4, n]*S2[1, -1, n] + 
    6*S2[2, n]*S2[2, -2, n] + 6*S2[-2, n]*S2[-1, n]*S2[2, -1, n] + 
    2*S2[1, n]*S2[2, n]*S2[2, -1, n] + 6*S2[3, n]*S2[2, -1, n] - 
    6*S2[-2, -1, n]*S2[2, -1, n] - 2*S2[-1, n]*S2[1, -1, n]*S2[2, -1, n] + 
    4*S2[-1, n]*S2[2, n]*S2[2, 1, n] - 2*S2[2, -1, n]*S2[2, 1, n] - 
    2*S2[2, n]*S2[3, -1, n] - 4*S2[-1, n]*S2[3, 2, n] + 8*S2[4, -2, n] + 
    4*S2[1, n]*S2[4, -1, n] + 4*S2[-1, n]*S2[4, 1, n] - 
    8*S2[1, n]*S2[-3, -1, -1, n] - 4*S2[-3, 1, 2, n] + 4*S2[-2, 2, 2, n] - 
    2*S2[2, n]*S2[-1, -2, -1, n] - 2*S2[2, -1, n]*S2[-1, 1, -1, n] - 
    6*S2[-2, n]*S2[-1, 2, -1, n] + 4*S2[1, -1, n]*S2[-1, 2, -1, n] + 
    8*S2[1, n]*S2[-1, 2, 2, n] - 4*S2[2, n]*S2[2, 1, -1, n] + 
    4*S2[-1, n]*S2[2, 2, 1, n] + 8*S2[3, -1, 2, n] + 4*S2[3, 2, -1, n] - 
    4*S2[4, -1, 1, n] - 8*S2[4, 1, -1, n] + 8*S2[-3, -1, -1, 1, n] + 
    4*S2[-3, -1, 1, -1, n] - 4*S2[-2, -1, -1, 2, n] + 
    4*S2[-2, -1, 2, -1, n] + 4*S2[-1, 1, 2, 2, n] - 8*S2[-1, 2, 2, 1, n] + 
    12*S2[1, n]*S2[2, -1, -1, -1, n] - 12*S2[2, -1, -1, -1, 1, n] - 
    4*S2[2, -1, -1, 1, -1, n])/4, S2[1, -1, -1, 1, 2, n_] -> 
  -S2[-3, n]^2/2 + S2[-3, n]*S2[-2, n]*S2[1, n] - S2[-2, n]^2*S2[2, n] + 
   S2[2, n]^3/12 + S2[1, n]*S2[2, n]*S2[3, n] + S2[3, n]^2 - 
   (3*S2[2, n]*S2[4, n])/4 + 2*S2[1, n]*S2[5, n] - (4*S2[6, n])/3 + 
   S2[-4, -2, n] - S2[1, n]*S2[-3, -2, n] - S2[-2, n]*S2[-3, 1, n] + 
   (S2[1, n]*S2[2, n]*S2[-2, -1, n])/2 - (3*S2[3, n]*S2[-2, -1, n])/2 - 
   S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-2, n]*S2[2, n]*S2[1, -1, n] + 
   (S2[-1, n]*S2[1, n]*S2[2, n]*S2[1, -1, n])/2 + 
   (S2[-1, n]*S2[3, n]*S2[1, -1, n])/2 - (S2[2, n]*S2[1, -1, n]^2)/2 + 
   S2[-4, n]*(-2*S2[-2, n] + S2[1, -1, n]) + S2[-2, n]*S2[2, -2, n] - 
   S2[1, -1, n]*S2[2, -2, n] + S2[1, n]*S2[2, n]*S2[2, 1, n] - 
   S2[3, n]*S2[2, 1, n] + (S2[-2, -1, n]*S2[2, 1, n])/2 - 
   (S2[-1, n]*S2[1, -1, n]*S2[2, 1, n])/2 + 2*S2[-2, n]*S2[3, -1, n] - 
   S2[1, -1, n]*S2[3, -1, n] - S2[2, n]*S2[3, 1, n] - S2[1, n]*S2[3, 2, n] + 
   S2[1, n]*S2[4, 1, n] + S2[4, 2, n]/2 - 2*S2[5, 1, n] + S2[-3, -2, 1, n] + 
   S2[-3, 1, -2, n] - S2[1, n]*S2[-2, -1, 2, n] + S2[2, n]*S2[-2, 1, -1, n] - 
   S2[1, n]*S2[-2, 2, -1, n] + S2[2, n]*S2[-1, -2, 1, n] - 
   (S2[1, n]*S2[2, n]*S2[-1, 1, -1, n])/2 - (S2[3, n]*S2[-1, 1, -1, n])/2 + 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/2 - S2[-2, n]*S2[2, 1, -1, n] + 
   S2[1, -1, n]*S2[2, 1, -1, n] - S2[2, n]*S2[2, 1, 1, n] - 
   2*S2[1, n]*S2[2, 2, 1, n] - S2[3, -1, -2, n] + S2[1, n]*S2[3, -1, -1, n] + 
   S2[3, 2, 1, n] - S2[4, 1, 1, n] + 2*S2[-2, -1, 1, 2, n] + 
   S2[-2, -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] - S2[3, -1, -1, 1, n] + S2[2, 1, -1, -1, 1, n], 
 S2[1, -1, -1, 1, -2, n_] -> (8*S2[-6, n] + 2*S2[-2, n]^3 + 
    4*S2[-2, n]^2*(S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
    S2[-2, n]*(8*S2[-3, n]*S2[-1, n] + S2[2, n]^2 + 2*S2[1, n]*S2[3, n] + 
      S2[4, n] + 2*S2[1, n]*S2[-2, -1, n] - 8*S2[-1, n]*S2[-2, 1, n] + 
      2*S2[-1, n]*S2[1, n]*S2[1, -1, n] - 2*S2[1, -1, n]^2 - 
      2*S2[1, n]*S2[2, 1, n] + 4*S2[3, 1, n] + 4*S2[-2, 1, -1, n] + 
      4*S2[-1, -2, 1, n] - 2*S2[1, n]*S2[-1, 1, -1, n] - 4*S2[2, 1, 1, n]) + 
    2*(S2[1, n]*S2[2, n]*S2[-2, 1, n] - 3*S2[3, n]*S2[-2, 1, n] + 
      S2[-2, -1, n]*S2[-2, 1, n] - 2*S2[4, n]*S2[1, -1, n] - 
      2*S2[-3, -1, n]*S2[1, -1, n] + S2[-2, 1, n]*S2[2, 1, n] - 
      2*S2[1, n]*S2[3, -2, n] + 4*S2[4, -2, n] + 
      S2[-1, n]*(2*S2[1, n]*S2[4, n] + 4*S2[5, n] + 2*S2[-3, -2, n] - 
        S2[-2, 1, n]*S2[1, -1, n] - 2*S2[4, 1, n]) - 4*S2[5, -1, n] - 
      2*S2[-4, 1, 1, n] - 2*S2[-3, -2, -1, n] - 4*S2[-3, -1, -2, n] + 
      2*S2[1, n]*S2[-3, -1, -1, n] + 2*S2[-3, 2, 1, n] + 
      2*S2[1, -1, n]*S2[-2, 1, -1, n] - 2*S2[2, n]*S2[-2, 1, 1, n] - 
      2*S2[-2, 3, 1, n] + 2*S2[1, n]*S2[-1, -2, -2, n] + 
      S2[-2, 1, n]*S2[-1, 1, -1, n] - S2[-3, n]*(S2[1, n]*S2[2, n] - 
        5*S2[3, n] + 3*S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] + 
        S2[-1, 1, -1, n]) + 2*S2[1, n]*S2[2, 1, -2, n] + 2*S2[4, 1, -1, n] - 
      2*S2[-3, -1, -1, 1, n] - 2*S2[1, n]*S2[-2, 1, -1, -1, n] + 
      2*S2[-2, 1, 1, 2, n] + 2*S2[-2, 2, 1, 1, n] - 2*S2[-1, -2, -2, 1, n] - 
      4*S2[-1, -2, 1, -2, n] - 6*S2[-1, 1, -2, -2, n] + 
      2*S2[2, -2, 1, 1, n] + 2*S2[-2, 1, -1, -1, 1, n]))/4, 
 S2[1, -1, -1, -1, 2, n_] -> (12*S2[-6, n] + 12*S2[-5, n]*S2[1, n] + 
    6*S2[-2, n]*S2[-1, n]^2*S2[2, n] + 10*S2[-3, n]*S2[1, n]*S2[2, n] + 
    2*S2[-1, n]^3*S2[1, n]*S2[2, n] + 3*S2[-2, n]*S2[2, n]^2 + 
    12*S2[-1, n]*S2[1, n]*S2[2, n]^2 + 18*S2[-3, n]*S2[3, n] + 
    6*S2[-1, n]*S2[2, n]*S2[3, n] - 3*S2[-2, n]*S2[4, n] + 
    12*S2[-1, n]*S2[1, n]*S2[4, n] - 12*S2[-5, 1, n] + 12*S2[-4, 2, n] + 
    6*S2[-2, n]*S2[-3, -1, n] - 12*S2[-3, 3, n] - 6*S2[-3, n]*S2[-2, -1, n] - 
    6*S2[-1, n]*S2[2, n]*S2[-2, -1, n] + 6*S2[-3, n]*S2[-1, n]*S2[1, -1, n] - 
    3*S2[2, n]^2*S2[1, -1, n] + 3*S2[4, n]*S2[1, -1, n] - 
    6*S2[-3, -1, n]*S2[1, -1, n] - 6*S2[-2, n]*S2[-1, n]*S2[2, -1, n] - 
    6*S2[1, n]*S2[2, n]*S2[2, -1, n] - 6*S2[3, n]*S2[2, -1, n] + 
    6*S2[-2, -1, n]*S2[2, -1, n] - 6*S2[-3, n]*S2[2, 1, n] - 
    6*S2[-1, n]*S2[2, n]*S2[2, 1, n] + 6*S2[2, -1, n]*S2[2, 1, n] + 
    12*S2[-1, n]*S2[3, 2, n] - 12*S2[4, -2, n] - 12*S2[1, n]*S2[4, -1, n] - 
    12*S2[-1, n]*S2[4, 1, n] + 12*S2[1, n]*S2[-3, -1, -1, n] - 
    6*S2[-3, n]*S2[-1, 1, -1, n] - 6*S2[-1, n]*S2[2, n]*S2[-1, 1, -1, n] + 
    6*S2[2, -1, n]*S2[-1, 1, -1, n] + 6*S2[-2, n]*S2[-1, 2, -1, n] - 
    6*S2[1, -1, n]*S2[-1, 2, -1, n] - 12*S2[1, n]*S2[-1, 2, 2, n] - 
    12*S2[3, -1, 2, n] - 12*S2[3, 2, -1, n] + 12*S2[4, -1, 1, n] + 
    12*S2[4, 1, -1, n] - 12*S2[-3, -1, -1, 1, n] + 12*S2[-2, -1, -1, 2, n] - 
    12*S2[2, n]*S2[-1, -1, -1, 1, n] - 12*S2[-1, 1, 2, 2, n] + 
    12*S2[-1, 2, 2, 1, n] - 12*S2[1, n]*S2[2, -1, -1, -1, n] + 
    12*S2[2, -1, -1, -1, 1, n])/12, S2[1, -1, -1, -1, -2, n_] -> 
  (3*S2[-3, n]^2 + 3*S2[-2, n]^2*S2[-1, n]^2 - 4*S2[-3, n]*S2[-2, n]*
     S2[1, n] + S2[-2, n]*(S2[-1, n]^3*S2[1, n] + 
      3*S2[-1, n]*(S2[3, n] - S2[-2, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 6*(S2[-3, 1, n] + S2[2, -2, n] - 
        S2[2, 1, -1, n] - S2[-1, -1, -1, 1, n])) + 
    3*(S2[2, n]*S2[4, n] + 2*S2[6, n] + S2[-4, n]*S2[1, -1, n] + 
      S2[-1, n]*S2[3, n]*S2[1, -1, n] + S2[1, -1, n]*S2[2, -2, n] - 
      S2[3, n]*S2[2, 1, n] + S2[-2, -1, n]*S2[2, 1, n] - 
      S2[1, -1, n]*S2[3, -1, n] - S2[4, 2, n] + 2*S2[-4, -1, 1, n] - 
      2*S2[-3, -2, 1, n] - 2*S2[-3, 1, -2, n] - 
      S2[1, -1, n]*S2[-1, -2, -1, n] - S2[3, n]*S2[-1, 1, -1, n] + 
      S2[-2, -1, n]*S2[-1, 1, -1, n] - 2*S2[2, -2, -2, n] + 
      2*S2[3, -1, -2, n] + 2*S2[3, 2, 1, n] + 
      S2[1, n]*(S2[2, n]*(S2[3, n] - S2[-2, -1, n]) - 
        2*(S2[-4, -1, n] - S2[-3, -2, n] + S2[3, 2, n] - S2[-2, -1, 2, n] - 
          S2[-2, 2, -1, n] - S2[3, -1, -1, n] + S2[-2, -1, -1, -1, n])) - 
      2*S2[-2, -1, 2, 1, n] - 2*S2[-2, 2, -1, 1, n] - 2*S2[3, -1, -1, 1, n] + 
      2*S2[-2, -1, -1, -1, 1, n]))/6, S2[1, -1, -1, -2, 1, n_] -> 
  2*S2[-6, n] - S2[-2, n]^2*S2[-1, n]*S2[1, n] - 
   S2[-2, n]*S2[1, n]*S2[3, n] + S2[-2, n]*S2[4, n] - 
   S2[-1, n]*S2[1, n]*S2[4, n] + S2[-1, n]*S2[5, n] + 2*S2[-5, 1, n] + 
   S2[1, n]*S2[-4, 1, n] + S2[-4, 2, n] - 2*S2[-1, n]*S2[-3, -2, n] - 
   S2[1, n]*S2[-3, 2, n] - 2*S2[-3, 3, n] + 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[1, n]*S2[2, n] + S2[3, n] - 
     S2[-2, -1, n]) + 2*S2[-2, n]*S2[-1, n]*S2[-2, 1, n] - 
   (S2[1, n]*S2[2, n]*S2[-2, 1, n])/2 + (3*S2[3, n]*S2[-2, 1, n])/2 - 
   (S2[-2, -1, n]*S2[-2, 1, n])/2 + (S2[-2, n]^2*S2[1, -1, n])/2 + 
   (S2[4, n]*S2[1, -1, n])/2 - (S2[-1, n]*S2[-2, 1, n]*S2[1, -1, n])/2 + 
   S2[-2, n]*S2[1, n]*S2[2, 1, n] - (S2[-2, 1, n]*S2[2, 1, n])/2 + 
   S2[1, n]*S2[3, -2, n] + 2*S2[-1, n]*S2[4, 1, n] - S2[5, -1, n] - 
   S2[-4, 1, 1, n] + 2*S2[-3, -2, -1, n] + S2[-3, -1, -2, n] - 
   S2[-2, n]*S2[-2, 1, -1, n] + S2[2, n]*S2[-2, 1, 1, n] - 
   S2[1, n]*S2[-2, 2, 1, n] - S2[-2, 2, 2, n] + S2[1, n]*S2[-1, -2, -2, n] + 
   S2[1, -1, n]*S2[-1, -2, 1, n] - (S2[-2, 1, n]*S2[-1, 1, -1, n])/2 - 
   S2[1, n]*S2[2, 1, -2, n] - S2[1, n]*S2[3, -1, 1, n] - S2[3, -1, 2, n] - 
   S2[1, n]*S2[3, 1, -1, n] - S2[4, -1, 1, n] - 2*S2[4, 1, -1, n] + 
   S2[1, n]*S2[-2, -1, -1, 1, n] + S2[-2, -1, -1, 2, n] + 
   S2[1, n]*S2[-2, -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] - 3*S2[-1, -2, -2, 1, n] - 
   S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n] - S2[2, -2, 1, 1, n] + 
   2*S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] - 2*S2[-2, -1, -1, 1, 1, n] - 
   S2[-2, -1, 1, -1, 1, n] - S2[-2, 1, -1, -1, 1, n], 
 S2[1, -1, -1, -2, -1, n_] -> (-S2[-3, n]^2 + 3*S2[-4, n]*S2[-2, n] + 
    2*S2[-3, n]*S2[-2, n]*S2[1, n] + S2[-2, n]^2*S2[2, n] - 
    2*S2[2, n]*S2[4, n] + 2*S2[1, n]*S2[5, n] - S2[6, n] + 2*S2[-5, -1, n] - 
    2*S2[-4, -2, n] + 2*S2[1, n]*S2[-4, -1, n] - 2*S2[1, n]*S2[-3, -2, n] - 
    2*S2[-2, n]*S2[-3, 1, n] + 3*S2[-2, n]*S2[-1, n]*S2[-2, -1, n] + 
    S2[1, n]*S2[2, n]*S2[-2, -1, n] + 3*S2[3, n]*S2[-2, -1, n] - 
    S2[-2, -1, n]^2 - S2[-1, n]*S2[-2, -1, n]*S2[1, -1, n] - 
    3*S2[-2, n]*S2[2, -2, n] - S2[-2, -1, n]*S2[2, 1, n] + 
    S2[-2, n]*S2[3, -1, n] + 2*S2[1, n]*S2[3, 2, n] + 2*S2[4, 2, n] - 
    2*S2[5, 1, n] - 2*S2[-4, -1, 1, n] - 2*S2[-4, 1, -1, n] + 
    2*S2[-3, -2, 1, n] + 2*S2[-3, 1, -2, n] - 4*S2[1, n]*S2[-2, -1, 2, n] - 
    4*S2[1, n]*S2[-2, 2, -1, n] - 3*S2[-2, n]*S2[-1, -2, -1, n] + 
    2*S2[1, -1, n]*S2[-1, -2, -1, n] - S2[-2, -1, n]*S2[-1, 1, -1, n] + 
    4*S2[2, -2, -2, n] - 2*S2[3, -2, -1, n] - 2*S2[3, -1, -2, n] - 
    4*S2[1, n]*S2[3, -1, -1, n] - 2*S2[3, 2, 1, n] + 2*S2[4, -1, -1, n] - 
    4*S2[-2, -2, -1, -1, n] + 6*S2[1, n]*S2[-2, -1, -1, -1, n] + 
    4*S2[-2, -1, 2, 1, n] + 4*S2[-2, 2, -1, 1, n] + 2*S2[-2, 2, 1, -1, n] + 
    4*S2[3, -1, -1, 1, n] + 2*S2[3, -1, 1, -1, n] - 
    6*S2[-2, -1, -1, -1, 1, n] - 2*S2[-2, -1, -1, 1, -1, n])/2, 
 S2[1, -1, -2, 1, 1, n_] -> (-S2[-3, n]^2 + S2[-3, n]*S2[-2, n]*S2[1, n] + 
    S2[3, n]^2 + S2[1, n]*S2[5, n] - S2[1, n]*S2[-3, -2, n] - 
    2*S2[-2, n]*S2[-3, 1, n] + S2[-2, n]*S2[1, n]*S2[-2, 1, n] - 
    S2[-2, 1, n]^2 + 2*S2[2, n]*S2[3, 1, n] + S2[1, n]*S2[4, 1, n] + 
    S2[4, 2, n] + 2*S2[-3, -2, 1, n] + 2*S2[-3, 1, -2, n] + 
    S2[1, n]*S2[-2, 1, -2, n] - 2*S2[-2, n]*S2[-2, 1, 1, n] + 
    2*S2[1, -1, n]*S2[-2, 1, 1, n] - 2*S2[2, 3, 1, n] + 
    2*S2[1, n]*S2[3, 1, 1, n] - 2*S2[4, 1, 1, n] + 2*S2[-2, -2, 1, 1, n] - 
    2*S2[1, n]*S2[-2, -1, 1, 1, n] - 2*S2[-2, -1, 1, 2, n] - 
    2*S2[-2, -1, 2, 1, n] - 2*S2[1, n]*S2[-2, 1, -1, 1, n] - 
    2*S2[-2, 1, -1, 2, n] - 2*S2[1, n]*S2[-2, 1, 1, -1, n] - 
    6*S2[3, 1, 1, 1, n] + 6*S2[-2, -1, 1, 1, 1, n] + 
    4*S2[-2, 1, -1, 1, 1, n] + 2*S2[-2, 1, 1, -1, 1, n])/2, 
 S2[1, -1, -2, 1, -1, n_] -> S2[-6, n] + S2[-2, n]*S2[1, n]*S2[3, n] - 
   2*S2[-2, n]*S2[4, n] + S2[-1, n]*S2[5, n] + S2[-5, 1, n] + 
   S2[-2, n]*S2[-3, -1, n] + S2[1, n]*S2[-3, 2, n] - S2[-3, 3, n] + 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] - S2[1, n]*S2[2, n] + 3*S2[3, n] - 
     2*S2[-2, -1, n]) + S2[-2, n]*S2[1, n]*S2[-2, -1, n] - 
   2*S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + S2[1, n]*S2[2, n]*S2[-2, 1, n] - 
   2*S2[3, n]*S2[-2, 1, n] + S2[-2, -1, n]*S2[-2, 1, n] - 
   (S2[-2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 - 
   S2[-2, n]*S2[1, n]*S2[2, 1, n] - 2*S2[1, n]*S2[3, -2, n] + 
   S2[-2, n]*S2[3, 1, n] + 3*S2[4, -2, n] + S2[1, n]*S2[4, -1, n] - 
   S2[5, -1, n] - S2[-4, 1, 1, n] - 2*S2[-3, -1, -2, n] + 
   S2[1, -1, n]*S2[-2, 1, -1, n] - S2[2, n]*S2[-2, 1, 1, n] - 
   2*S2[-2, 3, 1, n] + S2[1, n]*S2[-1, -2, -2, n] + 
   2*S2[-2, n]*S2[-1, -2, 1, n] + S2[1, n]*S2[2, 1, -2, n] - 
   S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] - 
   S2[4, -1, 1, n] - S2[1, n]*S2[-2, -1, 1, -1, n] - S2[-2, -1, 2, -1, n] - 
   2*S2[1, n]*S2[-2, 1, -1, -1, n] + S2[-2, 1, 1, 2, n] + 
   S2[-2, 2, 1, 1, n] - S2[-1, -2, -2, 1, n] - S2[-1, -2, 1, -2, n] - 
   S2[-1, 1, -2, -2, n] + S2[2, -2, 1, 1, n] - S2[3, 1, -1, 1, n] - 
   2*S2[3, 1, 1, -1, n] + S2[-2, -1, 1, -1, 1, n] + 
   2*S2[-2, -1, 1, 1, -1, n] + 2*S2[-2, 1, -1, -1, 1, n] + 
   S2[-2, 1, -1, 1, -1, n], S2[1, -1, -2, -1, 1, n_] -> 
  -4*S2[-6, n] - S2[-2, n]^3/2 + S2[-5, n]*S2[1, n] - 4*S2[-3, n]*S2[3, n] + 
   (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 3*S2[-1, n]*S2[5, n] - 4*S2[-5, 1, n] + 
   2*S2[-1, n]*S2[-3, -2, n] + 3*S2[-3, 3, n] + 3*S2[-3, n]*S2[-2, -1, n] + 
   S2[4, n]*S2[1, -1, n] + S2[-1, n]*S2[-2, 1, n]*S2[1, -1, n] + 
   S2[-2, n]^2*((S2[-1, n]*S2[1, n])/2 + S2[1, -1, n]) + 
   S2[1, n]*S2[3, -2, n] + S2[1, -1, n]*S2[3, 1, n] - 3*S2[4, -2, n] - 
   S2[1, n]*S2[4, -1, n] - 2*S2[-1, n]*S2[4, 1, n] + 3*S2[5, -1, n] - 
   2*S2[-3, -2, -1, n] + S2[-3, -1, -2, n] - S2[1, -1, n]*S2[-2, 1, -1, n] + 
   S2[1, n]*S2[-2, 2, 1, n] + S2[-2, 2, 2, n] + 2*S2[-2, 3, 1, n] - 
   2*S2[1, n]*S2[-1, -2, -2, n] - S2[1, -1, n]*S2[-1, -2, 1, n] - 
   (S2[-2, n]*(6*S2[-3, n]*S2[-1, n] + S2[4, n] - 
      2*S2[1, n]*(S2[3, n] - S2[-2, -1, n]) + 4*S2[3, 1, n] + 
      4*S2[-1, -2, 1, n]))/2 + S2[1, n]*S2[3, -1, 1, n] + S2[3, -1, 2, n] + 
   S2[3, 1, -2, n] + 3*S2[4, -1, 1, n] + 2*S2[4, 1, -1, n] - 
   2*S2[1, n]*S2[-2, -1, -1, 1, n] - 2*S2[-2, -1, -1, 2, n] - 
   S2[1, n]*S2[-2, -1, 1, -1, n] - 2*S2[-2, 2, 1, 1, n] + 
   5*S2[-1, -2, -2, 1, n] + 3*S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n] - 
   2*S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n] + 4*S2[-2, -1, -1, 1, 1, n] + 
   2*S2[-2, -1, 1, -1, 1, n], S2[1, -1, -2, -1, -1, n_] -> 
  (-2*S2[-2, n]^2*S2[2, n] + S2[3, n]^2 + S2[2, n]*S2[4, n] - S2[6, n] - 
    2*S2[-5, -1, n] + 4*S2[-4, -2, n] - 4*S2[3, n]*S2[-2, -1, n] + 
    S2[-2, -1, n]^2 + S2[-1, n]*S2[-2, -1, n]*S2[1, -1, n] + 
    S2[-4, n]*(-5*S2[-2, n] + S2[1, -1, n]) - S2[1, -1, n]*S2[2, -2, n] + 
    S2[1, -1, n]*S2[3, -1, n] - S2[4, 2, n] + 2*S2[1, n]*S2[-2, -1, 2, n] + 
    2*S2[1, n]*S2[-2, 2, -1, n] - S2[1, -1, n]*S2[-1, -2, -1, n] + 
    S2[-2, n]*(-3*S2[-1, n]*S2[-2, -1, n] + S2[2, n]*S2[1, -1, n] + 
      3*S2[2, -2, n] - S2[3, -1, n] + 3*S2[-1, -2, -1, n]) - 
    2*S2[2, -2, -2, n] + 4*S2[3, -2, -1, n] + 2*S2[1, n]*S2[3, -1, -1, n] - 
    2*S2[4, -1, -1, n] + 6*S2[-2, -2, -1, -1, n] - 
    6*S2[1, n]*S2[-2, -1, -1, -1, n] - 2*S2[-2, -1, 2, 1, n] - 
    2*S2[-2, 2, -1, 1, n] - 2*S2[-2, 2, 1, -1, n] - 2*S2[3, -1, -1, 1, n] - 
    2*S2[3, -1, 1, -1, n] - 2*S2[3, 1, -1, -1, n] + 
    6*S2[-2, -1, -1, -1, 1, n] + 4*S2[-2, -1, -1, 1, -1, n] + 
    2*S2[-2, -1, 1, -1, -1, n])/2, S2[1, -2, 1, 1, 1, n_] -> 
  -(S2[-3, n]*S2[3, n]) + S2[-3, 3, n] + S2[3, n]*S2[-2, 1, n] + 
   S2[-2, n]*(S2[4, n] - S2[3, 1, n]) - S2[4, -2, n] + S2[-4, 1, 1, n] + 
   S2[2, n]*S2[-2, 1, 1, n] + S2[-2, 3, 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] - 
   4*S2[-2, 1, 1, 1, 1, n], S2[1, -2, 1, 1, -1, n_] -> 
  (-S2[-3, n]^2 - S2[-2, n]^2*S2[2, n] + S2[2, n]*S2[4, n] + S2[6, n] + 
    2*S2[-3, n]*S2[-2, 1, n] - S2[-2, 1, n]^2 - S2[4, 2, n] + 
    2*S2[-3, 1, -2, n] + 2*S2[-2, n]*(-S2[-3, 1, n] + S2[2, -2, n] + 
      S2[-2, 1, 1, n]) - 2*S2[2, -2, -2, n] + 2*S2[-3, 1, 1, -1, n] + 
    2*S2[1, n]*S2[-2, 1, 1, -1, n] + 2*S2[-2, 1, 2, -1, n] + 
    2*S2[-2, 2, 1, -1, n] - 2*S2[-2, 1, 1, -1, 1, n] - 
    6*S2[-2, 1, 1, 1, -1, n])/2, S2[1, -2, 1, -1, 1, n_] -> 
  (S2[-3, n]^2 + 2*S2[-4, n]*S2[-2, n] + S2[-2, n]^2*S2[2, n] - 
    S2[2, n]*S2[4, n] + S2[6, n] - 2*S2[-4, -2, n] + 
    2*S2[-2, n]*S2[-3, 1, n] + S2[-2, 1, n]^2 - 2*S2[-2, n]*S2[2, -2, n] + 
    S2[4, 2, n] + 2*S2[5, 1, n] - 2*S2[-3, -2, 1, n] - 2*S2[-3, 1, -2, n] + 
    2*S2[2, -2, -2, n] + 2*S2[4, 1, 1, n] + 2*S2[-3, 1, -1, 1, n] - 
    4*S2[-2, -2, 1, 1, n] + 2*S2[1, n]*S2[-2, 1, -1, 1, n] + 
    2*S2[-2, 1, -1, 2, n] + 2*S2[-2, 2, -1, 1, n] - 
    4*S2[-2, 1, -1, 1, 1, n] - 4*S2[-2, 1, 1, -1, 1, n])/2, 
 S2[1, -2, 1, -1, -1, n_] -> (-2*S2[-6, n])/3 - S2[-2, n]^3/3 - 
   S2[-3, n]*S2[3, n] - S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] - 
   S2[-1, n]*S2[-3, -2, n] + S2[3, n]*S2[-2, 1, n] + S2[4, n]*S2[1, -1, n] + 
   S2[-2, n]^2*(-(S2[-1, n]*S2[1, n]) + S2[1, -1, n]) - S2[4, -2, n] + 
   S2[-1, n]*S2[4, 1, n] + S2[5, -1, n] + S2[-3, -2, -1, n] + 
   S2[-3, -1, -2, n] + S2[-1, n]*S2[-2, 1, -2, n] - 
   S2[-2, n]*(S2[-3, n]*S2[-1, n] - S2[-3, -1, n] - S2[-1, n]*S2[-2, 1, n] + 
     S2[3, 1, n] + S2[-2, 1, -1, n]) + S2[3, 1, -2, n] - S2[4, 1, -1, n] + 
   S2[-3, 1, -1, -1, n] + S2[1, n]*S2[-2, 1, -1, -1, n] + 
   S2[-2, 2, -1, -1, n] + 2*S2[-1, 1, -2, -2, n] - S2[-2, 1, -1, -1, 1, n] - 
   S2[-2, 1, -1, 1, -1, n] - 2*S2[-2, 1, 1, -1, -1, n], 
 S2[1, -2, -1, 1, 1, n_] -> S2[-3, -1, 1, 1, n] + S2[-2, -2, 1, 1, n] + 
   S2[1, n]*S2[-2, -1, 1, 1, n] + S2[-2, -1, 1, 2, n] + S2[-2, -1, 2, 1, n] - 
   3*S2[-2, -1, 1, 1, 1, n] - S2[-2, 1, -1, 1, 1, n], 
 S2[1, -2, -1, 1, -1, n_] -> (8*S2[-6, n] + 4*S2[-2, n]^3 + 
    9*S2[-2, n]^2*(S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
    3*S2[-2, n]*(3*S2[-3, n]*S2[-1, n] + 4*S2[4, n] - 2*S2[-3, -1, n] - 
      3*S2[-1, n]*S2[-2, 1, n] + 4*S2[-2, 1, -1, n]) + 
    3*(4*S2[-3, 3, n] - 3*S2[4, n]*S2[1, -1, n] - 2*S2[5, -1, n] - 
      4*S2[-3, -2, -1, n] - 4*S2[-3, -1, -2, n] + 
      S2[-1, n]*(3*S2[1, n]*S2[4, n] + 3*S2[5, n] + 3*S2[-3, -2, n] - 
        3*S2[4, 1, n] - S2[-2, 1, -2, n]) + 2*S2[3, 1, -2, n] + 
      4*S2[4, 1, -1, n] + 2*S2[-3, -1, 1, -1, n] + 
      2*S2[1, n]*S2[-2, -1, 1, -1, n] + 2*S2[-2, -1, 2, -1, n] - 
      2*S2[-1, -2, 1, -2, n] - 6*S2[-1, 1, -2, -2, n] - 
      2*S2[-2, -1, 1, -1, 1, n] - 4*S2[-2, -1, 1, 1, -1, n] - 
      2*S2[-2, 1, -1, 1, -1, n]))/6, S2[1, -2, -1, -1, 1, n_] -> 
  S2[-6, n] + S2[-3, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 + 
   S2[-5, 1, n] - S2[-1, n]*S2[-3, -2, n] - 2*S2[-3, 3, n] - 
   (S2[-2, n]^2*(S2[-1, n]*S2[1, n] - S2[1, -1, n]))/2 + 
   (S2[4, n]*S2[1, -1, n])/2 + S2[-1, n]*S2[4, 1, n] + S2[-3, -2, -1, n] + 
   S2[-3, -1, -2, n] + S2[-2, n]*(S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
     S2[-2, 1, -1, n]) - S2[3, 1, -2, n] - S2[4, 1, -1, n] + 
   S2[-3, -1, -1, 1, n] + S2[1, n]*S2[-2, -1, -1, 1, n] + 
   S2[-2, -1, -1, 2, n] - S2[-1, -2, -2, 1, n] + S2[-1, 1, -2, -2, n] - 
   2*S2[-2, -1, -1, 1, 1, n] - S2[-2, -1, 1, -1, 1, n] - 
   S2[-2, 1, -1, -1, 1, n], S2[1, -2, -1, -1, -1, n_] -> 
  (3*S2[-4, n]*S2[-2, n] + S2[-2, n]^2*S2[2, n] + 
    S2[-2, n]*(S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
      S2[-1, -2, -1, n]) + 2*(S2[6, n] + S2[-5, -1, n] - S2[-4, -2, n] + 
      S2[3, n]*S2[-2, -1, n] - S2[3, -2, -1, n] + S2[4, -1, -1, n] + 
      S2[-3, -1, -1, -1, n] - S2[-2, -2, -1, -1, n] + 
      S2[1, n]*S2[-2, -1, -1, -1, n] - S2[-2, -1, -1, -1, 1, n] - 
      S2[-2, -1, -1, 1, -1, n] - S2[-2, -1, 1, -1, -1, n] - 
      S2[-2, 1, -1, -1, -1, n]))/2, S2[-1, 2, 1, 1, 1, n_] -> 
  S2[-6, n] + S2[-4, n]*S2[2, n] + S2[-5, 1, n] - S2[-4, 2, n] + 
   S2[-3, n]*S2[2, 1, n] + S2[-4, 1, 1, n] - S2[-3, 2, 1, n] + 
   S2[-2, n]*S2[2, 1, 1, n] + S2[-3, 1, 1, 1, n] - S2[-2, 2, 1, 1, n] + 
   S2[-1, n]*S2[2, 1, 1, 1, n] - S2[2, -1, 1, 1, 1, n] - 
   S2[2, 1, -1, 1, 1, n] - S2[2, 1, 1, -1, 1, n] - S2[2, 1, 1, 1, -1, n], 
 S2[-1, 2, 1, 1, -1, n_] -> S2[-3, n]^2/2 - S2[-4, n]*S2[-2, n] - 
   S2[2, n]^3/6 + S2[3, n]^2/2 + (3*S2[2, n]*S2[4, n])/2 + (5*S2[6, n])/3 + 
   S2[-5, -1, n] + S2[-4, -2, n] + S2[2, n]*S2[-3, -1, n] - 
   S2[3, n]*S2[-2, -1, n] + S2[-2, n]*S2[2, -2, n] + S2[3, n]*S2[2, 1, n] + 
   S2[-2, -1, n]*S2[2, 1, n] - S2[2, 1, n]^2/2 + S2[-2, n]*S2[3, -1, n] - 
   (3*S2[4, 2, n])/2 + S2[5, 1, n] + S2[-4, 1, -1, n] - S2[-3, -1, 2, n] - 
   S2[-3, 2, -1, n] - (S2[2, n]*(S2[-2, n]^2 + S2[4, n] + 
      2*(S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n])))/2 - S2[2, -2, -2, n] + S2[2, n]*S2[2, 1, 1, n] - 
   S2[2, 3, 1, n] - S2[3, -1, -2, n] - S2[3, 2, 1, n] + S2[-3, 1, 1, -1, n] + 
   S2[-2, -1, 1, 2, n] - S2[-2, 2, 1, -1, n] + S2[-1, n]*S2[2, 1, 1, -1, n] - 
   S2[2, -1, 1, 1, -1, n] - S2[2, 1, -1, 1, -1, n] - 
   2*S2[2, 1, 1, -1, -1, n], S2[-1, 2, 1, -1, 1, n_] -> 
  S2[-3, n]^2/2 + 2*S2[-4, n]*S2[-2, n] + S2[2, n]^3/6 - S2[3, n]^2 + 
   (S2[2, n]*S2[4, n])/2 + (11*S2[6, n])/6 - 2*S2[-4, -2, n] + 
   S2[-2, n]*S2[-3, 1, n] + 2*S2[3, n]*S2[-2, -1, n] - 
   S2[-2, n]*S2[2, -2, n] + S2[3, n]*S2[2, 1, n] - 
   S2[-2, -1, n]*S2[2, 1, n] + S2[2, 1, n]^2/2 - 2*S2[-2, n]*S2[3, -1, n] - 
   S2[4, 2, n]/2 + 2*S2[5, 1, n] + S2[-4, -1, 1, n] - S2[-3, -2, 1, n] - 
   S2[-3, 1, -2, n] + S2[2, n]*(S2[-2, n]^2 + S2[4, n] + 
     2*(S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
       S2[-1, -2, 1, n])) + S2[2, -2, -2, n] + S2[-2, n]*S2[2, 1, -1, n] + 
   2*S2[3, -1, -2, n] - S2[3, 2, 1, n] + S2[4, 1, 1, n] + 
   S2[-3, 1, -1, 1, n] - 2*S2[-2, -1, 1, 2, n] - S2[-2, -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] - 
   S2[2, -1, 1, -1, 1, n] - 2*S2[2, 1, -1, -1, 1, n] - 
   S2[2, 1, -1, 1, -1, n], S2[-1, 2, 1, -1, -1, n_] -> 
  S2[-6, n] + (3*S2[-4, n]*S2[2, n])/2 + (S2[-2, n]*S2[2, n]^2)/2 - 
   S2[-1, n]*S2[1, n]*S2[2, n]^2 - S2[-3, n]*S2[3, n] + S2[-2, n]*S2[4, n] - 
   S2[-1, n]*S2[1, n]*S2[4, n] - S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] + 
   S2[-3, n]*S2[-2, -1, n] + (S2[-1, n]*S2[2, n]*S2[-2, -1, n])/2 + 
   S2[2, n]^2*S2[1, -1, n] + S2[4, n]*S2[1, -1, n] - 
   (S2[2, n]*S2[2, -2, n])/2 + S2[-3, n]*S2[2, 1, n] + 
   2*S2[-1, n]*S2[2, n]*S2[2, 1, n] + (3*S2[2, n]*S2[3, -1, n])/2 - 
   2*S2[-1, n]*S2[3, 2, n] - S2[4, -2, n] + 2*S2[-1, n]*S2[4, 1, n] + 
   2*S2[5, -1, n] + S2[-4, -1, -1, n] - S2[-3, -2, -1, n] + S2[-3, 1, 2, n] - 
   2*S2[-2, 2, 2, n] - (S2[2, n]*S2[-1, -2, -1, n])/2 - 
   S2[2, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 2, 1, n] + S2[3, -1, 2, n] + 
   S2[3, 2, -1, n] - S2[4, 1, -1, n] + S2[-3, 1, -1, -1, n] - 
   S2[-2, -1, -1, 2, n] - S2[-2, -1, 2, -1, n] - S2[-2, 2, -1, -1, n] + 
   2*S2[-1, 1, 2, 2, n] + S2[-1, n]*S2[2, 1, -1, -1, n] - 
   S2[2, -1, 1, -1, -1, n] - 3*S2[2, 1, -1, -1, -1, n], 
 S2[-1, 2, -1, 1, 1, n_] -> -S2[-3, n]^2 - S2[-4, n]*S2[-2, n] - 
   (S2[-2, n]^2*S2[2, n])/2 + S2[3, n]^2/2 + (S2[2, n]*S2[4, n])/2 - 
   S2[6, n]/2 + S2[-4, -2, n] - S2[2, n]*S2[-3, -1, n] - 
   S2[-2, n]*S2[-3, 1, n] - S2[3, n]*S2[-2, -1, n] - 
   S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-2, n]*S2[2, -2, n] + 
   S2[-3, n]*S2[2, -1, n] + S2[-2, n]*S2[1, n]*S2[2, -1, n] + 
   2*S2[-2, n]*S2[3, -1, n] - S2[2, n]*S2[3, 1, n] - S2[4, 2, n] - 
   S2[5, 1, n] + S2[-3, -2, 1, n] + S2[-3, -1, 2, n] + S2[-3, 1, -2, n] + 
   S2[2, n]*S2[-2, 1, -1, n] + S2[2, n]*S2[-1, -2, 1, n] - 
   S2[-2, n]*S2[1, 2, -1, n] - S2[-2, n]*S2[2, 1, -1, n] + S2[2, 3, 1, n] - 
   S2[3, -1, -2, n] + S2[-3, -1, 1, 1, n] + S2[-2, -1, 1, 2, n] + 
   S2[-2, -1, 2, 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[2, -1, 1, -1, 1, n] - 
   S2[2, -1, 1, 1, -1, n], S2[-1, 2, -1, 1, -1, n_] -> 
  3*S2[-6, n] + S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
   (3*S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 + 3*S2[-3, n]*S2[3, n] + 
   S2[-1, n]*S2[2, n]*S2[3, n] + (3*S2[-1, n]*S2[1, n]*S2[4, n])/2 + 
   S2[-1, n]*S2[5, n] + S2[-4, 2, n] + S2[-2, n]*S2[-3, -1, n] - 
   2*S2[-3, 3, n] - 2*S2[-3, n]*S2[-2, -1, n] - 
   S2[-1, n]*S2[2, n]*S2[-2, -1, n] - (3*S2[2, n]^2*S2[1, -1, n])/2 - 
   (3*S2[4, n]*S2[1, -1, n])/2 - S2[2, n]*S2[2, -2, n] + 
   S2[-2, -1, n]*S2[2, -1, n] - 2*S2[-1, n]*S2[2, n]*S2[2, 1, n] - 
   S2[2, n]*S2[3, -1, n] + 2*S2[-1, n]*S2[3, 2, n] - 
   2*S2[-1, n]*S2[4, 1, n] - S2[5, -1, n] + S2[-3, -2, -1, n] - 
   S2[-3, -1, -2, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[-1, -2, -1, n] + 
   2*S2[2, n]*S2[2, 1, -1, n] + S2[-1, n]*S2[2, 2, 1, n] - 
   3*S2[3, -1, 2, n] - 3*S2[3, 2, -1, n] + 2*S2[4, 1, -1, n] + 
   S2[-3, -1, 1, -1, n] + 2*S2[-2, -1, -1, 2, n] + S2[-2, -1, 2, -1, n] - 
   3*S2[-1, 1, 2, 2, n] - S2[-1, 2, 1, 2, n] + 
   S2[-1, n]*S2[2, -1, 1, -1, n] - 2*S2[2, -1, -1, 1, -1, n] - 
   2*S2[2, -1, 1, -1, -1, n], S2[-1, 2, -1, -1, 1, n_] -> 
  (-4*S2[-6, n] + 2*S2[-4, n]*S2[2, n] - 3*S2[-2, n]*S2[2, n]^2 - 
    2*S2[-1, n]*S2[1, n]*S2[2, n]^2 - 8*S2[-3, n]*S2[3, n] - 
    S2[-2, n]*S2[4, n] - 2*S2[-1, n]*S2[1, n]*S2[4, n] + 4*S2[-5, 1, n] - 
    8*S2[-4, 2, n] - 2*S2[-2, n]*S2[-3, -1, n] + 4*S2[2, n]*S2[-3, 1, n] + 
    8*S2[-3, 3, n] + 4*S2[-3, n]*S2[-2, -1, n] + 2*S2[-1, n]*S2[2, n]*
     S2[-2, -1, n] + 2*S2[2, n]^2*S2[1, -1, n] + 2*S2[4, n]*S2[1, -1, n] + 
    6*S2[2, n]*S2[2, -2, n] + 2*S2[-2, n]*S2[-1, n]*S2[2, -1, n] + 
    4*S2[3, n]*S2[2, -1, n] - 4*S2[-2, -1, n]*S2[2, -1, n] + 
    4*S2[-1, n]*S2[2, n]*S2[2, 1, n] - 2*S2[2, n]*S2[3, -1, n] - 
    4*S2[-1, n]*S2[3, 2, n] + 4*S2[4, -2, n] + 4*S2[-1, n]*S2[4, 1, n] + 
    4*S2[-3, -1, -2, n] - 4*S2[-3, 1, 2, n] + 4*S2[-2, 2, 2, n] - 
    2*S2[2, n]*S2[-1, -2, -1, n] - 2*S2[-2, n]*S2[-1, 2, -1, n] - 
    4*S2[2, n]*S2[2, 1, -1, n] + 8*S2[3, -1, 2, n] + 4*S2[3, 2, -1, n] - 
    4*S2[4, 1, -1, n] + 4*S2[-3, -1, -1, 1, n] - 4*S2[-2, -1, -1, 2, n] + 
    4*S2[-1, 1, 2, 2, n] - 4*S2[-1, 2, 2, 1, n] + 
    4*S2[-1, n]*S2[2, -1, -1, 1, n] - 12*S2[2, -1, -1, -1, 1, n] - 
    4*S2[2, -1, -1, 1, -1, n])/4, S2[-1, 2, -1, -1, -1, n_] -> 
  S2[2, n]^3/4 + S2[6, n] + S2[-5, -1, n] + S2[-3, n]*S2[2, -1, n] - 
   S2[4, 2, n] - S2[-3, 2, -1, n] + 
   (S2[2, n]*(5*S2[4, n] + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
        S2[-1, 2, -1, n])))/4 + S2[4, -1, -1, n] + S2[-3, -1, -1, -1, n] + 
   S2[-1, n]*S2[2, -1, -1, -1, n] - S2[2, 2, -1, -1, n] - 
   4*S2[2, -1, -1, -1, -1, n], S2[-1, 1, 2, 1, 1, n_] -> 
  -S2[-6, n] - S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
   S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + S2[-1, n]*S2[5, n] + 
   2*S2[-4, 2, n] + S2[2, n]*S2[-3, 1, n] - S2[3, n]*S2[-2, 1, n] - 
   S2[2, n]*S2[2, -2, n] - 2*S2[-3, n]*S2[2, 1, n] + 
   S2[-1, n]*S2[2, n]*S2[2, 1, n] + S2[-2, 1, n]*S2[2, 1, n] - 
   S2[2, -1, n]*S2[2, 1, n] - S2[2, n]*S2[3, -1, n] + 
   2*S2[-2, n]*S2[3, 1, n] - S2[-1, n]*S2[3, 2, n] + S2[4, -2, n] + 
   S2[-1, n]*S2[4, 1, n] - S2[5, -1, n] - S2[-4, 1, 1, n] - S2[-3, 1, 2, n] + 
   2*S2[-3, 2, 1, n] - S2[2, n]*S2[-2, 1, 1, n] - S2[-2, 2, 2, n] - 
   S2[-2, 3, 1, n] - 2*S2[-2, n]*S2[2, 1, 1, n] + 
   S2[-1, n]*S2[1, n]*S2[2, 1, 1, n] - S2[1, -1, n]*S2[2, 1, 1, n] + 
   S2[3, -1, 2, n] - S2[3, 1, -2, n] + S2[-1, n]*S2[3, 1, 1, n] + 
   S2[3, 2, -1, n] - S2[4, -1, 1, n] - S2[4, 1, -1, n] + S2[-2, 1, 1, 2, n] + 
   2*S2[-2, 2, 1, 1, n] - S2[-1, 2, 2, 1, n] + S2[2, -2, 1, 1, n] - 
   3*S2[-1, n]*S2[2, 1, 1, 1, n] - S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n] - 
   S2[3, 1, 1, -1, n] + S2[2, 1, -1, 1, 1, n] + 2*S2[2, 1, 1, -1, 1, n] + 
   3*S2[2, 1, 1, 1, -1, n], S2[-1, 1, 2, 1, -1, n_] -> 
  -2*S2[-3, n]^2 + 4*S2[-4, n]*S2[-2, n] + S2[-2, n]^2*S2[2, n] - 
   (S2[-1, n]^2*S2[2, n]^2)/2 + S2[2, n]^3/2 + S2[3, n]^2/2 - 
   (S2[-1, n]^2*S2[4, n])/2 - (3*S2[2, n]*S2[4, n])/2 - S2[6, n]/2 - 
   4*S2[-4, -2, n] - 2*S2[2, n]*S2[-3, -1, n] - 2*S2[-2, n]*S2[-3, 1, n] - 
   S2[-1, n]*S2[-3, 2, n] + 2*S2[3, n]*S2[-2, -1, n] + 
   2*S2[-3, n]*S2[-2, 1, n] + 2*S2[-1, n]*S2[2, n]*S2[-2, 1, n] - 
   2*S2[-2, n]*S2[2, -2, n] + S2[-1, n]*S2[2, n]*S2[2, -1, n] - 
   2*S2[3, n]*S2[2, 1, n] - 2*S2[-2, -1, n]*S2[2, 1, n] + S2[2, 1, n]^2 + 
   3*S2[2, n]*S2[3, 1, n] + S2[-1, n]*S2[4, -1, n] + 3*S2[4, 2, n] - 
   S2[5, 1, n] + 2*S2[-3, -1, 2, n] + 2*S2[-3, 1, -2, n] + 
   2*S2[-3, 2, -1, n] - 2*S2[2, n]*S2[-1, -2, 1, n] + 
   S2[-1, n]*S2[-1, 2, 2, n] + 2*S2[2, -2, -2, n] + 
   S2[-1, n]*S2[2, 1, -2, n] + S2[-1, n]*S2[1, n]*S2[2, 1, -1, n] - 
   S2[1, -1, n]*S2[2, 1, -1, n] - 2*S2[2, n]*S2[2, 1, 1, n] + 
   S2[2, 3, 1, n] - S2[3, -2, -1, n] + S2[-1, n]*S2[3, 1, -1, n] + 
   S2[3, 2, 1, n] - 2*S2[-2, -1, 1, 2, n] - 2*S2[-2, 1, -1, 2, n] - 
   2*S2[-2, 1, 2, -1, n] + S2[-2, 2, 1, -1, n] - 
   S2[-1, n]*S2[2, 1, -1, 1, n] - 2*S2[-1, n]*S2[2, 1, 1, -1, n] - 
   2*S2[2, 2, -1, -1, n] - S2[3, -1, 1, -1, n] - 2*S2[3, 1, -1, -1, n] + 
   2*S2[2, 1, -1, 1, -1, n] + 4*S2[2, 1, 1, -1, -1, n], 
 S2[-1, 1, 2, -1, 1, n_] -> S2[-3, n]^2/2 - 4*S2[-4, n]*S2[-2, n] + 
   2*S2[-5, n]*S2[-1, n] - S2[-2, n]^2*S2[2, n] + S2[-1, n]^2*S2[2, n]^2 - 
   S2[2, n]^3/3 + S2[3, n]^2/2 + S2[-1, n]^2*S2[4, n] - 2*S2[2, n]*S2[4, n] - 
   (11*S2[6, n])/3 - 2*S2[-5, -1, n] + 4*S2[-4, -2, n] + 
   S2[-1, n]*S2[-4, 1, n] + S2[-2, n]*S2[-3, 1, n] - 
   2*S2[3, n]*S2[-2, -1, n] - 2*S2[-1, n]*S2[2, n]*S2[-2, 1, n] + 
   S2[-2, n]*S2[2, -2, n] + S2[-1, n]*S2[1, n]*S2[2, -2, n] - 
   S2[1, -1, n]*S2[2, -2, n] + S2[-3, n]*(2*S2[-1, n]*S2[2, n] - 
     2*S2[-2, 1, n] - S2[2, -1, n]) - S2[-2, n]*S2[1, n]*S2[2, -1, n] + 
   S2[-1, n]*S2[1, n]^2*S2[2, -1, n] - S2[-1, n]*S2[2, n]*S2[2, -1, n] + 
   S2[-2, 1, n]*S2[2, -1, n] - S2[1, n]*S2[1, -1, n]*S2[2, -1, n] - 
   S2[2, -1, n]^2/2 + S2[-2, n]*S2[-1, n]*S2[2, 1, n] - 
   S2[3, n]*S2[2, 1, n] + S2[-2, -1, n]*S2[2, 1, n] - S2[2, 1, n]^2/2 + 
   S2[-1, n]*S2[1, n]*S2[3, -1, n] - S2[1, -1, n]*S2[3, -1, n] - 
   2*S2[2, n]*S2[3, 1, n] - S2[-1, n]*S2[4, -1, n] + S2[4, 2, n] - 
   2*S2[5, 1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n] + S2[-3, -2, 1, n] - 
   S2[-3, 1, -2, n] + S2[-3, 2, -1, n] - S2[-1, n]*S2[-2, 2, 1, n] + 
   2*S2[2, n]*S2[-1, -2, 1, n] - 2*S2[-1, n]*S2[-1, 2, 2, n] + 
   S2[-2, n]*S2[1, 2, -1, n] - S2[-1, n]*S2[1, n]*S2[1, 2, -1, n] + 
   S2[1, -1, n]*S2[1, 2, -1, n] - S2[2, -2, -2, n] - 
   S2[-1, n]*S2[2, 1, -2, n] - S2[-1, n]*S2[1, n]*S2[2, 1, -1, n] + 
   S2[1, -1, n]*S2[2, 1, -1, n] + S2[3, -2, -1, n] + 
   S2[-1, n]*S2[3, -1, 1, n] + 2*S2[3, 2, 1, n] - S2[4, -1, -1, n] - 
   S2[4, 1, 1, n] + 2*S2[-2, -1, 1, 2, n] + S2[-2, -1, 2, 1, n] + 
   2*S2[-2, 1, -1, 2, n] + S2[-2, 1, 2, -1, n] + 2*S2[-2, 2, -1, 1, n] + 
   S2[-2, 2, 1, -1, n] - 2*S2[-1, n]*S2[2, -1, 1, 1, n] - 
   S2[-1, n]*S2[2, 1, -1, 1, n] + 2*S2[2, 2, -1, -1, n] + 
   2*S2[2, 2, 1, 1, n] - 2*S2[3, -1, -1, 1, n] - S2[3, -1, 1, -1, n] + 
   S2[2, -1, 1, -1, 1, n] + 2*S2[2, -1, 1, 1, -1, n] + 
   2*S2[2, 1, -1, -1, 1, n] + S2[2, 1, -1, 1, -1, n], 
 S2[-1, 1, 2, -1, -1, n_] -> -3*S2[-6, n] - 2*S2[-4, n]*S2[2, n] - 
   S2[-2, n]*S2[2, n]^2 + (S2[-1, n]*S2[1, n]*S2[2, n]^2)/4 - 
   S2[-3, n]*S2[3, n] - S2[-2, n]*S2[4, n] + (S2[-1, n]*S2[1, n]*S2[4, n])/
    4 + S2[-1, n]*S2[-4, -1, n] + S2[-4, 2, n] - S2[-2, n]*S2[-3, -1, n] + 
   (S2[-1, n]*S2[1, n]*S2[-3, -1, n])/2 + S2[2, n]*S2[-3, 1, n] + 
   S2[-3, 3, n] - (S2[2, n]^2*S2[1, -1, n])/4 - (S2[4, n]*S2[1, -1, n])/4 - 
   (S2[-3, -1, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
   S2[-2, n]*S2[-1, n]*S2[2, -1, n] + (S2[-1, n]^2*S2[1, n]*S2[2, -1, n])/2 - 
   S2[-2, -1, n]*S2[2, -1, n] - (S2[-1, n]*S2[1, -1, n]*S2[2, -1, n])/2 - 
   S2[-3, n]*S2[2, 1, n] - S2[-1, n]*S2[2, n]*S2[2, 1, n] - 
   S2[2, n]*S2[3, -1, n] + S2[4, -2, n] - S2[-1, n]*S2[4, 1, n] - 
   2*S2[5, -1, n] - 2*S2[-4, -1, -1, n] + S2[-3, -2, -1, n] + 
   S2[-3, -1, -2, n] - 2*S2[-3, 1, 2, n] - S2[-1, n]*S2[-2, 2, -1, n] + 
   S2[-2, 2, 2, n] - (S2[-1, n]*S2[1, n]*S2[-1, 2, -1, n])/2 + 
   (S2[1, -1, n]*S2[-1, 2, -1, n])/2 + 2*S2[-1, n]*S2[2, 2, 1, n] + 
   S2[-1, n]*S2[3, -1, -1, n] + 2*S2[3, -1, 2, n] + 2*S2[3, 2, -1, n] + 
   S2[-2, -1, 2, -1, n] + 3*S2[-2, 2, -1, -1, n] + S2[-1, 2, 1, 2, n] - 
   S2[-1, n]*S2[2, -1, -1, 1, n] - S2[-1, n]*S2[2, -1, 1, -1, n] - 
   S2[-1, n]*S2[2, 1, -1, -1, n] - 3*S2[3, -1, -1, -1, n] + 
   S2[2, -1, -1, 1, -1, n] + 2*S2[2, -1, 1, -1, -1, n] + 
   3*S2[2, 1, -1, -1, -1, n], S2[-1, 1, 1, 2, 1, n_] -> 
  2*S2[-6, n] + S2[-1, n]*S2[1, n]*S2[2, n]^2 + S2[-1, n]*S2[1, n]*S2[4, n] - 
   S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] - S2[-3, 3, n] + 
   2*S2[3, n]*S2[-2, 1, n] - S2[2, n]^2*S2[1, -1, n] - 
   S2[4, n]*S2[1, -1, n] + S2[2, n]*S2[2, -2, n] - 
   S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] + 
   S2[-3, n]*S2[2, 1, n] + (S2[-1, n]*S2[1, n]^2*S2[2, 1, n])/2 - 
   (3*S2[-1, n]*S2[2, n]*S2[2, 1, n])/2 - S2[-2, 1, n]*S2[2, 1, n] - 
   S2[1, n]*S2[1, -1, n]*S2[2, 1, n] + S2[2, -1, n]*S2[2, 1, n] + 
   S2[-1, n]*S2[1, n]*S2[3, 1, n] - S2[1, -1, n]*S2[3, 1, n] + 
   2*S2[-1, n]*S2[3, 2, n] - S2[4, -2, n] - S2[-1, n]*S2[4, 1, n] + 
   S2[-4, 1, 1, n] + 2*S2[-3, 1, 2, n] - S2[-3, 2, 1, n] + 
   2*S2[2, n]*S2[-2, 1, 1, n] + 2*S2[-2, 2, 2, n] + S2[-2, 3, 1, n] + 
   S2[2, 1, n]*S2[1, 1, -1, n] + S2[2, n]*S2[1, 2, -1, n] + 
   S2[2, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[1, n]*S2[2, 1, 1, n] + 
   2*S2[1, -1, n]*S2[2, 1, 1, n] + S2[-2, n]*(-S2[2, n]^2 + S2[4, n] - 
     2*S2[3, 1, n] + S2[2, 1, 1, n]) - 2*S2[3, -1, 2, n] + S2[3, 1, -2, n] - 
   2*S2[-1, n]*S2[3, 1, 1, n] - 2*S2[3, 2, -1, n] + S2[4, 1, -1, n] - 
   2*S2[-2, 1, 1, 2, n] - S2[-2, 2, 1, 1, n] - S2[-1, 1, 2, 2, n] - 
   S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n] - S2[2, -2, 1, 1, n] + 
   3*S2[-1, n]*S2[2, 1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
   2*S2[3, 1, 1, -1, n] - S2[2, 1, 1, -1, 1, n] - 3*S2[2, 1, 1, 1, -1, n], 
 S2[-1, 1, 1, 2, -1, n_] -> S2[-3, n]^2/2 - S2[-4, n]*S2[-2, n] - 
   S2[-5, n]*S2[-1, n] - (S2[-2, n]^2*S2[2, n])/2 - 
   S2[-3, n]*S2[-1, n]*S2[2, n] - (S2[-1, n]^2*S2[2, n]^2)/2 - S2[2, n]^3/6 - 
   (S2[-1, n]^2*S2[4, n])/2 + S2[2, n]*S2[4, n] + (7*S2[6, n])/6 + 
   S2[-5, -1, n] + S2[-4, -2, n] - S2[-1, n]*S2[-4, 1, n] + 
   S2[2, n]*S2[-3, -1, n] - S2[3, n]*S2[-2, -1, n] - 
   S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-2, n]*S2[2, -2, n] - 
   (S2[-1, n]*S2[1, n]^2*S2[2, -1, n])/2 + (S2[-1, n]*S2[2, n]*S2[2, -1, n])/
    2 - S2[2, -1, n]^2/2 - S2[-2, n]*S2[-1, n]*S2[2, 1, n] + 
   S2[3, n]*S2[2, 1, n] + S2[-2, -1, n]*S2[2, 1, n] - S2[2, 1, n]^2/2 + 
   S2[-1, n]*S2[3, -2, n] + S2[-2, n]*S2[3, -1, n] - 2*S2[2, n]*S2[3, 1, n] + 
   S2[-1, n]*S2[4, -1, n] - S2[4, 2, n] + S2[-4, 1, -1, n] - 
   S2[-3, -1, 2, n] - S2[-3, 2, -1, n] + S2[2, n]*S2[-2, 1, -1, n] + 
   S2[-1, n]*S2[-2, 2, 1, n] + S2[2, n]*S2[-1, -2, 1, n] + 
   S2[-1, n]*S2[-1, 2, 2, n] + S2[2, -1, n]*S2[1, 1, -1, n] + 
   S2[-1, n]*S2[1, n]*S2[1, 2, -1, n] - S2[1, -1, n]*S2[1, 2, -1, n] - 
   S2[2, -2, -2, n] + S2[2, n]*S2[2, 1, 1, n] - S2[3, -2, -1, n] - 
   S2[3, -1, -2, n] - S2[-1, n]*S2[3, -1, 1, n] - S2[-1, n]*S2[3, 1, -1, n] - 
   S2[4, -1, -1, n] + S2[-2, -1, 1, 2, n] + S2[-2, 1, 2, -1, n] - 
   S2[-2, 2, 1, -1, n] + S2[-1, n]*S2[2, -1, 1, 1, n] + 
   S2[-1, n]*S2[2, 1, -1, 1, n] + S2[-1, n]*S2[2, 1, 1, -1, n] + 
   S2[3, -1, 1, -1, n] + 2*S2[3, 1, -1, -1, n] - S2[2, -1, 1, 1, -1, n] - 
   S2[2, 1, -1, 1, -1, n] - 2*S2[2, 1, 1, -1, -1, n], 
 S2[-1, 1, 1, 1, 2, n_] -> -S2[-6, n] - S2[-3, n]*S2[3, n] + S2[-3, 3, n] - 
   (S2[1, n]^2*S2[2, n]*S2[1, -1, n])/2 + (S2[2, n]^2*S2[1, -1, n])/2 - 
   S2[1, n]*S2[3, n]*S2[1, -1, n] + S2[1, n]*S2[1, -1, n]*S2[2, 1, n] + 
   S2[1, -1, n]*S2[3, 1, n] - S2[-3, 1, 2, n] - S2[-2, 2, 2, n] + 
   S2[1, n]*S2[2, n]*S2[1, 1, -1, n] + S2[3, n]*S2[1, 1, -1, n] - 
   S2[2, 1, n]*S2[1, 1, -1, n] - S2[1, -1, n]*S2[2, 1, 1, n] + 
   S2[3, -1, 2, n] + S2[3, 2, -1, n] + S2[-2, 1, 1, 2, n] + 
   S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n] - S2[2, n]*S2[1, 1, 1, -1, n] + 
   (S2[-1, n]*(S2[1, n]^3*S2[2, n] - S2[2, n]*(S2[3, n] - 3*S2[2, 1, n]) + 
      3*S2[1, n]^2*(S2[3, n] - S2[2, 1, n]) - 
      3*S2[1, n]*(S2[2, n]^2 + 2*S2[3, 1, n] - 2*S2[2, 1, 1, n]) - 
      6*(S2[3, 2, n] - S2[3, 1, 1, n] + S2[2, 1, 1, 1, n])))/6 - 
   S2[3, 1, 1, -1, n] + S2[2, 1, 1, 1, -1, n], 
 S2[-1, 1, 1, 1, -2, n_] -> -S2[-3, n]^2/2 - (S2[-2, n]^2*S2[2, n])/2 + 
   S2[3, n]^2/2 + (S2[2, n]*S2[4, n])/2 + S2[6, n] - S2[-1, n]*S2[-4, 1, n] - 
   S2[-1, n]*S2[1, n]*S2[-3, 1, n] + S2[-1, n]*S2[2, n]*S2[-2, 1, n] + 
   S2[-2, 1, n]^2/2 + S2[-3, 1, n]*S2[1, -1, n] + 
   S2[-1, n]*S2[1, n]*S2[2, -2, n] - S2[1, -1, n]*S2[2, -2, n] - 
   S2[4, 2, n]/2 + S2[-4, 1, -1, n] + S2[-3, 1, -2, n] + 
   S2[-1, n]*S2[-3, 1, 1, n] + S2[-3, 2, -1, n] + 
   S2[-1, n]*S2[1, n]*S2[-2, 1, 1, n] - S2[1, -1, n]*S2[-2, 1, 1, n] + 
   S2[-1, n]*S2[-2, 2, 1, n] + 
   (S2[-3, n]*(S2[-1, n]*(S2[1, n]^2 - S2[2, n]) + 
      2*(S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n])))/2 - 
   (S2[-2, 1, n]*(S2[-1, n]*(S2[1, n]^2 + S2[2, n]) + 
      2*(S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n])))/2 - S2[2, -2, -2, n] + S2[-1, n]*S2[2, 1, -2, n] - 
   S2[3, -2, -1, n] - S2[3, -1, -2, n] - S2[-3, 1, 1, -1, n] - 
   S2[-1, n]*S2[-2, 1, 1, 1, n] - S2[-2, 1, 2, -1, n] - S2[-2, 2, 1, -1, n] + 
   (S2[-2, n]*(-6*S2[-3, 1, n] - 3*S2[1, n]^2*S2[1, -1, n] + 
      3*S2[2, n]*S2[1, -1, n] + 6*S2[2, -2, n] - 6*S2[1, n]*S2[2, -1, n] + 
      S2[-1, n]*(S2[1, n]^3 - 3*S2[1, n]*S2[2, n] + 2*S2[3, n] - 
        6*S2[2, 1, n]) + 6*S2[-2, 1, 1, n] + 6*S2[1, n]*S2[1, 1, -1, n] + 
      6*S2[1, 2, -1, n] + 6*S2[2, 1, -1, n] - 6*S2[1, 1, 1, -1, n]))/6 + 
   S2[-2, 1, 1, 1, -1, n], S2[-1, 1, 1, -1, 2, n_] -> 
  S2[-3, n]^2/2 + 2*S2[-5, n]*S2[-1, n] + S2[-1, n]^2*S2[2, n]^2 - 
   S2[2, n]^3/6 - S2[3, n]^2/2 + S2[-1, n]^2*S2[4, n] - 
   (S2[2, n]*S2[4, n])/2 - (4*S2[6, n])/3 - 2*S2[-5, -1, n] + S2[-4, -2, n] - 
   (S2[2, n]*S2[-3, -1, n])/2 + S2[-2, n]*S2[-3, 1, n] - 
   S2[-1, n]*S2[1, n]*S2[-3, 1, n] + S2[-3, 1, n]*S2[1, -1, n] - 
   (S2[2, n]*S2[1, -1, n]^2)/2 - S2[-4, n]*(S2[-2, n] - S2[-1, n]*S2[1, n] + 
     S2[1, -1, n]) + (S2[-1, n]*S2[1, n]^2*S2[2, -1, n])/2 - 
   2*S2[-1, n]*S2[2, n]*S2[2, -1, n] + S2[2, -1, n]^2/2 + 
   S2[-2, n]*S2[-1, n]*S2[2, 1, n] - S2[-2, n]*S2[3, -1, n] + 
   S2[-1, n]*S2[1, n]*S2[3, -1, n] - S2[1, -1, n]*S2[3, -1, n] - 
   S2[-1, n]*S2[4, -1, n] + S2[4, 2, n]/2 - S2[-3, 1, -2, n] + 
   S2[-1, n]*S2[-3, 1, 1, n] + S2[-3, 2, -1, n] - S2[2, n]*S2[-2, 1, -1, n] - 
   S2[-1, n]*S2[-2, 2, 1, n] + (S2[2, n]*S2[-1, 2, -1, n])/2 - 
   2*S2[-1, n]*S2[-1, 2, 2, n] + 
   (S2[-3, n]*(S2[-1, n]*(S2[1, n]^2 + 3*S2[2, n]) - 
      2*(S2[-2, 1, n] + S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
        S2[1, 1, -1, n])))/2 + S2[-1, n]*S2[2, n]*S2[1, 1, -1, n] - 
   S2[2, -1, n]*S2[1, 1, -1, n] - S2[-1, n]*S2[1, n]*S2[1, 2, -1, n] + 
   S2[1, -1, n]*S2[1, 2, -1, n] - S2[-1, n]*S2[2, 1, -2, n] - 
   S2[-1, n]*S2[1, n]*S2[2, 1, -1, n] + S2[1, -1, n]*S2[2, 1, -1, n] + 
   S2[3, -2, -1, n] + S2[3, -1, -2, n] - S2[4, -1, -1, n] - 
   S2[-3, 1, 1, -1, n] + 2*S2[-2, 1, -1, 2, n] + S2[-2, 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] + S2[2, -1, 1, 1, -1, n], 
 S2[-1, 1, 1, -1, -2, n_] -> (-2*S2[-6, n] - S2[-2, n]^3 - 
    2*S2[-3, n]*S2[3, n] + S2[-1, n]*S2[1, n]^2*S2[3, n] + 
    S2[-1, n]*S2[2, n]*S2[3, n] - S2[-1, n]*S2[1, n]*S2[4, n] - 
    2*S2[-1, n]*S2[5, n] - 2*S2[-1, n]*S2[-3, -2, n] - 2*S2[-3, 3, n] + 
    2*S2[-3, n]*S2[-2, -1, n] - S2[-1, n]*S2[1, n]^2*S2[-2, -1, n] - 
    S2[-1, n]*S2[2, n]*S2[-2, -1, n] + 2*S2[-1, n]^2*S2[1, n]*S2[-2, 1, n] + 
    2*S2[3, n]*S2[-2, 1, n] - 2*S2[-2, -1, n]*S2[-2, 1, n] - 
    2*S2[1, n]*S2[3, n]*S2[1, -1, n] + S2[4, n]*S2[1, -1, n] + 
    2*S2[1, n]*S2[-2, -1, n]*S2[1, -1, n] - 2*S2[-1, n]*S2[-2, 1, n]*
     S2[1, -1, n] + S2[-2, n]^2*(-3*S2[-1, n]*S2[1, n] + 3*S2[1, -1, n]) - 
    2*S2[3, n]*S2[2, -1, n] + 2*S2[-2, -1, n]*S2[2, -1, n] - 
    2*S2[-1, n]*S2[3, 2, n] - 2*S2[4, -2, n] + 2*S2[-1, n]*S2[4, 1, n] + 
    2*S2[5, -1, n] + 2*S2[-3, -2, -1, n] + 4*S2[-3, -1, -2, n] + 
    2*S2[-1, n]*S2[-2, -1, 2, n] - 2*S2[-1, n]*S2[1, n]*S2[-2, 1, -1, n] + 
    2*S2[1, -1, n]*S2[-2, 1, -1, n] - 2*S2[-1, n]*S2[1, n]*S2[-1, -2, 1, n] + 
    2*S2[1, -1, n]*S2[-1, -2, 1, n] + 2*S2[3, n]*S2[1, 1, -1, n] - 
    2*S2[-2, -1, n]*S2[1, 1, -1, n] - S2[-2, n]*(4*S2[-3, n]*S2[-1, n] + 
      S2[4, n] - S2[-3, -1, n] - 6*S2[-1, n]*S2[-2, 1, n] + S2[1, -1, n]^2 + 
      S2[-1, n]*S2[2, -1, n] + 4*S2[-2, 1, -1, n] + 2*S2[-1, -2, 1, n] - 
      S2[-1, 2, -1, n] - 2*S2[-1, n]*S2[1, 1, -1, n]) + 
    2*S2[-1, n]*S2[3, 1, 1, n] + 2*S2[3, 2, -1, n] - 2*S2[4, 1, -1, n] - 
    2*S2[-1, n]*S2[-2, -1, 1, 1, n] - 2*S2[-2, -1, 2, -1, n] + 
    2*S2[-1, -2, 1, -2, n] + 6*S2[-1, 1, -2, -2, n] - 2*S2[3, 1, 1, -1, n] + 
    2*S2[-2, -1, 1, 1, -1, n])/2, S2[-1, 1, 1, -2, 1, n_] -> 
  S2[-5, n]*S2[-1, n] + 2*S2[-3, n]*S2[-1, n]*S2[2, n] + 
   S2[-2, n]*S2[-1, n]*S2[1, n]*S2[2, n] - S2[-2, n]*S2[-1, n]*S2[3, n] - 
   S2[3, n]^2/2 - S2[2, n]*S2[4, n] - S2[6, n]/2 - S2[-5, -1, n] - 
   S2[-4, -2, n] + S2[-1, n]*S2[-4, 1, n] + S2[-1, n]*S2[1, n]*S2[-3, 1, n] - 
   S2[-1, n]*S2[-3, 2, n] + S2[-3, n]*S2[-2, 1, n] + 
   (S2[-1, n]*S2[1, n]^2*S2[-2, 1, n])/2 - 
   (3*S2[-1, n]*S2[2, n]*S2[-2, 1, n])/2 + 
   S2[-4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
   S2[-2, n]*S2[2, n]*S2[1, -1, n] - S2[-3, 1, n]*S2[1, -1, n] - 
   S2[1, n]*S2[-2, 1, n]*S2[1, -1, n] - S2[-2, n]*S2[2, -2, n] - 
   S2[-1, n]*S2[1, n]*S2[2, -2, n] + S2[1, -1, n]*S2[2, -2, n] - 
   S2[-2, 1, n]*S2[2, -1, n] + 2*S2[-2, n]*S2[-1, n]*S2[2, 1, n] + 
   S2[-1, n]*S2[3, -2, n] - S2[-2, n]*S2[3, -1, n] + S2[4, 2, n] + 
   S2[5, 1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n] - S2[-3, -2, 1, n] - 
   S2[-3, 1, -2, n] - 2*S2[-1, n]*S2[-3, 1, 1, n] - S2[-3, 2, -1, n] + 
   S2[-2, n]*S2[-2, 1, 1, n] - 2*S2[-1, n]*S2[1, n]*S2[-2, 1, 1, n] + 
   2*S2[1, -1, n]*S2[-2, 1, 1, n] - 2*S2[-1, n]*S2[-2, 2, 1, n] + 
   S2[-2, 1, n]*S2[1, 1, -1, n] + 2*S2[2, -2, -2, n] - 
   2*S2[-1, n]*S2[2, 1, -2, n] + S2[3, -2, -1, n] + S2[3, -1, -2, n] + 
   S2[4, 1, 1, n] + S2[-3, 1, -1, 1, n] + 2*S2[-3, 1, 1, -1, n] - 
   2*S2[-2, -2, 1, 1, n] + 3*S2[-1, n]*S2[-2, 1, 1, 1, n] + 
   2*S2[-2, 1, 2, -1, n] + S2[-2, 2, -1, 1, n] + 2*S2[-2, 2, 1, -1, n] - 
   S2[-2, 1, 1, -1, 1, n] - 3*S2[-2, 1, 1, 1, -1, n], 
 S2[-1, 1, 1, -2, -1, n_] -> S2[-6, n]/3 + S2[-2, n]^3/6 + 
   (S2[-1, n]*S2[1, n]*S2[4, n])/2 + S2[-1, n]*S2[5, n] + 
   S2[-1, n]*S2[-4, -1, n] + S2[-4, 2, n] + S2[-1, n]*S2[-3, -2, n] + 
   S2[-1, n]*S2[1, n]*S2[-3, -1, n] + 2*S2[-3, 3, n] - 
   2*S2[-3, n]*S2[-2, -1, n] + (S2[-1, n]*S2[1, n]^2*S2[-2, -1, n])/2 + 
   (S2[-1, n]*S2[2, n]*S2[-2, -1, n])/2 - S2[-1, n]^2*S2[1, n]*S2[-2, 1, n] + 
   2*S2[-2, -1, n]*S2[-2, 1, n] + 
   (S2[-2, n]^2*(S2[-1, n]*S2[1, n] - S2[1, -1, n]))/2 - 
   (S2[4, n]*S2[1, -1, n])/2 - S2[-3, -1, n]*S2[1, -1, n] - 
   S2[1, n]*S2[-2, -1, n]*S2[1, -1, n] + S2[-1, n]*S2[-2, 1, n]*
    S2[1, -1, n] - S2[-2, -1, n]*S2[2, -1, n] - 
   S2[-1, n]*S2[1, n]*S2[3, 1, n] + S2[1, -1, n]*S2[3, 1, n] - 
   S2[-1, n]*S2[4, 1, n] - S2[5, -1, n] - 2*S2[-4, -1, -1, n] - 
   S2[-3, -2, -1, n] - 2*S2[-3, -1, -2, n] - S2[-1, n]*S2[-3, -1, 1, n] - 
   S2[-1, n]*S2[-3, 1, -1, n] - S2[-3, 1, 2, n] - 
   S2[-1, n]*S2[-2, -1, 2, n] + S2[-1, n]*S2[-2, 1, -2, n] - 
   S2[-1, n]*S2[-2, 2, -1, n] - S2[-2, 2, 2, n] + 
   S2[-1, n]*S2[1, n]*S2[-1, -2, 1, n] - S2[1, -1, n]*S2[-1, -2, 1, n] + 
   S2[-2, n]*(S2[-3, n]*S2[-1, n] + S2[4, n]/2 + S2[-3, -1, n] - 
     3*S2[-1, n]*S2[-2, 1, n] - 2*S2[3, 1, n] + S2[-2, 1, -1, n] + 
     2*S2[-1, -2, 1, n]) + S2[-2, -1, n]*S2[1, 1, -1, n] + 
   2*S2[3, 1, -2, n] + S2[4, 1, -1, n] + S2[-3, -1, 1, -1, n] + 
   2*S2[-3, 1, -1, -1, n] + S2[-1, n]*S2[-2, -1, 1, 1, n] + 
   S2[-2, -1, 2, -1, n] + S2[-1, n]*S2[-2, 1, -1, 1, n] + 
   S2[-1, n]*S2[-2, 1, 1, -1, n] + S2[-2, 1, 1, 2, n] + 
   2*S2[-2, 2, -1, -1, n] - 2*S2[-1, -2, 1, -2, n] - S2[-1, 1, -2, -2, n] - 
   S2[-2, -1, 1, 1, -1, n] - S2[-2, 1, -1, 1, -1, n] - 
   2*S2[-2, 1, 1, -1, -1, n], S2[-1, 1, -1, 2, 1, n_] -> 
  -S2[-3, n]^2/2 + 2*S2[-4, n]*S2[-2, n] - 2*S2[-5, n]*S2[-1, n] - 
   S2[-1, n]^2*S2[2, n]^2 + S2[2, n]^3/6 + S2[3, n]^2/2 - 
   S2[-1, n]^2*S2[4, n] + (3*S2[2, n]*S2[4, n])/2 + (10*S2[6, n])/3 + 
   2*S2[-5, -1, n] - S2[-4, -2, n] - S2[-1, n]*S2[-4, 1, n] - 
   S2[-2, n]*S2[-3, 1, n] + S2[-1, n]*S2[1, n]*S2[-3, 1, n] + 
   S2[-1, n]*S2[-3, 2, n] - S2[-3, 1, n]*S2[1, -1, n] + 
   S2[-2, n]*S2[2, -2, n] + S2[-2, n]*S2[1, n]*S2[2, -1, n] - 
   S2[-1, n]*S2[1, n]^2*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, -1, n] - 
   S2[-2, 1, n]*S2[2, -1, n] + S2[1, n]*S2[1, -1, n]*S2[2, -1, n] + 
   S2[2, -1, n]^2/2 + S2[-3, n]*(-2*S2[-1, n]*S2[2, n] + 2*S2[-2, 1, n] + 
     S2[2, -1, n]) - 2*S2[-2, n]*S2[-1, n]*S2[2, 1, n] + 
   2*S2[-2, n]*S2[3, -1, n] - S2[-1, n]*S2[1, n]*S2[3, -1, n] + 
   S2[1, -1, n]*S2[3, -1, n] + S2[-1, n]*S2[4, -1, n] - (3*S2[4, 2, n])/2 + 
   S2[5, 1, n] + S2[-4, 1, -1, n] - S2[-3, -2, 1, n] - 
   2*S2[-1, n]*S2[-3, 1, 1, n] - 2*S2[-3, 2, -1, n] + 
   2*S2[2, n]*S2[-2, 1, -1, n] + 2*S2[-1, n]*S2[-2, 2, 1, n] + 
   S2[2, 1, n]*S2[-1, 1, -1, n] + 2*S2[-1, n]*S2[-1, 2, 2, n] - 
   S2[-2, n]*S2[1, 2, -1, n] + S2[-1, n]*S2[1, n]*S2[1, 2, -1, n] - 
   S2[1, -1, n]*S2[1, 2, -1, n] - S2[2, -2, -2, n] + 
   S2[-1, n]*S2[2, 1, -2, n] - S2[-2, n]*S2[2, 1, -1, n] - S2[3, -2, -1, n] - 
   S2[3, -1, -2, n] + S2[4, -1, -1, n] + S2[-3, 1, -1, 1, n] + 
   2*S2[-3, 1, 1, -1, n] - 2*S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n] - 
   S2[-2, 2, -1, 1, n] - 2*S2[-2, 2, 1, -1, n] + 
   2*S2[-1, n]*S2[2, -1, 1, 1, n] + S2[-1, n]*S2[2, 1, -1, 1, n] - 
   2*S2[2, 2, -1, -1, n] - S2[2, -1, 1, -1, 1, n] - 
   2*S2[2, -1, 1, 1, -1, n] - S2[2, 1, -1, 1, -1, n], 
 S2[-1, 1, -1, 2, -1, n_] -> 3*S2[-6, n] + S2[-4, n]*S2[2, n] + 
   S2[-2, n]*S2[2, n]^2 + (3*S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 + 
   (3*S2[-1, n]*S2[1, n]*S2[4, n])/2 + S2[-1, n]*S2[5, n] + S2[-4, 2, n] + 
   2*S2[-2, n]*S2[-3, -1, n] - S2[-3, 3, n] + 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + 3*S2[3, n] - 2*S2[-2, -1, n]) - 
   (3*S2[2, n]^2*S2[1, -1, n])/2 - (3*S2[4, n]*S2[1, -1, n])/2 - 
   S2[2, n]*S2[2, -2, n] - 2*S2[-2, n]*S2[-1, n]*S2[2, -1, n] - 
   S2[-1, n]^2*S2[1, n]*S2[2, -1, n] + S2[-2, -1, n]*S2[2, -1, n] + 
   S2[-1, n]*S2[1, -1, n]*S2[2, -1, n] - 2*S2[-1, n]*S2[2, n]*S2[2, 1, n] - 
   S2[2, n]*S2[3, -1, n] + 3*S2[-1, n]*S2[3, 2, n] - 
   2*S2[-1, n]*S2[4, 1, n] - S2[-3, -2, -1, n] - 2*S2[-3, -1, -2, n] - 
   S2[-1, n]*S2[-3, -1, 1, n] - S2[-1, n]*S2[-3, 1, -1, n] - 
   S2[-1, n]*S2[-2, -1, 2, n] + S2[-1, n]*S2[-2, 2, -1, n] + 
   S2[-2, 2, 2, n] + S2[2, n]*S2[-1, -2, -1, n] + 
   S2[2, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[1, n]*S2[-1, 2, -1, n] - 
   S2[1, -1, n]*S2[-1, 2, -1, n] + 2*S2[2, n]*S2[2, 1, -1, n] - 
   3*S2[3, -1, 2, n] - 3*S2[3, 2, -1, n] + 2*S2[4, 1, -1, n] + 
   S2[-3, -1, 1, -1, n] + 2*S2[-3, 1, -1, -1, n] + 2*S2[-2, -1, -1, 2, n] + 
   S2[-2, -1, 2, -1, n] - 2*S2[-2, 2, -1, -1, n] - 3*S2[-1, 1, 2, 2, n] - 
   S2[-1, 2, 1, 2, n] + 2*S2[-1, 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*S2[2, -1, 1, -1, -1, n], S2[-1, 1, -1, 1, 2, n_] -> 
  S2[-5, n]*S2[-1, n] + (S2[-2, n]^2*S2[2, n])/2 + 
   S2[-3, n]*S2[-1, n]*S2[2, n] + S2[-2, n]*S2[-1, n]*S2[1, n]*S2[2, n] - 
   (S2[1, n]^2*S2[2, n]^2)/2 - S2[1, n]*S2[2, n]*S2[3, n] - S2[3, n]^2/2 - 
   S2[2, n]*S2[4, n] - S2[6, n]/2 - S2[-5, -1, n] - S2[-4, -2, n] - 
   (3*S2[2, n]*S2[-3, -1, n])/2 - S2[1, n]*S2[2, n]*S2[-2, -1, n] + 
   S2[-4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
   S2[-2, n]*S2[2, n]*S2[1, -1, n] + (S2[2, n]*S2[1, -1, n]^2)/2 - 
   S2[-2, n]*S2[2, -2, n] - S2[-1, n]*S2[1, n]*S2[2, -2, n] + 
   S2[1, -1, n]*S2[2, -2, n] + (S2[-1, n]*S2[2, n]*S2[2, -1, n])/2 + 
   S2[-2, n]*S2[-1, n]*S2[2, 1, n] + S2[1, n]*S2[2, n]*S2[2, 1, n] - 
   S2[-1, n]*S2[3, -2, n] - S2[-2, n]*S2[3, -1, n] - 
   S2[-1, n]*S2[1, n]*S2[3, -1, n] + S2[1, -1, n]*S2[3, -1, n] + 
   2*S2[2, n]*S2[3, 1, n] + S2[4, 2, n] - S2[-1, n]*S2[-2, 2, 1, n] - 
   S2[2, n]*S2[-1, -2, 1, n] + S2[1, n]*S2[2, n]*S2[-1, 1, -1, n] + 
   S2[3, n]*S2[-1, 1, -1, n] - S2[2, 1, n]*S2[-1, 1, -1, n] + 
   (S2[2, n]*S2[-1, 2, -1, n])/2 - 2*S2[-1, n]*S2[2, n]*S2[1, 1, -1, n] + 
   S2[2, -2, -2, n] + S2[-1, n]*S2[1, n]*S2[2, 1, -1, n] - 
   S2[1, -1, n]*S2[2, 1, -1, n] - S2[2, n]*S2[2, 1, 1, n] + 
   S2[3, -2, -1, n] + S2[3, -1, -2, n] + S2[-1, n]*S2[3, -1, 1, n] + 
   S2[-2, 2, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, -1, n] - 
   S2[-1, n]*S2[2, 1, -1, 1, n] - S2[3, -1, 1, -1, n] + 
   S2[2, 1, -1, 1, -1, n], S2[-1, 1, -1, 1, -2, n_] -> 
  (2*S2[-6, n])/3 + S2[-2, n]^3/3 + S2[-1, n]*S2[1, n]*S2[4, n] + 
   S2[-1, n]*S2[5, n] - S2[-1, n]*S2[1, n]*S2[-3, -1, n] + 
   S2[-2, n]^2*(S2[-1, n]*S2[1, n] - S2[1, -1, n]) - S2[4, n]*S2[1, -1, n] + 
   S2[-3, -1, n]*S2[1, -1, n] - S2[-1, n]*S2[4, 1, n] - S2[5, -1, n] + 
   S2[-1, n]*S2[-3, -1, 1, n] + S2[-1, n]*S2[1, n]*S2[-2, 1, -1, n] - 
   S2[1, -1, n]*S2[-2, 1, -1, n] + S2[-3, n]*S2[-1, 1, -1, n] - 
   S2[-2, 1, n]*S2[-1, 1, -1, n] + S2[4, 1, -1, n] - S2[-3, -1, 1, -1, n] - 
   S2[-1, n]*S2[-2, 1, -1, 1, n] - S2[-1, 1, -2, -2, n] + 
   (S2[-2, n]*(2*S2[-3, n]*S2[-1, n] - S2[1, n]^2*S2[2, n] + S2[4, n] - 
      5*S2[-3, -1, n] + S2[1, -1, n]^2 + S2[-1, n]*S2[2, -1, n] + 
      4*S2[3, 1, n] + 2*S2[-2, 1, -1, n] - 2*S2[-1, -2, 1, n] - 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + S2[-1, 2, -1, n] - 4*S2[-1, n]*S2[1, 1, -1, n] - 
      2*S2[2, 1, 1, n] + 4*S2[1, 1, -1, -1, n]))/2 + S2[-2, 1, -1, 1, -1, n], 
 S2[-1, 1, -1, -1, 2, n_] -> (-2*S2[-4, n]*S2[2, n] - 
    6*S2[-2, n]*S2[-1, n]^2*S2[2, n] - 2*S2[-1, n]^3*S2[1, n]*S2[2, n] - 
    S2[-1, n]*S2[1, n]*S2[2, n]^2 - 4*S2[-1, n]*S2[2, n]*S2[3, n] + 
    4*S2[-2, n]*S2[4, n] + S2[-1, n]*S2[1, n]*S2[4, n] - 
    4*S2[-2, n]*S2[-3, -1, n] - 2*S2[-1, n]*S2[1, n]*S2[-3, -1, n] - 
    4*S2[2, n]*S2[-3, 1, n] + 2*S2[-1, n]*S2[2, n]*S2[-2, -1, n] + 
    2*S2[-1, n]^2*S2[2, n]*S2[1, -1, n] + S2[2, n]^2*S2[1, -1, n] - 
    S2[4, n]*S2[1, -1, n] + 2*S2[-3, -1, n]*S2[1, -1, n] - 
    6*S2[2, n]*S2[2, -2, n] + 4*S2[-2, n]*S2[-1, n]*S2[2, -1, n] + 
    2*S2[-1, n]^2*S2[1, n]*S2[2, -1, n] - 2*S2[-1, n]*S2[1, -1, n]*
     S2[2, -1, n] - 4*S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
    2*S2[2, n]*S2[3, -1, n] - 4*S2[-1, n]*S2[3, 2, n] - 4*S2[4, -2, n] + 
    4*S2[-3, -1, -2, n] + 4*S2[-1, n]*S2[-3, -1, 1, n] + 
    4*S2[-1, n]*S2[-2, -1, 2, n] + 2*S2[2, n]*S2[-1, -2, -1, n] - 
    4*S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n] - 
      S2[-1, 1, -1, n]) + 4*S2[-1, n]*S2[2, n]*S2[-1, 1, -1, n] - 
    4*S2[2, -1, n]*S2[-1, 1, -1, n] - 2*S2[-1, n]*S2[1, n]*S2[-1, 2, -1, n] + 
    2*S2[1, -1, n]*S2[-1, 2, -1, n] + 4*S2[2, n]*S2[2, 1, -1, n] + 
    4*S2[3, -1, 2, n] + 4*S2[3, 2, -1, n] - 4*S2[-3, -1, 1, -1, n] - 
    4*S2[-2, -1, -1, 2, n] - 4*S2[-2, -1, 2, -1, n] + 
    12*S2[2, n]*S2[-1, -1, -1, 1, n] + 4*S2[-1, 1, 2, 2, n] - 
    4*S2[-1, n]*S2[2, -1, -1, 1, n] + 4*S2[2, -1, -1, 1, -1, n])/4, 
 S2[-1, 1, -1, -1, -2, n_] -> (2*S2[-5, n]*S2[-1, n] - 
    S2[-2, n]^2*S2[-1, n]^2 - S2[-2, n]*S2[-1, n]^3*S2[1, n] - 
    S2[-2, n]^2*S2[2, n] - 2*S2[-2, n]*S2[-1, n]*S2[3, n] - S2[3, n]^2 + 
    2*S2[-1, n]^2*S2[4, n] + 2*S2[2, n]*S2[4, n] + S2[6, n] - 
    2*S2[-5, -1, n] + 2*S2[-4, -2, n] - 2*S2[-1, n]*S2[-4, 1, n] - 
    2*S2[-2, n]*S2[-3, 1, n] + S2[-1, n]^2*S2[1, n]*S2[-2, -1, n] + 
    S2[-2, n]*S2[-1, n]^2*S2[1, -1, n] - S2[-1, n]*S2[-2, -1, n]*
     S2[1, -1, n] - S2[-4, n]*(2*S2[-2, n] - S2[-1, n]*S2[1, n] + 
      S2[1, -1, n]) + S2[-1, n]*S2[1, n]*S2[2, -2, n] - 
    S2[1, -1, n]*S2[2, -2, n] - 4*S2[-2, n]*S2[-1, n]*S2[2, 1, n] + 
    2*S2[-1, n]*S2[3, -2, n] - 2*S2[-2, n]*S2[3, -1, n] - 
    S2[-1, n]*S2[1, n]*S2[3, -1, n] + S2[1, -1, n]*S2[3, -1, n] - 
    2*S2[-1, n]*S2[4, -1, n] - 2*S2[4, 2, n] + 2*S2[-4, 1, -1, n] + 
    2*S2[-1, n]*S2[-2, 2, 1, n] - 4*S2[-1, n]*S2[-1, -2, -2, n] + 
    2*S2[-2, n]*S2[-1, -2, -1, n] - S2[-1, n]*S2[1, n]*S2[-1, -2, -1, n] + 
    S2[1, -1, n]*S2[-1, -2, -1, n] + 2*S2[-2, n]*S2[-1, n]*S2[-1, 1, -1, n] + 
    2*S2[3, n]*S2[-1, 1, -1, n] - 2*S2[-2, -1, n]*S2[-1, 1, -1, n] - 
    4*S2[2, -2, -2, n] + 4*S2[-2, n]*S2[2, 1, -1, n] + 2*S2[3, -2, -1, n] + 
    2*S2[3, -1, -2, n] + 2*S2[-1, n]*S2[3, -1, 1, n] - 2*S2[4, -1, -1, n] + 
    4*S2[-2, -2, -1, -1, n] - 2*S2[-1, n]*S2[-2, -1, -1, 1, n] - 
    2*S2[-2, 2, 1, -1, n] + 6*S2[-2, n]*S2[-1, -1, -1, 1, n] - 
    2*S2[3, -1, 1, -1, n] + 2*S2[-2, -1, -1, 1, -1, n])/2, 
 S2[-1, 1, -1, -2, 1, n_] -> (7*S2[-6, n])/3 + (2*S2[-2, n]^3)/3 + 
   S2[-3, n]*S2[3, n] + (3*S2[-1, n]*S2[1, n]*S2[4, n])/2 + 
   2*S2[-1, n]*S2[5, n] + S2[-5, 1, n] + S2[-1, n]*S2[-3, -2, n] + 
   S2[-3, 3, n] - S2[-3, n]*S2[-2, -1, n] - S2[-1, n]^2*S2[1, n]*
    S2[-2, 1, n] + (3*S2[-2, n]^2*(S2[-1, n]*S2[1, n] - S2[1, -1, n]))/2 - 
   (3*S2[4, n]*S2[1, -1, n])/2 + S2[-1, n]*S2[-2, 1, n]*S2[1, -1, n] + 
   S2[-1, n]*S2[3, 2, n] + S2[4, -2, n] - S2[-1, n]*S2[4, 1, n] - 
   2*S2[5, -1, n] - S2[-3, -2, -1, n] - 2*S2[-3, -1, -2, n] - 
   S2[-1, n]*S2[-2, -1, 2, n] + S2[-1, n]*S2[1, n]*S2[-1, -2, 1, n] - 
   S2[1, -1, n]*S2[-1, -2, 1, n] + S2[-2, n]*(2*S2[-3, n]*S2[-1, n] + 
     2*S2[4, n] - S2[-3, -1, n] - 3*S2[-1, n]*S2[-2, 1, n] + 
     2*S2[-2, 1, -1, n] + S2[-1, -2, 1, n]) + S2[-2, 1, n]*S2[-1, 1, -1, n] - 
   2*S2[-1, n]*S2[3, 1, 1, n] - S2[3, 2, -1, n] - S2[4, -1, 1, n] + 
   S2[4, 1, -1, n] + 2*S2[-1, n]*S2[-2, -1, 1, 1, n] + S2[-2, -1, 2, -1, n] + 
   S2[-1, n]*S2[-2, 1, -1, 1, n] - S2[-1, -2, -2, 1, n] - 
   2*S2[-1, -2, 1, -2, n] - 3*S2[-1, 1, -2, -2, n] + S2[3, 1, -1, 1, n] + 
   2*S2[3, 1, 1, -1, n] - S2[-2, -1, 1, -1, 1, n] - 
   2*S2[-2, -1, 1, 1, -1, n] - S2[-2, 1, -1, 1, -1, n], 
 S2[-1, 1, -1, -2, -1, n_] -> 2*S2[-4, n]*S2[-2, n] - S2[-5, n]*S2[-1, n] - 
   (3*S2[-2, n]^2*S2[-1, n]^2)/2 + S2[-2, n]^2*S2[2, n] - 
   S2[-2, n]*S2[-1, n]*S2[3, n] + S2[3, n]^2/2 - (3*S2[-1, n]^2*S2[4, n])/2 - 
   S2[2, n]*S2[4, n] + S2[6, n]/2 + 2*S2[-5, -1, n] - 2*S2[-4, -2, n] + 
   S2[-2, n]*S2[-1, n]*S2[-2, -1, n] - S2[-1, n]^2*S2[1, n]*S2[-2, -1, n] + 
   S2[-2, -1, n]^2/2 + S2[-1, n]*S2[-2, -1, n]*S2[1, -1, n] - 
   2*S2[-2, n]*S2[2, -2, n] - S2[-1, n]*S2[3, -2, n] + 
   2*S2[-2, n]*S2[3, -1, n] - S2[2, n]*S2[3, 1, n] + 
   2*S2[-1, n]*S2[4, -1, n] + (3*S2[4, 2, n])/2 - S2[5, 1, n] - 
   S2[-1, n]*S2[-2, 2, 1, n] + 3*S2[-1, n]*S2[-1, -2, -2, n] + 
   S2[-1, n]*S2[1, n]*S2[-1, -2, -1, n] - S2[1, -1, n]*S2[-1, -2, -1, n] + 
   S2[-2, -1, n]*S2[-1, 1, -1, n] + 2*S2[2, -2, -2, n] + S2[2, 3, 1, n] - 
   3*S2[3, -2, -1, n] - 2*S2[3, -1, -2, n] - S2[-1, n]*S2[3, -1, 1, n] - 
   S2[-1, n]*S2[3, 1, -1, n] + S2[3, 2, 1, n] + S2[4, -1, -1, n] - 
   4*S2[-2, -2, -1, -1, n] + 2*S2[-1, n]*S2[-2, -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] + S2[3, -1, 1, -1, n] + 2*S2[3, 1, -1, -1, n] - 
   2*S2[-2, -1, -1, 1, -1, n] - 2*S2[-2, -1, 1, -1, -1, n], 
 S2[-1, 1, -2, 1, 1, n_] -> (S2[-3, n]^2 - 2*S2[-4, n]*S2[-2, n] + 
    S2[-2, n]^2*S2[2, n] + 2*S2[-2, n]*S2[-1, n]*S2[3, n] + 
    S2[2, n]*S2[4, n] - S2[6, n] + 4*S2[-4, -2, n] + 
    2*S2[-2, n]*S2[-3, 1, n] + 2*S2[-1, n]*S2[-3, 2, n] + 
    2*S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-2, 1, n]^2 - 
    2*S2[-3, n]*(S2[-1, n]*S2[2, n] + 2*S2[-2, 1, n]) - 
    2*S2[-2, n]*S2[-1, n]*S2[2, 1, n] - 2*S2[-1, n]*S2[3, -2, n] - 
    S2[4, 2, n] - 2*S2[5, 1, n] + 4*S2[-3, -2, 1, n] + 
    2*S2[-1, n]*S2[-3, 1, 1, n] - 4*S2[-2, n]*S2[-2, 1, 1, n] + 
    2*S2[-1, n]*S2[1, n]*S2[-2, 1, 1, n] - 2*S2[1, -1, n]*S2[-2, 1, 1, n] + 
    2*S2[-1, n]*S2[-2, 2, 1, n] - 2*S2[2, -2, -2, n] + 
    2*S2[-1, n]*S2[2, 1, -2, n] - 2*S2[4, 1, 1, n] - 2*S2[-3, -1, 1, 1, n] - 
    2*S2[-3, 1, -1, 1, n] - 2*S2[-3, 1, 1, -1, n] + 6*S2[-2, -2, 1, 1, n] - 
    6*S2[-1, n]*S2[-2, 1, 1, 1, n] - 2*S2[-2, 1, 2, -1, n] - 
    2*S2[-2, 2, -1, 1, n] - 2*S2[-2, 2, 1, -1, n] + 
    2*S2[-2, 1, -1, 1, 1, n] + 4*S2[-2, 1, 1, -1, 1, n] + 
    6*S2[-2, 1, 1, 1, -1, n])/2, S2[-1, 1, -2, 1, -1, n_] -> 
  (2*S2[-6, n] + S2[-2, n]^3 + 3*S2[-2, n]^2*(S2[-1, n]*S2[1, n] - 
      S2[1, -1, n]) + 3*S2[-2, n]*(S2[-3, n]*S2[-1, n] + S2[4, n] - 
      4*S2[-3, -1, n] + 3*S2[-1, n]*S2[-2, 1, n] + 4*S2[3, 1, n] + 
      2*S2[-2, 1, -1, n] - 4*S2[-1, -2, 1, n]) + 
    3*(-2*S2[-3, 3, n] + 4*S2[-3, n]*S2[-2, -1, n] - 
      4*S2[-2, -1, n]*S2[-2, 1, n] - S2[4, n]*S2[1, -1, n] + 
      2*S2[-3, -1, -2, n] + 2*S2[-3, 1, 2, n] - 2*S2[1, -1, n]*
       S2[-2, 1, -1, n] + 2*S2[-2, 2, 2, n] - 4*S2[3, 1, -2, n] + 
      2*S2[4, 1, -1, n] - 2*S2[-3, -1, 1, -1, n] - 4*S2[-3, 1, -1, -1, n] + 
      S2[-1, n]*(S2[5, n] + S2[-3, -2, n] - S2[4, 1, n] + 
        2*S2[-3, 1, -1, n] - 3*S2[-2, 1, -2, n] + 
        S2[1, n]*(S2[4, n] + 2*S2[-2, 1, -1, n]) + 2*S2[-2, 2, -1, n] - 
        2*S2[-2, 1, -1, 1, n] - 4*S2[-2, 1, 1, -1, n]) - 
      4*S2[-2, 1, 1, 2, n] - 4*S2[-2, 2, -1, -1, n] + 
      4*S2[-1, -2, 1, -2, n] - 2*S2[-1, 1, -2, -2, n] + 
      4*S2[-2, 1, -1, 1, -1, n] + 8*S2[-2, 1, 1, -1, -1, n]))/6, 
 S2[-1, 1, -2, -1, 1, n_] -> -S2[-6, n]/3 - S2[-2, n]^3/6 + 
   2*S2[-3, n]*S2[3, n] - S2[-1, n]*S2[-3, -2, n] - 2*S2[-3, 3, n] - 
   S2[-3, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[1, n]*S2[-2, 1, n] - 
   2*S2[3, n]*S2[-2, 1, n] + S2[-2, -1, n]*S2[-2, 1, n] - 
   S2[-1, n]*S2[-2, 1, n]*S2[1, -1, n] + S2[-1, n]*S2[1, n]*S2[3, 1, n] - 
   S2[1, -1, n]*S2[3, 1, n] + 2*S2[4, -2, n] + S2[-1, n]*S2[4, 1, n] - 
   S2[-4, 1, 1, n] + S2[-3, -2, -1, n] + S2[-3, -1, -2, n] + 
   S2[-1, n]*S2[-3, -1, 1, n] + S2[-3, 2, 1, n] + 
   S2[-1, n]*S2[-2, -1, 2, n] - S2[-1, n]*S2[1, n]*S2[-2, 1, -1, n] + 
   S2[1, -1, n]*S2[-2, 1, -1, n] - S2[2, n]*S2[-2, 1, 1, n] - 
   S2[-2, 3, 1, n] - S2[-1, n]*S2[1, n]*S2[-1, -2, 1, n] + 
   S2[1, -1, n]*S2[-1, -2, 1, n] + S2[-2, n]*((-5*S2[4, n])/2 + 
     S2[-3, -1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] + S2[-1, -2, 1, n]) - 
   2*S2[3, 1, -2, n] - S2[4, 1, -1, n] - 2*S2[-3, -1, -1, 1, n] - 
   S2[-3, -1, 1, -1, n] - 2*S2[-1, n]*S2[-2, -1, 1, 1, n] - 
   S2[-2, -1, 2, -1, n] - S2[-1, n]*S2[-2, 1, -1, 1, n] + 
   S2[-2, 1, 1, 2, n] + S2[-2, 2, 1, 1, n] + S2[-1, 1, -2, -2, n] + 
   S2[2, -2, 1, 1, n] + S2[-2, -1, 1, -1, 1, n] + 2*S2[-2, -1, 1, 1, -1, n] + 
   2*S2[-2, 1, -1, -1, 1, n] + S2[-2, 1, -1, 1, -1, n], 
 S2[-1, 1, -2, -1, -1, n_] -> (2*S2[-5, n]*S2[-1, n] + 
    S2[-2, n]^2*S2[-1, n]^2 + S2[-4, n]*S2[-1, n]*S2[1, n] - S2[3, n]^2 + 
    S2[-1, n]^2*S2[4, n] - S2[6, n] - 2*S2[-5, -1, n] + 
    S2[-1, n]^2*S2[1, n]*S2[-2, -1, n] - S2[-2, -1, n]^2 - 
    S2[-4, n]*S2[1, -1, n] - S2[-1, n]*S2[-2, -1, n]*S2[1, -1, n] - 
    S2[-1, n]*S2[1, n]*S2[2, -2, n] + S2[1, -1, n]*S2[2, -2, n] + 
    S2[-2, n]*(S2[-1, n]*(S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
      S2[2, n]*S2[1, -1, n] - 2*S2[3, -1, n]) + S2[-1, n]*S2[1, n]*
     S2[3, -1, n] - S2[1, -1, n]*S2[3, -1, n] + S2[4, 2, n] + 
    2*S2[-1, n]*S2[-3, -1, -1, n] + 2*S2[-3, -1, 2, n] + 2*S2[-3, 2, -1, n] - 
    2*S2[-1, n]*S2[-1, -2, -2, n] - S2[-1, n]*S2[1, n]*S2[-1, -2, -1, n] + 
    S2[1, -1, n]*S2[-1, -2, -1, n] + 2*S2[3, -2, -1, n] + 
    2*S2[3, -1, -2, n] - 2*S2[4, -1, -1, n] - 6*S2[-3, -1, -1, -1, n] + 
    2*S2[-2, -2, -1, -1, n] - 2*S2[-1, n]*S2[-2, -1, -1, 1, n] - 
    2*S2[-1, n]*S2[-2, -1, 1, -1, n] - 2*S2[-2, -1, 1, 2, n] - 
    2*S2[-1, n]*S2[-2, 1, -1, -1, n] - 2*S2[-2, 1, -1, 2, n] - 
    2*S2[-2, 1, 2, -1, n] + 2*S2[-2, -1, -1, 1, -1, n] + 
    4*S2[-2, -1, 1, -1, -1, n] + 6*S2[-2, 1, -1, -1, -1, n])/2, 
 S2[-1, -1, 2, 1, 1, n_] -> S2[-5, n]*S2[-1, n] - 2*S2[2, n]*S2[4, n] - 
   2*S2[6, n] - S2[-5, -1, n] + S2[-1, n]*S2[-4, 1, n] - 
   S2[-1, n]*S2[-3, 2, n] - S2[-2, n]*S2[2, -2, n] + 
   S2[-3, n]*(S2[-1, n]*S2[2, n] - S2[2, -1, n]) - 
   S2[-2, n]*S2[1, n]*S2[2, -1, n] + S2[-2, n]*S2[-1, n]*S2[2, 1, n] - 
   S2[3, n]*S2[2, 1, n] - S2[-2, n]*S2[3, -1, n] + 2*S2[4, 2, n] - 
   S2[5, 1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n] + S2[-3, -2, 1, n] + 
   S2[-3, 1, -2, n] + S2[-1, n]*S2[-3, 1, 1, n] + S2[-3, 2, -1, n] - 
   S2[-1, n]*S2[-2, 2, 1, n] + S2[-2, n]*S2[1, 2, -1, n] + S2[2, -2, -2, n] + 
   (S2[-1, n]^2*S2[2, 1, 1, n])/2 - (S2[2, n]*S2[2, 1, 1, n])/2 + 
   S2[3, 2, 1, n] - S2[-3, -1, 1, 1, n] - S2[-3, 1, -1, 1, n] - 
   S2[-3, 1, 1, -1, n] + S2[-2, 2, -1, 1, n] + S2[-2, 2, 1, -1, n] - 
   S2[-1, n]*S2[2, -1, 1, 1, n] - S2[-1, n]*S2[2, 1, -1, 1, n] - 
   S2[-1, n]*S2[2, 1, 1, -1, n] + S2[2, 2, 1, 1, n] + 
   S2[2, -1, -1, 1, 1, n] + S2[2, -1, 1, -1, 1, n] + S2[2, -1, 1, 1, -1, n] + 
   S2[2, 1, -1, -1, 1, n] + S2[2, 1, -1, 1, -1, n] + S2[2, 1, 1, -1, -1, n], 
 S2[-1, -1, 2, 1, -1, n_] -> -2*S2[-6, n] - 2*S2[-4, n]*S2[2, n] - 
   S2[-2, n]*S2[2, n]^2 + (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - 
   S2[-2, n]*S2[4, n] + (S2[-1, n]*S2[1, n]*S2[4, n])/2 + 
   S2[-1, n]*S2[5, n] + S2[-1, n]*S2[-4, -1, n] + S2[-4, 2, n] - 
   S2[-1, n]*S2[-3, -2, n] - S2[-2, n]*S2[-3, -1, n] + 
   S2[2, n]*S2[-3, 1, n] + S2[-1, n]*S2[2, n]*S2[-2, -1, n] - 
   (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
   S2[2, n]*S2[2, -2, n] - S2[-2, -1, n]*S2[2, -1, n] + 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] - S2[2, 1, n]) - 
   S2[-1, n]*S2[2, n]*S2[2, 1, n] - S2[2, n]*S2[3, -1, n] + 
   S2[-1, n]*S2[3, 2, n] + S2[4, -2, n] - S2[-1, n]*S2[4, 1, n] - 
   2*S2[5, -1, n] - 2*S2[-4, -1, -1, n] + 2*S2[-3, -2, -1, n] + 
   S2[-3, -1, -2, n] + S2[-1, n]*S2[-3, 1, -1, n] - S2[-3, 1, 2, n] - 
   S2[-1, n]*S2[-2, -1, 2, n] - S2[-1, n]*S2[-2, 2, -1, n] + 
   2*S2[-2, 2, 2, n] + (S2[-1, n]^2*S2[2, 1, -1, n])/2 + 
   (S2[2, n]*S2[2, 1, -1, n])/2 + S2[-1, n]*S2[2, 2, 1, n] + 
   S2[4, 1, -1, n] - S2[-3, -1, 1, -1, n] - 2*S2[-3, 1, -1, -1, n] + 
   S2[-2, -1, 2, -1, n] + 2*S2[-2, 2, -1, -1, n] - S2[-1, 1, 2, 2, n] + 
   S2[-1, 2, 1, 2, n] - S2[-1, n]*S2[2, -1, 1, -1, n] - 
   2*S2[-1, n]*S2[2, 1, -1, -1, n] + S2[2, -1, -1, 1, -1, n] + 
   2*S2[2, -1, 1, -1, -1, n] + 3*S2[2, 1, -1, -1, -1, n], 
 S2[-1, -1, 2, -1, 1, n_] -> 
  (-2*S2[-6, n] - 2*S2[-3, n]*S2[-2, n]*S2[-1, n] - 2*S2[-4, n]*S2[2, n] - 
    S2[-1, n]*S2[1, n]*S2[2, n]^2 - S2[-1, n]*S2[1, n]*S2[4, n] - 
    2*S2[-1, n]*S2[5, n] - 2*S2[-5, 1, n] + 2*S2[-4, 2, n] + 
    2*S2[-1, n]*S2[-3, -2, n] - 2*S2[2, n]*S2[-3, 1, n] - 
    2*S2[-1, n]*S2[2, n]*S2[-2, -1, n] + S2[2, n]^2*S2[1, -1, n] + 
    S2[4, n]*S2[1, -1, n] + S2[-1, n]^2*S2[2, -2, n] - 
    S2[2, n]*S2[2, -2, n] + S2[-1, n]^2*S2[1, n]*S2[2, -1, n] + 
    S2[1, n]*S2[2, n]*S2[2, -1, n] - 2*S2[3, n]*S2[2, -1, n] + 
    2*S2[-2, -1, n]*S2[2, -1, n] + S2[-1, n]^2*S2[3, -1, n] + 
    3*S2[2, n]*S2[3, -1, n] - 2*S2[-1, n]*S2[3, 2, n] - 2*S2[4, -2, n] + 
    2*S2[5, -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] - 2*S2[-2, 2, 2, n] + 
    2*S2[-2, n]*S2[-1, 2, -1, n] - S2[-1, n]^2*S2[1, 2, -1, n] - 
    S2[2, n]*S2[1, 2, -1, n] - S2[-1, n]^2*S2[2, 1, -1, n] - 
    S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, 2, -1, n] + 2*S2[4, -1, 1, n] - 
    4*S2[-3, -1, -1, 1, n] - 2*S2[-3, -1, 1, -1, n] - 
    2*S2[-2, -1, 2, -1, n] + 2*S2[-1, 1, 2, 2, n] + 2*S2[-1, 2, 1, 2, n] + 
    4*S2[-1, 2, 2, 1, n] - 4*S2[-1, n]*S2[2, -1, -1, 1, n] - 
    2*S2[-1, n]*S2[2, -1, 1, -1, n] + 6*S2[2, -1, -1, -1, 1, n] + 
    4*S2[2, -1, -1, 1, -1, n] + 2*S2[2, -1, 1, -1, -1, n])/2, 
 S2[-1, -1, 2, -1, -1, n_] -> S2[-5, n]*S2[-1, n] + 
   (5*S2[-1, n]^2*S2[2, n]^2)/8 - (11*S2[2, n]^3)/24 + 
   (5*S2[-1, n]^2*S2[4, n])/8 - (17*S2[2, n]*S2[4, n])/8 - (5*S2[6, n])/3 - 
   2*S2[-5, -1, n] + (S2[-1, n]^2*S2[-3, -1, n])/4 - 
   (5*S2[2, n]*S2[-3, -1, n])/4 + S2[-3, n]*(S2[-1, n]*S2[2, n] - 
     2*S2[2, -1, n]) + (S2[-1, n]^3*S2[2, -1, n])/4 - 
   (5*S2[-1, n]*S2[2, n]*S2[2, -1, n])/4 + 2*S2[4, 2, n] + 
   S2[-1, n]*S2[-3, -1, -1, n] + S2[-3, -1, 2, n] + 3*S2[-3, 2, -1, n] - 
   (S2[-1, n]^2*S2[-1, 2, -1, n])/4 + (5*S2[2, n]*S2[-1, 2, -1, n])/4 - 
   S2[-1, n]*S2[-1, 2, 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] + 3*S2[2, 2, -1, -1, n] + 
   6*S2[2, -1, -1, -1, -1, n], S2[-1, -1, 1, 2, 1, n_] -> 
  (3*S2[-3, n]^2)/2 - S2[-4, n]*S2[-2, n] + (3*S2[-1, n]^2*S2[2, n]^2)/4 - 
   S2[2, n]^3/12 - S2[3, n]^2/2 + (3*S2[-1, n]^2*S2[4, n])/4 + 
   (9*S2[2, n]*S2[4, n])/4 + (7*S2[6, n])/3 + 2*S2[-4, -2, n] + 
   S2[2, n]*S2[-3, -1, n] + 2*S2[-2, n]*S2[-3, 1, n] + 
   S2[-1, n]*S2[-3, 2, n] - S2[-3, n]*S2[-2, 1, n] + S2[-2, n]*S2[2, -2, n] - 
   S2[-1, n]*S2[2, n]*S2[2, -1, n] + (S2[-1, n]^2*S2[1, n]*S2[2, 1, n])/2 + 
   (3*S2[3, n]*S2[2, 1, n])/2 + (S2[-2, -1, n]*S2[2, 1, n])/2 - 
   (S2[-1, n]*S2[1, -1, n]*S2[2, 1, n])/2 + S2[-1, n]*S2[3, -2, n] - 
   S2[-2, n]*S2[3, -1, n] + (S2[-1, n]^2*S2[3, 1, n])/2 - 
   (S2[2, n]*S2[3, 1, n])/2 - S2[-1, n]*S2[4, -1, n] - (5*S2[4, 2, n])/2 + 
   2*S2[5, 1, n] - S2[-3, -2, 1, n] - S2[-3, -1, 2, n] - 2*S2[-3, 1, -2, n] - 
   S2[-3, 2, -1, n] - S2[2, n]*S2[-2, 1, -1, n] + S2[-1, n]*S2[-2, 2, 1, n] - 
   (S2[2, 1, n]*S2[-1, 1, -1, n])/2 - S2[-1, n]*S2[-1, 2, 2, n] - 
   2*S2[2, -2, -2, n] - S2[-1, n]*S2[2, 1, -2, n] + 
   S2[-2, n]*S2[2, 1, -1, n] - S2[-1, n]^2*S2[2, 1, 1, n] + 
   S2[2, n]*S2[2, 1, 1, n] - S2[-1, n]*S2[3, -1, 1, n] - 
   S2[-1, n]*S2[3, 1, -1, n] - S2[3, 2, 1, n] + S2[4, 1, 1, n] - 
   S2[-2, -1, 2, 1, n] + S2[-2, 1, -1, 2, n] + S2[-2, 1, 2, -1, n] - 
   S2[-2, 2, -1, 1, n] - S2[-2, 2, 1, -1, n] + S2[-1, n]*S2[2, 1, -1, 1, n] + 
   2*S2[-1, n]*S2[2, 1, 1, -1, n] + S2[2, 2, -1, -1, n] - 
   2*S2[2, 2, 1, 1, n] + S2[3, -1, -1, 1, n] + S2[3, -1, 1, -1, n] + 
   S2[3, 1, -1, -1, n] - S2[2, 1, -1, -1, 1, n] - S2[2, 1, -1, 1, -1, n] - 
   2*S2[2, 1, 1, -1, -1, n], S2[-1, -1, 1, 2, -1, n_] -> 
  (4*S2[-6, n] + 3*S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 - 
    2*S2[-1, n]*S2[1, n]*S2[2, n]^2 + 2*S2[-2, n]*S2[4, n] - 
    2*S2[-1, n]*S2[1, n]*S2[4, n] - 2*S2[-1, n]*S2[5, n] - 
    2*S2[-1, n]*S2[-4, -1, n] - 2*S2[-4, 2, n] + 2*S2[-1, n]*S2[-3, -2, n] + 
    2*S2[-2, n]*S2[-3, -1, n] - 2*S2[2, n]*S2[-3, 1, n] - 
    S2[-1, n]*S2[2, n]*S2[-2, -1, n] + 2*S2[2, n]^2*S2[1, -1, n] + 
    2*S2[4, n]*S2[1, -1, n] - S2[2, n]*S2[2, -2, n] - 
    S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] + 
    S2[-2, -1, n]*S2[2, -1, n] - S2[-1, n]*S2[1, -1, n]*S2[2, -1, n] + 
    4*S2[-1, n]*S2[2, n]*S2[2, 1, n] + S2[2, -1, n]*S2[2, 1, n] + 
    2*S2[-3, n]*(-(S2[-2, n]*S2[-1, n]) + S2[-2, -1, n] + S2[2, 1, n]) + 
    3*S2[2, n]*S2[3, -1, n] - 2*S2[-1, n]*S2[3, 2, n] - 2*S2[4, -2, n] + 
    4*S2[-1, n]*S2[4, 1, n] + 6*S2[5, -1, n] + 2*S2[-4, -1, -1, n] - 
    4*S2[-3, -2, -1, n] - 2*S2[-3, -1, -2, n] + 4*S2[-3, 1, 2, n] + 
    2*S2[-1, n]*S2[-2, -1, 2, n] + 4*S2[-1, n]*S2[-2, 2, -1, n] - 
    2*S2[-2, 2, 2, n] - S2[2, n]*S2[-1, -2, -1, n] - 
    S2[2, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]^2*S2[1, 2, -1, n] + 
    S2[2, n]*S2[1, 2, -1, n] - 2*S2[2, n]*S2[2, 1, -1, n] - 
    4*S2[-1, n]*S2[2, 2, 1, n] - 4*S2[-1, n]*S2[3, -1, -1, n] - 
    2*S2[3, -1, 2, n] - 2*S2[4, 1, -1, n] - 2*S2[-2, -1, -1, 2, n] - 
    4*S2[-2, -1, 2, -1, n] - 6*S2[-2, 2, -1, -1, n] + 4*S2[-1, 1, 2, 2, n] - 
    2*S2[-1, 2, 1, 2, n] + 2*S2[-1, n]*S2[2, -1, 1, -1, n] + 
    4*S2[-1, n]*S2[2, 1, -1, -1, n] + 6*S2[3, -1, -1, -1, n] - 
    2*S2[2, -1, 1, -1, -1, n] - 6*S2[2, 1, -1, -1, -1, n])/2, 
 S2[-1, -1, 1, 1, 2, n_] -> (-6*S2[-3, n]^2 + 24*S2[-4, n]*S2[-2, n] + 
    6*S2[-2, n]^2*S2[2, n] + 3*S2[-1, n]^2*S2[1, n]^2*S2[2, n] - 
    6*S2[-1, n]^2*S2[2, n]^2 + 3*S2[1, n]^2*S2[2, n]^2 + S2[2, n]^3 + 
    12*S2[-2, n]*S2[-1, n]*S2[3, n] + 6*S2[-1, n]^2*S2[1, n]*S2[3, n] + 
    6*S2[1, n]*S2[2, n]*S2[3, n] + 6*S2[3, n]^2 - 3*S2[-1, n]^2*S2[4, n] + 
    14*S2[6, n] - 24*S2[-4, -2, n] + 6*S2[2, n]*S2[-3, -1, n] - 
    12*S2[-2, n]*S2[-3, 1, n] + 6*S2[1, n]*S2[2, n]*S2[-2, -1, n] + 
    6*S2[3, n]*S2[-2, -1, n] - 12*S2[-3, n]*(S2[-1, n]*S2[2, n] - 
      S2[-2, 1, n]) + 12*S2[-1, n]*S2[2, n]*S2[-2, 1, n] - 
    6*S2[-1, n]*S2[1, n]*S2[2, n]*S2[1, -1, n] - 6*S2[-1, n]*S2[3, n]*
     S2[1, -1, n] - 12*S2[-2, n]*S2[2, -2, n] + 6*S2[-1, n]*S2[2, n]*
     S2[2, -1, n] - 12*S2[-2, n]*S2[-1, n]*S2[2, 1, n] - 
    6*S2[-1, n]^2*S2[1, n]*S2[2, 1, n] - 6*S2[1, n]*S2[2, n]*S2[2, 1, n] - 
    6*S2[-2, -1, n]*S2[2, 1, n] + 6*S2[-1, n]*S2[1, -1, n]*S2[2, 1, n] - 
    12*S2[-1, n]*S2[3, -2, n] - 6*S2[-1, n]^2*S2[3, 1, n] + 
    6*S2[2, n]*S2[3, 1, n] + 6*S2[4, 2, n] + 12*S2[5, 1, n] + 
    12*S2[-3, 1, -2, n] - 6*S2[1, n]*S2[2, n]*S2[-1, 1, -1, n] - 
    6*S2[3, n]*S2[-1, 1, -1, n] + 6*S2[2, 1, n]*S2[-1, 1, -1, n] - 
    6*S2[2, n]*S2[-1, 2, -1, n] + 12*S2[-1, n]*S2[-1, 2, 2, n] + 
    12*S2[-1, n]*S2[2, n]*S2[1, 1, -1, n] + 12*S2[2, -2, -2, n] + 
    12*S2[-1, n]*S2[2, 1, -2, n] + 6*S2[-1, n]^2*S2[2, 1, 1, n] + 
    6*S2[2, n]*S2[2, 1, 1, n] - 12*S2[2, 3, 1, n] + 
    12*S2[-1, n]*S2[3, 1, -1, n] - 12*S2[3, 2, 1, n] + 12*S2[4, -1, -1, n] - 
    12*S2[-2, -1, 1, 2, n] - 12*S2[-2, 1, -1, 2, n] - 
    12*S2[-2, 1, 2, -1, n] - 12*S2[2, n]*S2[1, 1, -1, -1, n] - 
    12*S2[-1, n]*S2[2, 1, 1, -1, n] - 12*S2[2, 2, -1, -1, n] - 
    12*S2[3, 1, -1, -1, n] + 12*S2[2, 1, 1, -1, -1, n])/12, 
 S2[-1, -1, 1, 1, -2, n_] -> 
  (2*S2[-3, n]*(S2[-1, n]^2*S2[1, n] - S2[3, n] + S2[-2, -1, n] - 
      S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) + 
    S2[-2, n]*(S2[-1, n]^2*(S2[1, n]^2 - S2[2, n]) + S2[1, n]^2*S2[2, n] - 
      2*S2[2, n]^2 + S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
      2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
        2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]) + 
    2*(-2*S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, 1, n] - 
      S2[-2, -1, n]*S2[-2, 1, n] + S2[2, n]*S2[2, -2, n] - 
      S2[-2, 1, n]*S2[2, 1, n] + 2*S2[-4, -1, -1, n] + 2*S2[-3, 1, 2, n] + 
      S2[2, n]*S2[-2, 1, 1, n] + S2[-1, n]^2*(-S2[-3, 1, n] - 
        S2[1, n]*S2[-2, 1, n] + S2[2, -2, n] + S2[-2, 1, 1, n]) + 
      2*S2[-2, 2, 2, n] + S2[-2, 1, n]*S2[-1, 1, -1, n] - 
      2*S2[-3, 1, -1, -1, n] + S2[-1, n]*(-2*S2[-4, -1, n] + 
        S2[-2, 1, n]*S2[1, -1, n] + 2*(S2[-3, 1, -1, n] + S2[-2, 2, -1, n] - 
          S2[-2, 1, 1, -1, n])) - 2*S2[-2, 1, 1, 2, n] - 
      2*S2[-2, 2, -1, -1, n] + 2*S2[-1, -2, 1, -2, n] + 
      2*S2[-2, 1, 1, -1, -1, n]))/4, S2[-1, -1, 1, -1, 2, n_] -> 
  (-2*S2[-6, n] + S2[-4, n]*S2[-1, n]^2 + S2[-4, n]*S2[2, n] + 
    3*S2[-2, n]*S2[-1, n]^2*S2[2, n] + S2[-1, n]^3*S2[1, n]*S2[2, n] - 
    S2[-2, n]*S2[2, n]^2 - 2*S2[-1, n]*S2[1, n]*S2[2, n]^2 + 
    S2[-1, n]*S2[2, n]*S2[3, n] - 2*S2[-1, n]*S2[1, n]*S2[4, n] - 
    2*S2[-4, 2, n] - 2*S2[-1, n]*S2[-3, -2, n] - 2*S2[-2, n]*S2[-3, -1, n] - 
    S2[-1, n]^2*S2[-3, 1, n] + S2[2, n]*S2[-3, 1, n] - 
    S2[-1, n]*S2[2, n]*S2[-2, -1, n] - S2[-1, n]^2*S2[2, n]*S2[1, -1, n] + 
    2*S2[2, n]^2*S2[1, -1, n] + 2*S2[4, n]*S2[1, -1, n] + 
    4*S2[2, n]*S2[2, -2, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
    S2[3, n]*S2[2, -1, n] - S2[-2, -1, n]*S2[2, -1, n] + 
    S2[-1, n]*S2[1, -1, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[2, n]*S2[2, 1, n] - 
    S2[2, -1, n]*S2[2, 1, n] + S2[-1, n]^2*S2[3, -1, n] + 
    S2[2, n]*S2[3, -1, n] - 2*S2[-1, n]*S2[3, 2, n] + 
    2*S2[-1, n]*S2[4, 1, n] + 2*S2[-3, -2, -1, n] + 2*S2[-3, -1, -2, n] + 
    2*S2[-1, n]*S2[-3, 1, -1, n] - 2*S2[-1, n]*S2[-2, 2, -1, n] - 
    2*S2[-2, 2, 2, n] - 2*S2[2, n]*S2[-1, -2, -1, n] + 
    S2[-3, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] - 3*S2[3, n] + 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]) - S2[-1, n]*S2[2, n]*S2[-1, 1, -1, n] + 
    S2[2, -1, n]*S2[-1, 1, -1, n] - S2[-1, n]^2*S2[1, 2, -1, n] - 
    S2[2, n]*S2[1, 2, -1, n] - S2[-1, n]^2*S2[2, 1, -1, n] - 
    5*S2[2, n]*S2[2, 1, -1, n] + 4*S2[3, -1, 2, n] + 2*S2[3, 2, -1, n] - 
    2*S2[4, 1, -1, n] - 2*S2[-3, 1, -1, -1, n] - 2*S2[-2, -1, -1, 2, n] + 
    2*S2[-2, 2, -1, -1, n] - 6*S2[2, n]*S2[-1, -1, -1, 1, n] + 
    4*S2[-1, 1, 2, 2, n] + 2*S2[-1, 2, 1, 2, n] - 
    2*S2[-1, n]*S2[2, -1, 1, -1, n] + 2*S2[2, -1, 1, -1, -1, n])/2, 
 S2[-1, -1, 1, -1, -2, n_] -> (S2[-4, n]*S2[-2, n] + 2*S2[-5, n]*S2[-1, n] + 
    4*S2[-2, n]^2*S2[-1, n]^2 + S2[-2, n]*S2[-1, n]^3*S2[1, n] + 
    5*S2[-2, n]*S2[-1, n]*S2[3, n] + S2[-1, n]^2*S2[1, n]*S2[3, n] + 
    2*S2[-1, n]^2*S2[4, n] + S2[2, n]*S2[4, n] + S2[6, n] - 2*S2[-5, -1, n] + 
    2*S2[-2, n]*S2[-3, 1, n] - 4*S2[-2, n]*S2[-1, n]*S2[-2, -1, n] - 
    S2[-1, n]^2*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^3*S2[-2, 1, n] + 
    S2[-1, n]*S2[2, n]*S2[-2, 1, n] - S2[-2, n]*S2[-1, n]^2*S2[1, -1, n] - 
    S2[-1, n]*S2[3, n]*S2[1, -1, n] + S2[-1, n]*S2[-2, -1, n]*S2[1, -1, n] + 
    3*S2[-2, n]*S2[2, -2, n] + 3*S2[-2, n]*S2[-1, n]*S2[2, 1, n] + 
    S2[3, n]*S2[2, 1, n] - S2[-2, -1, n]*S2[2, 1, n] - 
    3*S2[-2, n]*S2[3, -1, n] + 2*S2[2, n]*S2[3, 1, n] - 
    2*S2[-1, n]*S2[4, -1, n] - S2[4, 2, n] + 2*S2[5, 1, n] - 
    S2[-1, n]^2*S2[-2, 1, -1, n] - S2[2, n]*S2[-2, 1, -1, n] - 
    2*S2[-1, n]*S2[-1, -2, -2, n] - S2[-2, n]*S2[-1, -2, -1, n] - 
    S2[-1, n]^2*S2[-1, -2, 1, n] - S2[2, n]*S2[-1, -2, 1, n] - 
    S2[-2, n]*S2[-1, n]*S2[-1, 1, -1, n] - S2[3, n]*S2[-1, 1, -1, n] + 
    S2[-2, -1, n]*S2[-1, 1, -1, n] - 2*S2[-2, n]*S2[2, 1, -1, n] - 
    2*S2[2, 3, 1, n] + 2*S2[3, -2, -1, n] + 2*S2[3, -1, -2, n] + 
    2*S2[-1, n]*S2[3, 1, -1, n] - 2*S2[3, 2, 1, n] + 
    2*S2[-2, -2, -1, -1, n] - 2*S2[-1, n]*S2[-2, -1, 1, -1, n] - 
    2*S2[-2, -1, 1, 2, n] - 6*S2[-2, n]*S2[-1, -1, -1, 1, n] - 
    2*S2[3, 1, -1, -1, n] + 2*S2[-2, -1, 1, -1, -1, n])/2, 
 S2[-1, -1, 1, -2, 1, n_] -> (-4*S2[-6, n] - 2*S2[-2, n]^3 + 
    S2[-2, n]^2*(-6*S2[-1, n]*S2[1, n] + 6*S2[1, -1, n]) + 
    3*S2[-2, n]*(-2*S2[-3, n]*S2[-1, n] + S2[-1, n]^2*S2[2, n] + S2[2, n]^2 + 
      2*S2[-3, -1, n] + 2*S2[-1, n]*S2[-2, 1, n] - 2*S2[3, 1, n] - 
      2*S2[-2, 1, -1, n]) + 3*(S2[-4, n]*(S2[-1, n]^2 + S2[2, n]) - 
      2*S2[-3, n]*S2[3, n] - 2*S2[-1, n]*S2[1, n]*S2[4, n] - 
      2*S2[-1, n]*S2[5, n] + S2[-1, n]^2*S2[-3, 1, n] + 
      S2[2, n]*S2[-3, 1, n] + 2*S2[-3, 3, n] + S2[-1, n]^2*S2[1, n]*
       S2[-2, 1, n] + S2[3, n]*S2[-2, 1, n] + S2[-2, -1, n]*S2[-2, 1, n] + 
      2*S2[4, n]*S2[1, -1, n] - S2[-1, n]*S2[-2, 1, n]*S2[1, -1, n] - 
      S2[-1, n]^2*S2[2, -2, n] - S2[2, n]*S2[2, -2, n] + 
      S2[-2, 1, n]*S2[2, 1, n] - 2*S2[4, -2, n] + 2*S2[-1, n]*S2[4, 1, n] + 
      2*S2[5, -1, n] + 2*S2[-4, 1, 1, n] - 2*S2[-1, n]*S2[-3, -1, 1, n] - 
      2*S2[-1, n]*S2[-3, 1, -1, n] - 2*S2[-3, 1, 2, n] - 2*S2[-3, 2, 1, n] - 
      2*S2[-1, n]^2*S2[-2, 1, 1, n] - 2*S2[-1, n]*S2[-2, 2, -1, n] - 
      2*S2[-2, 2, 2, n] + 2*S2[-2, 3, 1, n] - S2[-2, 1, n]*S2[-1, 1, -1, n] + 
      2*S2[3, 1, -2, n] - 2*S2[4, 1, -1, n] + 2*S2[-3, -1, -1, 1, n] + 
      2*S2[-3, -1, 1, -1, n] + 2*S2[-3, 1, -1, -1, n] + 
      2*S2[-1, n]*S2[-2, 1, -1, 1, n] + 4*S2[-1, n]*S2[-2, 1, 1, -1, n] + 
      2*S2[-2, 1, 1, 2, n] + 2*S2[-2, 2, -1, -1, n] - 2*S2[-2, 2, 1, 1, n] + 
      2*S2[-1, -2, -2, 1, n] + 4*S2[-1, 1, -2, -2, n] - 
      2*S2[2, -2, 1, 1, n] - 2*S2[-2, 1, -1, -1, 1, n] - 
      2*S2[-2, 1, -1, 1, -1, n] - 4*S2[-2, 1, 1, -1, -1, n]))/6, 
 S2[-1, -1, 1, -2, -1, n_] -> (2*S2[-3, n]^2 - 4*S2[-4, n]*S2[-2, n] - 
    S2[-2, n]^2*S2[2, n] - 2*S2[-2, n]*S2[-1, n]*S2[3, n] + 
    S2[2, n]*S2[4, n] + 4*S2[-4, -2, n] + S2[-1, n]^2*S2[-3, -1, n] + 
    S2[2, n]*S2[-3, -1, n] + 2*S2[-2, n]*S2[-3, 1, n] + 
    S2[-1, n]^2*S2[1, n]*S2[-2, -1, n] - S2[3, n]*S2[-2, -1, n] + 
    2*S2[-3, n]*(S2[-1, n]*S2[2, n] - S2[-2, 1, n]) - 
    S2[-1, n]^3*S2[-2, 1, n] - 3*S2[-1, n]*S2[2, n]*S2[-2, 1, n] - 
    S2[-1, n]*S2[-2, -1, n]*S2[1, -1, n] + 2*S2[-2, n]*S2[2, -2, n] + 
    2*S2[-2, n]*S2[-1, n]*S2[2, 1, n] + S2[-2, -1, n]*S2[2, 1, n] + 
    2*S2[-1, n]*S2[3, -2, n] - S2[-1, n]^2*S2[3, 1, n] - 
    S2[2, n]*S2[3, 1, n] - S2[4, 2, n] - 4*S2[-1, n]*S2[-3, -1, -1, n] - 
    4*S2[-3, -1, 2, n] - 2*S2[-3, 1, -2, n] - 4*S2[-3, 2, -1, n] + 
    S2[-1, n]^2*S2[-1, -2, 1, n] + S2[2, n]*S2[-1, -2, 1, n] - 
    S2[-2, -1, n]*S2[-1, 1, -1, n] - 2*S2[2, -2, -2, n] - 
    2*S2[-1, n]*S2[2, 1, -2, n] + 2*S2[3, -2, -1, n] - 2*S2[4, -1, -1, n] + 
    6*S2[-3, -1, -1, -1, n] + 2*S2[-2, -2, -1, -1, n] + 
    2*S2[-1, n]*S2[-2, -1, 1, -1, n] + 2*S2[-2, -1, 1, 2, n] + 
    4*S2[-1, n]*S2[-2, 1, -1, -1, n] + 4*S2[-2, 1, -1, 2, n] + 
    4*S2[-2, 1, 2, -1, n] - 2*S2[-2, -1, 1, -1, -1, n] - 
    6*S2[-2, 1, -1, -1, -1, n])/2, S2[-1, -1, -1, 2, 1, n_] -> 
  S2[-6, n] + S2[-4, n]*S2[2, n] + (S2[-2, n]*S2[2, n]^2)/4 + 
   (S2[-2, n]*S2[4, n])/4 + S2[-5, 1, n] - S2[-1, n]*S2[-4, -1, n] - 
   S2[-4, 2, n] + S2[-1, n]*S2[-3, -2, n] + (S2[-2, n]*S2[-3, -1, n])/2 + 
   (S2[-1, n]^2*S2[-3, 1, n])/2 + (S2[2, n]*S2[-3, 1, n])/2 + S2[-3, 3, n] - 
   (S2[-2, n]*S2[-1, n]*S2[2, -1, n])/2 - (S2[-1, n]^2*S2[1, n]*S2[2, -1, n])/
    2 - (S2[1, n]*S2[2, n]*S2[2, -1, n])/2 + (S2[-3, n]*S2[2, 1, n])/3 + 
   (S2[-1, n]^3*S2[2, 1, n])/6 + (S2[-1, n]*S2[2, n]*S2[2, 1, n])/2 - 
   (S2[-1, n]^2*S2[3, -1, n])/2 - (S2[2, n]*S2[3, -1, n])/2 + S2[4, -2, n] + 
   S2[-1, n]*S2[4, 1, n] + S2[-4, -1, -1, n] - S2[-3, -2, -1, n] - 
   S2[-3, -1, -2, n] - S2[-1, n]*S2[-3, -1, 1, n] - 
   S2[-1, n]*S2[-3, 1, -1, n] + S2[-1, n]*S2[-2, 2, -1, n] - 
   (S2[-2, n]*S2[-1, 2, -1, n])/2 + (S2[-1, n]^2*S2[1, 2, -1, n])/2 + 
   (S2[2, n]*S2[1, 2, -1, n])/2 - S2[4, -1, 1, n] - S2[4, 1, -1, n] + 
   S2[-3, -1, -1, 1, n] + S2[-3, -1, 1, -1, n] + S2[-3, 1, -1, -1, n] - 
   S2[-2, 2, -1, -1, n] - S2[-1, 2, 1, 2, n] - S2[-1, 2, 2, 1, n] + 
   S2[-1, n]*S2[2, -1, -1, 1, n] + S2[-1, n]*S2[2, -1, 1, -1, n] + 
   S2[-1, n]*S2[2, 1, -1, -1, n] - S2[2, -1, -1, -1, 1, n] - 
   S2[2, -1, -1, 1, -1, n] - S2[2, -1, 1, -1, -1, n] - 
   S2[2, 1, -1, -1, -1, n], S2[-1, -1, -1, 2, -1, n_] -> 
  S2[-3, n]^2/2 - S2[-5, n]*S2[-1, n] - S2[-1, n]^2*S2[2, n]^2 + 
   (5*S2[2, n]^3)/12 - S2[-1, n]^2*S2[4, n] + (7*S2[2, n]*S2[4, n])/4 + 
   (11*S2[6, n])/6 + 2*S2[-5, -1, n] + (3*S2[2, n]*S2[-3, -1, n])/2 - 
   (S2[-1, n]^3*S2[2, -1, n])/3 + (3*S2[-1, n]*S2[2, n]*S2[2, -1, n])/2 + 
   S2[-3, n]*(-(S2[-1, n]*S2[2, n]) + (4*S2[2, -1, n])/3) + 
   S2[-1, n]*S2[4, -1, n] - S2[4, 2, n] - 2*S2[-1, n]*S2[-3, -1, -1, n] - 
   2*S2[-3, -1, 2, n] - 3*S2[-3, 2, -1, n] + (S2[-1, n]^2*S2[-1, 2, -1, n])/
    2 - S2[2, n]*S2[-1, 2, -1, n] + 2*S2[-1, n]*S2[-1, 2, 2, n] + 
   S2[4, -1, -1, n] + 3*S2[-3, -1, -1, -1, n] + 
   3*S2[-1, n]*S2[2, -1, -1, -1, n] - 3*S2[2, 2, -1, -1, n] - 
   4*S2[2, -1, -1, -1, -1, n], S2[-1, -1, -1, 1, 2, n_] -> 
  (6*S2[-6, n] + 3*S2[-4, n]*S2[-1, n]^2 + 3*S2[-2, n]*S2[2, n]^2 + 
    6*S2[-1, n]*S2[1, n]*S2[2, n]^2 + S2[-1, n]^3*S2[3, n] + 
    3*S2[-1, n]*S2[2, n]*S2[3, n] + 6*S2[-1, n]*S2[1, n]*S2[4, n] + 
    12*S2[-1, n]*S2[5, n] + 6*S2[-4, 2, n] - 6*S2[-1, n]*S2[-3, -2, n] - 
    6*S2[-3, 3, n] + 3*S2[-1, n]*S2[2, n]*S2[-2, -1, n] - 
    6*S2[2, n]^2*S2[1, -1, n] - 6*S2[4, n]*S2[1, -1, n] - 
    3*S2[-1, n]^2*S2[2, -2, n] - 6*S2[2, n]*S2[2, -2, n] + 
    S2[-3, n]*(6*S2[-2, n]*S2[-1, n] + 8*S2[3, n] - 6*S2[-2, -1, n] - 
      2*S2[2, 1, n]) - S2[-1, n]^3*S2[2, 1, n] - 9*S2[-1, n]*S2[2, n]*
     S2[2, 1, n] - 3*S2[-1, n]^2*S2[3, -1, n] - 6*S2[2, n]*S2[3, -1, n] + 
    6*S2[-1, n]*S2[3, 2, n] - 6*S2[-1, n]*S2[4, 1, n] - 12*S2[5, -1, n] + 
    6*S2[-3, -2, -1, n] - 6*S2[-1, n]*S2[-2, -1, 2, n] - 
    6*S2[-1, n]*S2[-2, 2, -1, n] + 3*S2[2, n]*S2[-1, -2, -1, n] + 
    3*S2[-1, n]^2*S2[2, 1, -1, n] + 9*S2[2, n]*S2[2, 1, -1, n] + 
    6*S2[-1, n]*S2[3, -1, -1, n] - 6*S2[3, -1, 2, n] - 6*S2[3, 2, -1, n] + 
    6*S2[4, 1, -1, n] + 6*S2[-2, -1, -1, 2, n] + 6*S2[-2, -1, 2, -1, n] + 
    6*S2[-2, 2, -1, -1, n] + 6*S2[2, n]*S2[-1, -1, -1, 1, n] - 
    12*S2[-1, 1, 2, 2, n] - 6*S2[-1, n]*S2[2, 1, -1, -1, n] - 
    6*S2[3, -1, -1, -1, n] + 6*S2[2, 1, -1, -1, -1, n])/6, 
 S2[-1, -1, -1, 1, -2, n_] -> (-2*S2[-3, n]^2)/3 + S2[-4, n]*S2[-2, n] - 
   (3*S2[-2, n]^2*S2[-1, n]^2)/4 + (S2[-2, n]^2*S2[2, n])/4 + S2[3, n]^2/2 - 
   (S2[-1, n]^2*S2[4, n])/4 - (S2[2, n]*S2[4, n])/4 + S2[6, n]/2 - 
   S2[-4, -2, n] - (S2[-1, n]^2*S2[-3, -1, n])/2 - 
   (S2[2, n]*S2[-3, -1, n])/2 - S2[-2, n]*S2[-3, 1, n] + 
   S2[-2, n]*S2[-1, n]*S2[-2, -1, n] - (S2[-1, n]^3*S2[-2, 1, n])/6 + 
   (S2[-1, n]*S2[2, n]*S2[-2, 1, n])/2 + 
   (S2[-3, n]*(S2[-1, n]^3 - 3*S2[-1, n]*S2[2, n] + 4*S2[-2, 1, n]))/6 - 
   S2[-2, n]*S2[2, -2, n] - S2[-2, n]*S2[-1, n]*S2[2, 1, n] - 
   S2[-1, n]*S2[3, -2, n] + S2[-2, n]*S2[3, -1, n] + 
   S2[-1, n]*S2[-3, -1, -1, n] + S2[-3, -1, 2, n] + S2[-3, 1, -2, n] + 
   S2[-3, 2, -1, n] + (S2[-1, n]^2*S2[-2, 1, -1, n])/2 + 
   (S2[2, n]*S2[-2, 1, -1, n])/2 + S2[-1, n]*S2[-1, -2, -2, n] + 
   S2[2, -2, -2, n] + S2[-1, n]*S2[2, 1, -2, n] - S2[3, -2, -1, n] - 
   S2[3, -1, -2, n] + S2[4, -1, -1, n] - S2[-3, -1, -1, -1, n] - 
   S2[-2, -2, -1, -1, n] - S2[-1, n]*S2[-2, 1, -1, -1, n] - 
   S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n] + 
   S2[-2, n]*S2[-1, -1, -1, 1, n] + S2[-2, 1, -1, -1, -1, n], 
 S2[-1, -1, -1, -1, 2, n_] -> (-4*S2[-3, n]^2 + 24*S2[-5, n]*S2[-1, n] + 
    S2[-1, n]^4*S2[2, n] + 15*S2[-1, n]^2*S2[2, n]^2 - 2*S2[2, n]^3 + 
    21*S2[-1, n]^2*S2[4, n] - 3*S2[2, n]*S2[4, n] - 4*S2[6, n] - 
    24*S2[-5, -1, n] - 6*S2[-1, n]^2*S2[-3, -1, n] - 
    18*S2[2, n]*S2[-3, -1, n] + 4*S2[-3, n]*(S2[-1, n]^3 + 
      5*S2[-1, n]*S2[2, n] - 2*S2[2, -1, n]) + 2*S2[-1, n]^3*S2[2, -1, n] - 
    18*S2[-1, n]*S2[2, n]*S2[2, -1, n] - 24*S2[-1, n]*S2[4, -1, n] + 
    24*S2[-1, n]*S2[-3, -1, -1, n] + 24*S2[-3, -1, 2, n] + 
    24*S2[-3, 2, -1, n] - 6*S2[-1, n]^2*S2[-1, 2, -1, n] + 
    6*S2[2, n]*S2[-1, 2, -1, n] - 24*S2[-1, n]*S2[-1, 2, 2, n] - 
    24*S2[-3, -1, -1, -1, n] - 24*S2[-1, n]*S2[2, -1, -1, -1, n] + 
    24*S2[2, 2, -1, -1, n] + 24*S2[2, -1, -1, -1, -1, n])/24, 
 S2[-1, -1, -1, -1, -2, n_] -> (S2[-2, n]*S2[-1, n]^4)/24 - 
   (S2[-2, n]*S2[2, n]^2)/8 + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/4 + 
   (S2[-1, n]^3*S2[3, n])/6 + (S2[-1, n]*S2[2, n]*S2[3, n])/2 + 
   (S2[-2, n]*S2[4, n])/4 - S2[-1, n]*S2[-4, -1, n] - S2[-4, 2, n] + 
   S2[-1, n]*S2[-3, -2, n] + S2[-3, 3, n] - 
   (2*S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]))/3 + 
   (S2[-1, n]^3*S2[-2, -1, n])/12 - (S2[-1, n]*S2[2, n]*S2[-2, -1, n])/4 + 
   (S2[-1, n]^2*S2[2, -2, n])/4 + (S2[2, n]*S2[2, -2, n])/4 - 
   (S2[-1, n]^2*S2[3, -1, n])/4 - (S2[2, n]*S2[3, -1, n])/4 - 
   S2[-1, n]*S2[3, 2, n] + S2[-4, -1, -1, n] - S2[-3, -2, -1, n] + 
   S2[-1, n]*S2[-2, -1, 2, n] + S2[-1, n]*S2[-2, 2, -1, n] + 
   S2[-2, 2, 2, n] - (S2[-1, n]^2*S2[-1, -2, -1, n])/4 - 
   (S2[2, n]*S2[-1, -2, -1, n])/4 + S2[-1, n]*S2[3, -1, -1, n] + 
   S2[3, -1, 2, n] + S2[3, 2, -1, n] - S2[-1, n]*S2[-2, -1, -1, -1, n] - 
   S2[-2, -1, -1, 2, n] - S2[-2, -1, 2, -1, n] - S2[-2, 2, -1, -1, n] - 
   S2[3, -1, -1, -1, n] + S2[-2, -1, -1, -1, -1, n], 
 S2[-1, -1, -1, -2, 1, n_] -> -(S2[-4, n]*S2[-2, n])/2 - 
   (S2[-2, n]^2*S2[-1, n]^2)/2 + S2[-3, n]*S2[-1, n]*S2[2, n] - 
   (S2[-1, n]^2*S2[4, n])/2 - (S2[2, n]*S2[4, n])/2 - S2[6, n] + 
   S2[-4, -2, n] + S2[-1, n]*S2[-4, 1, n] - S2[-1, n]*S2[-3, 2, n] - 
   (2*S2[-3, n]*S2[-2, 1, n])/3 - (S2[-1, n]^3*S2[-2, 1, n])/3 - 
   S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-1, n]*S2[3, -2, n] - 
   S2[2, n]*S2[3, 1, n] - S2[5, 1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n] + 
   S2[-3, -2, 1, n] - S2[-1, n]*S2[-2, 2, 1, n] + 
   S2[-1, n]*S2[-1, -2, -2, n] - 
   (S2[-2, n]*(S2[2, -2, n] + S2[-1, n]*(2*S2[3, n] - S2[-2, -1, n] - 
        2*S2[2, 1, n]) - S2[3, -1, n] + S2[-1, -2, -1, n]))/2 + 
   (S2[-1, n]^2*S2[-1, -2, 1, n])/2 + (S2[2, n]*S2[-1, -2, 1, n])/2 + 
   S2[2, -2, -2, n] - S2[-1, n]*S2[2, 1, -2, n] + S2[2, 3, 1, n] - 
   S2[3, -2, -1, n] - S2[3, -1, -2, n] - S2[-1, n]*S2[3, -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] + S2[-1, n]*S2[-2, -1, 1, -1, n] + 
   S2[-2, -1, 1, 2, n] + S2[-2, -1, 2, 1, n] + 
   S2[-1, n]*S2[-2, 1, -1, -1, n] + S2[-2, 1, -1, 2, n] + 
   S2[-2, 1, 2, -1, n] + S2[-2, 2, -1, 1, n] + S2[-2, 2, 1, -1, n] + 
   S2[3, -1, -1, 1, n] + S2[3, -1, 1, -1, n] + S2[3, 1, -1, -1, n] - 
   S2[-2, -1, -1, -1, 1, n] - S2[-2, -1, -1, 1, -1, n] - 
   S2[-2, -1, 1, -1, -1, n] - S2[-2, 1, -1, -1, -1, n], 
 S2[-1, -1, -1, -2, -1, n_] -> -(S2[-2, n]*S2[4, n]) + S2[-1, n]*S2[5, n] + 
   S2[-1, n]*S2[-4, -1, n] + S2[-4, 2, n] - S2[-1, n]*S2[-3, -2, n] - 
   S2[-3, 3, n] + S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - 
     (5*S2[-2, -1, n])/3) - (S2[-1, n]^3*S2[-2, -1, n])/3 + 
   S2[-1, n]*S2[3, 2, n] + S2[4, -2, n] - S2[5, -1, n] - 
   2*S2[-4, -1, -1, n] + 2*S2[-3, -2, -1, n] - 2*S2[-1, n]*S2[-2, -1, 2, n] - 
   2*S2[-1, n]*S2[-2, 2, -1, n] - 2*S2[-2, 2, 2, n] + 
   (S2[-1, n]^2*S2[-1, -2, -1, n])/2 + (S2[2, n]*S2[-1, -2, -1, n])/2 - 
   2*S2[-1, n]*S2[3, -1, -1, n] - 2*S2[3, -1, 2, n] - 2*S2[3, 2, -1, n] + 
   3*S2[-1, n]*S2[-2, -1, -1, -1, n] + 3*S2[-2, -1, -1, 2, n] + 
   3*S2[-2, -1, 2, -1, n] + 3*S2[-2, 2, -1, -1, n] + 3*S2[3, -1, -1, -1, n] - 
   4*S2[-2, -1, -1, -1, -1, n], S2[-1, -1, -2, 1, 1, n_] -> 
  -S2[-6, n]/3 - S2[-2, n]^3/6 + S2[-3, n]*S2[3, n] - S2[-3, 3, n] - 
   S2[3, n]*S2[-2, 1, n] + S2[-2, n]*((-3*S2[4, n])/2 + S2[3, 1, n]) + 
   S2[4, -2, n] + (S2[-1, n]^2*S2[-2, 1, 1, n])/2 - 
   (S2[2, n]*S2[-2, 1, 1, n])/2 - S2[-2, 3, 1, n] - S2[3, 1, -2, n] + 
   S2[-1, n]*S2[3, 1, 1, n] - S2[-1, n]*S2[-2, -1, 1, 1, n] - 
   S2[-1, n]*S2[-2, 1, -1, 1, n] - S2[-1, n]*S2[-2, 1, 1, -1, n] + 
   S2[-1, -2, -2, 1, n] + S2[-1, -2, 1, -2, n] + S2[2, -2, 1, 1, n] - 
   S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n] - S2[3, 1, 1, -1, n] + 
   S2[-2, -1, -1, 1, 1, n] + S2[-2, -1, 1, -1, 1, n] + 
   S2[-2, -1, 1, 1, -1, n] + S2[-2, 1, -1, -1, 1, n] + 
   S2[-2, 1, -1, 1, -1, n] + S2[-2, 1, 1, -1, -1, n], 
 S2[-1, -1, -2, 1, -1, n_] -> -S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] - 
   (S2[-2, n]^2*S2[-1, n]^2)/2 + S2[-2, n]*S2[-1, n]*S2[3, n] + 
   S2[3, n]^2/2 - (S2[-1, n]^2*S2[4, n])/2 + S2[6, n] - S2[-4, -2, n] - 
   S2[-2, n]*S2[-3, 1, n] + S2[-1, n]*S2[-3, 2, n] + 
   S2[-2, n]*S2[-1, n]*S2[-2, -1, n] - S2[-2, -1, n]^2/2 + 
   S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-3, n]*(-(S2[-1, n]*S2[2, n]) + 
     S2[-2, 1, n]) - S2[-2, n]*S2[-1, n]*S2[2, 1, n] - 
   2*S2[-1, n]*S2[3, -2, n] + S2[2, n]*S2[3, 1, n] + S2[-1, n]*S2[4, -1, n] + 
   S2[4, 2, n]/2 + S2[5, 1, n] + S2[-4, 1, -1, n] + S2[-3, 1, -2, n] + 
   (S2[-1, n]^2*S2[-2, 1, -1, n])/2 + (S2[2, n]*S2[-2, 1, -1, n])/2 + 
   S2[-1, n]*S2[-1, -2, -2, n] + S2[-1, n]*S2[2, 1, -2, n] - S2[2, 3, 1, n] + 
   S2[3, -2, -1, n] + S2[-1, n]*S2[3, 1, -1, n] - S2[3, 2, 1, n] - 
   S2[4, -1, -1, n] - S2[-1, n]*S2[-2, -1, 1, -1, n] - S2[-2, -1, 1, 2, n] - 
   2*S2[-1, n]*S2[-2, 1, -1, -1, n] - 2*S2[-2, 1, -1, 2, n] - 
   2*S2[-2, 1, 2, -1, n] - S2[-2, 2, 1, -1, n] - S2[3, -1, 1, -1, n] - 
   2*S2[3, 1, -1, -1, n] + S2[-2, -1, -1, 1, -1, n] + 
   2*S2[-2, -1, 1, -1, -1, n] + 3*S2[-2, 1, -1, -1, -1, n], 
 S2[-1, -1, -2, -1, 1, n_] -> (2*S2[-3, n]^2 - 4*S2[-4, n]*S2[-2, n] + 
    4*S2[-5, n]*S2[-1, n] + 5*S2[-2, n]^2*S2[-1, n]^2 - 
    S2[-2, n]^2*S2[2, n] + 4*S2[-2, n]*S2[-1, n]*S2[3, n] + 
    5*S2[-1, n]^2*S2[4, n] + 3*S2[2, n]*S2[4, n] + 2*S2[6, n] - 
    4*S2[-5, -1, n] + 4*S2[-4, -2, n] + 4*S2[-2, n]*S2[-3, 1, n] - 
    8*S2[-2, n]*S2[-1, n]*S2[-2, -1, n] - 4*S2[3, n]*S2[-2, -1, n] + 
    2*S2[-2, -1, n]^2 + 2*S2[-1, n]^3*S2[-2, 1, n] + 
    2*S2[-1, n]*S2[2, n]*S2[-2, 1, n] + 4*S2[-2, n]*S2[2, -2, n] + 
    4*S2[-1, n]*S2[3, -2, n] - 4*S2[-2, n]*S2[3, -1, n] + 
    2*S2[-1, n]^2*S2[3, 1, n] + 2*S2[2, n]*S2[3, 1, n] - 
    4*S2[-1, n]*S2[4, -1, n] - 2*S2[4, 2, n] + 4*S2[5, 1, n] + 
    4*S2[-4, -1, 1, n] - 4*S2[-3, -2, 1, n] - 4*S2[-3, 1, -2, n] - 
    2*S2[-1, n]^2*S2[-2, 1, -1, n] - 2*S2[2, n]*S2[-2, 1, -1, n] + 
    4*S2[-1, n]*S2[-2, 2, 1, n] - 8*S2[-1, n]*S2[-1, -2, -2, n] + 
    4*S2[-2, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]^2*S2[-1, -2, 1, n] - 
    2*S2[2, n]*S2[-1, -2, 1, n] - 4*S2[2, -2, -2, n] + 4*S2[3, -2, -1, n] + 
    4*S2[3, -1, -2, n] + 4*S2[-1, n]*S2[3, -1, 1, n] + 4*S2[3, 2, 1, n] - 
    4*S2[4, -1, -1, n] + 8*S2[-2, -2, -1, -1, n] - 
    8*S2[-1, n]*S2[-2, -1, -1, 1, n] - 4*S2[-1, n]*S2[-2, -1, 1, -1, n] - 
    4*S2[-2, -1, 1, 2, n] - 8*S2[-2, -1, 2, 1, n] - 8*S2[-2, 2, -1, 1, n] - 
    4*S2[-2, 2, 1, -1, n] - 8*S2[3, -1, -1, 1, n] - 4*S2[3, -1, 1, -1, n] + 
    12*S2[-2, -1, -1, -1, 1, n] + 8*S2[-2, -1, -1, 1, -1, n] + 
    4*S2[-2, -1, 1, -1, -1, n])/4, S2[-1, -1, -2, -1, -1, n_] -> 
  (4*S2[-6, n] + S2[-2, n]*S2[-1, n]^2*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
    S2[-4, n]*(S2[-1, n]^2 + S2[2, n]) + 4*S2[-2, n]*S2[4, n] + 
    4*S2[-3, n]*S2[-2, -1, n] + S2[-1, n]^3*S2[-2, -1, n] + 
    S2[-1, n]*S2[2, n]*S2[-2, -1, n] - S2[-1, n]^2*S2[2, -2, n] - 
    S2[2, n]*S2[2, -2, n] + S2[-1, n]^2*S2[3, -1, n] + 
    S2[2, n]*S2[3, -1, n] - 4*S2[4, -2, n] + 4*S2[5, -1, n] + 
    4*S2[-4, -1, -1, n] - 4*S2[-3, -2, -1, n] + 
    4*S2[-1, n]*S2[-2, -1, 2, n] + 4*S2[-1, n]*S2[-2, 2, -1, n] + 
    4*S2[-2, 2, 2, n] - S2[-1, n]^2*S2[-1, -2, -1, n] - 
    S2[2, n]*S2[-1, -2, -1, n] + 4*S2[-1, n]*S2[3, -1, -1, n] + 
    4*S2[3, -1, 2, n] + 4*S2[3, 2, -1, n] - 
    12*S2[-1, n]*S2[-2, -1, -1, -1, n] - 12*S2[-2, -1, -1, 2, n] - 
    12*S2[-2, -1, 2, -1, n] - 12*S2[-2, 2, -1, -1, n] - 
    12*S2[3, -1, -1, -1, n] + 24*S2[-2, -1, -1, -1, -1, n])/4, 
 S2[-1, -2, 1, 1, 1, n_] -> S2[-4, n]*S2[-2, n] + S2[6, n] - S2[-4, -2, n] + 
   S2[-3, n]*S2[-2, 1, n] + S2[5, 1, n] - S2[-3, -2, 1, n] + 
   S2[-2, n]*S2[-2, 1, 1, n] + S2[4, 1, 1, n] - S2[-2, -2, 1, 1, n] + 
   S2[-1, n]*S2[-2, 1, 1, 1, n] + S2[3, 1, 1, 1, n] - 
   S2[-2, -1, 1, 1, 1, n] - S2[-2, 1, -1, 1, 1, n] - S2[-2, 1, 1, -1, 1, n] - 
   S2[-2, 1, 1, 1, -1, n], S2[-1, -2, 1, 1, -1, n_] -> 
  (2*S2[-6, n] + S2[-2, n]^3 + 3*S2[-2, n]^2*(S2[-1, n]*S2[1, n] - 
      S2[1, -1, n]) + 3*S2[-2, n]*(S2[-3, n]*S2[-1, n] + S2[4, n] + 
      2*S2[-3, -1, n] - 3*S2[-1, n]*S2[-2, 1, n] - 2*S2[3, 1, n] + 
      2*S2[-2, 1, -1, n] + 2*S2[-1, -2, 1, n]) + 
    3*(4*S2[-3, 3, n] - 2*S2[-3, n]*S2[-2, -1, n] + 
      2*S2[-2, -1, n]*S2[-2, 1, n] - S2[4, n]*S2[1, -1, n] - 
      2*S2[-3, -2, -1, n] - 4*S2[-3, -1, -2, n] + 2*S2[3, 1, -2, n] + 
      2*S2[4, 1, -1, n] + S2[-1, n]*(S2[1, n]*S2[4, n] + S2[5, n] + 
        S2[-3, -2, n] - S2[4, 1, n] + S2[-2, 1, -2, n] + 
        2*S2[-2, 1, 1, -1, n]) + 2*S2[-2, 1, 1, 2, n] - 
      2*S2[-1, -2, 1, -2, n] - 2*S2[-1, 1, -2, -2, n] + 
      2*S2[3, 1, 1, -1, n] - 2*S2[-2, -1, 1, 1, -1, n] - 
      2*S2[-2, 1, -1, 1, -1, n] - 4*S2[-2, 1, 1, -1, -1, n]))/6, 
 S2[-1, -2, 1, -1, 1, n_] -> (-5*S2[-6, n])/3 - S2[-2, n]^3/3 - 
   3*S2[-3, n]*S2[3, n] - (3*S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
   2*S2[-1, n]*S2[5, n] - S2[-5, 1, n] - S2[-1, n]*S2[-3, -2, n] + 
   2*S2[-3, n]*S2[-2, -1, n] + 2*S2[3, n]*S2[-2, 1, n] - 
   S2[-2, -1, n]*S2[-2, 1, n] - 
   (3*S2[-2, n]^2*(S2[-1, n]*S2[1, n] - S2[1, -1, n]))/2 + 
   (3*S2[4, n]*S2[1, -1, n])/2 - 3*S2[4, -2, n] + S2[-1, n]*S2[4, 1, n] + 
   2*S2[5, -1, n] + S2[-4, 1, 1, n] + S2[-3, -2, -1, n] + 
   3*S2[-3, -1, -2, n] + S2[2, n]*S2[-2, 1, 1, n] + 2*S2[-2, 3, 1, n] - 
   S2[-2, n]*(2*S2[-3, n]*S2[-1, n] - S2[4, n] - 3*S2[-1, n]*S2[-2, 1, n] + 
     S2[3, 1, n] + 2*S2[-2, 1, -1, n] + 2*S2[-1, -2, 1, n]) + 
   S2[3, 1, -2, n] + S2[4, -1, 1, n] - S2[4, 1, -1, n] + 
   S2[-1, n]*S2[-2, 1, -1, 1, n] - S2[-2, 1, 1, 2, n] - S2[-2, 2, 1, 1, n] + 
   S2[-1, -2, -2, 1, n] + 2*S2[-1, -2, 1, -2, n] + 3*S2[-1, 1, -2, -2, n] - 
   S2[2, -2, 1, 1, n] + S2[3, 1, -1, 1, n] - S2[-2, -1, 1, -1, 1, n] - 
   2*S2[-2, 1, -1, -1, 1, n] - S2[-2, 1, -1, 1, -1, n], 
 S2[-1, -2, 1, -1, -1, n_] -> S2[-2, -2, -1, -1, n] + 
   S2[-1, n]*S2[-2, 1, -1, -1, n] + S2[-2, 1, -1, 2, n] + 
   S2[-2, 1, 2, -1, n] + S2[3, 1, -1, -1, n] - S2[-2, -1, 1, -1, -1, n] - 
   3*S2[-2, 1, -1, -1, -1, n], S2[-1, -2, -1, 1, 1, n_] -> 
  3*S2[-6, n] + S2[-2, n]^3/2 + 2*S2[-3, n]*S2[3, n] + 
   S2[-1, n]*S2[1, n]*S2[4, n] + 2*S2[-1, n]*S2[5, n] + 2*S2[-5, 1, n] - 
   S2[-3, 3, n] - S2[-3, n]*S2[-2, -1, n] + 
   S2[-2, n]^2*(S2[-1, n]*S2[1, n] - S2[1, -1, n]) - S2[4, n]*S2[1, -1, n] + 
   S2[4, -2, n] - 2*S2[5, -1, n] - S2[-3, -1, -2, n] - S2[-2, 3, 1, n] + 
   S2[-2, n]*(2*S2[-3, n]*S2[-1, n] + (3*S2[4, n])/2 - S2[-3, -1, n] - 
     S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] + S2[-2, 1, -1, n] + 
     S2[-1, -2, 1, n]) - S2[4, -1, 1, n] + S2[-1, n]*S2[-2, -1, 1, 1, n] + 
   S2[-2, 2, 1, 1, n] - 2*S2[-1, -2, -2, 1, n] - 2*S2[-1, -2, 1, -2, n] - 
   2*S2[-1, 1, -2, -2, n] + S2[3, -1, 1, 1, n] - 2*S2[-2, -1, -1, 1, 1, n] - 
   S2[-2, -1, 1, -1, 1, n] - S2[-2, -1, 1, 1, -1, n], 
 S2[-1, -2, -1, 1, -1, n_] -> (2*S2[-4, n]*S2[-2, n] + S2[-2, n]^2*S2[2, n] + 
    S2[3, n]^2 - S2[2, n]*S2[4, n] + S2[6, n] + 2*S2[-5, -1, n] - 
    2*S2[-4, -2, n] + S2[-2, -1, n]^2 - 2*S2[-2, n]*
     (S2[2, -2, n] - S2[3, -1, n]) + S2[4, 2, n] + 2*S2[2, -2, -2, n] - 
    2*S2[3, -2, -1, n] - 2*S2[3, -1, -2, n] + 2*S2[4, -1, -1, n] - 
    4*S2[-2, -2, -1, -1, n] + 2*S2[-1, n]*S2[-2, -1, 1, -1, n] + 
    2*S2[-2, -1, 1, 2, n] + 2*S2[-2, 2, 1, -1, n] + 2*S2[3, -1, 1, -1, n] - 
    4*S2[-2, -1, -1, 1, -1, n] - 4*S2[-2, -1, 1, -1, -1, n])/2, 
 S2[-1, -2, -1, -1, 1, n_] -> (S2[-4, n]*S2[-2, n] - S2[3, n]^2 + 
    S2[2, n]*S2[4, n] + S2[6, n] + S2[-2, n]*S2[-1, n]*S2[-2, -1, n] + 
    2*S2[3, n]*S2[-2, -1, n] - S2[-2, -1, n]^2 + S2[-2, n]*S2[2, -2, n] - 
    S2[-2, n]*S2[3, -1, n] - S2[4, 2, n] - S2[-2, n]*S2[-1, -2, -1, n] - 
    2*S2[2, -2, -2, n] + 2*S2[3, -1, -2, n] + 
    2*S2[-1, n]*S2[-2, -1, -1, 1, n] + 2*S2[-2, -1, 2, 1, n] + 
    2*S2[-2, 2, -1, 1, n] + 2*S2[3, -1, -1, 1, n] - 
    6*S2[-2, -1, -1, -1, 1, n] - 2*S2[-2, -1, -1, 1, -1, n])/2, 
 S2[-1, -2, -1, -1, -1, n_] -> S2[-1, n]*S2[-2, -1, -1, -1, n] + 
   S2[-2, -1, -1, 2, n] + S2[-2, -1, 2, -1, n] + S2[-2, 2, -1, -1, n] + 
   S2[3, -1, -1, -1, n] - 4*S2[-2, -1, -1, -1, -1, n], 
 S2[2, 2, 1, -1, n_] -> S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n] - 
   (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
   S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
   (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
      2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
        S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
   S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n], S2[2, 2, -1, 1, n_] -> 
  -S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
   S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
   (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
   S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
   (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
   S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
   S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - S2[-3, 2, 1, n] - 
   S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + S2[3, -1, 2, n] + 
   S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n] + 
   S2[-1, 2, 2, 1, n], S2[2, 1, 2, 1, n_] -> 
  (S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n] + 
    3*(S2[2, 1, n]^2 - S2[4, 2, n] + 2*S2[2, 3, 1, n] + 2*S2[4, 1, 1, n] - 
      4*S2[2, 2, 1, 1, n]))/6, S2[2, 1, 2, -1, n_] -> 
  S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
   S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
   S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
   S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + 
   S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 2*S2[-1, n]*S2[2, 2, 1, n] - 
   S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n], S2[2, 1, 1, 2, n_] -> 
  (-S2[2, n]^3 + 4*S2[6, n] + 6*S2[3, n]*S2[2, 1, n] - 3*S2[2, 1, n]^2 - 
    3*S2[4, 2, n] + 6*S2[5, 1, n] + 3*S2[2, n]*
     (S2[4, n] + 2*S2[2, 1, 1, n]) - 6*S2[2, 3, 1, n] - 6*S2[3, 2, 1, n])/6, 
 S2[2, 1, 1, -2, n_] -> -S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] + 
   S2[3, n]*S2[-2, 1, n] + S2[2, n]*S2[2, -2, n] - S2[-2, 1, n]*S2[2, 1, n] + 
   S2[-3, n]*(-S2[3, n] + S2[2, 1, n]) + S2[-3, 1, 2, n] + 
   S2[2, n]*S2[-2, 1, 1, n] + S2[-2, 2, 2, n] - 
   S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) + S2[3, 1, -2, n] - 
   S2[-2, 1, 1, 2, n], S2[2, 1, -1, 2, n_] -> 
  -S2[-6, n] + S2[-4, n]*S2[2, n] - S2[-1, n]*S2[1, n]*S2[2, n]^2 - 
   2*S2[-3, n]*S2[3, n] - S2[-1, n]*S2[2, n]*S2[3, n] - 
   S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] - S2[-4, 2, n] - 
   S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + 
   S2[4, n]*S2[1, -1, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
   S2[3, n]*S2[2, -1, n] + S2[-3, n]*S2[2, 1, n] + 
   S2[-1, n]*S2[2, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] + 
   S2[2, n]*S2[3, -1, n] - S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + 
   S2[5, -1, n] - 2*S2[-2, 2, 2, n] - S2[2, n]*S2[1, 2, -1, n] - 
   S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
   S2[4, 1, -1, n] + 2*S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n], 
 S2[2, 1, -1, -2, n_] -> S2[-4, n]*S2[-2, n] - S2[3, n]^2/2 + S2[6, n]/2 - 
   S2[-4, -2, n] - S2[-2, n]*S2[2, -2, n] - S2[-2, -1, n]*S2[2, 1, n] + 
   S2[3, n]*(S2[-2, -1, n] + S2[2, 1, n]) - S2[-2, n]*S2[3, -1, n] + 
   S2[5, 1, n] + S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + 
     S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
     S2[-1, -2, 1, n]) + S2[2, -2, -2, n] + S2[-2, n]*S2[2, 1, -1, n] - 
   S2[2, 3, 1, n] + S2[3, -1, -2, n] - S2[3, 2, 1, n] - S2[-2, -1, 1, 2, n], 
 S2[2, 1, -2, 1, n_] -> S2[-6, n] + S2[-4, n]*S2[2, n] + 
   S2[-2, n]*S2[2, n]^2 + S2[-3, n]*S2[3, n] + S2[-5, 1, n] + 
   S2[2, n]*S2[-3, 1, n] - S2[3, n]*S2[-2, 1, n] - S2[2, n]*S2[2, -2, n] + 
   S2[-2, 1, n]*S2[2, 1, n] + S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - 
   S2[-3, 1, 2, n] - S2[-3, 2, 1, n] - S2[2, n]*S2[-2, 1, 1, n] - 
   S2[-2, 2, 2, n] - S2[3, 1, -2, n] + S2[-2, 1, 1, 2, n] - 
   S2[-2, 2, 1, 1, n] - S2[2, -2, 1, 1, n], S2[2, 1, -2, -1, n_] -> 
  S2[-3, n]^2 - 2*S2[-4, n]*S2[-2, n] - (S2[-2, n]^2*S2[2, n])/2 + 
   (S2[2, n]*S2[4, n])/2 + 2*S2[-4, -2, n] + S2[2, n]*S2[-3, -1, n] + 
   S2[-2, n]*S2[-3, 1, n] - S2[3, n]*S2[-2, -1, n] - S2[-3, n]*S2[-2, 1, n] - 
   S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-2, n]*S2[2, -2, n] + 
   S2[-2, -1, n]*S2[2, 1, n] - S2[2, n]*S2[3, 1, n] - S2[4, 2, n] - 
   S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - S2[-3, 2, -1, n] + 
   S2[2, n]*S2[-1, -2, 1, n] - S2[2, -2, -2, n] + S2[3, -2, -1, n] + 
   S2[-2, -1, 1, 2, n] + S2[-2, 1, -1, 2, n] + S2[-2, 1, 2, -1, n], 
 S2[2, -1, 2, 1, n_] -> S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - 
   S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] - 
   S2[2, n]*S2[3, -1, n] + S2[4, -2, n] + 
   S2[-1, n]*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
     S2[4, 1, n]) - S2[5, -1, n] + S2[-3, 2, 1, n] + 
   S2[2, n]*S2[1, 2, -1, n] + S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
   S2[4, 1, -1, n] - S2[-1, 2, 1, 2, n] - 2*S2[-1, 2, 2, 1, n], 
 S2[2, -1, 2, -1, n_] -> (3*S2[-3, n]^2 + S2[2, n]^3 + 5*S2[6, n] + 
    6*S2[-5, -1, n] + 3*S2[2, n]*(S2[4, n] + 2*S2[-3, -1, n]) + 
    3*S2[2, -1, n]^2 - 3*S2[4, 2, n] - 6*S2[-3, -1, 2, n] - 
    6*S2[-3, 2, -1, n] + 6*S2[4, -1, -1, n] - 12*S2[2, 2, -1, -1, n])/6, 
 S2[2, -1, 1, 2, n_] -> 2*S2[-6, n] + S2[-3, n]*S2[3, n] + 
   S2[-2, n]*S2[4, n] + S2[-4, 2, n] - S2[-3, 3, n] - S2[4, n]*S2[1, -1, n] - 
   S2[4, -2, n] + S2[-1, n]*(S2[1, n]*S2[4, n] + S2[5, n] + S2[3, 2, n] - 
     S2[4, 1, n]) - S2[5, -1, n] + S2[-3, 1, 2, n] + 
   S2[2, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, n]*S2[1, -1, n] - 
     S2[2, -2, n] + S2[-1, n]*(S2[1, n]*S2[2, n] + S2[3, n] - S2[2, 1, n]) - 
     S2[3, -1, n] + S2[2, 1, -1, n]) - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
   S2[4, 1, -1, n] - 2*S2[-1, 1, 2, 2, n] - S2[-1, 2, 1, 2, n], 
 S2[2, -1, 1, -2, n_] -> -S2[-3, n]^2 + S2[-4, n]*S2[-2, n] - S2[-4, -2, n] - 
   S2[2, n]*S2[-3, -1, n] - S2[-2, n]*S2[-3, 1, n] + 
   S2[-2, n]*S2[1, n]*S2[2, -1, n] - S2[-2, 1, n]*S2[2, -1, n] + 
   S2[-3, n]*(S2[-2, 1, n] + S2[2, -1, n]) + S2[-2, n]*S2[3, -1, n] + 
   S2[-3, -1, 2, n] + S2[-3, 1, -2, n] + S2[2, n]*S2[-2, 1, -1, n] - 
   S2[-2, n]*S2[1, 2, -1, n] + S2[2, -2, -2, n] - S2[-2, n]*S2[2, 1, -1, n] - 
   S2[-2, 1, -1, 2, n], S2[2, -1, -1, 2, n_] -> 
  (-6*S2[-3, n]^2 + S2[2, n]^3 + 12*S2[-3, n]*S2[2, -1, n] + 
    2*(S2[6, n] - 3*(S2[2, -1, n]^2 + S2[4, 2, n] - 2*S2[-3, -1, 2, n])) + 
    S2[2, n]*(9*S2[4, n] - 6*(S2[-3, -1, n] - S2[-1, n]*S2[2, -1, n] + 
        S2[-1, 2, -1, n])))/12, S2[2, -1, -1, -2, n_] -> 
  (2*S2[-4, n]*S2[2, n] - 4*S2[-3, n]*S2[3, n] - 4*S2[-4, 2, n] + 
    4*S2[-3, n]*S2[-2, -1, n] + 2*S2[-1, n]*S2[2, n]*S2[-2, -1, n] + 
    2*S2[2, n]*S2[2, -2, n] + 4*S2[3, n]*S2[2, -1, n] - 
    4*S2[-2, -1, n]*S2[2, -1, n] - 2*S2[2, n]*S2[3, -1, n] + 
    4*S2[-3, -1, -2, n] + 4*S2[-2, 2, 2, n] - 2*S2[2, n]*S2[-1, -2, -1, n] + 
    S2[-2, n]*(-S2[2, n]^2 + S2[4, n] - 
      2*(S2[-3, -1, n] - S2[-1, n]*S2[2, -1, n] + S2[-1, 2, -1, n])) + 
    4*S2[3, -1, 2, n] - 4*S2[-2, -1, -1, 2, n])/4, 
 S2[2, -1, -2, 1, n_] -> -2*S2[-4, n]*S2[-2, n] - (S2[-2, n]^2*S2[2, n])/2 + 
   S2[3, n]^2/2 + (S2[2, n]*S2[4, n])/2 - S2[6, n]/2 + 2*S2[-4, -2, n] - 
   S2[3, n]*S2[-2, -1, n] - S2[-3, n]*S2[-2, 1, n] - 
   S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-2, 1, n]*S2[2, -1, n] + 
   S2[-2, n]*(S2[2, -2, n] + S2[3, -1, n]) - S2[2, n]*S2[3, 1, n] - 
   S2[4, 2, n] - S2[5, 1, n] + S2[-3, -2, 1, n] + S2[2, n]*S2[-1, -2, 1, n] - 
   S2[2, -2, -2, n] + S2[2, 3, 1, n] - S2[3, -1, -2, n] + 
   S2[-2, -1, 1, 2, n] + S2[-2, -1, 2, 1, n] + S2[-2, 1, -1, 2, n], 
 S2[2, -1, -2, -1, n_] -> S2[-2, n]*(-S2[4, n] + S2[-3, -1, n]) + 
   S2[-3, n]*(S2[3, n] - 2*S2[-2, -1, n]) - S2[-1, n]*S2[2, n]*
    S2[-2, -1, n] + S2[-2, -1, n]*S2[2, -1, n] + S2[4, -2, n] + 
   S2[-3, -2, -1, n] - S2[-3, -1, -2, n] - S2[-2, 2, 2, n] + 
   S2[2, n]*S2[-1, -2, -1, n] - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
   2*S2[-2, -1, -1, 2, n] + S2[-2, -1, 2, -1, n], 
 S2[2, -2, 1, -1, n_] -> -S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] + 
   S2[3, n]^2/2 + S2[6, n] + S2[-5, -1, n] - S2[-4, -2, n] - 
   S2[-2, n]*S2[-3, 1, n] + S2[-3, n]*S2[-2, 1, n] + S2[-2, n]*S2[3, -1, n] + 
   S2[-4, 1, -1, n] + S2[-3, 1, -2, n] + S2[2, n]*S2[-2, 1, -1, n] - 
   S2[3, -2, -1, n] - S2[3, -1, -2, n] - S2[-2, 1, -1, 2, n] - 
   S2[-2, 1, 2, -1, n] - S2[-2, 2, 1, -1, n], 
 S2[2, -2, -1, 1, n_] -> S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] - S2[3, n]^2/2 + 
   S2[6, n] - S2[-4, -2, n] + S2[-2, n]*S2[-3, 1, n] + 
   S2[3, n]*S2[-2, -1, n] - S2[-2, n]*S2[3, -1, n] + S2[5, 1, n] + 
   S2[-4, -1, 1, n] - S2[-3, -2, 1, n] - S2[-3, 1, -2, n] + 
   S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
     S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + S2[3, -1, -2, n] - 
   S2[-2, -1, 1, 2, n] - S2[-2, -1, 2, 1, n] - S2[-2, 2, -1, 1, n], 
 S2[2, -2, -1, -1, n_] -> (2*S2[-6, n] + S2[-4, n]*S2[2, n] + 
    S2[-2, n]*S2[2, n]^2 + 2*S2[-2, n]*S2[4, n] + 2*S2[-3, n]*S2[-2, -1, n] + 
    S2[-1, n]*S2[2, n]*S2[-2, -1, n] - S2[2, n]*S2[2, -2, n] + 
    S2[2, n]*S2[3, -1, n] - 2*S2[4, -2, n] + 2*S2[5, -1, n] + 
    2*S2[-4, -1, -1, n] - 2*S2[-3, -2, -1, n] - S2[2, n]*S2[-1, -2, -1, n] - 
    2*S2[-2, -1, -1, 2, n] - 2*S2[-2, -1, 2, -1, n] - 2*S2[-2, 2, -1, -1, n])/
   2, S2[1, 3, 1, 1, n_] -> S2[3, n]^2/2 + S2[6, n]/2 + 
   S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - S2[2, 3, 1, n] + 
   S2[1, n]*S2[3, 1, 1, n] + S2[4, 1, 1, n] - 3*S2[3, 1, 1, 1, n], 
 S2[1, 3, 1, -1, n_] -> S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + 
   S2[3, 2, -1, n] + S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 
   2*S2[3, 1, 1, -1, n], S2[1, 3, -1, 1, n_] -> 
  S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
   S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] + S2[1, n]*S2[3, -1, 1, n] + 
   S2[3, -1, 2, n] - S2[3, 1, -2, n] + S2[4, -1, 1, n] - 
   2*S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n], 
 S2[1, 3, -1, -1, n_] -> S2[3, -2, -1, n] + S2[3, -1, -2, n] + 
   S2[1, n]*S2[3, -1, -1, n] + S2[4, -1, -1, n] - S2[3, -1, -1, 1, n] - 
   S2[3, -1, 1, -1, n] - S2[3, 1, -1, -1, n], 
 S2[1, 2, 2, 1, n_] -> -S2[2, 1, n]^2/2 + S2[4, 2, n]/2 + 
   S2[1, n]*S2[2, 2, 1, n] + S2[3, 2, 1, n] - S2[4, 1, 1, n], 
 S2[1, 2, 2, -1, n_] -> -(S2[2, -1, n]*S2[2, 1, n]) + S2[4, -2, n] + 
   S2[-3, 2, 1, n] + S2[1, n]*(-S2[-3, 2, n] + S2[2, n]*S2[2, -1, n] + 
     S2[4, -1, n] + S2[-1, 2, 2, n]) - 
   (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) - 2*S2[2, 2, 1, n]))/2 + 
   S2[3, 2, -1, n] - S2[4, -1, 1, n] - S2[4, 1, -1, n] - S2[-1, 2, 2, 1, n], 
 S2[1, 2, 1, 2, n_] -> (2*S2[2, n]^3 + 3*S2[3, n]^2 + 6*S2[1, n]*S2[5, n] + 
    S2[6, n] - 6*S2[3, n]*S2[2, 1, n] + 3*S2[2, 1, n]^2 - 
    6*S2[1, n]*S2[3, 2, n] + 6*S2[1, n]*S2[4, 1, n] + 3*S2[4, 2, n] + 
    6*S2[2, n]*(S2[1, n]*(S2[3, n] + S2[2, 1, n]) + S2[3, 1, n] - 
      2*S2[2, 1, 1, n]) - 12*S2[1, n]*S2[2, 2, 1, n] - 6*S2[2, 3, 1, n] - 
    6*S2[4, 1, 1, n] + 12*S2[2, 2, 1, 1, n])/6, 
 S2[1, 2, 1, -2, n_] -> -S2[-5, 1, n] - S2[-3, 3, n] - 
   S2[3, n]*S2[-2, 1, n] + S2[-3, n]*(S2[3, n] - S2[2, 1, n]) + 
   S2[-2, 1, n]*S2[2, 1, n] + S2[4, -2, n] - S2[-4, 1, 1, n] + 
   S2[-3, 2, 1, n] - S2[2, n]*S2[-2, 1, 1, n] + S2[1, n]*S2[2, 1, -2, n] + 
   (S2[-2, n]*(S2[2, n]^2 - S2[4, n] + 2*S2[3, 1, n] - 4*S2[2, 1, 1, n]))/2 + 
   S2[-2, 1, 1, 2, n] + S2[-2, 2, 1, 1, n] + S2[2, -2, 1, 1, n], 
 S2[1, 2, -1, 2, n_] -> S2[-5, n]*S2[1, n] + S2[-3, n]*S2[3, n] - 
   S2[-5, 1, n] - 2*S2[3, n]*(S2[-3, n] + S2[-1, n]*S2[2, n] - 
     S2[2, -1, n]) + (S2[-3, n] + S2[-1, n]*S2[2, n] - S2[2, -1, n])*
    (S2[1, n]*S2[2, n] + S2[3, n] - S2[2, 1, n]) - S2[4, -2, n] + 
   S2[-1, n]*(S2[1, n]*S2[4, n] - S2[5, n] + S2[3, 2, n] - S2[4, 1, n]) + 
   S2[5, -1, n] - S2[-3, 1, 2, n] - S2[-3, 2, 1, n] + 
   S2[1, n]*(S2[-3, 2, n] - S2[4, -1, n] - 2*S2[-1, 2, 2, n]) + 
   S2[3, -1, 2, n] - S2[3, 2, -1, n] + S2[4, -1, 1, n] + S2[4, 1, -1, n] + 
   S2[-1, 2, 1, 2, n] + 2*S2[-1, 2, 2, 1, n], 
 S2[1, 2, -1, -2, n_] -> S2[-3, n]^2/2 - S2[-3, n]*S2[-2, n]*S2[1, n] + 
   S2[6, n]/2 + S2[-2, n]*S2[-3, 1, n] - S2[3, n]*S2[2, 1, n] + 
   S2[-2, -1, n]*S2[2, 1, n] - S2[-2, n]*S2[3, -1, n] - S2[-3, -2, 1, n] - 
   S2[-3, 1, -2, n] + S2[1, n]*(S2[-3, -2, n] + 
     S2[2, n]*(S2[3, n] - S2[-2, -1, n]) - S2[3, 2, n] + S2[-2, -1, 2, n]) + 
   S2[-2, n]*S2[1, 2, -1, n] + S2[3, -1, -2, n] + S2[3, 2, 1, n] - 
   S2[-2, -1, 2, 1, n], S2[1, 2, -2, 1, n_] -> 
  S2[-6, n] + S2[-5, n]*S2[1, n] + S2[-3, n]*S2[1, n]*S2[2, n] + 
   S2[-2, n]*S2[4, n] + S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] + S2[-4, 2, n] - 
   S2[1, n]*S2[-3, 2, n] + S2[3, n]*S2[-2, 1, n] + 
   S2[-2, n]*S2[1, n]*S2[2, 1, n] - S2[-2, 1, n]*S2[2, 1, n] - S2[4, -2, n] - 
   S2[-4, 1, 1, n] + S2[2, n]*S2[-2, 1, 1, n] - S2[1, n]*S2[-2, 2, 1, n] - 
   S2[-2, 2, 2, n] - S2[-2, 3, 1, n] - S2[1, n]*S2[2, 1, -2, n] - 
   S2[-2, 1, 1, 2, n] + S2[-2, 2, 1, 1, n] - S2[2, -2, 1, 1, n], 
 S2[1, 2, -2, -1, n_] -> -S2[-3, n]^2/2 + S2[-3, n]*S2[-2, n]*S2[1, n] + 
   S2[1, n]*S2[5, n] - (3*S2[6, n])/2 + S2[1, n]*S2[-4, -1, n] - 
   S2[1, n]*S2[-3, -2, n] - S2[-2, n]*S2[-3, 1, n] + 
   S2[2, n]*(-S2[4, n] + S2[1, n]*S2[-2, -1, n]) - S2[-2, n]*S2[2, -2, n] - 
   S2[-2, -1, n]*S2[2, 1, n] + S2[4, 2, n] - S2[5, 1, n] - S2[-4, -1, 1, n] - 
   S2[-4, 1, -1, n] + S2[-3, -2, 1, n] + S2[-3, 1, -2, n] - 
   S2[1, n]*S2[-2, -1, 2, n] - S2[1, n]*S2[-2, 2, -1, n] + 
   2*S2[2, -2, -2, n] + S2[3, -2, -1, n] + S2[-2, -1, 2, 1, n] + 
   S2[-2, 2, -1, 1, n] + S2[-2, 2, 1, -1, n], 
 S2[1, 1, 3, 1, n_] -> (-S2[3, n]^2 - S2[6, n] + S2[1, n]^2*S2[3, 1, n] - 
    3*S2[2, n]*S2[3, 1, n] + 2*S2[4, 2, n] - 2*S2[5, 1, n] + 
    4*S2[2, 3, 1, n] + 2*S2[1, n]*(S2[3, 2, n] + S2[4, 1, n] - 
      2*S2[3, 1, 1, n]) - 4*S2[4, 1, 1, n] + 6*S2[3, 1, 1, 1, n])/2, 
 S2[1, 1, 3, -1, n_] -> -S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + 
   (S2[2, n]*S2[3, -1, n])/2 - S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + 
   S2[5, -1, n] + S2[-2, 3, 1, n] - S2[3, -1, 2, n] + 
   S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
     S2[3, 1, -1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - S2[4, 1, -1, n] + 
   S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + S2[3, 1, 1, -1, n], 
 S2[1, 1, 2, 2, n_] -> -S2[2, n]^3/12 + (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/
    4 + S2[6, n]/3 - S2[5, 1, n] + S2[2, n]*(S2[4, n]/4 - S2[3, 1, n] + 
     S2[2, 1, 1, n]) + S2[1, n]*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - 
     S2[4, 1, n] + S2[2, 2, 1, n]) + S2[2, 3, 1, n] + S2[4, 1, 1, n] - 
   S2[2, 2, 1, 1, n], S2[1, 1, 2, -2, n_] -> 
  -S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - S2[-4, 2, n] + 
   (S2[1, n]^2*S2[2, -2, n])/2 + (S2[2, n]*S2[2, -2, n])/2 + 
   S2[1, n]*S2[3, -2, n] + S2[4, -2, n] + S2[-4, 1, 1, n] + 
   S2[1, n]*S2[-2, 2, 1, n] + S2[-2, 2, 2, n] + S2[-2, 3, 1, n] - 
   (S2[-2, n]*(S2[2, n]^2 + S2[4, n] + 2*S2[1, n]*S2[2, 1, n] + 
      2*S2[3, 1, n] - 2*S2[2, 1, 1, n]))/2 - S2[-2, 2, 1, 1, n], 
 S2[1, 1, 1, 3, n_] -> (S2[1, n]^3*S2[3, n] + 2*S2[3, n]^2 + 
    3*S2[2, n]*S2[4, n] + 6*S2[6, n] + 3*S2[1, n]^2*
     (S2[4, n] - S2[3, 1, n]) + 3*S2[2, n]*S2[3, 1, n] - 6*S2[4, 2, n] - 
    6*S2[2, 3, 1, n] + 3*S2[1, n]*(S2[2, n]*S2[3, n] + 
      2*(S2[5, n] - S2[3, 2, n] - S2[4, 1, n] + S2[3, 1, 1, n])) + 
    6*S2[4, 1, 1, n] - 6*S2[3, 1, 1, 1, n])/6, 
 S2[1, 1, 1, -3, n_] -> (6*S2[-6, n] + 6*S2[-5, n]*S2[1, n] + 
    3*S2[-4, n]*S2[1, n]^2 + S2[-3, n]*S2[1, n]^3 + 3*S2[-4, n]*S2[2, n] + 
    3*S2[-3, n]*S2[1, n]*S2[2, n] + 2*S2[-3, n]*S2[3, n] - 6*S2[-5, 1, n] - 
    6*S2[1, n]*S2[-4, 1, n] - 6*S2[-4, 2, n] - 3*S2[1, n]^2*S2[-3, 1, n] - 
    3*S2[2, n]*S2[-3, 1, n] - 6*S2[1, n]*S2[-3, 2, n] - 6*S2[-3, 3, n] + 
    6*S2[-4, 1, 1, n] + 6*S2[1, n]*S2[-3, 1, 1, n] + 6*S2[-3, 1, 2, n] + 
    6*S2[-3, 2, 1, n] - 6*S2[-3, 1, 1, 1, n])/6, 
 S2[1, 1, -1, 3, n_] -> S2[-6, n] + S2[-5, n]*S2[1, n] + 
   (S2[-4, n]*S2[1, n]^2)/2 + (S2[-4, n]*S2[2, n])/2 - 
   S2[1, n]*S2[-4, 1, n] - S2[-4, 2, n] - S2[1, n]*S2[3, -2, n] - 
   (S2[1, n]^2*S2[3, -1, n])/2 - (S2[2, n]*S2[3, -1, n])/2 + 
   S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - S2[-2, 3, 1, n] + 
   S2[3, n]*S2[1, 1, -1, n] + S2[1, n]*S2[3, -1, 1, n] + S2[3, -1, 2, n] - 
   S2[3, 1, -2, n] - S2[3, -1, 1, 1, n], S2[1, 1, -1, -3, n_] -> 
  (-S2[-3, n]^2 + S2[2, n]*S2[4, n] + S2[6, n] + 
    S2[1, n]^2*(S2[4, n] - S2[-3, -1, n]) - S2[2, n]*S2[-3, -1, n] - 
    2*S2[4, 2, n] - 2*S2[5, 1, n] + 2*S2[-3, -2, 1, n] + 
    2*S2[1, n]*(S2[5, n] - S2[-3, -2, n] - S2[4, 1, n] + S2[-3, -1, 1, n]) + 
    2*S2[-3, -1, 2, n] + 2*S2[-3, n]*S2[1, 1, -1, n] + 2*S2[4, 1, 1, n] - 
    2*S2[-3, -1, 1, 1, n])/2, S2[1, 1, -2, 2, n_] -> 
  S2[-6, n] - S2[-2, n]*S2[1, n]*S2[3, n] + 
   S2[-2, n]*(S2[1, n]*S2[3, n] + S2[4, n]) + S2[-4, 2, n] + S2[-3, 3, n] + 
   (S2[1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]))/2 + 
   (S2[2, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]))/2 - 
   S2[4, -2, n] + S2[-4, 1, 1, n] - S2[-3, 1, 2, n] - S2[-3, 2, 1, n] + 
   S2[2, n]*S2[-2, 1, 1, n] - 2*S2[-2, 2, 2, n] + 
   S2[1, n]*(S2[-5, n] + S2[-3, n]*S2[2, n] - S2[2, n]*S2[-2, 1, n] + 
     S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n]) - 
   S2[2, -2, 1, 1, n], S2[1, 1, -2, -2, n_] -> 
  (2*S2[-3, n]^2 + 2*S2[-3, n]*S2[-2, n]*S2[1, n] + 
    S2[-2, n]^2*(S2[1, n]^2 - S2[2, n]) + S2[1, n]^2*S2[4, n] - 
    S2[2, n]*S2[4, n] + 2*S2[1, n]*S2[5, n] + 2*S2[6, n] + 
    2*S2[1, n]*S2[-3, -2, n] - 2*S2[1, n]*S2[4, 1, n] - 4*S2[-3, -2, 1, n] - 
    4*S2[-3, 1, -2, n] - 2*S2[1, n]*S2[-2, 1, -2, n] + 
    S2[-2, n]*(-2*S2[1, n]*S2[-2, 1, n] + 4*S2[-2, 1, 1, n]) + 
    4*S2[2, -2, -2, n] + 4*S2[4, 1, 1, n] - 4*S2[-2, -2, 1, 1, n])/4, 
 S2[1, 1, -3, 1, n_] -> S2[-5, 1, n] + S2[-4, 2, n] + 
   (S2[1, n]^2*S2[-3, 1, n])/2 + (S2[2, n]*S2[-3, 1, n])/2 + S2[-3, 3, n] - 
   2*S2[-4, 1, 1, n] + S2[1, n]*(S2[-4, 1, n] + S2[-3, 2, n] - 
     2*S2[-3, 1, 1, n]) - 2*S2[-3, 1, 2, n] - 2*S2[-3, 2, 1, n] + 
   3*S2[-3, 1, 1, 1, n], S2[1, 1, -3, -1, n_] -> 
  S2[-3, n]^2/2 + S2[6, n]/2 + S2[-5, -1, n] + S2[-4, -2, n] + 
   S2[1, n]*S2[-4, -1, n] + S2[1, n]*S2[-3, -2, n] + 
   (S2[1, n]^2*S2[-3, -1, n])/2 + (S2[2, n]*S2[-3, -1, n])/2 - 
   S2[-4, -1, 1, n] - S2[-4, 1, -1, n] - S2[-3, -2, 1, n] - 
   S2[1, n]*S2[-3, -1, 1, n] - S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - 
   S2[1, n]*S2[-3, 1, -1, n] - S2[-3, 2, -1, n] + S2[-3, -1, 1, 1, n] + 
   S2[-3, 1, -1, 1, n] + S2[-3, 1, 1, -1, n], 
 S2[1, -1, 3, 1, n_] -> -S2[-6, n] - S2[-3, n]*S2[3, n] - S2[-5, 1, n] + 
   S2[1, n]*S2[-4, 1, n] + S2[-4, 2, n] + S2[-3, 3, n] + 
   S2[1, n]*S2[3, -2, n] - 2*S2[-2, n]*S2[3, 1, n] + 
   S2[1, -1, n]*S2[3, 1, n] - 2*S2[-4, 1, 1, n] + 2*S2[-2, 3, 1, n] - 
   S2[1, n]*S2[3, -1, 1, n] - S2[3, -1, 2, n] + S2[3, 1, -2, n] - 
   S2[1, n]*S2[3, 1, -1, n] + 2*S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n], 
 S2[1, -1, 3, -1, n_] -> S2[3, n]^2/2 + S2[6, n]/2 + S2[-5, -1, n] + 
   S2[-4, -2, n] + S2[1, -1, n]*S2[3, -1, n] - S2[-4, -1, 1, n] - 
   S2[-4, 1, -1, n] - S2[3, -2, -1, n] - 2*S2[3, -1, -2, n] + 
   S2[1, n]*(S2[-4, -1, n] + S2[3, 2, n] - 2*S2[3, -1, -1, n]) - 
   S2[3, 2, 1, n] + 2*S2[3, -1, -1, 1, n] + S2[3, -1, 1, -1, n], 
 S2[1, -1, 2, 2, n_] -> S2[-6, n] + S2[-1, n]*S2[5, n] + S2[-4, 2, n] + 
   S2[3, n]*(S2[-3, n] + S2[-1, n]*S2[2, n] - S2[2, -1, n]) - S2[5, -1, n] + 
   S2[-2, 2, 2, n] + S2[1, n]*S2[-1, 2, 2, n] - S2[3, -1, 2, n] - 
   S2[-1, 1, 2, 2, n] - S2[-1, 2, 1, 2, n] - S2[-1, 2, 2, 1, n], 
 S2[1, -1, 2, -2, n_] -> S2[-3, n]^2/2 + S2[2, n]*S2[4, n] + (3*S2[6, n])/2 + 
   S2[-4, -2, n] - S2[1, n]*S2[-4, -1, n] + S2[1, n]*S2[-3, -2, n] + 
   S2[-2, n]*S2[2, -2, n] + S2[1, -1, n]*S2[2, -2, n] + 
   S2[-2, n]*S2[3, -1, n] - S2[4, 2, n] + S2[-4, -1, 1, n] - 
   S2[-3, -2, 1, n] - S2[-3, 1, -2, n] + S2[1, n]*S2[-2, 2, -1, n] - 
   S2[-2, n]*S2[1, 2, -1, n] - 2*S2[2, -2, -2, n] - 
   S2[-2, n]*S2[2, 1, -1, n] - S2[-2, 2, -1, 1, n], 
 S2[1, -1, 1, 3, n_] -> S2[-6, n] + S2[-5, n]*S2[1, n] + S2[-3, n]*S2[3, n] + 
   S2[-2, n]*S2[1, n]*S2[3, n] - S2[3, n]*S2[-2, 1, n] + 
   S2[1, n]*S2[3, n]*S2[1, -1, n] + S2[4, n]*S2[1, -1, n] + 
   S2[3, n]*S2[2, -1, n] - S2[1, n]*S2[3, -2, n] + S2[-2, n]*S2[3, 1, n] - 
   S2[1, -1, n]*S2[3, 1, n] - S2[4, -2, n] - S2[1, n]*S2[4, -1, n] - 
   S2[-2, 3, 1, n] - 2*S2[3, n]*S2[1, 1, -1, n] + S2[1, n]*S2[3, 1, -1, n] + 
   S2[4, -1, 1, n] - S2[3, 1, -1, 1, n], S2[1, -1, 1, -3, n_] -> 
  S2[-3, n]^2/2 + S2[6, n]/2 - S2[-4, -2, n] + S2[-4, n]*S2[1, -1, n] - 
   S2[-3, 1, n]*S2[1, -1, n] - S2[5, 1, n] + S2[-4, -1, 1, n] + 
   S2[-3, -2, 1, n] + S2[-3, 1, -2, n] + 
   S2[1, n]*(S2[5, n] - S2[-4, -1, n] - S2[-3, -2, n] + S2[-3, 1, -1, n]) + 
   S2[-3, n]*(S2[-2, n]*S2[1, n] - S2[-2, 1, n] + S2[1, n]*S2[1, -1, n] + 
     S2[2, -1, n] - 2*S2[1, 1, -1, n]) - S2[-3, 1, -1, 1, n], 
 S2[1, -1, -1, 3, n_] -> (S2[6, n] - 2*S2[-4, -2, n] + 
    S2[3, n]*S2[-2, -1, n] + 2*S2[-4, n]*S2[1, -1, n] + 
    S2[-1, n]*S2[3, n]*S2[1, -1, n] - S2[3, n]*S2[2, 1, n] - 
    2*S2[1, -1, n]*S2[3, -1, n] - 2*S2[5, 1, n] + 2*S2[-4, -1, 1, n] - 
    S2[3, n]*S2[-1, 1, -1, n] + 2*S2[3, -1, -2, n] + 
    S2[1, n]*(S2[2, n]*S2[3, n] + 2*(S2[5, n] - S2[-4, -1, n] - S2[3, 2, n] + 
        S2[3, -1, -1, n])) + 2*S2[3, 2, 1, n] - 2*S2[3, -1, -1, 1, n])/2, 
 S2[1, -1, -1, -3, n_] -> (2*S2[-6, n] + 2*S2[-5, n]*S2[1, n] + 
    S2[-3, n]*S2[1, n]*S2[2, n] + S2[-3, n]*S2[3, n] - 2*S2[-5, 1, n] - 
    2*S2[1, n]*S2[-3, 2, n] - 2*S2[-3, 3, n] + S2[-3, n]*S2[-2, -1, n] + 
    S2[-3, n]*S2[-1, n]*S2[1, -1, n] + 2*S2[4, n]*S2[1, -1, n] - 
    2*S2[-3, -1, n]*S2[1, -1, n] - S2[-3, n]*S2[2, 1, n] - 2*S2[4, -2, n] - 
    2*S2[1, n]*S2[4, -1, n] + 2*S2[-3, -1, -2, n] + 
    2*S2[1, n]*S2[-3, -1, -1, n] + 2*S2[-3, 2, 1, n] - 
    S2[-3, n]*S2[-1, 1, -1, n] + 2*S2[4, -1, 1, n] - 2*S2[-3, -1, -1, 1, n])/
   2, S2[1, -1, -2, 2, n_] -> -S2[-3, n]^2/2 + S2[-3, n]*S2[-2, n]*S2[1, n] - 
   (S2[-2, n]^2*S2[2, n])/2 + S2[3, n]^2/2 - (S2[2, n]*S2[4, n])/2 + 
   S2[1, n]*S2[5, n] - S2[6, n] - S2[1, n]*S2[-3, -2, n] - 
   S2[-2, n]*S2[-3, 1, n] - S2[3, n]*S2[-2, -1, n] + 
   S2[-2, n]*S2[2, n]*S2[1, -1, n] + S2[-4, n]*(-S2[-2, n] + S2[1, -1, n]) - 
   S2[1, -1, n]*S2[2, -2, n] + S2[-2, n]*S2[3, -1, n] - 
   S2[2, n]*S2[3, 1, n] + S2[1, n]*S2[3, 2, n] + S2[4, 2, n] - 
   2*S2[5, 1, n] + S2[-3, -2, 1, n] + S2[-3, 1, -2, n] - 
   S2[1, n]*S2[-2, -1, 2, n] - S2[1, n]*S2[-2, 2, -1, n] + S2[2, -2, -2, n] + 
   S2[2, 3, 1, n] - S2[3, -1, -2, n] + S2[-2, -1, 1, 2, n] + 
   S2[-2, -1, 2, 1, n] + S2[-2, 2, -1, 1, n], 
 S2[1, -1, -2, -2, n_] -> (4*S2[-6, n])/3 + S2[-2, n]^3/6 + 
   (S2[-2, n]*S2[4, n])/2 + S2[-1, n]*S2[5, n] + 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
   S2[4, -2, n] - S2[5, -1, n] - S2[-3, -1, -2, n] + 
   S2[1, n]*S2[-1, -2, -2, n] - S2[-1, -2, -2, 1, n] - S2[-1, -2, 1, -2, n] - 
   S2[-1, 1, -2, -2, n], S2[1, -1, -3, 1, n_] -> 
  S2[-3, n]^2/2 + S2[6, n]/2 + S2[1, n]*S2[-3, -2, n] + 
   S2[-3, 1, n]*S2[1, -1, n] + S2[1, n]*S2[4, 1, n] + S2[4, 2, n] + 
   S2[5, 1, n] - 2*S2[-3, -2, 1, n] - S2[1, n]*S2[-3, -1, 1, n] - 
   S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - S2[1, n]*S2[-3, 1, -1, n] - 
   2*S2[4, 1, 1, n] + 2*S2[-3, -1, 1, 1, n] + S2[-3, 1, -1, 1, n], 
 S2[1, -1, -3, -1, n_] -> S2[-3, 3, n] + S2[-3, -1, n]*S2[1, -1, n] + 
   S2[4, -2, n] + S2[5, -1, n] - S2[-3, -2, -1, n] - 2*S2[-3, -1, -2, n] + 
   S2[1, n]*(S2[-3, 2, n] + S2[4, -1, n] - 2*S2[-3, -1, -1, n]) - 
   S2[-3, 2, 1, n] - S2[4, -1, 1, n] - S2[4, 1, -1, n] + 
   2*S2[-3, -1, -1, 1, n] + S2[-3, -1, 1, -1, n], 
 S2[1, -2, 2, 1, n_] -> S2[-3, n]*S2[3, n] - S2[-3, 3, n] - 
   S2[3, n]*S2[-2, 1, n] + S2[-2, n]*(-S2[4, n] + S2[3, 1, n]) + 
   S2[4, -2, n] - S2[-4, 1, 1, n] + S2[-3, 2, 1, n] - 
   S2[2, n]*S2[-2, 1, 1, n] + S2[1, n]*S2[-2, 2, 1, n] + S2[-2, 2, 2, n] - 
   S2[3, 1, -2, n] + S2[-2, 1, 1, 2, n] - S2[-2, 2, 1, 1, n] + 
   S2[2, -2, 1, 1, n], S2[1, -2, 2, -1, n_] -> 
  S2[3, n]^2/2 + S2[2, n]*S2[4, n] + (3*S2[6, n])/2 + S2[-5, -1, n] + 
   S2[-4, -2, n] + S2[-2, n]*S2[2, -2, n] + S2[-2, n]*S2[3, -1, n] - 
   S2[4, 2, n] + S2[-3, 2, -1, n] + S2[1, n]*S2[-2, 2, -1, n] - 
   2*S2[2, -2, -2, n] - S2[3, -2, -1, n] - S2[3, -1, -2, n] - 
   S2[-2, 1, 2, -1, n] - S2[-2, 2, -1, 1, n] - S2[-2, 2, 1, -1, n], 
 S2[1, -2, 1, 2, n_] -> -(S2[-3, n]*S2[1, n]*S2[2, n]) + 
   S2[1, n]*S2[-3, 2, n] + S2[1, n]*S2[2, n]*S2[-2, 1, n] + 
   S2[-2, n]*S2[1, n]*(S2[3, n] - S2[2, 1, n]) - S2[1, n]*S2[3, -2, n] - 
   S2[-4, 1, 1, n] + S2[-3, 1, 2, n] - S2[2, n]*S2[-2, 1, 1, n] + 
   S2[-2, 2, 2, n] - S2[-2, 3, 1, n] + S2[1, n]*S2[2, 1, -2, n] - 
   S2[-2, 1, 1, 2, n] + S2[-2, 2, 1, 1, n] + S2[2, -2, 1, 1, n], 
 S2[1, -2, 1, -2, n_] -> (S2[-2, n]^2*S2[2, n] + S2[2, n]*S2[4, n] + 
    2*S2[-4, -2, n] - 2*S2[-3, n]*S2[-2, 1, n] + S2[-2, 1, n]^2 - 
    S2[4, 2, n] - 2*S2[5, 1, n] + 2*S2[-3, -2, 1, n] + 2*S2[-3, 1, -2, n] + 
    2*S2[1, n]*S2[-2, 1, -2, n] - 4*S2[-2, n]*S2[-2, 1, 1, n] - 
    2*S2[2, -2, -2, n] - 2*S2[4, 1, 1, n] + 4*S2[-2, -2, 1, 1, n])/2, 
 S2[1, -2, -1, 2, n_] -> 2*S2[-4, n]*S2[-2, n] + (S2[-2, n]^2*S2[2, n])/2 - 
   S2[3, n]^2/2 - (S2[2, n]*S2[4, n])/2 + S2[6, n]/2 - 2*S2[-4, -2, n] + 
   S2[3, n]*S2[-2, -1, n] - S2[-2, n]*(S2[2, -2, n] + S2[3, -1, n]) + 
   S2[4, 2, n] + S2[-3, -1, 2, n] + S2[1, n]*S2[-2, -1, 2, n] + 
   S2[2, -2, -2, n] + S2[3, -1, -2, n] - S2[-2, -1, 1, 2, n] - 
   S2[-2, -1, 2, 1, n] - S2[-2, 1, -1, 2, n], 
 S2[1, -2, -1, -2, n_] -> -S2[-6, n] + 2*S2[-5, n]*S2[1, n] - 
   S2[-3, n]*S2[3, n] + S2[-2, n]*S2[1, n]*S2[3, n] - 2*S2[-5, 1, n] + 
   S2[-3, 3, n] - S2[-3, n]*(2*S2[-2, n]*S2[-1, n] + S2[3, n] - 
     2*S2[-2, -1, n]) + (S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n])*
    (S2[-3, n] + S2[-2, n]*S2[1, n] - S2[-2, 1, n]) - S2[-2, n]*S2[3, 1, n] - 
   S2[4, -2, n] + S2[-1, n]*(S2[1, n]*S2[4, n] - S2[5, n] + S2[-3, -2, n] - 
     S2[4, 1, n]) + S2[5, -1, n] - S2[-3, -2, -1, n] + S2[-3, -1, -2, n] + 
   S2[-2, 3, 1, n] - S2[1, n]*(S2[-5, n] + S2[-2, n]*S2[3, n] - 
     S2[3, -2, n] + S2[4, -1, n] + 2*S2[-1, -2, -2, n]) + S2[4, -1, 1, n] + 
   S2[4, 1, -1, n] + 2*S2[-1, -2, -2, 1, n] + S2[-1, -2, 1, -2, n], 
 S2[1, -2, -2, 1, n_] -> (S2[-3, n]*S2[-2, n]*S2[1, n] - S2[-2, 1, n]^2 + 
    S2[4, 2, n] + 2*S2[-3, -2, 1, n] + S2[1, n]*(S2[5, n] - S2[-3, -2, n] + 
      S2[-2, n]*S2[-2, 1, n] + S2[4, 1, n] - S2[-2, 1, -2, n]) - 
    2*S2[4, 1, 1, n])/2, S2[1, -2, -2, -1, n_] -> 
  (2*S2[-6, n] - S2[-2, n]^2*S2[-1, n]*S2[1, n] + 
    S2[-3, n]*(S2[-2, n]*S2[-1, n] + 2*S2[3, n]) - 
    S2[-1, n]*S2[1, n]*S2[4, n] + S2[-1, n]*S2[5, n] + 2*S2[-5, 1, n] - 
    S2[-1, n]*S2[-3, -2, n] - 2*S2[-3, 3, n] + 2*S2[-2, n]*S2[1, n]*
     S2[-2, -1, n] + S2[-2, n]*S2[-1, n]*S2[-2, 1, n] - 
    2*S2[-2, -1, n]*S2[-2, 1, n] - 2*S2[1, n]*S2[3, -2, n] + 
    2*S2[-2, n]*S2[3, 1, n] + 2*S2[4, -2, n] + 2*S2[1, n]*S2[4, -1, n] + 
    S2[-1, n]*S2[4, 1, n] + 2*S2[-3, -2, -1, n] - 
    S2[-1, n]*S2[-2, 1, -2, n] - 2*S2[-2, 3, 1, n] + 
    2*S2[1, n]*S2[-1, -2, -2, n] - 2*S2[3, 1, -2, n] - 2*S2[4, -1, 1, n] - 
    2*S2[4, 1, -1, n] - 2*S2[-1, -2, -2, 1, n])/2, 
 S2[1, -3, 1, 1, n_] -> S2[-4, 1, 1, n] + S2[1, n]*S2[-3, 1, 1, n] + 
   S2[-3, 1, 2, n] + S2[-3, 2, 1, n] - 3*S2[-3, 1, 1, 1, n], 
 S2[1, -3, 1, -1, n_] -> S2[-4, 1, -1, n] + S2[-3, 1, -2, n] + 
   S2[1, n]*S2[-3, 1, -1, n] + S2[-3, 2, -1, n] - S2[-3, 1, -1, 1, n] - 
   2*S2[-3, 1, 1, -1, n], S2[1, -3, -1, 1, n_] -> 
  S2[-4, -1, 1, n] + S2[-3, -2, 1, n] + S2[1, n]*S2[-3, -1, 1, n] + 
   S2[-3, -1, 2, n] - 2*S2[-3, -1, 1, 1, n] - S2[-3, 1, -1, 1, n], 
 S2[1, -3, -1, -1, n_] -> S2[-4, -1, -1, n] + S2[-3, -2, -1, n] + 
   S2[-3, -1, -2, n] + S2[1, n]*S2[-3, -1, -1, n] - S2[-3, -1, -1, 1, n] - 
   S2[-3, -1, 1, -1, n] - S2[-3, 1, -1, -1, n], 
 S2[-1, 3, 1, 1, n_] -> S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - 
   S2[-3, 3, n] + S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - S2[-2, 3, 1, n] + 
   S2[-1, n]*S2[3, 1, 1, n] - S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n] - 
   S2[3, 1, 1, -1, n], S2[-1, 3, 1, -1, n_] -> S2[3, n]^2/2 + S2[6, n]/2 + 
   S2[2, n]*S2[3, 1, n] + S2[5, 1, n] + S2[-4, 1, -1, n] - S2[2, 3, 1, n] + 
   S2[3, -2, -1, n] + S2[-1, n]*S2[3, 1, -1, n] - S2[3, 2, 1, n] - 
   S2[3, -1, 1, -1, n] - 2*S2[3, 1, -1, -1, n], 
 S2[-1, 3, -1, 1, n_] -> S2[-4, -1, 1, n] + S2[3, -1, -2, n] + 
   S2[-1, n]*S2[3, -1, 1, n] + S2[3, 2, 1, n] - 2*S2[3, -1, -1, 1, n] - 
   S2[3, -1, 1, -1, n], S2[-1, 3, -1, -1, n_] -> 
  S2[-4, -1, -1, n] + S2[-1, n]*S2[3, -1, -1, n] + S2[3, -1, 2, n] + 
   S2[3, 2, -1, n] - 3*S2[3, -1, -1, -1, n], S2[-1, 2, 2, -1, n_] -> 
  (-(S2[-1, n]^2*(S2[2, n]^2 + S2[4, n])) - S2[2, -1, n]^2 + S2[4, 2, n] + 
    2*S2[-3, 2, -1, n] + 2*S2[-1, n]*(-S2[-3, 2, n] + S2[2, n]*S2[2, -1, n] + 
      S2[4, -1, n] + S2[-1, 2, 2, n]) - 2*S2[4, -1, -1, n])/2, 
 S2[-1, 2, 1, -2, n_] -> S2[3, n]^2/2 + S2[6, n]/2 - S2[-3, n]*S2[2, -1, n] - 
   S2[-2, n]*S2[1, n]*S2[2, -1, n] + S2[-2, 1, n]*S2[2, -1, n] + 
   S2[-3, 1, -2, n] + S2[-3, 2, -1, n] + S2[-2, n]*S2[1, 2, -1, n] + 
   S2[-1, n]*S2[2, 1, -2, n] - S2[3, -2, -1, n] - S2[3, -1, -2, n] - 
   S2[-2, 1, 2, -1, n], S2[-1, 2, -1, 2, n_] -> 
  S2[-5, n]*S2[-1, n] + S2[-1, n]^2*S2[2, n]^2 - S2[2, n]^3/6 + 
   S2[-1, n]^2*S2[4, n] - (S2[2, n]*S2[4, n])/2 - S2[6, n]/3 - 
   S2[-5, -1, n] - S2[2, n]*S2[-3, -1, n] + S2[-1, n]*S2[-3, 2, n] + 
   S2[-3, n]*(S2[-1, n]*S2[2, n] - S2[2, -1, n]) - 
   2*S2[-1, n]*S2[2, n]*S2[2, -1, n] + S2[2, -1, n]^2/2 - 
   S2[-1, n]*S2[4, -1, n] + S2[4, 2, n]/2 + S2[-3, -1, 2, n] + 
   S2[-3, 2, -1, n] + S2[2, n]*S2[-1, 2, -1, n] - 
   2*S2[-1, n]*S2[-1, 2, 2, n] - S2[4, -1, -1, n] + 2*S2[2, 2, -1, -1, n], 
 S2[-1, 2, -1, -2, n_] -> -(S2[-3, n]*S2[-2, n]*S2[-1, n]) + S2[-3, 3, n] - 
   S2[3, n]*S2[2, -1, n] + S2[-2, -1, n]*S2[2, -1, n] - S2[-3, -2, -1, n] + 
   S2[-1, n]*(S2[-3, -2, n] + S2[2, n]*(S2[3, n] - S2[-2, -1, n]) - 
     S2[3, 2, n] + S2[-2, -1, 2, n]) + S2[-2, n]*S2[-1, 2, -1, n] + 
   S2[3, 2, -1, n] - S2[-2, -1, 2, -1, n], S2[-1, 2, -2, 1, n_] -> 
  S2[-5, n]*S2[-1, n] + S2[-3, n]*S2[-1, n]*S2[2, n] - S2[3, n]^2/2 - 
   S2[2, n]*S2[4, n] - (3*S2[6, n])/2 - S2[-5, -1, n] + 
   S2[-1, n]*S2[-4, 1, n] - S2[-1, n]*S2[-3, 2, n] - S2[-2, n]*S2[2, -2, n] - 
   S2[-2, 1, n]*S2[2, -1, n] + S2[-2, n]*S2[-1, n]*S2[2, 1, n] - 
   S2[-2, n]*S2[3, -1, n] + S2[4, 2, n] - S2[-4, -1, 1, n] - 
   S2[-4, 1, -1, n] + S2[-3, -2, 1, n] - S2[-1, n]*S2[-2, 2, 1, n] + 
   2*S2[2, -2, -2, n] - S2[-1, n]*S2[2, 1, -2, n] + S2[3, -2, -1, n] + 
   S2[3, -1, -2, n] + S2[-2, 1, 2, -1, n] + S2[-2, 2, -1, 1, n] + 
   S2[-2, 2, 1, -1, n], S2[-1, 2, -2, -1, n_] -> 
  S2[-3, n]*S2[-2, n]*S2[-1, n] + S2[-4, 2, n] - S2[-2, n]*S2[-3, -1, n] - 
   S2[-3, 3, n] - S2[-2, -1, n]*S2[2, -1, n] - S2[5, -1, n] - 
   2*S2[-4, -1, -1, n] + 2*S2[-3, -2, -1, n] + S2[-3, -1, -2, n] + 
   S2[-1, n]*(S2[5, n] + S2[-4, -1, n] - S2[-3, -2, n] + 
     S2[2, n]*S2[-2, -1, n] - S2[-2, -1, 2, n] - S2[-2, 2, -1, n]) - 
   S2[-2, 2, 2, n] + S2[-2, -1, 2, -1, n] + 2*S2[-2, 2, -1, -1, n], 
 S2[-1, 1, 3, 1, n_] -> -(S2[1, -1, n]*S2[3, 1, n]) + S2[4, -2, n] + 
   S2[-2, 3, 1, n] - S2[3, 1, -2, n] + 
   S2[-1, n]*(S2[1, n]*S2[3, 1, n] + S2[3, 2, n] + S2[4, 1, n] - 
     2*S2[3, 1, 1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
   S2[4, 1, -1, n] + S2[3, 1, -1, 1, n] + 2*S2[3, 1, 1, -1, n], 
 S2[-1, 1, 3, -1, n_] -> S2[-5, -1, n] + S2[-2, n]*S2[3, -1, n] - 
   S2[1, -1, n]*S2[3, -1, n] - S2[2, n]*S2[3, 1, n] + S2[4, 2, n] - 
   S2[5, 1, n] + S2[2, 3, 1, n] - 2*S2[3, -2, -1, n] - S2[3, -1, -2, n] + 
   S2[-1, n]*(S2[3, -2, n] + S2[1, n]*S2[3, -1, n] + S2[4, -1, n] - 
     S2[3, -1, 1, n] - S2[3, 1, -1, n]) + S2[3, 2, 1, n] - 
   2*S2[4, -1, -1, n] + S2[3, -1, 1, -1, n] + 2*S2[3, 1, -1, -1, n], 
 S2[-1, 1, 2, -2, n_] -> S2[3, n]^2/2 + S2[2, n]*S2[4, n] + (3*S2[6, n])/2 + 
   S2[-4, -2, n] - S2[-1, n]*S2[-4, 1, n] + S2[-2, n]*S2[2, -2, n] + 
   S2[-1, n]*S2[1, n]*S2[2, -2, n] - S2[1, -1, n]*S2[2, -2, n] - 
   S2[-2, n]*S2[-1, n]*S2[2, 1, n] + S2[-1, n]*S2[3, -2, n] - S2[4, 2, n] + 
   S2[-4, 1, -1, n] + S2[-1, n]*S2[-2, 2, 1, n] - 2*S2[2, -2, -2, n] + 
   S2[-2, n]*S2[2, 1, -1, n] - S2[3, -2, -1, n] - S2[3, -1, -2, n] - 
   S2[-2, 2, 1, -1, n], S2[-1, 1, 1, 3, n_] -> 
  -(S2[-3, n]*S2[3, n]) + S2[-2, n]*S2[4, n] + S2[-3, 3, n] - 
   S2[4, n]*S2[1, -1, n] - S2[-2, n]*S2[3, 1, n] + S2[1, -1, n]*S2[3, 1, n] - 
   S2[4, -2, n] - S2[5, -1, n] + 
   (S2[3, n]*(S2[-1, n]*(S2[1, n]^2 + S2[2, n]) + 
      2*(S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n])))/2 + S2[3, 1, -2, n] + 
   S2[-1, n]*(S2[5, n] + S2[1, n]*(S2[4, n] - S2[3, 1, n]) - S2[3, 2, n] - 
     S2[4, 1, n] + S2[3, 1, 1, n]) + S2[3, 2, -1, n] + S2[4, 1, -1, n] - 
   S2[3, 1, 1, -1, n], S2[-1, 1, 1, -3, n_] -> 
  -S2[-3, n]^2/2 + S2[-5, n]*S2[-1, n] + S2[6, n]/2 - S2[-5, -1, n] - 
   S2[-4, -2, n] - S2[-1, n]*S2[-4, 1, n] - S2[-2, n]*S2[-3, 1, n] - 
   S2[-1, n]*S2[1, n]*S2[-3, 1, n] - S2[-1, n]*S2[-3, 2, n] + 
   S2[-4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
   S2[-3, 1, n]*S2[1, -1, n] + S2[-4, 1, -1, n] + S2[-3, 1, -2, n] + 
   S2[-1, n]*S2[-3, 1, 1, n] + S2[-3, 2, -1, n] + 
   (S2[-3, n]*(S2[-1, n]*(S2[1, n]^2 + S2[2, n]) + 
      2*(S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n])))/2 - S2[-3, 1, 1, -1, n], 
 S2[-1, 1, -1, 3, n_] -> S2[-5, n]*S2[-1, n] - S2[3, n]^2/2 + S2[6, n]/2 - 
   S2[-5, -1, n] - S2[-4, -2, n] - S2[-1, n]*S2[-4, 1, n] + 
   S2[-4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
   S2[-1, n]*S2[3, -2, n] - S2[-2, n]*S2[3, -1, n] - 
   S2[-1, n]*S2[1, n]*S2[3, -1, n] + S2[1, -1, n]*S2[3, -1, n] + 
   S2[-4, 1, -1, n] + S2[3, n]*S2[-1, 1, -1, n] + S2[3, -2, -1, n] + 
   S2[3, -1, -2, n] + S2[-1, n]*S2[3, -1, 1, n] - S2[3, -1, 1, -1, n], 
 S2[-1, 1, -1, -3, n_] -> S2[-6, n] + S2[-1, n]*S2[1, n]*S2[4, n] + 
   S2[-1, n]*S2[5, n] - S2[-1, n]*S2[-3, -2, n] + 
   S2[-2, n]*(S2[4, n] - S2[-3, -1, n]) - S2[-1, n]*S2[1, n]*S2[-3, -1, n] - 
   S2[-3, 3, n] - S2[4, n]*S2[1, -1, n] + S2[-3, -1, n]*S2[1, -1, n] - 
   S2[4, -2, n] - S2[-1, n]*S2[4, 1, n] - S2[5, -1, n] + S2[-3, -2, -1, n] + 
   S2[-3, -1, -2, n] + S2[-1, n]*S2[-3, -1, 1, n] + 
   S2[-3, n]*S2[-1, 1, -1, n] + S2[4, 1, -1, n] - S2[-3, -1, 1, -1, n], 
 S2[-1, 1, -2, 2, n_] -> -(S2[-4, n]*S2[-2, n]) - S2[3, n]^2/2 - 
   (S2[2, n]*(S2[-2, n]^2 + S2[4, n]))/2 - S2[6, n]/2 - S2[-5, -1, n] + 
   S2[-3, n]*(S2[-3, n] + S2[-2, n]*S2[1, n] - S2[-2, 1, n]) - 
   S2[1, -1, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 
   S2[-2, n]*(S2[-4, n] - S2[-3, n]*S2[1, n] + S2[-2, n]*S2[2, n] + 
     S2[-3, 1, n] - S2[2, -2, n] - S2[3, -1, n]) + S2[4, 2, n] - 
   S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - S2[-3, 2, -1, n] + 
   S2[2, -2, -2, n] + S2[-1, n]*(S2[-5, n] + S2[-3, n]*S2[2, n] - 
     S2[2, n]*S2[-2, 1, n] + S2[1, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - 
       S2[2, -2, n]) + S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - 
     S2[2, 1, -2, n]) + S2[3, -2, -1, n] + S2[3, -1, -2, n] + 
   S2[-2, 1, -1, 2, n] + S2[-2, 1, 2, -1, n] + S2[-2, 2, 1, -1, n], 
 S2[-1, 1, -3, 1, n_] -> S2[-3, n]^2/2 + S2[6, n]/2 + S2[-4, -2, n] + 
   S2[-1, n]*S2[-4, 1, n] + S2[-2, n]*S2[-3, 1, n] + 
   S2[-1, n]*S2[1, n]*S2[-3, 1, n] + S2[-1, n]*S2[-3, 2, n] - 
   S2[-3, 1, n]*S2[1, -1, n] + S2[5, 1, n] - S2[-4, -1, 1, n] - 
   S2[-4, 1, -1, n] - S2[-3, -2, 1, n] - 2*S2[-3, 1, -2, n] - 
   2*S2[-1, n]*S2[-3, 1, 1, n] - S2[-3, 2, -1, n] + S2[-3, 1, -1, 1, n] + 
   2*S2[-3, 1, 1, -1, n], S2[-1, 1, -3, -1, n_] -> 
  S2[-4, 2, n] + S2[-2, n]*S2[-3, -1, n] + S2[-3, 3, n] - 
   S2[-3, -1, n]*S2[1, -1, n] + S2[5, -1, n] - 2*S2[-4, -1, -1, n] - 
   2*S2[-3, -2, -1, n] - S2[-3, -1, -2, n] + 
   S2[-1, n]*(S2[-4, -1, n] + S2[-3, -2, n] + S2[1, n]*S2[-3, -1, n] - 
     S2[-3, -1, 1, n] - S2[-3, 1, -1, n]) - S2[-3, 1, 2, n] + 
   S2[-3, -1, 1, -1, n] + 2*S2[-3, 1, -1, -1, n], 
 S2[-1, -1, 3, 1, n_] -> S2[-4, -2, n] + (S2[-1, n]^2*S2[3, 1, n])/2 - 
   (S2[2, n]*S2[3, 1, n])/2 - S2[-4, -1, 1, n] - S2[-4, 1, -1, n] + 
   S2[2, 3, 1, n] - S2[3, -2, -1, n] - S2[3, -1, -2, n] + 
   S2[-1, n]*(S2[-4, 1, n] + S2[3, -2, n] - S2[3, -1, 1, n] - 
     S2[3, 1, -1, n]) + S2[3, -1, -1, 1, n] + S2[3, -1, 1, -1, n] + 
   S2[3, 1, -1, -1, n], S2[-1, -1, 3, -1, n_] -> 
  S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[-4, -1, n] + S2[-4, 2, n] - 
   S2[-3, 3, n] + (S2[-1, n]^2*S2[3, -1, n])/2 + (S2[2, n]*S2[3, -1, n])/2 + 
   S2[-1, n]*S2[3, 2, n] + S2[5, -1, n] - 2*S2[-4, -1, -1, n] - 
   2*S2[-1, n]*S2[3, -1, -1, n] - 2*S2[3, -1, 2, n] - 2*S2[3, 2, -1, n] + 
   3*S2[3, -1, -1, -1, n], S2[-1, -1, 2, 2, n_] -> 
  (6*S2[-3, n]^2 - 3*S2[-1, n]^2*(S2[2, n]^2 + S2[4, n]) + 
    6*S2[-1, n]*(S2[2, n]*S2[2, -1, n] + 2*S2[-1, 2, 2, n]) + 
    2*(S2[2, n]^3 + 5*S2[6, n] + 3*S2[2, n]*(S2[4, n] + S2[-3, -1, n] - 
        S2[-1, 2, -1, n]) - 6*(S2[-3, -1, 2, n] + S2[-3, 2, -1, n] - 
        S2[4, -1, -1, n] + S2[2, 2, -1, -1, n])))/12, 
 S2[-1, -1, 2, -2, n_] -> 
  (-(S2[-2, n]*(S2[2, n]^2 + S2[4, n] - 2*S2[-3, -1, n] + 
       2*S2[-1, n]*S2[2, -1, n] + 2*S2[-1, 2, -1, n])) + 
    2*(-2*S2[-4, 2, n] + 2*S2[-3, 3, n] + S2[-1, n]^2*S2[2, -2, n] + 
      S2[2, n]*S2[2, -2, n] + 2*S2[4, -2, n] + 2*S2[-4, -1, -1, n] - 
      2*S2[-3, -2, -1, n] - 2*S2[-3, -1, -2, n] + 
      2*S2[-1, n]*(-S2[-4, -1, n] + S2[-3, -2, n] + S2[-2, 2, -1, n]) + 
      2*S2[-2, 2, 2, n] - 2*S2[-2, 2, -1, -1, n]))/4, 
 S2[-1, -1, 1, 3, n_] -> (2*S2[-5, n]*S2[-1, n] + 
    2*S2[-2, n]*S2[-1, n]*S2[3, n] + S2[-1, n]^2*S2[1, n]*S2[3, n] + 
    S2[3, n]^2 + S2[-1, n]^2*S2[4, n] + S2[2, n]*S2[4, n] + 2*S2[6, n] - 
    2*S2[-5, -1, n] - S2[3, n]*S2[-2, -1, n] - S2[-1, n]*S2[3, n]*
     S2[1, -1, n] + S2[3, n]*S2[2, 1, n] - 2*S2[-1, n]*S2[3, -2, n] - 
    S2[-1, n]^2*S2[3, 1, n] + S2[2, n]*S2[3, 1, n] - 
    2*S2[-1, n]*S2[4, -1, n] - 2*S2[4, 2, n] + 2*S2[5, 1, n] - 
    S2[3, n]*S2[-1, 1, -1, n] - 2*S2[2, 3, 1, n] + 2*S2[3, -2, -1, n] + 
    2*S2[-1, n]*S2[3, 1, -1, n] - 2*S2[3, 2, 1, n] + 2*S2[4, -1, -1, n] - 
    2*S2[3, 1, -1, -1, n])/2, S2[-1, -1, 1, -3, n_] -> 
  (2*S2[-6, n] + S2[-4, n]*S2[-1, n]^2 + S2[-4, n]*S2[2, n] + 
    2*S2[-1, n]*S2[5, n] - 2*S2[-1, n]*S2[-4, -1, n] - 2*S2[-4, 2, n] - 
    2*S2[-1, n]*S2[-3, -2, n] - S2[-1, n]^2*S2[-3, 1, n] - 
    S2[2, n]*S2[-3, 1, n] - 2*S2[-3, 3, n] - 2*S2[5, -1, n] + 
    2*S2[-4, -1, -1, n] + 2*S2[-3, -2, -1, n] + 
    2*S2[-1, n]*S2[-3, 1, -1, n] + 2*S2[-3, 1, 2, n] + 
    S2[-3, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]) - 2*S2[-3, 1, -1, -1, n])/2, 
 S2[-1, -1, -1, 3, n_] -> (-2*S2[-3, n]*S2[3, n])/3 - 
   (S2[-1, n]^3*S2[3, n])/3 - S2[-4, 2, n] + S2[-3, 3, n] + 
   (S2[-1, n]^2*(S2[-4, n] + S2[-1, n]*S2[3, n] - S2[3, -1, n]))/2 + 
   (S2[2, n]*(S2[-4, n] + S2[-1, n]*S2[3, n] - S2[3, -1, n]))/2 - 
   S2[5, -1, n] + S2[-4, -1, -1, n] + S2[-1, n]*(S2[5, n] - S2[-4, -1, n] - 
     S2[3, 2, n] + S2[3, -1, -1, n]) + S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
   S2[3, -1, -1, -1, n], S2[-1, -1, -1, -3, n_] -> 
  -S2[-3, n]^2/6 + S2[-5, n]*S2[-1, n] - (S2[-3, n]*S2[-1, n]^3)/3 + 
   S2[6, n]/2 - S2[-5, -1, n] + 
   (S2[-1, n]^2*(S2[-3, n]*S2[-1, n] + S2[4, n] - S2[-3, -1, n]))/2 + 
   (S2[2, n]*(S2[-3, n]*S2[-1, n] + S2[4, n] - S2[-3, -1, n]))/2 - 
   S2[4, 2, n] - S2[-1, n]*(S2[-3, 2, n] + S2[4, -1, n] - 
     S2[-3, -1, -1, n]) + S2[-3, -1, 2, n] + S2[-3, 2, -1, n] + 
   S2[4, -1, -1, n] - S2[-3, -1, -1, -1, n], S2[-1, -1, -2, 2, n_] -> 
  S2[-6, n] + S2[-4, 2, n] - S2[-3, 3, n] + 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
   (S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]))/2 + 
   (S2[2, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]))/2 - 
   S2[5, -1, n] + S2[-3, -2, -1, n] + S2[-1, n]*(S2[5, n] - S2[-3, -2, n] + 
     S2[3, 2, n] - S2[-2, -1, 2, n] - S2[-2, 2, -1, n]) - 2*S2[-2, 2, 2, n] - 
   S2[3, -1, 2, n] - S2[3, 2, -1, n] + S2[-2, -1, -1, 2, n] + 
   S2[-2, -1, 2, -1, n] + S2[-2, 2, -1, -1, n], 
 S2[-1, -1, -2, -2, n_] -> (2*S2[-4, n]*S2[-2, n] + 
    S2[-2, n]^2*(-S2[-1, n]^2 + S2[2, n]) + 2*S2[3, n]^2 - 
    S2[-1, n]^2*S2[4, n] - S2[2, n]*S2[4, n] + 2*S2[6, n] + 
    4*S2[-1, n]*S2[-1, -2, -2, n] + 2*S2[-2, n]*(S2[-1, n]*S2[-2, -1, n] - 
      S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]) + 4*S2[2, -2, -2, n] - 
    4*S2[3, -2, -1, n] - 4*S2[3, -1, -2, n] + 4*S2[4, -1, -1, n] - 
    4*S2[-2, -2, -1, -1, n])/4, S2[-1, -1, -3, 1, n_] -> 
  S2[-5, 1, n] + (S2[-1, n]^2*S2[-3, 1, n])/2 + (S2[2, n]*S2[-3, 1, n])/2 + 
   S2[-3, 3, n] + S2[4, -2, n] - S2[-3, -2, -1, n] - S2[-3, -1, -2, n] + 
   S2[-1, n]*(S2[-3, -2, n] + S2[4, 1, n] - S2[-3, -1, 1, n] - 
     S2[-3, 1, -1, n]) - S2[-3, 1, 2, n] - S2[-3, 2, 1, n] - 
   S2[4, -1, 1, n] - S2[4, 1, -1, n] + S2[-3, -1, -1, 1, n] + 
   S2[-3, -1, 1, -1, n] + S2[-3, 1, -1, -1, n], 
 S2[-1, -1, -3, -1, n_] -> (S2[-3, n]^2 + S2[6, n] + 2*S2[-5, -1, n] + 
    S2[-1, n]^2*S2[-3, -1, n] + S2[2, n]*S2[-3, -1, n] + 
    2*S2[-1, n]*S2[-3, 2, n] + 2*S2[-1, n]*S2[4, -1, n] + 2*S2[4, 2, n] - 
    4*S2[-1, n]*S2[-3, -1, -1, n] - 4*S2[-3, -1, 2, n] - 4*S2[-3, 2, -1, n] - 
    4*S2[4, -1, -1, n] + 6*S2[-3, -1, -1, -1, n])/2, 
 S2[-1, -2, 2, 1, n_] -> S2[-3, n]^2/2 + S2[2, n]*S2[4, n] + (3*S2[6, n])/2 + 
   S2[-4, -2, n] + S2[-2, n]*S2[-3, 1, n] + S2[-2, n]*S2[2, -2, n] - 
   S2[4, 2, n] + S2[5, 1, n] - S2[-3, -2, 1, n] - S2[-3, 1, -2, n] + 
   S2[-1, n]*S2[-2, 2, 1, n] - 2*S2[2, -2, -2, n] + S2[3, 2, 1, n] - 
   S2[-2, -1, 2, 1, n] - S2[-2, 2, -1, 1, n] - S2[-2, 2, 1, -1, n], 
 S2[-1, -2, 2, -1, n_] -> S2[-2, n]*S2[-3, -1, n] + S2[-3, 3, n] + 
   S2[5, -1, n] - S2[-3, -2, -1, n] - S2[-3, -1, -2, n] + 
   S2[-1, n]*S2[-2, 2, -1, n] + S2[-2, 2, 2, n] + S2[3, 2, -1, n] - 
   S2[-2, -1, 2, -1, n] - 2*S2[-2, 2, -1, -1, n], 
 S2[-1, -2, 1, 2, n_] -> -S2[-3, n]^2/2 + 2*S2[-4, n]*S2[-2, n] + 
   (S2[-2, n]^2*S2[2, n])/2 + S2[-2, n]*S2[-1, n]*S2[3, n] + S2[3, n]^2/2 - 
   (S2[2, n]*S2[4, n])/2 + S2[6, n] - 2*S2[-4, -2, n] - 
   S2[-2, n]*S2[-3, 1, n] + S2[-1, n]*S2[-3, 2, n] + 
   S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-3, n]*(-(S2[-1, n]*S2[2, n]) + 
     S2[-2, 1, n]) - S2[-2, n]*S2[2, -2, n] - S2[-2, n]*S2[-1, n]*
    S2[2, 1, n] - S2[-1, n]*S2[3, -2, n] + S2[2, n]*S2[3, 1, n] + 
   S2[4, 2, n] + S2[5, 1, n] + S2[-3, 1, -2, n] + S2[2, -2, -2, n] + 
   S2[-1, n]*S2[2, 1, -2, n] - S2[2, 3, 1, n] - S2[3, 2, 1, n] - 
   S2[-2, -1, 1, 2, n] - S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n], 
 S2[-1, -2, -1, 2, n_] -> S2[-6, n] + S2[-2, n]*(S2[4, n] - S2[-3, -1, n]) - 
   S2[-3, 3, n] + S2[-3, n]*S2[-2, -1, n] - S2[4, -2, n] + 
   S2[-3, -1, -2, n] + S2[-1, n]*S2[-2, -1, 2, n] + S2[-2, 2, 2, n] + 
   S2[3, -1, 2, n] - 2*S2[-2, -1, -1, 2, n] - S2[-2, -1, 2, -1, n], 
 S2[-1, -2, -1, -2, n_] -> -(S2[-4, n]*S2[-2, n]) + S2[-5, n]*S2[-1, n] + 
   S2[-2, n]^2*S2[-1, n]^2 - (S2[-2, n]^2*S2[2, n])/2 + 
   S2[-2, n]*S2[-1, n]*S2[3, n] + S2[-1, n]^2*S2[4, n] + 
   (S2[2, n]*S2[4, n])/2 - S2[-5, -1, n] + S2[-4, -2, n] - 
   2*S2[-2, n]*S2[-1, n]*S2[-2, -1, n] - S2[3, n]*S2[-2, -1, n] + 
   S2[-2, -1, n]^2/2 + S2[-2, n]*S2[2, -2, n] + S2[-1, n]*S2[3, -2, n] - 
   S2[-2, n]*S2[3, -1, n] - S2[-1, n]*S2[4, -1, n] - S2[4, 2, n]/2 - 
   2*S2[-1, n]*S2[-1, -2, -2, n] + S2[-2, n]*S2[-1, -2, -1, n] - 
   S2[2, -2, -2, n] + S2[3, -2, -1, n] + S2[3, -1, -2, n] - 
   S2[4, -1, -1, n] + 2*S2[-2, -2, -1, -1, n], 
 S2[-1, -2, -2, -1, n_] -> (-(S2[-2, n]^2*S2[-1, n]^2) - 
    S2[-1, n]^2*S2[4, n] + 2*S2[-2, n]*S2[-1, n]*S2[-2, -1, n] - 
    S2[-2, -1, n]^2 + S2[4, 2, n] + 2*S2[-1, n]*(-S2[3, -2, n] + 
      S2[4, -1, n] + S2[-1, -2, -2, n]) + 2*S2[3, -2, -1, n] - 
    2*S2[4, -1, -1, n])/2, S2[-1, -3, 1, 1, n_] -> 
  S2[-3, -2, 1, n] + S2[-3, 1, -2, n] + S2[-1, n]*S2[-3, 1, 1, n] + 
   S2[4, 1, 1, n] - S2[-3, -1, 1, 1, n] - S2[-3, 1, -1, 1, n] - 
   S2[-3, 1, 1, -1, n], S2[-1, -3, 1, -1, n_] -> 
  S2[-3, -2, -1, n] + S2[-1, n]*S2[-3, 1, -1, n] + S2[-3, 1, 2, n] + 
   S2[4, 1, -1, n] - S2[-3, -1, 1, -1, n] - 2*S2[-3, 1, -1, -1, n], 
 S2[-1, -3, -1, 1, n_] -> S2[-3, -1, -2, n] + S2[-1, n]*S2[-3, -1, 1, n] + 
   S2[-3, 2, 1, n] + S2[4, -1, 1, n] - 2*S2[-3, -1, -1, 1, n] - 
   S2[-3, -1, 1, -1, n], S2[-1, -3, -1, -1, n_] -> 
  S2[-1, n]*S2[-3, -1, -1, n] + S2[-3, -1, 2, n] + S2[-3, 2, -1, n] + 
   S2[4, -1, -1, n] - 3*S2[-3, -1, -1, -1, n], 
 S2[-2, 1, 2, 1, n_] -> -(S2[-3, n]*S2[3, n]) + S2[-3, 3, n] + 
   S2[3, n]*S2[-2, 1, n] + S2[-2, n]*(S2[4, n] - S2[3, 1, n]) - 
   S2[4, -2, n] + S2[-4, 1, 1, n] + S2[2, n]*S2[-2, 1, 1, n] + 
   S2[-2, 3, 1, n] + S2[3, 1, -2, n] - S2[-2, 1, 1, 2, n] - 
   S2[-2, 2, 1, 1, n] - S2[2, -2, 1, 1, n], S2[-2, 1, 1, -2, n_] -> 
  (-S2[-3, n]^2 - S2[-2, n]^2*S2[2, n] + S2[2, n]*S2[4, n] + S2[6, n] + 
    2*S2[-3, n]*S2[-2, 1, n] - S2[-2, 1, n]^2 - S2[4, 2, n] + 
    2*S2[-3, 1, -2, n] + 2*S2[-2, n]*(-S2[-3, 1, n] + S2[2, -2, n] + 
      S2[-2, 1, 1, n]) - 2*S2[2, -2, -2, n])/2, 
 S2[-2, 1, -1, -2, n_] -> (-2*S2[-6, n])/3 - S2[-2, n]^3/3 - 
   S2[-3, n]*S2[3, n] - S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] - 
   S2[-1, n]*S2[-3, -2, n] - S2[-3, 3, n] + S2[-3, n]*S2[-2, -1, n] + 
   S2[3, n]*S2[-2, 1, n] - S2[-2, -1, n]*S2[-2, 1, n] + 
   S2[4, n]*S2[1, -1, n] + S2[-2, n]^2*(-(S2[-1, n]*S2[1, n]) + 
     S2[1, -1, n]) - S2[4, -2, n] + S2[-1, n]*S2[4, 1, n] + S2[5, -1, n] + 
   S2[-3, -2, -1, n] + 2*S2[-3, -1, -2, n] - 
   S2[-2, n]*(S2[-3, n]*S2[-1, n] - 2*S2[-1, n]*S2[-2, 1, n] + 
     S2[-2, 1, -1, n] + S2[-1, -2, 1, n]) - S2[4, 1, -1, n] + 
   S2[-1, -2, 1, -2, n] + 2*S2[-1, 1, -2, -2, n], 
 S2[-2, 1, -2, 1, n_] -> (S2[-3, n]^2 + 2*S2[-4, n]*S2[-2, n] + 
    S2[-2, n]^2*S2[2, n] - S2[2, n]*S2[4, n] + S2[6, n] - 2*S2[-4, -2, n] + 
    2*S2[-2, n]*S2[-3, 1, n] + S2[-2, 1, n]^2 - 2*S2[-2, n]*S2[2, -2, n] + 
    S2[4, 2, n] + 2*S2[5, 1, n] - 2*S2[-3, -2, 1, n] - 2*S2[-3, 1, -2, n] + 
    2*S2[2, -2, -2, n] + 2*S2[4, 1, 1, n] - 4*S2[-2, -2, 1, 1, n])/2, 
 S2[-2, 1, -2, -1, n_] -> S2[-3, 3, n] - S2[-3, n]*S2[-2, -1, n] + 
   S2[-2, -1, n]*S2[-2, 1, n] - S2[-3, -1, -2, n] + 
   S2[-1, n]*S2[-2, 1, -2, n] + S2[-2, n]*(S2[-3, -1, n] - 
     S2[-1, n]*S2[-2, 1, n] - S2[3, 1, n] + S2[-1, -2, 1, n]) + 
   S2[3, 1, -2, n] - S2[-1, -2, 1, -2, n], S2[-2, -1, 1, -2, n_] -> 
  S2[-6, n] + S2[-2, n]^3/2 + S2[-1, n]*S2[1, n]*S2[4, n] + 
   S2[-1, n]*S2[5, n] + S2[-1, n]*S2[-3, -2, n] + S2[-3, 3, n] + 
   S2[-2, n]^2*(S2[-1, n]*S2[1, n] - S2[1, -1, n]) - S2[4, n]*S2[1, -1, n] - 
   S2[-1, n]*S2[4, 1, n] - S2[5, -1, n] - S2[-3, -2, -1, n] - 
   S2[-3, -1, -2, n] + S2[-2, n]*(S2[-3, n]*S2[-1, n] + (3*S2[4, n])/2 - 
     S2[-3, -1, n] - S2[-1, n]*S2[-2, 1, n] + S2[-2, 1, -1, n]) + 
   S2[3, 1, -2, n] + S2[4, 1, -1, n] - S2[-1, -2, 1, -2, n] - 
   2*S2[-1, 1, -2, -2, n], S2[-2, -1, -1, -2, n_] -> 
  (S2[-4, n]*S2[-2, n] - S2[3, n]^2 + S2[2, n]*S2[4, n] + S2[6, n] + 
    S2[-2, n]*S2[-1, n]*S2[-2, -1, n] + 2*S2[3, n]*S2[-2, -1, n] - 
    S2[-2, -1, n]^2 + S2[-2, n]*S2[2, -2, n] - S2[-2, n]*S2[3, -1, n] - 
    S2[4, 2, n] - S2[-2, n]*S2[-1, -2, -1, n] - 2*S2[2, -2, -2, n] + 
    2*S2[3, -1, -2, n])/2, S2[-2, -1, -2, 1, n_] -> 
  2*S2[-6, n] + S2[-1, n]*S2[5, n] + 2*S2[-5, 1, n] - 
   S2[-1, n]*S2[-3, -2, n] - 2*S2[-3, 3, n] + 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + 2*S2[3, n] - S2[-2, -1, n]) + 
   S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + S2[-1, n]*S2[4, 1, n] - 
   S2[5, -1, n] + S2[-3, -2, -1, n] - S2[-2, 3, 1, n] + 
   S2[-2, n]*S2[-1, -2, 1, n] - S2[3, 1, -2, n] - S2[4, -1, 1, n] - 
   S2[4, 1, -1, n] - 2*S2[-1, -2, -2, 1, n] - S2[-1, -2, 1, -2, n], 
 S2[-2, -1, -2, -1, n_] -> (2*S2[-4, n]*S2[-2, n] + S2[-2, n]^2*S2[2, n] + 
    S2[3, n]^2 - S2[2, n]*S2[4, n] + S2[6, n] + 2*S2[-5, -1, n] - 
    2*S2[-4, -2, n] + S2[-2, -1, n]^2 - 2*S2[-2, n]*
     (S2[2, -2, n] - S2[3, -1, n]) + S2[4, 2, n] + 2*S2[2, -2, -2, n] - 
    2*S2[3, -2, -1, n] - 2*S2[3, -1, -2, n] + 2*S2[4, -1, -1, n] - 
    4*S2[-2, -2, -1, -1, n])/2, S2[-2, -2, 1, -1, n_] -> 
  (2*S2[-6, n] + S2[-2, n]^3 + 6*S2[-3, 3, n] - 3*S2[-2, n]^2*S2[1, -1, n] - 
    3*S2[4, n]*S2[1, -1, n] - 6*S2[-3, -2, -1, n] - 6*S2[-3, -1, -2, n] + 
    3*S2[-1, n]*(S2[-3, n]*S2[-2, n] + S2[-2, n]^2*S2[1, n] + 
      S2[1, n]*S2[4, n] + S2[5, n] + S2[-3, -2, n] - S2[-2, n]*S2[-2, 1, n] - 
      S2[4, 1, n] - S2[-2, 1, -2, n]) + 3*S2[-2, n]*
     (S2[4, n] + 2*S2[-2, 1, -1, n]) + 6*S2[4, 1, -1, n] - 
    6*S2[-1, 1, -2, -2, n])/6, S2[-2, -2, -1, 1, n_] -> 
  -S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - 
   (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - S2[-5, 1, n] - 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
   S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + (S2[-2, n]^2*S2[1, -1, n])/2 + 
   (S2[4, n]*S2[1, -1, n])/2 - S2[4, -2, n] + S2[5, -1, n] + 
   S2[-3, -1, -2, n] - S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
   S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
   S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n], 
 S2[3, 1, 2, n_] -> (S2[3, n]^2 + S2[6, n] + 
    2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - S2[2, 3, 1, n] - S2[3, 2, 1, n]))/
   2, S2[3, -2, 1, n_] -> S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - 
   S2[-3, 3, n] + S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - S2[3, 1, -2, n], 
 S2[2, 3, -1, n_] -> S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n] + 
   S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[3, -1, 2, n] - S2[3, 2, -1, n], 
 S2[2, 2, 2, n_] -> (S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n])/6, 
 S2[2, 2, -2, n_] -> -(S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-4, 2, n] + 
   S2[2, n]*S2[2, -2, n] + S2[4, -2, n] + S2[-2, 2, 2, n], 
 S2[2, 1, 3, n_] -> S2[2, n]*S2[4, n] + S2[6, n] + S2[3, n]*S2[2, 1, n] - 
   S2[4, 2, n] + S2[5, 1, n] - S2[2, 3, 1, n] - S2[3, 2, 1, n], 
 S2[2, 1, -3, n_] -> S2[-6, n] + S2[-4, n]*S2[2, n] - S2[-4, 2, n] - 
   S2[2, n]*S2[-3, 1, n] - S2[-3, 3, n] + S2[-3, n]*S2[2, 1, n] + 
   S2[-3, 1, 2, n], S2[2, -1, 3, n_] -> S2[-4, n]*S2[2, n] - 
   S2[-3, n]*S2[3, n] - S2[-4, 2, n] + S2[-3, 3, n] + S2[3, n]*S2[2, -1, n] - 
   S2[2, n]*S2[3, -1, n] + S2[3, -1, 2, n], 
 S2[2, -1, -3, n_] -> -S2[-3, n]^2/2 + S2[6, n]/2 + 
   S2[2, n]*(S2[4, n] - S2[-3, -1, n]) + S2[-3, n]*S2[2, -1, n] - 
   S2[4, 2, n] + S2[-3, -1, 2, n], S2[2, -2, 2, n_] -> 
  S2[-6, n] + S2[-2, n]*S2[4, n] + S2[-4, 2, n] + 
   S2[2, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) - S2[4, -2, n] - 
   2*S2[-2, 2, 2, n], S2[2, -3, 1, n_] -> 
  S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - S2[-3, 1, 2, n] - 
   S2[-3, 2, 1, n], S2[2, -3, -1, n_] -> 
  (S2[-3, n]^2 + S2[6, n] + 2*(S2[-5, -1, n] + S2[2, n]*S2[-3, -1, n] - 
      S2[-3, -1, 2, n] - S2[-3, 2, -1, n]))/2, 
 S2[1, 4, 1, n_] -> S2[1, n]*S2[4, 1, n] + S2[4, 2, n] + S2[5, 1, n] - 
   2*S2[4, 1, 1, n], S2[1, 4, -1, n_] -> 
  S2[4, -2, n] + S2[1, n]*S2[4, -1, n] + S2[5, -1, n] - S2[4, -1, 1, n] - 
   S2[4, 1, -1, n], S2[1, 3, 2, n_] -> -(S2[2, n]*S2[3, 1, n]) + 
   S2[1, n]*S2[3, 2, n] + S2[4, 2, n] - S2[5, 1, n] + S2[2, 3, 1, n], 
 S2[1, 3, -2, n_] -> -S2[-5, 1, n] + S2[1, n]*S2[3, -2, n] - 
   S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + S2[-2, 3, 1, n], 
 S2[1, 2, 3, n_] -> (S2[3, n]^2 + S2[6, n] - 2*S2[3, n]*S2[2, 1, n] + 
    2*S2[1, n]*(S2[2, n]*S2[3, n] + S2[5, n] - S2[3, 2, n]) - 2*S2[5, 1, n] + 
    2*S2[3, 2, 1, n])/2, S2[1, 2, -3, n_] -> S2[-6, n] + S2[-5, n]*S2[1, n] - 
   S2[-5, 1, n] - S2[1, n]*S2[-3, 2, n] - S2[-3, 3, n] + 
   S2[-3, n]*(S2[1, n]*S2[2, n] + S2[3, n] - S2[2, 1, n]) + S2[-3, 2, 1, n], 
 S2[1, 1, 4, n_] -> (S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + 
   S2[6, n] + S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - S2[5, 1, n] + 
   S2[4, 1, 1, n], S2[1, 1, -4, n_] -> S2[-6, n] + S2[-5, n]*S2[1, n] + 
   (S2[-4, n]*S2[1, n]^2)/2 + (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - 
   S2[1, n]*S2[-4, 1, n] - S2[-4, 2, n] + S2[-4, 1, 1, n], 
 S2[1, -1, 4, n_] -> S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n] + 
   S2[4, n]*S2[1, -1, n] - S2[4, -2, n] - S2[1, n]*S2[4, -1, n] + 
   S2[4, -1, 1, n], S2[1, -1, -4, n_] -> S2[6, n] - S2[-4, -2, n] + 
   S2[1, n]*(S2[5, n] - S2[-4, -1, n]) + S2[-4, n]*S2[1, -1, n] - 
   S2[5, 1, n] + S2[-4, -1, 1, n], S2[1, -2, 3, n_] -> 
  S2[-6, n] + S2[-5, n]*S2[1, n] + S2[-3, n]*S2[3, n] + 
   S2[-2, n]*S2[1, n]*S2[3, n] - S2[3, n]*S2[-2, 1, n] - 
   S2[1, n]*S2[3, -2, n] + S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - 
   S2[3, 1, -2, n], S2[1, -2, -3, n_] -> 
  (S2[-3, n]^2 + S2[6, n] + 2*S2[1, n]*(S2[5, n] - S2[-3, -2, n]) + 
    2*S2[-3, n]*(S2[-2, n]*S2[1, n] - S2[-2, 1, n]) - 2*S2[5, 1, n] + 
    2*S2[-3, -2, 1, n])/2, S2[1, -3, 2, n_] -> 
  S2[-4, 2, n] + S2[1, n]*S2[-3, 2, n] + S2[-3, 3, n] - S2[-3, 1, 2, n] - 
   S2[-3, 2, 1, n], S2[1, -3, -2, n_] -> 
  (S2[-3, n]^2 + S2[6, n] + 2*(S2[-4, -2, n] + S2[1, n]*S2[-3, -2, n] - 
      S2[-3, -2, 1, n] - S2[-3, 1, -2, n]))/2, 
 S2[1, -4, 1, n_] -> S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] + S2[-4, 2, n] - 
   2*S2[-4, 1, 1, n], S2[1, -4, -1, n_] -> S2[-5, -1, n] + S2[-4, -2, n] + 
   S2[1, n]*S2[-4, -1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n], 
 S2[-1, 4, 1, n_] -> S2[-5, 1, n] + S2[4, -2, n] + S2[-1, n]*S2[4, 1, n] - 
   S2[4, -1, 1, n] - S2[4, 1, -1, n], S2[-1, 4, -1, n_] -> 
  S2[-5, -1, n] + S2[-1, n]*S2[4, -1, n] + S2[4, 2, n] - 2*S2[4, -1, -1, n], 
 S2[-1, 3, 2, n_] -> S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-4, 2, n] - 
   S2[-3, 3, n] + S2[-1, n]*S2[3, 2, n] - S2[3, -1, 2, n] - S2[3, 2, -1, n], 
 S2[-1, 3, -2, n_] -> (S2[3, n]^2 + S2[6, n] + 
    2*(S2[-4, -2, n] + S2[-1, n]*S2[3, -2, n] - S2[3, -2, -1, n] - 
      S2[3, -1, -2, n]))/2, S2[-1, 2, 3, n_] -> 
  S2[-3, 3, n] - S2[3, n]*S2[2, -1, n] + 
   S2[-1, n]*(S2[2, n]*S2[3, n] + S2[5, n] - S2[3, 2, n]) - S2[5, -1, n] + 
   S2[3, 2, -1, n], S2[-1, 2, -3, n_] -> 
  (S2[-3, n]^2 + 2*S2[-5, n]*S2[-1, n] + S2[6, n] - 2*S2[-5, -1, n] - 
    2*S2[-1, n]*S2[-3, 2, n] + 2*S2[-3, n]*(S2[-1, n]*S2[2, n] - 
      S2[2, -1, n]) + 2*S2[-3, 2, -1, n])/2, 
 S2[-1, 1, 4, n_] -> S2[-6, n] + S2[-2, n]*S2[4, n] - S2[4, n]*S2[1, -1, n] - 
   S2[4, -2, n] + S2[-1, n]*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) - 
   S2[5, -1, n] + S2[4, 1, -1, n], S2[-1, 1, -4, n_] -> 
  S2[6, n] - S2[-5, -1, n] - S2[-4, -2, n] + 
   S2[-1, n]*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) + 
   S2[-4, n]*(S2[-2, n] - S2[1, -1, n]) + S2[-4, 1, -1, n], 
 S2[-1, -1, 4, n_] -> S2[-5, n]*S2[-1, n] + (S2[-1, n]^2*S2[4, n])/2 + 
   (S2[2, n]*S2[4, n])/2 + S2[6, n] - S2[-5, -1, n] - 
   S2[-1, n]*S2[4, -1, n] - S2[4, 2, n] + S2[4, -1, -1, n], 
 S2[-1, -1, -4, n_] -> S2[-6, n] + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
   S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - S2[-4, 2, n] - S2[5, -1, n] + 
   S2[-4, -1, -1, n], S2[-1, -2, 3, n_] -> 
  (2*S2[-5, n]*S2[-1, n] + 2*S2[-2, n]*S2[-1, n]*S2[3, n] + S2[3, n]^2 + 
    S2[6, n] - 2*S2[-5, -1, n] - 2*S2[3, n]*S2[-2, -1, n] - 
    2*S2[-1, n]*S2[3, -2, n] + 2*S2[3, -2, -1, n])/2, 
 S2[-1, -2, -3, n_] -> S2[-6, n] + S2[-1, n]*(S2[5, n] - S2[-3, -2, n]) - 
   S2[-3, 3, n] + S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - 
     S2[-2, -1, n]) - S2[5, -1, n] + S2[-3, -2, -1, n], 
 S2[-1, -3, 2, n_] -> (S2[-3, n]^2 + S2[6, n] + 
    2*(S2[-1, n]*S2[-3, 2, n] + S2[4, 2, n] - S2[-3, -1, 2, n] - 
      S2[-3, 2, -1, n]))/2, S2[-1, -3, -2, n_] -> 
  S2[-1, n]*S2[-3, -2, n] + S2[-3, 3, n] + S2[4, -2, n] - S2[-3, -2, -1, n] - 
   S2[-3, -1, -2, n], S2[-1, -4, 1, n_] -> 
  S2[-4, -2, n] + S2[-1, n]*S2[-4, 1, n] + S2[5, 1, n] - S2[-4, -1, 1, n] - 
   S2[-4, 1, -1, n], S2[-1, -4, -1, n_] -> S2[-1, n]*S2[-4, -1, n] + 
   S2[-4, 2, n] + S2[5, -1, n] - 2*S2[-4, -1, -1, n], 
 S2[-2, 3, -1, n_] -> (S2[3, n]^2 + S2[6, n] + 
    2*(S2[-5, -1, n] + S2[-2, n]*S2[3, -1, n] - S2[3, -2, -1, n] - 
      S2[3, -1, -2, n]))/2, S2[-2, 2, -2, n_] -> 
  S2[2, n]*S2[4, n] + S2[6, n] + S2[-4, -2, n] + S2[-2, n]*S2[2, -2, n] - 
   S2[4, 2, n] - 2*S2[2, -2, -2, n], S2[-2, 1, 3, n_] -> 
  -(S2[-3, n]*S2[3, n]) + S2[-3, 3, n] + S2[3, n]*S2[-2, 1, n] + 
   S2[-2, n]*(S2[4, n] - S2[3, 1, n]) - S2[4, -2, n] + S2[3, 1, -2, n], 
 S2[-2, 1, -3, n_] -> -S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] + S2[6, n]/2 - 
   S2[-4, -2, n] - S2[-2, n]*S2[-3, 1, n] + S2[-3, n]*S2[-2, 1, n] + 
   S2[-3, 1, -2, n], S2[-2, -1, 3, n_] -> S2[-4, n]*S2[-2, n] - 
   S2[3, n]^2/2 + S2[6, n]/2 - S2[-4, -2, n] + S2[3, n]*S2[-2, -1, n] - 
   S2[-2, n]*S2[3, -1, n] + S2[3, -1, -2, n], 
 S2[-2, -1, -3, n_] -> S2[-6, n] + S2[-2, n]*(S2[4, n] - S2[-3, -1, n]) - 
   S2[-3, 3, n] + S2[-3, n]*S2[-2, -1, n] - S2[4, -2, n] + S2[-3, -1, -2, n], 
 S2[-2, -2, 2, n_] -> S2[-4, n]*S2[-2, n] + (S2[-2, n]^2*S2[2, n])/2 - 
   (S2[2, n]*S2[4, n])/2 - S2[-4, -2, n] - S2[-2, n]*S2[2, -2, n] + 
   S2[4, 2, n] + S2[2, -2, -2, n], S2[-2, -2, -2, n_] -> 
  (2*S2[-6, n] + S2[-2, n]^3 + 3*S2[-2, n]*S2[4, n])/6, 
 S2[-2, -3, 1, n_] -> (S2[-3, n]^2 + S2[6, n] + 
    2*(S2[-2, n]*S2[-3, 1, n] + S2[5, 1, n] - S2[-3, -2, 1, n] - 
      S2[-3, 1, -2, n]))/2, S2[-2, -3, -1, n_] -> 
  S2[-2, n]*S2[-3, -1, n] + S2[-3, 3, n] + S2[5, -1, n] - S2[-3, -2, -1, n] - 
   S2[-3, -1, -2, n], S2[3, 3, n_] -> (S2[3, n]^2 + S2[6, n])/2, 
 S2[3, -3, n_] -> S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n], 
 S2[2, 4, n_] -> S2[2, n]*S2[4, n] + S2[6, n] - S2[4, 2, n], 
 S2[2, -4, n_] -> S2[-6, n] + S2[-4, n]*S2[2, n] - S2[-4, 2, n], 
 S2[1, 5, n_] -> S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n], 
 S2[1, -5, n_] -> S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n], 
 S2[-1, 5, n_] -> S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n], 
 S2[-1, -5, n_] -> S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n], 
 S2[-2, 4, n_] -> S2[-6, n] + S2[-2, n]*S2[4, n] - S2[4, -2, n], 
 S2[-2, -4, n_] -> S2[-4, n]*S2[-2, n] + S2[6, n] - S2[-4, -2, n], 
 S2[-3, -3, n_] -> (S2[-3, n]^2 + S2[6, n])/2, 
 S2[-1, -1, -1, -1, -1, -1, n] -> (S2[-3, n]*S2[-1, n]^3)/18 + 
   (S2[-1, n]*(6*S2[-5, n] + 5*S2[-3, n]*S2[2, n]))/30 + 
   (40*S2[-3, n]^2 + S2[-1, n]^6 + 45*S2[-1, n]^2*S2[2, n]^2 + 15*S2[2, n]^3)/
    720 + (S2[-1, n]^2*S2[4, n])/8 + (S2[2, n]*(S2[-1, n]^4 + 6*S2[4, n]))/
    48 + S2[6, n]/6, S2[-1, -1, -1, -1, 1, -1, n] -> 
  -2*S2[-6, n] + S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
   S2[-3, n]*S2[3, n] + ((-6*S2[-3, n] - S2[-1, n]^3)*S2[3, n])/6 + 
   ((9*S2[-3, n] + S2[-1, n]^3)*S2[3, n])/24 + 
   ((-25*S2[-3, n] + 7*S2[-1, n]^3)*S2[3, n])/24 + 
   S2[-1, n]*S2[2, n]*S2[3, n] + 
   (S2[-2, n]*(S2[-1, n]^4 - 6*S2[-1, n]^2*S2[2, n] + 3*S2[2, n]^2 - 
      6*S2[4, n]))/24 + 2*S2[-2, n]*S2[4, n] - 
   (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 + S2[-1, n]*S2[5, n] + 
   S2[-5, 1, n] - S2[-4, 2, n] + (S2[-1, n]^2*S2[-3, 1, n])/2 + 
   S2[2, n]*S2[-3, 1, n] - S2[1, n]*S2[-3, 2, n] + 2*S2[-3, 3, n] + 
   2*S2[-3, n]*S2[-2, -1, n] - (S2[-1, n]^3*S2[-2, -1, n])/6 + 
   S2[-1, n]*S2[2, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[2, -2, n] - 
   2*S2[1, n]*S2[2, n]*S2[2, -1, n] - 2*S2[3, n]*S2[2, -1, n] + 
   S2[-1, n]*S2[2, n]*S2[2, 1, n] + ((S2[-1, n]^3 - 6*S2[2, -1, n])*
     S2[2, 1, n])/6 + S2[2, -1, n]*S2[2, 1, n] + 
   (S2[-3, n]*(-S2[-2, -1, n] + S2[2, 1, n]))/3 - 
   (S2[-1, n]^2*S2[3, -1, n])/2 - S2[-1, n]*S2[3, 2, n] + S2[4, -2, n] + 
   S2[1, n]*(S2[-3, 2, n] - S2[4, -1, n]) + S2[1, n]*S2[4, -1, n] + 
   S2[-1, n]*S2[4, 1, n] + S2[-1, n]*(S2[5, n] + 
     S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + S2[4, 1, n]) + 
   3*(S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n]) + 2*S2[5, -1, n] + 
   2*S2[-4, -1, -1, n] - 3*S2[-3, -2, -1, n] + S2[-3, 1, 2, n] + 
   2*S2[-3, 2, 1, n] + S2[-2, 2, 2, n] + 
   (S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
      S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]))/4 - 
   S2[2, n]*S2[-1, -2, -1, n] + 2*S2[2, n]*S2[1, 2, -1, n] - 
   (S2[-1, n]^2*S2[2, 1, -1, n])/2 + 
   (S2[2, n]*(-12*S2[-3, 1, n] - 24*S2[2, -2, n] - 36*S2[3, -1, n] - 
      6*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
        S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]) + 
      12*S2[2, 1, -1, n]))/24 - 2*S2[-1, n]*S2[2, 2, 1, n] + 
   S2[3, -1, 2, n] + 3*S2[3, 2, -1, n] - 2*S2[4, -1, 1, n] - 
   2*S2[4, 1, -1, n] + S2[-3, 1, -1, -1, n] - 2*S2[-2, -1, -1, 2, n] - 
   2*S2[-2, -1, 2, -1, n] - 2*S2[-2, 2, -1, -1, n] - 2*S2[-1, 2, 1, 2, n] - 
   2*S2[-1, 2, 2, 1, n] + 2*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - 
     S2[-3, n]*S2[3, n] - S2[-1, n]*S2[2, n]*S2[3, n] - 
     (S2[-1, n]*S2[1, n]*S2[4, n])/2 - (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/
      2 - S2[-1, n]*S2[5, n] - S2[-4, 2, n] + S2[-3, 3, n] + 
     (S2[2, n]^2*S2[1, -1, n])/2 + (S2[4, n]*S2[1, -1, n])/2 + 
     S2[2, n]*S2[2, -2, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
     S2[3, n]*S2[2, -1, n] + S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - 
     S2[-3, 1, 2, n] - S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + S2[3, -1, 2, n] + S2[4, -1, 1, n] + 
     S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) - 
   S2[3, -1, -1, -1, n] + S2[-2, -1, -1, -1, -1, n] + 
   (S2[-1, n]*(8*S2[-3, n]*S2[-2, n] - 8*S2[-2, n]*S2[-1, n]^3 - 
      3*S2[-1, n]^4*S2[1, n] - 3*S2[1, n]*S2[2, n]^2 - 
      6*S2[-1, n]^2*S2[3, n] + 6*S2[2, n]*S2[3, n] - 6*S2[1, n]*S2[4, n] - 
      72*S2[5, n] - 24*S2[-4, -1, n] + 48*S2[-3, -2, n] + 
      6*S2[-1, n]^2*S2[-2, -1, n] - 6*S2[2, n]*S2[-2, -1, n] + 
      2*S2[-1, n]^3*S2[1, -1, n] - 6*S2[-1, n]*S2[2, n]*S2[1, -1, n] - 
      8*S2[-3, n]*(2*S2[-2, n] + S2[1, -1, n]) - 6*S2[-1, n]^2*S2[2, 1, n] - 
      18*S2[2, n]*S2[2, 1, n] - 24*S2[3, 2, n] - 24*S2[-3, 1, -1, n] + 
      24*S2[-2, -1, 2, n] - 48*(S2[-3, n]*S2[-2, n] + S2[5, n] + 
        S2[-4, -1, n] - S2[-3, -2, n] + S2[2, n]*S2[-2, -1, n] - 
        S2[-2, -1, 2, n] - S2[-2, 2, -1, n]) + 24*S2[-2, 2, -1, n] + 
      6*S2[-1, n]^2*S2[-1, 1, -1, n] + 6*S2[2, n]*S2[-1, 1, -1, n] + 
      72*S2[2, 2, 1, n] + 24*S2[3, -1, -1, n] - 48*S2[-2, -1, -1, -1, n] + 
      24*S2[-1, n]*S2[-1, -1, -1, 1, n] + 48*S2[2, 1, -1, -1, n] + 
      24*S2[1, -1, -1, -1, -1, n]))/24 - S2[2, 1, -1, -1, -1, n] - 
   5*S2[-1, -1, -1, -1, -1, 1, n], S2[-1, -1, -1, 1, -1, -1, n] -> 
  16*S2[-6, n] + (S2[-4, n]*S2[-1, n]^2)/2 - S2[-3, n]*S2[3, n] + 
   ((21*S2[-3, n] - S2[-1, n]^3)*S2[3, n])/6 + 
   ((12*S2[-3, n] + S2[-1, n]^3)*S2[3, n])/6 + 
   (S2[-2, n]*(S2[-1, n]^2*S2[2, n] - S2[2, n]^2 + 2*S2[4, n]))/2 + 
   (3*S2[-5, 1, n])/2 - (9*S2[-4, 2, n])/2 - (S2[-1, n]^2*S2[-3, 1, n])/2 - 
   (13*S2[-3, 3, n])/2 + (S2[-1, n]^3*S2[-2, -1, n])/6 - 
   (3*S2[-1, n]^2*S2[2, -2, n])/2 + 
   (4*S2[-3, n]*(S2[-2, -1, n] - S2[2, 1, n]))/3 + 
   ((-S2[-1, n]^3 + 21*S2[2, -1, n])*S2[2, 1, n])/6 + 
   (S2[-1, n]^2*S2[3, -1, n])/2 + S2[4, -2, n] - 
   (7*S2[1, n]*(S2[-3, 2, n] - S2[4, -1, n]))/2 - 
   (19*(S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n]))/2 - S2[5, -1, n]/2 + 
   S2[-4, -1, -1, n] + 2*S2[-3, -2, -1, n] + 2*S2[-3, 1, 2, n] + 
   (7*(S2[-4, 2, n] + S2[1, n]*S2[-3, 2, n] + S2[-3, 3, n] - 
      S2[-3, 1, 2, n] - S2[-3, 2, 1, n]))/2 - 
   2*(-(S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-4, 2, n] + 
     S2[2, n]*S2[2, -2, n] + S2[4, -2, n] + S2[-2, 2, 2, n]) - 
   (S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
      S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]))/2 + 
   S2[-1, n]^2*S2[2, 1, -1, n] - (11*S2[3, -1, 2, n])/2 - 
   (11*S2[3, 2, -1, n])/2 - (7*(S2[4, -2, n] + S2[1, n]*S2[4, -1, n] + 
      S2[5, -1, n] - S2[4, -1, 1, n] - S2[4, 1, -1, n]))/2 - 
   S2[4, 1, -1, n] - 3*S2[-3, 1, -1, -1, n] - 
   (7*(2*S2[-6, n] + S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
      2*S2[-2, n]*S2[4, n] + 2*S2[-3, n]*S2[-2, -1, n] + 
      S2[-1, n]*S2[2, n]*S2[-2, -1, n] - S2[2, n]*S2[2, -2, n] + 
      S2[2, n]*S2[3, -1, n] - 2*S2[4, -2, n] + 2*S2[5, -1, n] + 
      2*S2[-4, -1, -1, n] - 2*S2[-3, -2, -1, n] - 
      S2[2, n]*S2[-1, -2, -1, n] - 2*S2[-2, -1, -1, 2, n] - 
      2*S2[-2, -1, 2, -1, n] - 2*S2[-2, 2, -1, -1, n]))/2 + 
   (S2[-1, n]^2*S2[-1, -1, -1, 1, n])/2 + 
   (S2[2, n]*(6*S2[-4, n] + 36*S2[-3, 1, n] + 42*S2[2, -2, n] + 
      48*S2[3, -1, n] + 12*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) - 24*S2[2, 1, -1, n] + 6*S2[-1, -1, -1, 1, n]))/
    12 - (7*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
      S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
      S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
      S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
      S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
      2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]))/2 - 
   (7*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - 
      S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] - 
      S2[2, n]*S2[3, -1, n] + S2[4, -2, n] + 
      S2[-1, n]*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n]) - S2[5, -1, n] + S2[-3, 2, 1, n] + 
      S2[2, n]*S2[1, 2, -1, n] + S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
      S2[4, 1, -1, n] - S2[-1, 2, 1, 2, n] - 2*S2[-1, 2, 2, 1, n]))/2 - 
   7*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) + 3*S2[3, -1, -1, -1, n] - 
   4*S2[-2, -1, -1, -1, -1, n] + 
   (S2[-1, n]*(-12*S2[-3, n]*S2[-2, n] + 102*S2[5, n] - 12*S2[-4, -1, n] - 
      12*S2[-3, -2, n] - 18*S2[2, n]*S2[-2, -1, n] + 
      18*S2[2, n]*S2[2, 1, n] + 12*S2[3, 2, n] + 12*S2[4, 1, n] + 
      24*S2[-3, 1, -1, n] + 60*(S2[-3, n]*S2[-2, n] + S2[5, n] + 
        S2[-4, -1, n] - S2[-3, -2, n] + S2[2, n]*S2[-2, -1, n] - 
        S2[-2, -1, 2, n] - S2[-2, 2, -1, n]) - 60*S2[2, 2, 1, n] - 
      24*S2[3, -1, -1, n] + 36*S2[-2, -1, -1, -1, n] - 
      36*S2[2, 1, -1, -1, n] - 2*(-8*S2[-2, n]*S2[-1, n]^3 - 
        3*S2[-1, n]^4*S2[1, n] - 3*S2[1, n]*S2[2, n]^2 - 
        6*S2[-1, n]^2*S2[3, n] - 6*S2[2, n]*S2[3, n] - 6*S2[1, n]*S2[4, n] - 
        24*S2[5, n] - 24*S2[-4, -1, n] + 24*S2[-3, -2, n] + 
        6*S2[-1, n]^2*S2[-2, -1, n] - 18*S2[2, n]*S2[-2, -1, n] + 
        2*S2[-1, n]^3*S2[1, -1, n] - 6*S2[-1, n]*S2[2, n]*S2[1, -1, n] - 
        8*S2[-3, n]*(2*S2[-2, n] + S2[1, -1, n]) - 6*S2[-1, n]^2*
         S2[2, 1, n] - 6*S2[2, n]*S2[2, 1, n] + 24*S2[-2, -1, 2, n] + 
        24*S2[-2, 2, -1, n] + 6*S2[-1, n]^2*S2[-1, 1, -1, n] + 
        6*S2[2, n]*S2[-1, 1, -1, n] + 24*S2[2, 2, 1, n] - 
        24*S2[-2, -1, -1, -1, n] + 24*S2[-1, n]*S2[-1, -1, -1, 1, n] + 
        24*S2[2, 1, -1, -1, n] + 24*S2[1, -1, -1, -1, -1, n])))/12 + 
   4*S2[2, 1, -1, -1, -1, n] + 10*S2[-1, -1, -1, -1, -1, 1, n], 
 S2[-1, -1, -1, 1, 1, -1, n] -> (-7*S2[-3, n]^2)/4 + 2*S2[-4, n]*S2[-2, n] + 
   (S2[-3, n]*(-10*S2[-3, n] + S2[-1, n]^3))/12 + 
   (S2[-3, n]*(11*S2[-3, n] + S2[-1, n]^3))/12 + (S2[-2, n]^2*S2[2, n])/2 + 
   (21*S2[3, n]^2)/8 - (S2[-1, n]^2*S2[4, n])/2 - (3*S2[2, n]*S2[4, n])/2 + 
   (17*S2[6, n])/8 + (9*(S2[3, n]^2 + S2[6, n]))/8 - 
   (7*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]))/2 - 
   (3*S2[-5, -1, n])/4 - (13*S2[-4, -2, n])/4 - (S2[-1, n]^2*S2[-3, -1, n])/
    2 - 2*S2[2, n]*S2[-3, -1, n] - 2*S2[-2, n]*S2[-3, 1, n] + 
   S2[3, n]*S2[-2, -1, n] + 2*S2[-3, n]*S2[-2, 1, n] + 
   S2[-1, n]*S2[2, n]*S2[-2, 1, n] - S2[3, n]*S2[2, 1, n] + 
   (S2[3, n]*(-S2[-2, -1, n] + S2[2, 1, n]))/2 - 
   S2[3, n]*(S2[-2, -1, n] + S2[2, 1, n]) + 
   (S2[3, n]*(-11*S2[3, n] + 6*S2[-2, -1, n] + 2*S2[2, 1, n]))/4 + 
   2*S2[-2, n]*S2[3, -1, n] + (S2[-1, n]^2*S2[3, 1, n])/2 + 
   S2[2, n]*S2[3, 1, n] - S2[1, n]*(S2[5, n] - S2[4, 1, n]) + 3*S2[4, 2, n] - 
   (3*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]))/4 - (15*S2[5, 1, n])/4 + 
   S2[-4, -1, 1, n]/4 + (S2[-5, -1, n] + S2[-4, -2, n] + 
     S2[1, n]*S2[-4, -1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n])/4 + 
   S2[-4, 1, -1, n]/4 + S2[-3, -2, 1, n] + 2*S2[-3, -1, 2, n] + 
   3*S2[-3, 1, -2, n] + S2[-1, n]*S2[-3, 1, 1, n] + 2*S2[-3, 2, -1, n] + 
   S2[2, n]*S2[-2, 1, -1, n] - 
   (S2[-1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
      S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]))/2 - 
   S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
     S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 
   S2[2, n]*S2[-1, -2, 1, n] + 3*S2[2, -2, -2, n] - 
   2*S2[-2, n]*S2[2, 1, -1, n] + 
   (S2[2, n]*(-9*S2[4, n] + 6*S2[-3, -1, n] + 
      3*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n]) - 27*S2[3, 1, n] + 
      6*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 6*S2[2, 1, 1, n]))/12 + 
   (S2[-1, n]^2*S2[2, 1, 1, n])/2 + 4*S2[2, 3, 1, n] - 4*S2[3, -2, -1, n] - 
   3*S2[3, -1, -2, n] - S2[1, n]*S2[3, -1, -1, n] + 
   2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - S2[2, 3, 1, n] - S2[3, 2, 1, n]) + 
   3*S2[3, 2, 1, n] + 2*(S2[-5, n]*S2[-1, n] + (S2[-1, n]^2*S2[4, n])/2 + 
     (S2[2, n]*S2[4, n])/2 + S2[6, n] - S2[-5, -1, n] - 
     S2[-1, n]*S2[4, -1, n] - S2[4, 2, n] + S2[4, -1, -1, n]) - 
   S2[-3, -1, -1, -1, n] - S2[-3, 1, -1, 1, n] - S2[-3, 1, 1, -1, n] - 
   2*S2[-2, -2, -1, -1, n] - 2*S2[-2, 1, -1, 2, n] - 2*S2[-2, 1, 2, -1, n] - 
   2*(S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] - S2[3, n]^2/2 + S2[6, n] - 
     S2[-4, -2, n] + S2[-2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, -1, n] - 
     S2[-2, n]*S2[3, -1, n] + S2[5, 1, n] + S2[-4, -1, 1, n] - 
     S2[-3, -2, 1, n] - S2[-3, 1, -2, n] + 
     S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
       S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
     S2[3, -1, -2, n] - S2[-2, -1, 1, 2, n] - S2[-2, -1, 2, 1, n] - 
     S2[-2, 2, -1, 1, n]) - 2*(-S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] + 
     S2[3, n]^2/2 + S2[6, n] + S2[-5, -1, n] - S2[-4, -2, n] - 
     S2[-2, n]*S2[-3, 1, n] + S2[-3, n]*S2[-2, 1, n] + 
     S2[-2, n]*S2[3, -1, n] + S2[-4, 1, -1, n] + S2[-3, 1, -2, n] + 
     S2[2, n]*S2[-2, 1, -1, n] - S2[3, -2, -1, n] - S2[3, -1, -2, n] - 
     S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n] - S2[-2, 2, 1, -1, n]) + 
   (S2[-2, n]*(4*S2[-4, n] - 4*S2[2, -2, n] + 
      2*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
        S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]) + 
      4*S2[2, 1, -1, n] + 4*S2[-1, -1, -1, 1, n]))/4 - 
   S2[1, n]*S2[2, 1, -1, -1, n] + 
   (S2[1, n]*(-3*S2[2, n]*S2[3, n] + 21*S2[5, n] - 3*S2[-4, -1, n] - 
      12*S2[4, 1, n] + 12*S2[3, -1, -1, n] + 12*S2[2, 1, -1, -1, n]))/12 + 
   2*S2[2, 2, 1, 1, n] + S2[3, -1, -1, 1, n] + S2[3, -1, 1, -1, n] + 
   S2[3, 1, -1, -1, n] - S2[-2, -1, -1, -1, 1, n] - 
   S2[-2, -1, -1, 1, -1, n] - S2[-2, -1, 1, -1, -1, n] + 
   (S2[-1, n]*(6*S2[-5, n] - 6*S2[-2, n]^2*S2[-1, n] - 6*S2[-4, n]*S2[1, n] - 
      2*S2[-3, n]*S2[1, n]^2 - S2[-1, n]^3*S2[1, n]^2 + 
      8*S2[-3, n]*S2[2, n] + S2[-1, n]^3*S2[2, n] + 3*S2[-1, n]*S2[1, n]^2*
       S2[2, n] - 12*S2[-2, n]*S2[3, n] - 3*S2[-1, n]*S2[4, n] + 
      12*S2[-4, 1, n] + 6*S2[-1, n]*S2[-3, -1, n] - 12*S2[-3, 2, n] - 
      12*S2[-2, n]*S2[-2, -1, n] + 6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 
      6*S2[-1, n]^2*S2[-2, 1, n] - 6*S2[2, n]*S2[-2, 1, n] - 
      6*S2[1, n]*S2[2, -2, n] + 6*S2[2, n]*S2[2, -1, n] - 
      6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) - 
      12*S2[-2, n]*S2[2, 1, n] - 12*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
      24*S2[3, -2, n] - 6*S2[1, n]*S2[3, -1, n] - 12*S2[-1, n]*S2[3, 1, n] + 
      12*S2[-3, -1, -1, n] - 12*S2[-2, 2, 1, n] + 12*S2[-1, -2, -2, n] + 
      24*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
        S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n]) + 
      6*S2[1, n]*S2[-1, -2, -1, n] + 12*S2[-1, n]*S2[-1, -2, 1, n] - 
      6*S2[-1, n]*S2[-1, 2, -1, n] + 6*S2[-1, n]^2*S2[1, 1, -1, n] - 
      6*S2[2, n]*S2[1, 1, -1, n] + 24*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        S2[-4, 1, n] - S2[-3, 2, n] + S2[-2, n]*S2[2, 1, n] - 
        S2[-2, 2, 1, n] - S2[2, 1, -2, n]) + 24*S2[2, 1, -2, n] + 
      12*S2[1, n]*S2[2, 1, -1, n] + 12*S2[-1, n]*S2[2, 1, 1, n] - 
      12*S2[3, -1, 1, n] - 12*S2[3, 1, -1, n] + 24*S2[-2, -1, -1, 1, n] + 
      24*S2[-2, -1, 1, -1, n] + 12*S2[-2, 1, -1, -1, n] + 
      12*S2[1, n]*S2[-1, -1, -1, 1, n] - 12*S2[-1, n]*S2[1, 1, -1, -1, n] - 
      12*S2[2, -1, -1, -1, n] - 24*S2[2, 1, -1, 1, n] - 
      24*S2[2, 1, 1, -1, n] + 12*S2[1, 1, -1, -1, -1, n]))/12 + 
   S2[2, 1, -1, -1, 1, n] + S2[2, 1, -1, 1, -1, n] + S2[2, 1, 1, -1, -1, n] - 
   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] -> -18*S2[-6, n] - (9*S2[-3, n]*S2[3, n])/2 + 
   (S2[-2, n]*(S2[2, n]^2 - 3*S2[4, n]))/2 - 
   (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - (5*S2[-5, 1, n])/2 + 
   (9*S2[-4, 2, n])/2 + (11*S2[-3, 3, n])/2 + (S2[-1, n]^2*S2[2, -2, n])/2 + 
   S2[2, n]*S2[2, -2, n] - (9*S2[2, -1, n]*S2[2, 1, n])/2 + 
   (9*S2[1, n]*(S2[-3, 2, n] - S2[4, -1, n]))/2 + 
   (23*(S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n]))/2 + S2[5, -1, n]/2 - 
   2*S2[-4, -1, -1, n] - S2[-3, -2, -1, n] - S2[-3, 1, 2, n] - 
   (9*(S2[-4, 2, n] + S2[1, n]*S2[-3, 2, n] + S2[-3, 3, n] - 
      S2[-3, 1, 2, n] - S2[-3, 2, 1, n]))/2 + S2[-2, 2, 2, n] + 
   (S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
      S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]))/4 + 
   (S2[-3, n]*(-6*S2[-2, -1, n] + 6*S2[2, 1, n] + 
      (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])/2))/3 + 
   (S2[-1, n]^3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/12 - (S2[-1, n]^2*S2[2, 1, -1, n])/2 + 
   (11*S2[3, -1, 2, n])/2 + (11*S2[3, 2, -1, n])/2 + 
   (9*(S2[4, -2, n] + S2[1, n]*S2[4, -1, n] + S2[5, -1, n] - 
      S2[4, -1, 1, n] - S2[4, 1, -1, n]))/2 + 2*S2[4, 1, -1, n] + 
   3*S2[-3, 1, -1, -1, n] + (9*(2*S2[-6, n] + S2[-4, n]*S2[2, n] + 
      S2[-2, n]*S2[2, n]^2 + 2*S2[-2, n]*S2[4, n] + 
      2*S2[-3, n]*S2[-2, -1, n] + S2[-1, n]*S2[2, n]*S2[-2, -1, n] - 
      S2[2, n]*S2[2, -2, n] + S2[2, n]*S2[3, -1, n] - 2*S2[4, -2, n] + 
      2*S2[5, -1, n] + 2*S2[-4, -1, -1, n] - 2*S2[-3, -2, -1, n] - 
      S2[2, n]*S2[-1, -2, -1, n] - 2*S2[-2, -1, -1, 2, n] - 
      2*S2[-2, -1, 2, -1, n] - 2*S2[-2, 2, -1, -1, n]))/2 + 
   (S2[2, n]*(-54*S2[-3, 1, n] - 42*S2[2, -2, n] - 54*S2[3, -1, n] - 
      15*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
        S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]) + 
      30*S2[2, 1, -1, n] - 18*S2[-1, -1, -1, 1, n]))/12 - 
   (3*S2[-1, n]^2*S2[-1, -1, -1, 1, n])/2 + 
   (9*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
      S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
      S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
      S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
      S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
      2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]))/2 + 
   (9*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - 
      S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] - 
      S2[2, n]*S2[3, -1, n] + S2[4, -2, n] + 
      S2[-1, n]*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n]) - S2[5, -1, n] + S2[-3, 2, 1, n] + 
      S2[2, n]*S2[1, 2, -1, n] + S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
      S2[4, 1, -1, n] - S2[-1, 2, 1, 2, n] - 2*S2[-1, 2, 2, 1, n]))/2 + 
   9*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) - 3*S2[3, -1, -1, -1, n] + 
   6*S2[-2, -1, -1, -1, -1, n] + 
   (S2[-1, n]*(12*S2[-3, n]*S2[-2, n] - 126*S2[5, n] + 12*S2[-4, -1, n] + 
      12*S2[2, n]*S2[-2, -1, n] - 12*S2[2, n]*S2[2, 1, n] - 12*S2[4, 1, n] - 
      12*S2[-3, 1, -1, n] - 48*(S2[-3, n]*S2[-2, n] + S2[5, n] + 
        S2[-4, -1, n] - S2[-3, -2, n] + S2[2, n]*S2[-2, -1, n] - 
        S2[-2, -1, 2, n] - S2[-2, 2, -1, n]) + 
      3*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 48*S2[2, 2, 1, n] + 12*S2[3, -1, -1, n] - 
      36*S2[-2, -1, -1, -1, n] + 36*S2[2, 1, -1, -1, n] + 
      3*(-8*S2[-2, n]*S2[-1, n]^3 - 3*S2[-1, n]^4*S2[1, n] - 
        3*S2[1, n]*S2[2, n]^2 - 6*S2[-1, n]^2*S2[3, n] - 
        6*S2[2, n]*S2[3, n] - 6*S2[1, n]*S2[4, n] - 24*S2[5, n] - 
        24*S2[-4, -1, n] + 24*S2[-3, -2, n] + 6*S2[-1, n]^2*S2[-2, -1, n] - 
        18*S2[2, n]*S2[-2, -1, n] + 2*S2[-1, n]^3*S2[1, -1, n] - 
        6*S2[-1, n]*S2[2, n]*S2[1, -1, n] - 8*S2[-3, n]*
         (2*S2[-2, n] + S2[1, -1, n]) - 6*S2[-1, n]^2*S2[2, 1, n] - 
        6*S2[2, n]*S2[2, 1, n] + 24*S2[-2, -1, 2, n] + 24*S2[-2, 2, -1, n] + 
        6*S2[-1, n]^2*S2[-1, 1, -1, n] + 6*S2[2, n]*S2[-1, 1, -1, n] + 
        24*S2[2, 2, 1, n] - 24*S2[-2, -1, -1, -1, n] + 
        24*S2[-1, n]*S2[-1, -1, -1, 1, n] + 24*S2[2, 1, -1, -1, n] + 
        24*S2[1, -1, -1, -1, -1, n])))/12 - 6*S2[2, 1, -1, -1, -1, n] - 
   10*S2[-1, -1, -1, -1, -1, 1, n], S2[-1, -1, 1, -1, -1, 1, n] -> 
  (-3*S2[-3, n]^2)/2 - S2[-5, n]*S2[-1, n] + 
   (3*S2[-3, n]*(-7*S2[-3, n] + S2[-1, n]^3))/8 + 
   (S2[-3, n]*(5*S2[-3, n] + S2[-1, n]^3))/8 + (S2[-2, n]^2*S2[2, n])/2 + 
   S2[3, n]^2 + (S2[2, n]*(S2[-1, n]^4 - 6*S2[-1, n]^2*S2[2, n] + 
      3*S2[2, n]^2 - 2*S2[4, n]))/8 - (3*S2[-1, n]^2*S2[4, n])/4 - 
   S2[2, n]*S2[4, n] + (S2[-1, n]^2*(S2[2, n]^2 + S2[4, n]))/2 - 
   (17*S2[6, n])/4 + (S2[-3, n]^2 + S2[6, n])/2 + (S2[3, n]^2 + S2[6, n])/2 + 
   (5*(S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n]))/12 + 2*S2[-5, -1, n] - 
   S2[-4, -2, n] - (3*S2[-1, n]^2*S2[-3, -1, n])/2 - S2[2, n]*S2[-3, -1, n] - 
   2*S2[-2, n]*S2[-3, 1, n] + S2[3, n]*(-3*S2[3, n] + S2[-2, -1, n]) + 
   S2[-3, n]*S2[-2, 1, n] + (S2[-1, n]^3*S2[-2, 1, n])/2 + 
   S2[-1, n]*S2[2, n]*S2[-2, 1, n] + 
   S2[-3, n]*(S2[-2, 1, n] - S2[2, -1, n]) - (S2[-1, n]^3*S2[2, -1, n])/2 + 
   S2[3, n]*(S2[-2, -1, n] - S2[2, 1, n]) - S2[-2, -1, n]*S2[2, 1, n] + 
   S2[3, n]*(-S2[-2, -1, n] + S2[2, 1, n]) - 
   S2[3, n]*(S2[-2, -1, n] + S2[2, 1, n]) + 2*S2[-2, n]*S2[3, -1, n] + 
   (3*S2[-1, n]^2*S2[3, 1, n])/2 + S2[2, n]*S2[3, 1, n] + 
   (S2[1, n]*(-2*S2[-4, n]*S2[-1, n] - 2*S2[2, n]*S2[3, n] + 6*S2[5, n] - 
      2*S2[4, 1, n]))/2 - S2[1, n]*(S2[5, n] - S2[4, 1, n]) + 4*S2[4, 2, n] - 
   2*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]) - (9*S2[5, 1, n])/2 - 
   2*S2[-4, -1, 1, n] - S2[-4, 1, -1, n] + S2[-3, -2, 1, n] + 
   4*S2[-3, -1, 2, n] + 3*S2[-3, 1, -2, n] + 5*S2[-3, 2, -1, n] - 
   (3*S2[-1, n]^2*S2[-2, 1, -1, n])/2 + 
   (S2[-2, n]*(8*S2[-4, n] - 4*S2[-3, 1, n] - 4*S2[2, -2, n] + 
      4*S2[3, -1, n] + 2*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n])))/4 - S2[-1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + 
     S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
     S2[-1, -2, 1, n]) - 2*S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + 
     S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
     S2[-1, -2, 1, n]) - S2[2, n]*S2[-1, -2, 1, n] + 
   (3*S2[-2, n]^2*S2[-1, n]^2 + 13*S2[3, n]^2 + 2*S2[-2, -1, n]^2 + 
     2*S2[2, 1, n]^2 + (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
        S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])^2/2)/4 + 
   (3*S2[-1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/8 + 
   4*S2[2, -2, -2, n] - S2[-2, n]*S2[2, 1, -1, n] + 
   (S2[2, n]*(-2*S2[-2, n]^2 - 30*S2[4, n] - 4*(S2[2, n]^2 + S2[4, n]) - 
      12*S2[-3, -1, n] + 8*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n]) + 
      12*S2[-2, 1, -1, n] + 8*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) - 3*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) - 
      8*S2[2, 1, 1, n]))/8 + S2[-1, n]^2*S2[2, 1, 1, n] + 
   (7*S2[2, 3, 1, n])/2 - 6*S2[3, -2, -1, n] - 5*S2[3, -1, -2, n] - 
   S2[-1, n]*S2[3, -1, 1, n] + (-S2[3, n]^2 - S2[6, n] - 
     2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - S2[2, 3, 1, n] - 
       S2[3, 2, 1, n]))/4 + (3*S2[3, 2, 1, n])/2 - S2[4, -1, -1, n] + 
   3*(S2[-5, n]*S2[-1, n] + (S2[-1, n]^2*S2[4, n])/2 + 
     (S2[2, n]*S2[4, n])/2 + S2[6, n] - S2[-5, -1, n] - 
     S2[-1, n]*S2[4, -1, n] - S2[4, 2, n] + S2[4, -1, -1, n]) - 
   S2[4, 1, 1, n] - 3*S2[-3, -1, -1, -1, n] + 2*S2[-3, -1, 1, 1, n] + 
   S2[-3, 1, -1, 1, n] + 2*(S2[-3, -2, 1, n] + S2[-3, 1, -2, n] + 
     S2[-1, n]*S2[-3, 1, 1, n] + S2[4, 1, 1, n] - S2[-3, -1, 1, 1, n] - 
     S2[-3, 1, -1, 1, n] - S2[-3, 1, 1, -1, n]) - S2[-2, -2, -1, -1, n] + 
   S2[-2, -1, 1, 2, n] + S2[-2, -1, 2, 1, n] - S2[-2, 1, -1, 2, n] - 
   S2[-2, 1, 2, -1, n] + S2[-2, 2, -1, 1, n] - 
   3*(-S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] + S2[3, n]^2/2 + S2[6, n] + 
     S2[-5, -1, n] - S2[-4, -2, n] - S2[-2, n]*S2[-3, 1, n] + 
     S2[-3, n]*S2[-2, 1, n] + S2[-2, n]*S2[3, -1, n] + S2[-4, 1, -1, n] + 
     S2[-3, 1, -2, n] + S2[2, n]*S2[-2, 1, -1, n] - S2[3, -2, -1, n] - 
     S2[3, -1, -2, n] - S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n] - 
     S2[-2, 2, 1, -1, n]) + 
   (S2[-1, n]*(-16*S2[-5, n] + 20*S2[-3, n]*S2[2, n] - 
      16*S2[-2, n]*S2[3, n] + 8*(S2[-5, n] + S2[-4, n]*S2[1, n] - 
        S2[-4, 1, n]) + 16*S2[-4, 1, n] - 32*S2[-3, 2, n] - 
      16*S2[-2, n]*S2[-2, -1, n] - 12*S2[2, n]*S2[-2, 1, n] + 
      12*S2[2, n]*S2[2, -1, n] + 8*S2[-2, n]*S2[2, 1, n] + 40*S2[3, -2, n] + 
      8*S2[4, -1, n] + 24*S2[-3, -1, -1, n] + 
      8*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
        S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n]) - 
      16*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) + 
      24*(S2[-5, n] + S2[-3, n]*S2[2, n] + S2[-4, 1, n] - S2[-3, 2, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n]) + 
      8*S2[2, 1, -2, n] - 8*S2[3, -1, 1, n] - 24*S2[3, 1, -1, n] + 
      8*S2[-2, -1, -1, 1, n] + 16*S2[-2, -1, 1, -1, n] + 
      24*S2[-2, 1, -1, -1, n] - 24*S2[2, -1, -1, -1, n] - 
      8*S2[2, 1, -1, 1, n] - 16*S2[2, 1, 1, -1, n]))/8 + 
   2*S2[2, 2, -1, -1, n] + S2[2, 2, 1, 1, n] + S2[3, -1, -1, 1, n] + 
   2*S2[3, -1, 1, -1, n] + 3*S2[3, 1, -1, -1, n] - S2[-2, -1, -1, 1, -1, n] - 
   2*S2[-2, -1, 1, -1, -1, n] - 3*S2[-2, 1, -1, -1, -1, n] + 
   3*S2[2, -1, -1, -1, -1, n] + S2[2, 1, -1, 1, -1, n] + 
   2*S2[2, 1, 1, -1, -1, n] - 6*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[-3, n]^2)/2 + (S2[-3, n]*(-7*S2[-3, n] - S2[-1, n]^3))/4 - 
   (3*S2[-3, n]*(-7*S2[-3, n] + S2[-1, n]^3))/4 + 
   (S2[2, n]*(-S2[-1, n]^4 + 6*S2[-1, n]^2*S2[2, n] - 3*S2[2, n]^2 - 
      2*S2[4, n]))/4 + (11*S2[-1, n]^2*S2[4, n])/4 - 2*S2[1, n]^2*S2[4, n] - 
   (3*S2[-1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + 
   (-S2[2, n]^3 - 3*S2[2, n]*S2[4, n] - 2*S2[6, n])/2 + 
   (-S2[-3, n]^2 - S2[6, n])/2 - 5*S2[6, n] - 2*(S2[3, n]^2 + S2[6, n]) + 
   (19*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]))/2 + 
   (13*S2[-4, -2, n])/2 + 3*S2[-1, n]^2*S2[-3, -1, n] - 
   S2[-1, n]^3*S2[-2, 1, n] + S2[-1, n]^3*S2[2, -1, n] + 
   2*S2[-3, n]*(-S2[-2, 1, n] + S2[2, -1, n]) - 3*S2[-1, n]^2*S2[3, 1, n] - 
   5*S2[4, 2, n] + (5*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]))/2 + 
   (21*S2[5, 1, n])/2 - S2[-4, -1, 1, n]/2 - S2[-4, 1, -1, n]/2 + 
   (-S2[-5, -1, n] - S2[-4, -2, n] - S2[1, n]*S2[-4, -1, n] + 
     S2[-4, -1, 1, n] + S2[-4, 1, -1, n])/2 + S2[-3, -2, 1, n] - 
   4*S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - 6*S2[-3, 2, -1, n] + 
   3*S2[-1, n]^2*S2[-2, 1, -1, n] + 3*S2[-1, n]^2*
    ((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
     S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
   (-5*S2[-2, n]^2*S2[-1, n]^2 - 16*S2[3, n]^2 - 4*S2[-2, -1, n]^2 - 
     4*S2[2, 1, n]^2 - (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
       S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])^2)/4 + 
   (S2[3, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 15*S2[3, n] - 
      10*S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[-1, 1, -1, n]))/2 + 
   (S2[3, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] + 
      4*S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - 4*S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/2 + (S2[2, 1, n]*(2*S2[-2, n]*S2[-1, n] + 
      S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
      S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]))/2 + 
   S2[-2, -1, n]*(2*S2[2, 1, n] + (-2*S2[-2, n]*S2[-1, n] - 
       S2[-1, n]^2*S2[1, n] - S2[3, n] + S2[-2, -1, n] + 
       S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] + S2[-1, 1, -1, n])/2) + 
   S2[3, n]*(-2*S2[-2, -1, n] + 2*S2[2, 1, n] + 
     (-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - S2[3, n] + 
       S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] + 
       S2[-1, 1, -1, n])/2) - 
   (3*S2[-1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/4 - 
   10*S2[2, -2, -2, n] - 3*S2[-1, n]^2*S2[2, 1, 1, n] + 
   (S2[2, n]*(S2[-2, n]^2 + 35*S2[4, n] + 3*(S2[2, n]^2 + S2[4, n]) + 
      4*S2[-3, -1, n] - 10*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n]) + 
      14*S2[3, 1, n] - 12*S2[-2, 1, -1, n] - 
      12*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
      3*(S2[2, n]^2 + S2[4, n] + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
          S2[-1, 2, -1, n])) + 12*S2[2, 1, 1, n]))/4 - 7*S2[2, 3, 1, n] + 
   9*S2[3, -2, -1, n] + 3*S2[3, -1, -2, n] + S2[-1, n]*S2[3, -1, 1, n] - 
   (3*(S2[3, n]^2 + S2[6, n] + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
        S2[2, 3, 1, n] - S2[3, 2, 1, n])))/2 - 4*S2[3, 2, 1, n] + 
   S2[4, -1, -1, n] - 8*(S2[-5, n]*S2[-1, n] + (S2[-1, n]^2*S2[4, n])/2 + 
     (S2[2, n]*S2[4, n])/2 + S2[6, n] - S2[-5, -1, n] - 
     S2[-1, n]*S2[4, -1, n] - S2[4, 2, n] + S2[4, -1, -1, n]) + 
   4*((S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + S2[6, n] + 
     S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - S2[5, 1, n] + 
     S2[4, 1, 1, n]) + 6*S2[-3, -1, -1, -1, n] - 4*S2[-3, -1, 1, 1, n] - 
   S2[-3, 1, -1, 1, n] - 4*(S2[-3, -2, 1, n] + S2[-3, 1, -2, n] + 
     S2[-1, n]*S2[-3, 1, 1, n] + S2[4, 1, 1, n] - S2[-3, -1, 1, 1, n] - 
     S2[-3, 1, -1, 1, n] - S2[-3, 1, 1, -1, n]) + 5*S2[-2, -2, -1, -1, n] + 
   2*(S2[-4, n]*S2[-2, n] - S2[3, n]^2/2 + S2[6, n]/2 - S2[-4, -2, n] - 
     S2[-2, n]*S2[2, -2, n] - S2[-2, -1, n]*S2[2, 1, n] + 
     S2[3, n]*(S2[-2, -1, n] + S2[2, 1, n]) - S2[-2, n]*S2[3, -1, n] + 
     S2[5, 1, n] + S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + 
       S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
       S2[-1, -2, 1, n]) + S2[2, -2, -2, n] + S2[-2, n]*S2[2, 1, -1, n] - 
     S2[2, 3, 1, n] + S2[3, -1, -2, n] - S2[3, 2, 1, n] - 
     S2[-2, -1, 1, 2, n]) + 2*(S2[-3, n]^2 - 2*S2[-4, n]*S2[-2, n] - 
     (S2[-2, n]^2*S2[2, n])/2 + (S2[2, n]*S2[4, n])/2 + 2*S2[-4, -2, n] + 
     S2[2, n]*S2[-3, -1, n] + S2[-2, n]*S2[-3, 1, n] - 
     S2[3, n]*S2[-2, -1, n] - S2[-3, n]*S2[-2, 1, n] - 
     S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-2, n]*S2[2, -2, n] + 
     S2[-2, -1, n]*S2[2, 1, n] - S2[2, n]*S2[3, 1, n] - S2[4, 2, n] - 
     S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - S2[-3, 2, -1, n] + 
     S2[2, n]*S2[-1, -2, 1, n] - S2[2, -2, -2, n] + S2[3, -2, -1, n] + 
     S2[-2, -1, 1, 2, n] + S2[-2, 1, -1, 2, n] + S2[-2, 1, 2, -1, n]) + 
   6*(S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] - S2[3, n]^2/2 + S2[6, n] - 
     S2[-4, -2, n] + S2[-2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, -1, n] - 
     S2[-2, n]*S2[3, -1, n] + S2[5, 1, n] + S2[-4, -1, 1, n] - 
     S2[-3, -2, 1, n] - S2[-3, 1, -2, n] + 
     S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
       S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
     S2[3, -1, -2, n] - S2[-2, -1, 1, 2, n] - S2[-2, -1, 2, 1, n] - 
     S2[-2, 2, -1, 1, n]) + 8*(-S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] + 
     S2[3, n]^2/2 + S2[6, n] + S2[-5, -1, n] - S2[-4, -2, n] - 
     S2[-2, n]*S2[-3, 1, n] + S2[-3, n]*S2[-2, 1, n] + 
     S2[-2, n]*S2[3, -1, n] + S2[-4, 1, -1, n] + S2[-3, 1, -2, n] + 
     S2[2, n]*S2[-2, 1, -1, n] - S2[3, -2, -1, n] - S2[3, -1, -2, n] - 
     S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n] - S2[-2, 2, 1, -1, n]) + 
   (S2[-2, n]*(-24*S2[-4, n] + 8*S2[-3, 1, n] + 16*S2[2, -2, n] - 
      8*S2[3, -1, n] - 6*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) - 8*S2[2, 1, -1, n] - 12*S2[-1, -1, -1, 1, n]))/
    4 + (S2[1, n]*(5*S2[-4, n]*S2[-1, n] + 5*S2[2, n]*S2[3, n] - 
      13*S2[5, n] + S2[-4, -1, n] + 8*S2[4, 1, n] - 4*S2[3, -1, -1, n] - 
      6*S2[2, 1, -1, -1, n]))/2 - 6*S2[2, 2, -1, -1, n] - 
   6*S2[2, 2, 1, 1, n] - S2[3, -1, -1, 1, n] - 2*S2[3, -1, 1, -1, n] + 
   2*(S2[3, -2, -1, n] + S2[3, -1, -2, n] + S2[1, n]*S2[3, -1, -1, n] + 
     S2[4, -1, -1, n] - S2[3, -1, -1, 1, n] - S2[3, -1, 1, -1, n] - 
     S2[3, 1, -1, -1, n]) - 7*S2[3, 1, -1, -1, n] + 
   3*S2[-2, -1, -1, -1, 1, n] + 4*S2[-2, -1, -1, 1, -1, n] + 
   6*S2[-2, -1, 1, -1, -1, n] + 6*S2[-2, 1, -1, -1, -1, n] + 
   (S2[-1, n]*(12*S2[-5, n] - 12*S2[-3, n]*S2[2, n] + 24*S2[-2, n]*S2[3, n] - 
      10*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) - 10*S2[-4, 1, n] + 
      24*S2[-3, 2, n] + 20*S2[-2, n]*S2[-2, -1, n] + 
      12*S2[2, n]*S2[-2, 1, n] - 12*S2[2, n]*S2[2, -1, n] - 44*S2[3, -2, n] - 
      12*S2[4, -1, n] - 24*S2[-3, -1, -1, n] - 
      20*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
        S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n]) + 
      2*S2[-2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 12*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - 
        S2[-3, 2, n] + S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + 
        S2[-1, 2, 2, n]) - 32*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        S2[-4, 1, n] - S2[-3, 2, n] + S2[-2, n]*S2[2, 1, n] - 
        S2[-2, 2, 1, n] - S2[2, 1, -2, n]) - 20*S2[2, 1, -2, n] + 
      12*S2[3, -1, 1, n] + 24*S2[3, 1, -1, n] - 16*S2[-2, -1, -1, 1, n] - 
      24*S2[-2, -1, 1, -1, n] - 24*S2[-2, 1, -1, -1, n] + 
      24*S2[2, -1, -1, -1, n] + 16*S2[2, 1, -1, 1, n] + 
      24*S2[2, 1, 1, -1, n] + 2*(2*S2[-2, n]^2*S2[-1, n] + 
        S2[-1, n]^3*S2[1, n]^2 + S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - 
        S2[-1, n]*S2[1, n]^2*S2[2, n] + S2[-1, n]*S2[1, n]*S2[3, n] + 
        S2[-1, n]*S2[4, n] - 3*S2[-1, n]*S2[-3, -1, n] + 
        2*S2[1, n]*S2[-3, 1, n] - 3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + 
        S2[-1, n]^2*S2[-2, 1, n] + S2[2, n]*S2[-2, 1, n] - 
        S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - S2[1, n]*S2[2, n]*S2[1, -1, n] - 
        S2[3, n]*S2[1, -1, n] - S2[-2, -1, n]*S2[1, -1, n] + 
        4*S2[1, n]*S2[2, -2, n] - S2[2, n]*S2[2, -1, n] + 
        5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + S2[1, -1, n]*S2[2, 1, n] + 
        2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 2*S2[4, -1, n] + 
        2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n])))/4 - 6*S2[2, -1, -1, -1, -1, n] - 
   S2[2, 1, -1, 1, -1, n] + 3*(S2[-3, n]^2 - S2[-4, n]*S2[-2, n] - 
     S2[3, n]^2/2 + S2[2, n]*S2[4, n] + S2[6, n]/2 + S2[-4, -2, n] + 
     S2[2, n]*S2[-3, -1, n] + S2[-2, n]*S2[-3, 1, n] - 
     S2[-3, n]*S2[-2, 1, n] + S2[3, n]*S2[2, 1, n] - S2[-2, n]*S2[3, -1, n] - 
     S2[4, 2, n] + S2[5, 1, n] - S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - 
     S2[-3, 2, -1, n] - S2[2, n]*S2[-2, 1, -1, n] + 
     S2[-2, n]*S2[2, 1, -1, n] - S2[2, 3, 1, n] + S2[3, -2, -1, n] + 
     S2[3, -1, -2, n] - S2[3, 2, 1, n] + S2[-2, 1, -1, 2, n] + 
     S2[-2, 1, 2, -1, n] + S2[1, n]*S2[2, 1, -1, -1, n] + 
     S2[2, 2, -1, -1, n] + S2[3, 1, -1, -1, n] - S2[2, 1, -1, -1, 1, n] - 
     S2[2, 1, -1, 1, -1, n] - 2*S2[2, 1, 1, -1, -1, n]) + 
   12*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[-3, n]^2/4 - S2[-4, n]*S2[-2, n] + 
   S2[-5, n]*S2[-1, n] + (S2[-3, n]*(3*S2[-3, n] + S2[-1, n]^3))/8 + 
   (S2[-3, n]*(-5*S2[-3, n] + 3*S2[-1, n]^3))/8 - (S2[-2, n]^2*S2[2, n])/2 - 
   S2[3, n]^2/2 + (S2[2, n]*(S2[-1, n]^4 - 6*S2[-1, n]^2*S2[2, n] + 
      3*S2[2, n]^2 - 6*S2[4, n]))/8 + (3*S2[-1, n]^2*S2[4, n])/4 + 
   (S2[2, n]*S2[4, n])/2 + (S2[-1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + 
   (S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n])/12 - (3*S2[-5, -1, n])/4 + 
   S2[-4, -2, n]/4 - S2[-1, n]^2*S2[-3, -1, n] + S2[2, n]*S2[-3, -1, n] + 
   S2[-2, n]*S2[-3, 1, n] - S2[3, n]*S2[-2, -1, n] - S2[-3, n]*S2[-2, 1, n] + 
   (S2[-1, n]^3*S2[-2, 1, n])/2 - S2[-1, n]*S2[2, n]*S2[-2, 1, n] + 
   S2[-3, n]*(S2[-2, 1, n] - S2[2, -1, n]) - (S2[-1, n]^3*S2[2, -1, n])/2 + 
   S2[3, n]*(S2[-2, -1, n] + S2[2, 1, n]) - S2[-2, n]*S2[3, -1, n] + 
   S2[-1, n]^2*S2[3, 1, n] - S2[2, n]*S2[3, 1, n] + S2[4, 2, n] + 
   S2[5, 1, n]/2 + (-(S2[1, n]*S2[5, n]) - S2[6, n] + S2[5, 1, n])/2 + 
   S2[-4, -1, 1, n]/4 - S2[-4, 1, -1, n]/4 + 
   (-S2[-5, -1, n] - S2[-4, -2, n] - S2[1, n]*S2[-4, -1, n] + 
     S2[-4, -1, 1, n] + S2[-4, 1, -1, n])/4 + S2[-3, 2, -1, n] - 
   (3*S2[-1, n]^2*S2[-2, 1, -1, n])/2 - 
   (3*S2[-1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
      S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]))/2 + 
   S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
     S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
   S2[2, n]*S2[-1, -2, 1, n] + S2[-2, -1, n]*(-S2[2, 1, n] + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])/2) + S2[3, n]*(S2[-2, -1, n] - S2[2, 1, n] + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])/2) + (6*S2[-2, n]^2*S2[-1, n]^2 + 8*S2[3, n]^2 + 
     4*S2[-2, -1, n]^2 + 4*S2[2, 1, n]^2 + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])^2)/8 - 
   (S2[2, 1, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/2 + S2[3, n]*(-S2[-2, -1, n] + 
     (-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - S2[3, n] + 
       S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] + 
       S2[-1, 1, -1, n])/2) + 
   (3*S2[-1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/8 + 
   (S2[-2, n]*(8*S2[-4, n] - 8*S2[-3, 1, n] + 8*S2[3, -1, n] - 
      8*S2[2, 1, -1, n]))/8 + S2[-2, n]*S2[2, 1, -1, n] + 
   (3*S2[-1, n]^2*S2[2, 1, 1, n])/2 - S2[2, 3, 1, n] - S2[3, -2, -1, n]/2 + 
   (S2[1, n]*(-(S2[-4, n]*S2[-1, n]) - S2[2, n]*S2[3, n] + 2*S2[5, n] + 
      S2[-4, -1, n] - 2*S2[3, -1, -1, n]))/4 + 
   (-S2[3, n]^2 - S2[6, n] - 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
       S2[2, 3, 1, n] - S2[3, 2, 1, n]))/2 - S2[3, 2, 1, n]/2 - 
   (3*S2[4, -1, -1, n])/2 + S2[-2, -2, -1, -1, n] + S2[-2, 1, -1, 2, n] + 
   S2[-2, 1, 2, -1, n] + (S2[2, n]*(-2*S2[-2, n]^2 + S2[1, n]^2*S2[2, n] + 
      S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) - 11*S2[4, n] - 
      2*(S2[2, n]^2 + S2[4, n]) - 6*S2[-3, -1, n] + 
      2*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n]) + 6*S2[3, 1, n] + 
      12*S2[-2, 1, -1, n] + 4*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + 4*S2[-1, -2, 1, n] + 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 3*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) - 
      2*S2[-1, 2, -1, n] - 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
        S2[2, -1, n] - 2*S2[1, 1, -1, n]) - 4*S2[1, 1, -1, -1, n]))/8 + 
   (S2[-1, n]^2*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 
      S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
      2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
        2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]))/8 + 
   S2[2, 2, -1, -1, n] - S2[3, -1, -1, 1, n]/2 + 
   (-S2[-4, -1, 1, n] - S2[3, -1, -2, n] - S2[-1, n]*S2[3, -1, 1, n] - 
     S2[3, 2, 1, n] + 2*S2[3, -1, -1, 1, n] + S2[3, -1, 1, -1, n])/2 + 
   (S2[3, -2, -1, n] + S2[3, -1, -2, n] + S2[1, n]*S2[3, -1, -1, n] + 
     S2[4, -1, -1, n] - S2[3, -1, -1, 1, n] - S2[3, -1, 1, -1, n] - 
     S2[3, 1, -1, -1, n])/2 + S2[3, 1, -1, -1, n]/2 - 
   S2[-2, -1, 1, -1, -1, n] - 3*S2[-2, 1, -1, -1, -1, n] + 
   (S2[-1, n]*(-10*S2[-5, n] + 12*S2[-3, n]*S2[2, n] - 
      16*S2[-2, n]*S2[3, n] + 2*(S2[-5, n] + S2[-4, n]*S2[1, n] - 
        S2[-4, 1, n]) + 2*S2[-4, 1, n] - 16*S2[-3, 2, n] - 
      16*S2[-2, n]*S2[-2, -1, n] - 12*S2[2, n]*S2[-2, 1, n] + 
      12*S2[2, n]*S2[2, -1, n] + 8*S2[-2, n]*S2[2, 1, n] + 24*S2[3, -2, n] - 
      8*S2[4, -1, n] + 8*S2[-3, -1, -1, n] + 8*S2[-3, 1, 1, n] + 
      8*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
        S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n]) - 
      8*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) + 
      16*(S2[-5, n] + S2[-3, n]*S2[2, n] + S2[-4, 1, n] - S2[-3, 2, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n]) + 
      8*S2[2, 1, -2, n] - 4*S2[3, -1, 1, n] - 8*S2[3, 1, -1, n] + 
      8*S2[-2, -1, -1, 1, n] + 16*S2[-2, -1, 1, -1, n] + 
      24*S2[-2, 1, -1, -1, n] - 24*S2[2, -1, -1, -1, n] - 
      8*S2[2, 1, -1, 1, n] - 16*S2[2, 1, 1, -1, n] - 
      4*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n]) - 2*(-6*S2[-2, n]^2*S2[-1, n] - 
        6*S2[-4, n]*S2[1, n] - 2*S2[-3, n]*S2[1, n]^2 - 
        S2[-1, n]^3*S2[1, n]^2 + 14*S2[-3, n]*S2[2, n] + 
        S2[-1, n]^3*S2[2, n] + 3*S2[-1, n]*S2[1, n]^2*S2[2, n] - 
        3*S2[-1, n]*S2[4, n] + 12*S2[-4, 1, n] + 6*S2[-1, n]*S2[-3, -1, n] - 
        12*S2[-3, 2, n] + 6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 
        6*S2[-1, n]^2*S2[-2, 1, n] - 6*S2[2, n]*S2[-2, 1, n] - 
        6*S2[1, n]*S2[2, -2, n] + 6*S2[2, n]*S2[2, -1, n] - 
        6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) - 
        12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 6*S2[1, n]*S2[3, -1, n] - 
        12*S2[-1, n]*S2[3, 1, n] - 12*S2[-2, 2, 1, n] + 
        12*S2[-1, -2, -2, n] + 6*S2[1, n]*S2[-1, -2, -1, n] + 
        12*S2[-1, n]*S2[-1, -2, 1, n] - 6*S2[-1, n]*S2[-1, 2, -1, n] + 
        6*S2[-1, n]^2*S2[1, 1, -1, n] - 6*S2[2, n]*S2[1, 1, -1, n] + 
        12*S2[1, n]*S2[2, 1, -1, n] + 12*S2[-1, n]*S2[2, 1, 1, n] + 
        12*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
        12*S2[-2, 1, -1, -1, n] + 12*S2[1, n]*S2[-1, -1, -1, 1, n] - 
        12*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] - 
        12*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n] + 
        12*S2[1, 1, -1, -1, -1, n])))/8 + 3*S2[2, -1, -1, -1, -1, n] + 
   S2[2, 1, 1, -1, -1, n], S2[-1, -1, 1, 1, 1, -1, n] -> 
  S2[-6, n] + (S2[-4, n]*S2[1, n]^2)/6 + S2[-4, n]*S2[2, n] + 
   S2[-1, n]*S2[1, n]*S2[2, n]^2 + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
   (11*S2[-3, n]*S2[3, n])/4 + S2[-1, n]*S2[1, n]*S2[4, n] + 
   (11*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/6 + 
   (9*S2[-5, 1, n])/2 + S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - 
   (7*S2[-4, 2, n])/3 + S2[2, n]*S2[-3, 1, n] + S2[1, n]*S2[-3, 2, n] + 
   (S2[-3, n]*(2*S2[3, n] - 3*S2[-2, -1, n]))/6 - 
   S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
   S2[-3, n]*(-S2[3, n] + S2[2, 1, n]) - (3*S2[2, n]*S2[3, -1, n])/2 + 
   (S2[2, n]*(-12*S2[-3, 1, n] + 12*S2[3, -1, n]))/12 + 
   2*S2[-2, n]*S2[3, 1, n] + S2[-1, n]*S2[3, 2, n] + 2*S2[4, -2, n] - 
   S2[1, n]*S2[4, -1, n] - S2[-1, n]*S2[4, 1, n] - (3*S2[5, -1, n])/2 + 
   (-S2[-6, n] - S2[-1, n]*S2[5, n] + S2[5, -1, n])/2 + S2[-4, -1, -1, n] + 
   (-S2[-6, n] - S2[-5, n]*S2[1, n] - (S2[-4, n]*S2[1, n]^2)/2 - 
     (S2[-4, n]*S2[2, n])/2 + S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] + 
     S2[-4, 2, n] - S2[-4, 1, 1, n])/3 + (7*S2[-4, 1, 1, n])/3 - 
   2*S2[-3, -1, -2, n] - S2[1, n]*S2[-3, -1, -1, n] - 2*S2[-3, 2, 1, n] - 
   2*S2[-2, 3, 1, n] + (S2[-3, n]*(-S2[-2, -1, n] + 
      (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])/2))/2 + 
   (S2[-3, n]*(-13*S2[3, n] + 3*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n])))/12 - 
   S2[1, n]*S2[-1, 2, 2, n] - S2[1, n]*S2[2, 1, -2, n] - 
   (S2[2, n]*S2[2, 1, -1, n])/2 + 
   (S2[2, n]*(2*S2[-4, n] + 6*S2[3, -1, n] + 6*S2[2, 1, -1, n]))/12 + 
   2*S2[-2, n]*S2[2, 1, 1, n] + S2[-1, n]*S2[2, 2, 1, n] - 
   (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
      2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
        S2[2, 2, 1, n])))/2 - S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - 
     S2[3, -1, 1, n] - S2[3, 1, -1, n]) - 2*S2[4, -1, 1, n] - 
   S2[4, 1, -1, n] + S2[-3, -1, -1, 1, n] + S2[-3, -1, 1, -1, n] + 
   S2[-3, 1, 1, 1, n] - 2*S2[-2, 2, 1, 1, n] + 
   2*(-S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - 
     (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - S2[-5, 1, n] - 
     S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
     S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + (S2[-2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 - S2[4, -2, n] + S2[5, -1, n] + 
     S2[-3, -1, -2, n] - S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
     S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
     S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n]) + 
   (S2[-2, n]*(-6*S2[4, n] + 6*S2[-3, -1, n] - 6*S2[3, 1, n] - 
      6*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 6*S2[2, 1, 1, n] + 
      (3*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 
         S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
         2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
           S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 2*S2[-1, n]*
          (S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 2*S2[1, 1, -1, n]) + 
         4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]))/2))/6 + 
   S2[1, n]*S2[2, 1, -1, 1, n] + 
   (S2[1, n]*(-18*S2[-5, n] + 6*S2[-1, n]*S2[4, n] - 4*S2[-4, 1, n] + 
      12*S2[3, -2, n] + 12*S2[4, -1, n] + 12*S2[-3, -1, -1, n] + 
      12*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) + 
      12*S2[2, 1, -2, n] - 12*S2[3, -1, 1, n] - 12*S2[3, 1, -1, n] - 
      12*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n]))/12 + 
   S2[1, n]*S2[2, 1, 1, -1, n] - S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n] - 
   S2[3, 1, 1, -1, n] + S2[-2, -1, -1, 1, 1, n] + S2[-2, -1, 1, -1, 1, n] + 
   S2[-2, -1, 1, 1, -1, n] + 
   (S2[-1, n]*(12*S2[5, n] - 6*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) + 
      6*S2[4, 1, n] - 12*S2[-3, -1, 1, n] + 12*S2[3, 1, 1, n] - 
      12*S2[-2, -1, 1, 1, n] + 12*S2[2, 1, 1, 1, n] + 
      12*S2[-1, -1, 1, 1, 1, n]))/12 - S2[2, 1, -1, 1, 1, n] - 
   S2[2, 1, 1, -1, 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] - 
   S2[-1, -1, 1, 1, -1, 1, n], S2[-1, 1, -1, -1, -1, -1, n] -> 
  (77*S2[-6, n])/8 + (7*S2[-3, n]*S2[3, n])/12 + 
   ((42*S2[-3, n] - S2[-1, n]^3)*S2[3, n])/24 + 
   ((4*S2[-3, n] + S2[-1, n]^3)*S2[3, n])/24 + S2[-2, n]*S2[4, n] + 
   (3*S2[-5, 1, n])/2 - (5*S2[-4, 2, n])/2 - (5*S2[-3, 3, n])/2 + 
   ((S2[-1, n]^4 + 3*S2[2, n]^2)*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
      S2[1, -1, n]))/24 + (S2[4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
      S2[1, -1, n]))/4 + (5*S2[2, -1, n]*S2[2, 1, n])/2 - 
   (5*S2[1, n]*(S2[-3, 2, n] - S2[4, -1, n]))/2 - 
   (49*(S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n]))/8 - S2[5, -1, n]/8 + 
   S2[-4, -1, -1, n] + (5*(S2[-4, 2, n] + S2[1, n]*S2[-3, 2, n] + 
      S2[-3, 3, n] - S2[-3, 1, 2, n] - S2[-3, 2, 1, n]))/2 - 
   (S2[-1, n]^3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/6 + 
   (S2[-3, n]*(-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - S2[3, n] + 
      4*S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] - 4*S2[2, 1, n] + 
      S2[-1, 1, -1, n]))/3 - (5*S2[3, -1, 2, n])/2 - (5*S2[3, 2, -1, n])/2 - 
   (5*(S2[4, -2, n] + S2[1, n]*S2[4, -1, n] + S2[5, -1, n] - 
      S2[4, -1, 1, n] - S2[4, 1, -1, n]))/2 - S2[4, 1, -1, n] - 
   S2[-3, 1, -1, -1, n] - (5*(2*S2[-6, n] + S2[-4, n]*S2[2, n] + 
      S2[-2, n]*S2[2, n]^2 + 2*S2[-2, n]*S2[4, n] + 
      2*S2[-3, n]*S2[-2, -1, n] + S2[-1, n]*S2[2, n]*S2[-2, -1, n] - 
      S2[2, n]*S2[2, -2, n] + S2[2, n]*S2[3, -1, n] - 2*S2[4, -2, n] + 
      2*S2[5, -1, n] + 2*S2[-4, -1, -1, n] - 2*S2[-3, -2, -1, n] - 
      S2[2, n]*S2[-1, -2, -1, n] - 2*S2[-2, -1, -1, 2, n] - 
      2*S2[-2, -1, 2, -1, n] - 2*S2[-2, 2, -1, -1, n]))/2 + 
   (3*S2[-1, n]^2*S2[-1, -1, -1, 1, n])/2 + 
   (S2[2, n]*(30*S2[-3, 1, n] + 3*S2[-1, n]^2*(S2[-2, n] + 
        S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 12*S2[2, -2, n] + 
      30*S2[3, -1, n] + 6*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) - 12*S2[2, 1, -1, n] + 18*S2[-1, -1, -1, 1, n]))/
    12 - (5*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
      S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
      S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
      S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
      S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
      2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]))/2 - 
   (5*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - 
      S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] - 
      S2[2, n]*S2[3, -1, n] + S2[4, -2, n] + 
      S2[-1, n]*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n]) - S2[5, -1, n] + S2[-3, 2, 1, n] + 
      S2[2, n]*S2[1, 2, -1, n] + S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
      S2[4, 1, -1, n] - S2[-1, 2, 1, 2, n] - 2*S2[-1, 2, 2, 1, n]))/2 - 
   5*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) + S2[3, -1, -1, -1, n] - 
   4*S2[-2, -1, -1, -1, -1, n] + 
   (S2[-1, n]*(147*S2[5, n] + 8*S2[-3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) + 24*(S2[-3, n]*S2[-2, n] + S2[5, n] + S2[-4, -1, n] - 
        S2[-3, -2, n] + S2[2, n]*S2[-2, -1, n] - S2[-2, -1, 2, n] - 
        S2[-2, 2, -1, n]) - 12*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) - 
      24*S2[2, 2, 1, n] + 24*S2[-2, -1, -1, -1, n] - 24*S2[2, 1, -1, -1, n] - 
      4*(-8*S2[-2, n]*S2[-1, n]^3 - 3*S2[-1, n]^4*S2[1, n] - 
        3*S2[1, n]*S2[2, n]^2 - 6*S2[-1, n]^2*S2[3, n] - 
        6*S2[2, n]*S2[3, n] - 6*S2[1, n]*S2[4, n] - 24*S2[5, n] - 
        24*S2[-4, -1, n] + 24*S2[-3, -2, n] + 6*S2[-1, n]^2*S2[-2, -1, n] - 
        18*S2[2, n]*S2[-2, -1, n] + 2*S2[-1, n]^3*S2[1, -1, n] - 
        6*S2[-1, n]*S2[2, n]*S2[1, -1, n] - 8*S2[-3, n]*
         (2*S2[-2, n] + S2[1, -1, n]) - 6*S2[-1, n]^2*S2[2, 1, n] - 
        6*S2[2, n]*S2[2, 1, n] + 24*S2[-2, -1, 2, n] + 24*S2[-2, 2, -1, n] + 
        6*S2[-1, n]^2*S2[-1, 1, -1, n] + 6*S2[2, n]*S2[-1, 1, -1, n] + 
        24*S2[2, 2, 1, n] - 24*S2[-2, -1, -1, -1, n] + 
        24*S2[-1, n]*S2[-1, -1, -1, 1, n] + 24*S2[2, 1, -1, -1, n] + 
        24*S2[1, -1, -1, -1, -1, n])))/24 + 4*S2[2, 1, -1, -1, -1, n] + 
   5*S2[-1, -1, -1, -1, -1, 1, n], S2[-1, 1, -1, -1, -1, 1, n] -> 
  -2*S2[-3, n]^2 + S2[-4, n]*S2[-2, n] + 
   (S2[-3, n]*(-5*S2[-3, n] - S2[-1, n]^3))/12 + 
   (S2[-3, n]*(7*S2[-3, n] - S2[-1, n]^3))/4 + 
   (S2[2, n]*(-S2[-1, n]^4 + 6*S2[-1, n]^2*S2[2, n] - 3*S2[2, n]^2))/12 + 
   S2[3, n]^2/2 + S2[-1, n]^2*S2[4, n] - (S2[2, n]*S2[4, n])/2 - 
   (S2[-1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + 
   (-S2[2, n]^3 - 3*S2[2, n]*S2[4, n] - 2*S2[6, n])/3 + (13*S2[6, n])/4 + 
   (S2[-3, n]^2 + S2[6, n])/2 - (5*(S2[3, n]^2 + S2[6, n]))/4 + 
   (7*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]))/2 - S2[-5, -1, n]/2 + 
   S2[-4, -2, n] - S2[1, n]*S2[-4, -1, n] + S2[-1, n]^2*S2[-3, -1, n] - 
   S2[2, n]*S2[-3, -1, n] - S2[-2, n]*S2[-3, 1, n] + S2[-3, n]*S2[-2, 1, n] - 
   (S2[-1, n]^3*S2[-2, 1, n])/3 + (S2[-1, n]^3*S2[2, -1, n])/3 + 
   (2*S2[-3, n]*(-S2[-2, 1, n] + S2[2, -1, n]))/3 + 
   (S2[3, n]*(31*S2[3, n] - 3*S2[-2, -1, n] - 9*S2[2, 1, n]))/6 - 
   (S2[3, n]*(S2[-2, -1, n] - S2[2, 1, n]))/2 - S2[3, n]*S2[2, 1, n] + 
   S2[-2, -1, n]*S2[2, 1, n] + S2[-2, n]*S2[3, -1, n] - 
   S2[-1, n]^2*S2[3, 1, n] + S2[1, n]*(S2[5, n] - S2[4, 1, n]) - 
   2*S2[4, 2, n] - 2*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]) + 
   S2[-4, -1, 1, n] - S2[-3, 2, -1, n] + S2[-1, n]^2*S2[-2, 1, -1, n] + 
   S2[2, n]*S2[-2, 1, -1, n] + S2[-1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + 
     S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
     S2[-1, -2, 1, n]) + (-6*S2[-2, n]^2*S2[-1, n]^2 - 35*S2[3, n]^2 - 
     6*S2[-2, -1, n]^2 - 6*S2[2, 1, n]^2 - 
     3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])^2)/12 - 
   (S2[-1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/4 - 
   5*S2[2, -2, -2, n] + (S2[-2, n]*(-12*S2[-4, n] + 6*S2[-3, 1, n] + 
      12*S2[2, -2, n] - 6*S2[3, -1, n] - 3*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) - 6*S2[2, 1, -1, n]))/6 - 
   S2[-2, n]*S2[2, 1, -1, n] - S2[-1, n]^2*S2[2, 1, 1, n] + 
   (S2[2, n]*(66*S2[4, n] + 3*(S2[2, n]^2 + S2[4, n]) - 
      36*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n]) + 12*S2[3, 1, n] - 
      12*S2[-2, 1, -1, n] - 12*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + 3*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) + 
      12*S2[2, 1, 1, n]))/12 - 3*S2[2, 3, 1, n] + 3*S2[3, -2, -1, n] + 
   2*S2[3, -1, -2, n] - S2[1, n]*S2[3, -1, -1, n] + 
   S2[-1, n]*S2[3, -1, 1, n] - 
   (3*(S2[3, n]^2 + S2[6, n] + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
        S2[2, 3, 1, n] - S2[3, 2, 1, n])))/2 - S2[3, 2, 1, n] + 
   S2[4, -1, -1, n] - 3*(S2[-5, n]*S2[-1, n] + (S2[-1, n]^2*S2[4, n])/2 + 
     (S2[2, n]*S2[4, n])/2 + S2[6, n] - S2[-5, -1, n] - 
     S2[-1, n]*S2[4, -1, n] - S2[4, 2, n] + S2[4, -1, -1, n]) + 
   S2[4, 1, 1, n] + 2*S2[-3, -1, -1, -1, n] - 2*S2[-3, -1, 1, 1, n] - 
   S2[-3, 1, -1, 1, n] - 2*(S2[-3, -2, 1, n] + S2[-3, 1, -2, n] + 
     S2[-1, n]*S2[-3, 1, 1, n] + S2[4, 1, 1, n] - S2[-3, -1, 1, 1, n] - 
     S2[-3, 1, -1, 1, n] - S2[-3, 1, 1, -1, n]) + 2*S2[-2, -2, -1, -1, n] + 
   3*(S2[-4, n]*S2[-2, n] - S2[3, n]^2/2 + S2[6, n]/2 - S2[-4, -2, n] - 
     S2[-2, n]*S2[2, -2, n] - S2[-2, -1, n]*S2[2, 1, n] + 
     S2[3, n]*(S2[-2, -1, n] + S2[2, 1, n]) - S2[-2, n]*S2[3, -1, n] + 
     S2[5, 1, n] + S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + 
       S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
       S2[-1, -2, 1, n]) + S2[2, -2, -2, n] + S2[-2, n]*S2[2, 1, -1, n] - 
     S2[2, 3, 1, n] + S2[3, -1, -2, n] - S2[3, 2, 1, n] - 
     S2[-2, -1, 1, 2, n]) - S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n] + 
   3*(S2[-3, n]^2 - 2*S2[-4, n]*S2[-2, n] - (S2[-2, n]^2*S2[2, n])/2 + 
     (S2[2, n]*S2[4, n])/2 + 2*S2[-4, -2, n] + S2[2, n]*S2[-3, -1, n] + 
     S2[-2, n]*S2[-3, 1, n] - S2[3, n]*S2[-2, -1, n] - 
     S2[-3, n]*S2[-2, 1, n] - S2[-1, n]*S2[2, n]*S2[-2, 1, n] + 
     S2[-2, n]*S2[2, -2, n] + S2[-2, -1, n]*S2[2, 1, n] - 
     S2[2, n]*S2[3, 1, n] - S2[4, 2, n] - S2[-3, -1, 2, n] - 
     S2[-3, 1, -2, n] - S2[-3, 2, -1, n] + S2[2, n]*S2[-1, -2, 1, n] - 
     S2[2, -2, -2, n] + S2[3, -2, -1, n] + S2[-2, -1, 1, 2, n] + 
     S2[-2, 1, -1, 2, n] + S2[-2, 1, 2, -1, n]) + 
   3*(-S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] + S2[3, n]^2/2 + S2[6, n] + 
     S2[-5, -1, n] - S2[-4, -2, n] - S2[-2, n]*S2[-3, 1, n] + 
     S2[-3, n]*S2[-2, 1, n] + S2[-2, n]*S2[3, -1, n] + S2[-4, 1, -1, n] + 
     S2[-3, 1, -2, n] + S2[2, n]*S2[-2, 1, -1, n] - S2[3, -2, -1, n] - 
     S2[3, -1, -2, n] - S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n] - 
     S2[-2, 2, 1, -1, n]) + (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
    S2[-1, -1, -1, 1, n] - S2[1, n]*S2[2, 1, -1, -1, n] + 
   (S2[1, n]*(19*S2[-4, n]*S2[-1, n] + 18*S2[2, n]*S2[3, n] + 6*S2[5, n] + 
      6*S2[-4, -1, n] + 6*S2[4, 1, n] + 6*S2[3, -1, -1, n] + 
      6*S2[2, 1, -1, -1, n]))/6 + 
   (S2[-1, n]*(44*S2[-5, n] - 8*S2[-3, n]*S2[2, n] + 24*S2[-2, n]*S2[3, n] - 
      38*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) - 38*S2[-4, 1, n] + 
      24*S2[-3, 2, n] + 24*S2[-2, n]*S2[-2, -1, n] + 
      12*S2[2, n]*S2[-2, 1, n] - 12*S2[2, n]*S2[2, -1, n] - 48*S2[3, -2, n] - 
      12*S2[4, -1, n] - 24*S2[-3, -1, -1, n] - 
      24*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
        S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n]) + 
      12*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) - 
      36*(S2[-5, n] + S2[-3, n]*S2[2, n] + S2[-4, 1, n] - S2[-3, 2, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n]) - 
      24*S2[2, 1, -2, n] + 12*S2[3, -1, 1, n] + 24*S2[3, 1, -1, n] - 
      12*S2[-2, -1, -1, 1, n] - 24*S2[-2, -1, 1, -1, n] - 
      24*S2[-2, 1, -1, -1, n] + 24*S2[2, -1, -1, -1, n] + 
      12*S2[2, 1, -1, 1, n] + 24*S2[2, 1, 1, -1, n]))/12 - 
   S2[2, 2, -1, -1, n] - S2[3, -1, -1, 1, n] - 2*S2[3, -1, 1, -1, n] - 
   2*S2[3, 1, -1, -1, n] - S2[-2, -1, -1, -1, 1, n] + 
   S2[-2, -1, -1, 1, -1, n] + 2*S2[-2, -1, 1, -1, -1, n] + 
   2*S2[-2, 1, -1, -1, -1, n] - 2*S2[2, -1, -1, -1, -1, n] + 
   S2[2, 1, -1, -1, 1, n] - S2[2, 1, -1, 1, -1, n] - 
   2*S2[2, 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] -> 
  (3*S2[-3, n]^2)/2 - S2[-4, n]*S2[-2, n] + (3*S2[-3, n]*S2[-1, n]^3)/2 + 
   (S2[2, n]*(S2[-1, n]^4 - 3*S2[-1, n]^2*S2[2, n]))/2 - S2[3, n]^2/2 + 
   (S2[-1, n]^2*S2[4, n])/2 + (3*S2[-1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + 
   (-S2[-3, n]^2 - S2[6, n])/2 - (15*S2[6, n])/2 - 
   (3*(S2[3, n]^2 + S2[6, n]))/2 - 5*(S2[-5, n]*S2[-1, n] + S2[6, n] - 
     S2[-5, -1, n]) - 5*S2[-5, -1, n] - 4*S2[-4, -2, n] - 
   3*S2[-1, n]^2*S2[-3, -1, n] + S2[-2, n]*S2[-3, 1, n] - 
   S2[-3, n]*S2[-2, 1, n] + (3*S2[-1, n]^3*S2[-2, 1, n])/2 - 
   (3*S2[-1, n]^3*S2[2, -1, n])/2 - S2[-2, n]*S2[3, -1, n] + 
   3*S2[-1, n]^2*S2[3, 1, n] + 2*S2[4, 2, n] + 
   10*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]) + 4*S2[5, 1, n] + 
   3*S2[-4, -1, 1, n] + 3*(S2[-5, -1, n] + S2[-4, -2, n] + 
     S2[1, n]*S2[-4, -1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n]) + 
   3*S2[-4, 1, -1, n] - S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - 
   S2[-3, 2, -1, n] - 3*S2[-1, n]^2*S2[-2, 1, -1, n] - 
   S2[2, n]*S2[-2, 1, -1, n] - 3*S2[-1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + 
     S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
     S2[-1, -2, 1, n]) + 2*S2[3, n]*(2*S2[-2, -1, n] - 2*S2[2, 1, n] + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])/2) + (3*S2[-2, n]^2*S2[-1, n]^2 + 3*S2[3, n]^2 + 
     2*S2[-2, -1, n]^2 + 2*S2[2, 1, n]^2 + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])^2)/2 - S2[2, 1, n]*(2*S2[-2, n]*S2[-1, n] + 
     S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
     S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) + 
   S2[3, n]*(-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - 4*S2[3, n] + 
     S2[-1, n]*S2[1, -1, n] + 2*S2[2, 1, n] + S2[-1, 1, -1, n]) + 
   S2[3, n]*(-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - S2[3, n] - 
     2*S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] + 2*S2[2, 1, n] + 
     S2[-1, 1, -1, n]) - 2*S2[-2, -1, n]*(S2[2, 1, n] + 
     (-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - S2[3, n] + 
       S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] + 
       S2[-1, 1, -1, n])/2) + 
   (3*S2[-1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/4 + 
   2*S2[2, -2, -2, n] + (S2[2, n]*(2*S2[-2, n]^2 - 14*S2[4, n] + 
      (S2[2, n]^2 + S2[4, n])/2 + 2*S2[-3, -1, n] + 
      12*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n]) - 2*S2[3, 1, n] + 
      2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 2*S2[2, 1, 1, n]))/2 + 
   3*S2[-1, n]^2*S2[2, 1, 1, n] + 6*S2[2, 3, 1, n] - 2*S2[3, -2, -1, n] - 
   S2[3, -1, -2, n] + (S2[1, n]*(-9*S2[-4, n]*S2[-1, n] - 
      12*S2[2, n]*S2[3, n] - 20*S2[5, n] - 6*S2[-4, -1, n] - 
      4*S2[3, -1, -1, n]))/2 + 
   (7*(S2[3, n]^2 + S2[6, n] + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
        S2[2, 3, 1, n] - S2[3, 2, 1, n])))/2 + 6*S2[3, 2, 1, n] - 
   3*S2[4, -1, -1, n] + 2*(S2[-5, n]*S2[-1, n] + (S2[-1, n]^2*S2[4, n])/2 + 
     (S2[2, n]*S2[4, n])/2 + S2[6, n] - S2[-5, -1, n] - 
     S2[-1, n]*S2[4, -1, n] - S2[4, 2, n] + S2[4, -1, -1, n]) - 
   2*S2[-2, -2, -1, -1, n] - 2*(S2[-4, n]*S2[-2, n] - S2[3, n]^2/2 + 
     S2[6, n]/2 - S2[-4, -2, n] - S2[-2, n]*S2[2, -2, n] - 
     S2[-2, -1, n]*S2[2, 1, n] + S2[3, n]*(S2[-2, -1, n] + S2[2, 1, n]) - 
     S2[-2, n]*S2[3, -1, n] + S2[5, 1, n] + 
     S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
       S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
     S2[2, -2, -2, n] + S2[-2, n]*S2[2, 1, -1, n] - S2[2, 3, 1, n] + 
     S2[3, -1, -2, n] - S2[3, 2, 1, n] - S2[-2, -1, 1, 2, n]) + 
   S2[-2, 1, -1, 2, n] + S2[-2, 1, 2, -1, n] - 
   2*(S2[-3, n]^2 - 2*S2[-4, n]*S2[-2, n] - (S2[-2, n]^2*S2[2, n])/2 + 
     (S2[2, n]*S2[4, n])/2 + 2*S2[-4, -2, n] + S2[2, n]*S2[-3, -1, n] + 
     S2[-2, n]*S2[-3, 1, n] - S2[3, n]*S2[-2, -1, n] - 
     S2[-3, n]*S2[-2, 1, n] - S2[-1, n]*S2[2, n]*S2[-2, 1, n] + 
     S2[-2, n]*S2[2, -2, n] + S2[-2, -1, n]*S2[2, 1, n] - 
     S2[2, n]*S2[3, 1, n] - S2[4, 2, n] - S2[-3, -1, 2, n] - 
     S2[-3, 1, -2, n] - S2[-3, 2, -1, n] + S2[2, n]*S2[-1, -2, 1, n] - 
     S2[2, -2, -2, n] + S2[3, -2, -1, n] + S2[-2, -1, 1, 2, n] + 
     S2[-2, 1, -1, 2, n] + S2[-2, 1, 2, -1, n]) + S2[-2, 2, 1, -1, n] + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (S2[-4, n] + S2[-2, n]*S2[2, n] + 2*S2[-3, 1, n] + 
      S2[-1, n]*S2[-2, -1, n] + 3*S2[2, -2, n] - S2[3, -1, n] - 
      S2[-1, -2, -1, n] - 2*S2[2, 1, -1, n] - 6*S2[-1, -1, -1, 1, n]))/2 + 
   (S2[-2, n]*(3*S2[-4, n] - S2[-2, n]*S2[2, n] - 2*S2[-3, 1, n] - 
      S2[-1, n]*S2[-2, -1, n] + S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) - S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) - 7*S2[2, -2, n] + S2[3, -1, n] + S2[-1, -2, -1, n] + 
      6*S2[2, 1, -1, n] + 6*S2[-1, -1, -1, 1, n]))/2 - S2[2, 2, -1, -1, n] + 
   2*S2[3, -1, -1, 1, n] + 2*S2[3, -1, 1, -1, n] + 
   2*(S2[3, -2, -1, n] + S2[3, -1, -2, n] + S2[1, n]*S2[3, -1, -1, n] + 
     S2[4, -1, -1, n] - S2[3, -1, -1, 1, n] - S2[3, -1, 1, -1, n] - 
     S2[3, 1, -1, -1, n]) + 2*S2[3, 1, -1, -1, n] - 
   S2[-2, -1, -1, 1, -1, n] - 2*S2[-2, -1, 1, -1, -1, n] + 
   (S2[-1, n]*(-5*S2[-5, n] + 6*S2[-2, n]^2*S2[-1, n] + 
      6*S2[-4, n]*S2[1, n] + 2*S2[-3, n]*S2[1, n]^2 + 
      S2[-1, n]^3*S2[1, n]^2 - 11*S2[-3, n]*S2[2, n] - S2[-1, n]^3*S2[2, n] - 
      3*S2[-1, n]*S2[1, n]^2*S2[2, n] - 6*S2[-2, n]*S2[3, n] + 
      3*S2[-1, n]*S2[4, n] + 9*(S2[-5, n] + S2[-4, n]*S2[1, n] - 
        S2[-4, 1, n]) - 3*S2[-4, 1, n] - 6*S2[-1, n]*S2[-3, -1, n] + 
      6*S2[-3, 2, n] - 6*S2[-2, n]*S2[-2, -1, n] - 6*S2[-1, n]*S2[1, n]*
       S2[-2, -1, n] + 6*S2[-1, n]^2*S2[-2, 1, n] + 3*S2[2, n]*S2[-2, 1, n] + 
      2*S2[3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      2*S2[-2, -1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      6*S2[1, n]*S2[2, -2, n] - 3*S2[2, n]*S2[2, -1, n] + 
      6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) + 
      12*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 2*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n])*S2[2, 1, n] + 12*S2[3, -2, n] + 
      6*S2[1, n]*S2[3, -1, n] + 12*S2[-1, n]*S2[3, 1, n] - 2*S2[4, -1, n] + 
      6*S2[-3, -1, -1, n] + 4*S2[-3, 1, 1, n] + 12*S2[-2, 2, 1, n] - 
      12*S2[-1, -2, -2, n] + 6*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + 
        S2[-2, n]*S2[-2, -1, n] - S2[3, -2, n] + S2[4, -1, n] + 
        S2[-1, -2, -2, n]) - 6*S2[1, n]*S2[-1, -2, -1, n] - 
      12*S2[-1, n]*S2[-1, -2, 1, n] - 2*S2[-2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) + 
      (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 6*S2[-1, n]*S2[-1, 2, -1, n] - 
      2*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) - 
      6*S2[-1, n]^2*S2[1, 1, -1, n] + 6*S2[2, n]*S2[1, 1, -1, n] + 
      8*(S2[-5, n] + S2[-3, n]*S2[2, n] + S2[-4, 1, n] - S2[-3, 2, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n]) + 
      6*S2[2, 1, -2, n] - 12*S2[1, n]*S2[2, 1, -1, n] - 
      12*S2[-1, n]*S2[2, 1, 1, n] - 4*S2[3, -1, 1, n] - 6*S2[3, 1, -1, n] - 
      8*S2[-2, -1, -1, 1, n] - 4*S2[-2, -1, 1, -1, n] - 
      6*S2[-2, 1, -1, -1, n] - 12*S2[1, n]*S2[-1, -1, -1, 1, n] + 
      12*S2[-1, n]*S2[1, 1, -1, -1, n] + 6*S2[2, -1, -1, -1, n] + 
      8*S2[2, 1, -1, 1, n] + 4*S2[2, 1, 1, -1, n] - 
      3*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n]) - 12*S2[1, 1, -1, -1, -1, n]))/2 + 
   S2[2, 1, -1, 1, -1, n] + 2*S2[2, 1, 1, -1, -1, n], 
 S2[-1, 1, -1, -1, 1, 1, n] -> (-73*S2[-6, n])/12 + (5*S2[-2, n]^3)/6 - 
   (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - (S2[-4, n]*S2[1, n]^2)/2 + 
   S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 - 
   (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 + S2[-3, n]*S2[3, n] + 
   ((6*S2[-3, n] + S2[-1, n]^3)*S2[3, n])/2 - S2[-1, n]*S2[2, n]*S2[3, n] - 
   S2[-1, n]*S2[1, n]*S2[4, n] - 3*S2[-1, n]*S2[5, n] + 
   (15*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/4 + 
   (7*S2[-5, 1, n])/4 - 3*S2[-4, 2, n] + S2[-1, n]*S2[-3, -2, n] + 
   (3*S2[-1, n]^2*S2[-3, 1, n])/2 + 3*S2[2, n]*S2[-3, 1, n] + 
   (19*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n]))/4 - 
   (5*S2[-3, 3, n])/4 - S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - 
     S2[-2, -1, n]) - S2[-3, n]*(S2[-2, n]*S2[-1, n] + 2*S2[3, n] - 
     S2[-2, -1, n]) + (S2[3, n]*(3*S2[-3, n] - 8*S2[-2, 1, n]))/4 + 
   S2[-2, n]*S2[-1, n]*S2[-2, 1, n] - 2*S2[3, n]*S2[-2, 1, n] + 
   (S2[-2, n]^2*S2[1, -1, n])/2 + (S2[2, n]^2*S2[1, -1, n])/2 + 
   S2[4, n]*S2[1, -1, n] + (S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - 
      S2[2, -2, n]))/2 - 3*S2[2, n]*S2[2, -2, n] + 
   S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
   S2[3, n]*(-2*S2[-2, 1, n] + 3*S2[2, -1, n]) - S2[-3, n]*S2[2, 1, n] + 
   3*S2[-2, 1, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] - 
   S2[-3, n]*(-S2[3, n] + S2[2, 1, n]) + 
   (S2[-3, n]*(-14*S2[-2, -1, n] + 3*S2[2, 1, n]))/4 - 
   (3*S2[-1, n]^2*S2[3, -1, n])/2 + S2[1, n]^2*S2[3, -1, n] + 
   S2[-2, n]*S2[3, 1, n] + 8*S2[4, -2, n] - S2[-1, n]*S2[4, 1, n] - 
   (7*(S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n]))/4 + 
   (17*S2[5, -1, n])/4 + 2*S2[-4, -1, -1, n] + 
   3*(S2[-6, n] + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
     S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - S2[-4, 2, n] - S2[5, -1, n] + 
     S2[-4, -1, -1, n]) + 2*S2[-4, 1, 1, n] + 3*S2[-3, -2, -1, n] - 
   S2[-3, 1, 2, n] + 2*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - 
     S2[-3, 1, 2, n] - S2[-3, 2, 1, n]) - 3*S2[-3, 2, 1, n] - 
   S2[-2, n]*S2[-2, 1, -1, n] + S2[-1, n]^2*S2[-2, 1, 1, n] - 
   3*S2[2, n]*S2[-2, 1, 1, n] - 4*S2[-2, 2, 2, n] + 
   3*(-(S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-4, 2, n] + 
     S2[2, n]*S2[2, -2, n] + S2[4, -2, n] + S2[-2, 2, 2, n]) + 
   S2[-2, 3, 1, n] - 2*S2[-2, n]*S2[-1, -2, 1, n] + 
   S2[-2, 1, n]*(S2[-2, -1, n] - S2[2, 1, n] + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])/2) + (S2[-3, n]*(-12*S2[3, n] + 2*S2[-2, -1, n] + 
      9*S2[2, 1, n] + 4*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
        S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/4 + 
   (S2[-3, n]*(-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - 2*S2[3, n] - 
      S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] + 
      S2[-1, 1, -1, n]))/2 + S2[2, -1, n]*(-S2[-2, -1, n] + S2[2, 1, n] + 
     (-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - S2[3, n] + 
       S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] + 
       S2[-1, 1, -1, n])/2) - S2[2, n]*S2[1, 2, -1, n] + 
   (S2[2, n]*(12*S2[-4, n] - 22*S2[-3, 1, n] - 
      2*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 14*S2[3, -1, n] - 
      4*S2[-2, 1, 1, n] + 4*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n])))/4 - 
   S2[-1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
     S2[1, 2, -1, n] - S2[2, 1, -1, n]) + S2[1, n]^2*S2[2, 1, -1, n] - 
   S2[2, n]*S2[2, 1, -1, n] + (S2[2, n]*(8*S2[-4, n] - 4*S2[-2, n]*S2[2, n] + 
      4*S2[-3, 1, n] - 2*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) + 8*S2[2, 1, -1, n]))/4 + 
   2*S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) + 
   (S2[-2, n]*(-22*S2[4, n] + 2*(S2[2, n]^2 + S2[4, n]) - 4*S2[-3, -1, n] + 
      4*S2[3, 1, n] - 12*S2[-2, 1, -1, n] - 
      12*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
      3*(S2[2, n]^2 + S2[4, n] + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
          S2[-1, 2, -1, n])) + 4*S2[2, 1, 1, n]))/4 + 
   S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] + 
   3*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
     S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - S2[3, 1, -2, n]) - 
   3*S2[3, 1, -2, n] + S2[-1, n]*S2[3, 1, 1, n] - 6*S2[3, 2, -1, n] - 
   3*S2[4, -1, 1, n] - 6*S2[4, 1, -1, n] + 2*S2[-3, -1, -1, 1, n] + 
   2*S2[-3, -1, 1, -1, n] - 2*(S2[-4, -1, -1, n] + S2[-3, -2, -1, n] + 
     S2[-3, -1, -2, n] + S2[1, n]*S2[-3, -1, -1, n] - S2[-3, -1, -1, 1, n] - 
     S2[-3, -1, 1, -1, n] - S2[-3, 1, -1, -1, n]) + S2[-3, 1, -1, -1, n] + 
   3*S2[-3, 1, 1, 1, n] + S2[-2, -1, -1, 2, n] + 2*S2[-2, -1, 2, -1, n] + 
   3*S2[-2, 1, 1, 2, n] + S2[-2, 2, -1, -1, n] - S2[-2, 2, 1, 1, n] + 
   3*S2[-1, -2, -2, 1, n] + 2*S2[-1, -2, 1, -2, n] + 
   (2*S2[-6, n] + S2[-2, n]^3 + 6*S2[-3, 3, n] - 3*S2[-2, n]^2*S2[1, -1, n] - 
     3*S2[4, n]*S2[1, -1, n] - 6*S2[-3, -2, -1, n] - 6*S2[-3, -1, -2, n] + 
     3*S2[-1, n]*(S2[-3, n]*S2[-2, n] + S2[-2, n]^2*S2[1, n] + 
       S2[1, n]*S2[4, n] + S2[5, n] + S2[-3, -2, n] - 
       S2[-2, n]*S2[-2, 1, n] - S2[4, 1, n] - S2[-2, 1, -2, n]) + 
     3*S2[-2, n]*(S2[4, n] + 2*S2[-2, 1, -1, n]) + 6*S2[4, 1, -1, n] - 
     6*S2[-1, 1, -2, -2, n])/6 + S2[-1, 1, -2, -2, n] - 
   5*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
     S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
        2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
          S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n]) + S2[-1, 1, 2, 2, n] - 
   5*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
     S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
     S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
     2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]) + 
   S2[-1, 2, 1, 2, n] - 3*(-S2[-6, n] + S2[-4, n]*S2[2, n] - 
     S2[-1, n]*S2[1, n]*S2[2, n]^2 - 2*S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - S2[-1, n]*S2[1, n]*S2[4, n] - 
     S2[-1, n]*S2[5, n] - S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] + 
     S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + S2[4, n]*S2[1, -1, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[-3, n]*S2[2, 1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] - 
     S2[2, -1, n]*S2[2, 1, n] + S2[2, n]*S2[3, -1, n] - 
     S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + S2[5, -1, n] - 
     2*S2[-2, 2, 2, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
     S2[4, 1, -1, n] + 2*S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n]) - 
   4*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + S2[4, n] + 
      2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
      2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
        2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]))/4 + 
   4*S2[2, -2, 1, 1, n] + (S2[1, n]*(-17*S2[-5, n] - 2*S2[-1, n]*S2[4, n] + 
      2*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) + 2*S2[-4, 1, n] + 
      8*S2[3, -2, n] + 8*S2[4, -1, n] + 8*S2[-3, -1, -1, n] + 
      8*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) + 
      8*S2[2, 1, -2, n] - 8*S2[3, -1, 1, n] - 12*S2[3, 1, -1, n] - 
      8*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n]))/4 - 
   S2[1, n]*S2[2, 1, 1, -1, n] + 
   (S2[-1, n]*(20*S2[-3, n]*S2[-2, n] - 14*S2[2, n]*S2[3, n] + 5*S2[5, n] - 
      8*S2[-3, -2, n] + 8*S2[2, n]*S2[-2, -1, n] + 8*S2[-2, n]*S2[-2, 1, n] - 
      8*S2[-2, n]*S2[2, -1, n] - 8*S2[2, n]*S2[2, 1, n] + 8*S2[3, 2, n] + 
      2*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) + 14*S2[4, 1, n] - 
      16*S2[-3, -1, 1, n] - 12*S2[-3, 1, -1, n] - 8*S2[-2, -1, 2, n] - 
      2*(S2[-3, n]*S2[-2, n] + S2[5, n] - S2[-3, -2, n] + 
        S2[-2, n]*S2[-2, 1, n] + S2[4, 1, n] - S2[-2, 1, -2, n]) - 
      4*S2[-2, 2, -1, n] + 2*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) + 
      8*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n] - 2*S2[2, 2, 1, n]) + 8*S2[2, 2, 1, n] + 
      12*S2[3, -1, -1, n] + 12*S2[3, 1, 1, n] - 12*S2[-2, -1, 1, 1, n] - 
      12*S2[-2, 1, -1, 1, n] - 8*S2[-2, 1, 1, -1, n] + 
      12*S2[2, -1, -1, 1, n] + 8*S2[2, -1, 1, -1, n] + 12*S2[2, 1, 1, 1, n]))/
    4 - 3*S2[3, -1, -1, -1, n] - S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n] + 
   3*(S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 2*S2[3, 1, 1, -1, n]) - 
   2*(-S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + 
     (S2[2, n]*S2[3, -1, n])/2 - S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + 
     S2[5, -1, n] + S2[-2, 3, 1, n] - S2[3, -1, 2, n] + 
     S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
       S2[3, 1, -1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
     S2[4, 1, -1, n] + S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
     S2[3, 1, 1, -1, n]) + 2*S2[-2, -1, -1, 1, 1, n] + 
   3*S2[-2, -1, 1, -1, 1, n] + 3*S2[-2, -1, 1, 1, -1, n] + 
   3*S2[-2, 1, -1, -1, 1, n] + 3*S2[-2, 1, -1, 1, -1, n] + 
   2*S2[-2, 1, 1, -1, -1, n] - 3*S2[2, -1, -1, -1, 1, n] - 
   3*S2[2, -1, -1, 1, -1, n] - 2*S2[2, -1, 1, -1, -1, n] + 
   S2[2, 1, 1, -1, 1, n] + 3*S2[2, 1, 1, 1, -1, n] - 
   2*(-S2[-6, n] - S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
     S2[-3, n]*S2[3, n] - S2[-5, 1, n] + 2*S2[-4, 2, n] + 
     S2[2, n]*S2[-3, 1, n] - S2[1, n]*S2[-3, 2, n] - S2[3, n]*S2[-2, 1, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 - 
     S2[2, n]*S2[2, -2, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     2*S2[-3, n]*S2[2, 1, n] - S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[-2, 1, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] - 
     S2[2, n]*S2[3, -1, n] + S2[-2, n]*S2[3, 1, n] + S2[-1, n]*S2[3, 2, n] + 
     S2[4, -2, n] + S2[1, n]*S2[4, -1, n] - S2[-1, n]*S2[4, 1, n] - 
     S2[5, -1, n] - S2[-4, 1, 1, n] - S2[-3, 1, 2, n] + 2*S2[-3, 2, 1, n] - 
     S2[2, n]*S2[-2, 1, 1, n] + S2[1, n]*S2[-1, 2, 2, n] + 
     S2[1, n]*S2[2, 1, -2, n] + (S2[1, n]^2*S2[2, 1, -1, n])/2 + 
     (S2[2, n]*S2[2, 1, -1, n])/2 - 2*S2[-2, n]*S2[2, 1, 1, n] + 
     2*S2[-1, n]*S2[2, 2, 1, n] + S2[1, n]*S2[3, 1, -1, n] + 
     S2[3, 2, -1, n] - S2[4, -1, 1, n] + S2[-2, 1, 1, 2, n] + 
     S2[-2, 2, 1, 1, n] - S2[-1, 1, 2, 2, n] - S2[-1, 2, 2, 1, n] + 
     S2[2, -2, 1, 1, n] - S2[1, n]*S2[2, 1, -1, 1, n] - 
     2*S2[1, n]*S2[2, 1, 1, -1, n] - S2[3, 1, -1, 1, n] - 
     2*S2[3, 1, 1, -1, n] + S2[2, 1, -1, 1, 1, n] + 2*S2[2, 1, 1, -1, 1, n] + 
     3*S2[2, 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, 1, -1, 1, n], 
 S2[-1, 1, -1, 1, -1, -1, n] -> 2*S2[-3, n]^2 + 
   (S2[-3, n]*(-21*S2[-3, n] - 4*S2[-1, n]^3))/4 + 
   (S2[-3, n]*(9*S2[-3, n] - 2*S2[-1, n]^3))/4 - (21*S2[-1, n]^2*S2[4, n])/
    4 + 2*S2[1, n]^2*S2[4, n] - (5*S2[-1, n]^2*(S2[2, n]^2 + S2[4, n]))/8 + 
   (S2[2, n]*(-S2[-1, n]^4 + 3*S2[-1, n]^2*S2[2, n] + S2[2, n]^2 + S2[4, n]))/
    2 + (63*S2[6, n])/4 + 4*(S2[3, n]^2 + S2[6, n]) + 
   (S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n])/2 - 
   10*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]) + 
   (5*S2[-5, -1, n])/2 - (11*S2[-4, -2, n])/2 + (5*S2[-1, n]^2*S2[-3, -1, n])/
    2 - (3*S2[-1, n]^3*S2[-2, 1, n])/2 + 
   S2[-4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
   (3*S2[-1, n]^3*S2[2, -1, n])/2 - 2*S2[-3, n]*
    (-S2[-2, 1, n] + S2[2, -1, n]) + 
   S2[3, n]*(-S2[-2, -1, n] + S2[2, 1, n]) - (5*S2[-1, n]^2*S2[3, 1, n])/2 + 
   5*S2[4, 2, n] - 11*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]) - 
   (29*S2[5, 1, n])/2 - (3*S2[-4, -1, 1, n])/2 - 
   (3*(S2[-5, -1, n] + S2[-4, -2, n] + S2[1, n]*S2[-4, -1, n] - 
      S2[-4, -1, 1, n] - S2[-4, 1, -1, n]))/2 - S2[-4, 1, -1, n]/2 - 
   S2[-3, -2, 1, n] + 3*S2[-3, -1, 2, n] + S2[-3, 1, -2, n] + 
   5*S2[-3, 2, -1, n] + (5*S2[-1, n]^2*S2[-2, 1, -1, n])/2 + 
   (5*S2[-1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
      S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]))/2 + 
   (S2[3, n]*(-3*S2[-2, -1, n] + 4*S2[2, 1, n] - 
      2*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/2 + 
   (S2[3, n]*(-10*S2[3, n] + 15*S2[-2, -1, n] - 4*S2[2, 1, n] + 
      2*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/2 + (-5*S2[-2, n]^2*S2[-1, n]^2 + 7*S2[3, n]^2 + 
     S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 - 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])^2)/4 - S2[-2, -1, n]*(2*S2[-2, n]*S2[-1, n] + 
     S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
     S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) + 
   S2[2, 1, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
     S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
     S2[-1, 1, -1, n]) - (5*S2[-1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/8 + 
   11*S2[2, -2, -2, n] + (S2[-2, n]*(12*S2[-4, n] - 2*S2[-3, 1, n] + 
      2*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      4*S2[2, -2, n] + 2*S2[3, -1, n] + 5*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) + 2*S2[2, 1, -1, n]))/2 - 
   (5*S2[-1, n]^2*S2[2, 1, 1, n])/2 + (5*S2[2, 3, 1, n])/2 - 
   7*S2[3, -2, -1, n] - S2[3, -1, -2, n] + 
   (-S2[3, n]^2 - S2[6, n] - 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
       S2[2, 3, 1, n] - S2[3, 2, 1, n]))/4 - S2[3, 2, 1, n]/2 + 
   S2[4, -1, -1, n] + 8*(S2[-5, n]*S2[-1, n] + (S2[-1, n]^2*S2[4, n])/2 + 
     (S2[2, n]*S2[4, n])/2 + S2[6, n] - S2[-5, -1, n] - 
     S2[-1, n]*S2[4, -1, n] - S2[4, 2, n] + S2[4, -1, -1, n]) - 
   4*((S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + S2[6, n] + 
     S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - S2[5, 1, n] + 
     S2[4, 1, 1, n]) - 6*S2[-3, -1, -1, -1, n] + 4*S2[-3, -1, 1, 1, n] + 
   S2[-3, 1, -1, 1, n] + 4*(S2[-3, -2, 1, n] + S2[-3, 1, -2, n] + 
     S2[-1, n]*S2[-3, 1, 1, n] + S2[4, 1, 1, n] - S2[-3, -1, 1, 1, n] - 
     S2[-3, 1, -1, 1, n] - S2[-3, 1, 1, -1, n]) - 6*S2[-2, -2, -1, -1, n] - 
   3*(S2[-4, n]*S2[-2, n] - S2[3, n]^2/2 + S2[6, n]/2 - S2[-4, -2, n] - 
     S2[-2, n]*S2[2, -2, n] - S2[-2, -1, n]*S2[2, 1, n] + 
     S2[3, n]*(S2[-2, -1, n] + S2[2, 1, n]) - S2[-2, n]*S2[3, -1, n] + 
     S2[5, 1, n] + S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + 
       S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
       S2[-1, -2, 1, n]) + S2[2, -2, -2, n] + S2[-2, n]*S2[2, 1, -1, n] - 
     S2[2, 3, 1, n] + S2[3, -1, -2, n] - S2[3, 2, 1, n] - 
     S2[-2, -1, 1, 2, n]) - 3*(S2[-3, n]^2 - 2*S2[-4, n]*S2[-2, n] - 
     (S2[-2, n]^2*S2[2, n])/2 + (S2[2, n]*S2[4, n])/2 + 2*S2[-4, -2, n] + 
     S2[2, n]*S2[-3, -1, n] + S2[-2, n]*S2[-3, 1, n] - 
     S2[3, n]*S2[-2, -1, n] - S2[-3, n]*S2[-2, 1, n] - 
     S2[-1, n]*S2[2, n]*S2[-2, 1, n] + S2[-2, n]*S2[2, -2, n] + 
     S2[-2, -1, n]*S2[2, 1, n] - S2[2, n]*S2[3, 1, n] - S2[4, 2, n] - 
     S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - S2[-3, 2, -1, n] + 
     S2[2, n]*S2[-1, -2, 1, n] - S2[2, -2, -2, n] + S2[3, -2, -1, n] + 
     S2[-2, -1, 1, 2, n] + S2[-2, 1, -1, 2, n] + S2[-2, 1, 2, -1, n]) - 
   6*(S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] - S2[3, n]^2/2 + S2[6, n] - 
     S2[-4, -2, n] + S2[-2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, -1, n] - 
     S2[-2, n]*S2[3, -1, n] + S2[5, 1, n] + S2[-4, -1, 1, n] - 
     S2[-3, -2, 1, n] - S2[-3, 1, -2, n] + 
     S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
       S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
     S2[3, -1, -2, n] - S2[-2, -1, 1, 2, n] - S2[-2, -1, 2, 1, n] - 
     S2[-2, 2, -1, 1, n]) - 9*(-S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] + 
     S2[3, n]^2/2 + S2[6, n] + S2[-5, -1, n] - S2[-4, -2, n] - 
     S2[-2, n]*S2[-3, 1, n] + S2[-3, n]*S2[-2, 1, n] + 
     S2[-2, n]*S2[3, -1, n] + S2[-4, 1, -1, n] + S2[-3, 1, -2, n] + 
     S2[2, n]*S2[-2, 1, -1, n] - S2[3, -2, -1, n] - S2[3, -1, -2, n] - 
     S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n] - S2[-2, 2, 1, -1, n]) + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (-2*S2[-3, 1, n] - 6*S2[2, -2, n] + 2*S2[3, -1, n] - 
      2*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
        S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]) + 
      4*S2[2, 1, -1, n] + 6*S2[-1, -1, -1, 1, n]))/2 - 
   (S2[-1, n]^2*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 
      S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
      2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
        2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]))/4 + 
   (S2[2, n]*(-3*S2[-2, n]^2 - S2[1, n]^2*S2[2, n] - 
      S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) - 20*S2[4, n] - 
      (5*(S2[2, n]^2 + S2[4, n]))/2 - 4*S2[-3, -1, n] + 
      (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 - 
      4*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n]) - 8*S2[3, 1, n] + 
      10*S2[-2, 1, -1, n] + 10*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) - 4*S2[-1, -2, 1, n] - 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - (5*(S2[2, n]^2 + S2[4, n] + 
         2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/2 + 
      2*S2[-1, 2, -1, n] + 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
        S2[2, -1, n] - 2*S2[1, 1, -1, n]) - 14*S2[2, 1, 1, n] + 
      4*S2[1, 1, -1, -1, n]))/4 + 
   (S2[1, n]*(-2*S2[-4, n]*S2[-1, n] + 4*S2[2, n]*S2[3, n] + 60*S2[5, n] + 
      6*S2[-4, -1, n] - 16*S2[4, 1, n] + 16*S2[3, -1, -1, n] + 
      12*S2[2, 1, -1, -1, n]))/4 + 6*S2[2, 2, -1, -1, n] + 
   6*S2[2, 2, 1, 1, n] - S2[3, -1, -1, 1, n] - 
   4*(S2[3, -2, -1, n] + S2[3, -1, -2, n] + S2[1, n]*S2[3, -1, -1, n] + 
     S2[4, -1, -1, n] - S2[3, -1, -1, 1, n] - S2[3, -1, 1, -1, n] - 
     S2[3, 1, -1, -1, n]) + 5*S2[3, 1, -1, -1, n] - 
   3*S2[-2, -1, -1, -1, 1, n] - 5*S2[-2, -1, -1, 1, -1, n] - 
   6*S2[-2, -1, 1, -1, -1, n] - 6*S2[-2, 1, -1, -1, -1, n] + 
   (S2[-1, n]*(2*S2[-5, n] - 2*S2[-3, n]*S2[2, n] + 
      2*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) - 2*S2[-4, 1, n] + 
      4*S2[-3, 2, n] + 2*S2[2, n]*S2[-2, 1, n] + 4*S2[-2, -1, n]*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      2*S2[2, n]*S2[2, -1, n] - 4*S2[-2, n]*S2[2, 1, n] - 
      4*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*S2[2, 1, n] + 
      32*S2[4, -1, n] - 16*S2[-3, 1, 1, n] + 
      4*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
        S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n]) - 
      4*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 4*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        S2[-4, 1, n] - S2[-3, 2, n] + S2[-2, n]*S2[2, 1, n] - 
        S2[-2, 2, 1, n] - S2[2, 1, -2, n]) + 4*S2[2, 1, -2, n] + 
      4*S2[-2, -1, -1, 1, n] - 4*S2[2, 1, -1, 1, n] + 
      8*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n]) + 4*(-6*S2[-2, n]^2*S2[-1, n] - 
        6*S2[-4, n]*S2[1, n] - 2*S2[-3, n]*S2[1, n]^2 - 
        S2[-1, n]^3*S2[1, n]^2 + 14*S2[-3, n]*S2[2, n] + 
        S2[-1, n]^3*S2[2, n] + 3*S2[-1, n]*S2[1, n]^2*S2[2, n] - 
        3*S2[-1, n]*S2[4, n] + 12*S2[-4, 1, n] + 6*S2[-1, n]*S2[-3, -1, n] - 
        12*S2[-3, 2, n] + 6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 
        6*S2[-1, n]^2*S2[-2, 1, n] - 6*S2[2, n]*S2[-2, 1, n] - 
        6*S2[1, n]*S2[2, -2, n] + 6*S2[2, n]*S2[2, -1, n] - 
        6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) - 
        12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 6*S2[1, n]*S2[3, -1, n] - 
        12*S2[-1, n]*S2[3, 1, n] - 12*S2[-2, 2, 1, n] + 
        12*S2[-1, -2, -2, n] + 6*S2[1, n]*S2[-1, -2, -1, n] + 
        12*S2[-1, n]*S2[-1, -2, 1, n] - 6*S2[-1, n]*S2[-1, 2, -1, n] + 
        6*S2[-1, n]^2*S2[1, 1, -1, n] - 6*S2[2, n]*S2[1, 1, -1, n] + 
        12*S2[1, n]*S2[2, 1, -1, n] + 12*S2[-1, n]*S2[2, 1, 1, n] + 
        12*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
        12*S2[-2, 1, -1, -1, n] + 12*S2[1, n]*S2[-1, -1, -1, 1, n] - 
        12*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] - 
        12*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n] + 
        12*S2[1, 1, -1, -1, -1, n])))/4 + 6*S2[2, -1, -1, -1, -1, n] + 
   2*S2[2, 1, -1, 1, -1, n] - 3*(S2[-3, n]^2 - S2[-4, n]*S2[-2, n] - 
     S2[3, n]^2/2 + S2[2, n]*S2[4, n] + S2[6, n]/2 + S2[-4, -2, n] + 
     S2[2, n]*S2[-3, -1, n] + S2[-2, n]*S2[-3, 1, n] - 
     S2[-3, n]*S2[-2, 1, n] + S2[3, n]*S2[2, 1, n] - S2[-2, n]*S2[3, -1, n] - 
     S2[4, 2, n] + S2[5, 1, n] - S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - 
     S2[-3, 2, -1, n] - S2[2, n]*S2[-2, 1, -1, n] + 
     S2[-2, n]*S2[2, 1, -1, n] - S2[2, 3, 1, n] + S2[3, -2, -1, n] + 
     S2[3, -1, -2, n] - S2[3, 2, 1, n] + S2[-2, 1, -1, 2, n] + 
     S2[-2, 1, 2, -1, n] + S2[1, n]*S2[2, 1, -1, -1, n] + 
     S2[2, 2, -1, -1, n] + S2[3, 1, -1, -1, n] - S2[2, 1, -1, -1, 1, n] - 
     S2[2, 1, -1, 1, -1, n] - 2*S2[2, 1, 1, -1, -1, n]) - 
   12*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] -> (53*S2[-6, n])/6 + S2[-4, n]*S2[-1, n]^2 + 
   (5*S2[-4, n]*S2[1, n]^2)/3 - S2[-4, n]*S2[2, n] - S2[-2, n]*S2[2, n]^2 - 
   S2[-3, n]*S2[3, n] + ((-19*S2[-3, n] - 2*S2[-1, n]^3)*S2[3, n])/3 + 
   S2[-1, n]*S2[5, n] - (19*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/
    3 - (5*S2[-5, 1, n])/3 + (19*S2[-4, 2, n])/3 - S2[-1, n]*S2[-3, -2, n] - 
   2*S2[-1, n]^2*S2[-3, 1, n] - S2[2, n]*S2[-3, 1, n] - 
   8*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n]) + (13*S2[-3, 3, n])/3 + 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + 2*S2[3, n] - S2[-2, -1, n]) + 
   S2[3, n]*S2[-2, 1, n] + 
   (-9*S2[-2, n]^3 + (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^3)/6 + 
   (S2[4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]))/2 + 
   S2[2, n]*S2[2, -2, n] + (S2[3, n]*(-S2[-3, n] + 18*S2[-2, 1, n] - 
      2*S2[2, -1, n]))/3 + (2*S2[3, n]*(-3*S2[-2, 1, n] + S2[2, -1, n]))/3 - 
   2*S2[3, n]*(-S2[-2, 1, n] + 3*S2[2, -1, n]) + 
   (2*S2[-3, n]*(9*S2[-2, -1, n] - 2*S2[2, 1, n]))/3 - 
   S2[-2, 1, n]*S2[2, 1, n] + 2*S2[-1, n]^2*S2[3, -1, n] - 
   (4*S2[1, n]^2*S2[3, -1, n])/3 - (44*S2[4, -2, n])/3 + 
   S2[1, n]*S2[4, -1, n] + S2[-1, n]*S2[4, 1, n] + 
   (9*(S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n]))/2 - 
   (37*S2[5, -1, n])/6 - (4*S2[-4, -1, -1, n])/3 - 
   6*(S2[-6, n] + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
     S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - S2[-4, 2, n] - S2[5, -1, n] + 
     S2[-4, -1, -1, n]) + S2[-4, 1, 1, n] - 
   (2*(S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
      (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
      S2[-4, 2, n] + S2[-4, 1, 1, n]))/3 - (19*S2[-3, -2, -1, n])/3 + 
   (5*S2[-3, -1, -2, n])/3 - (16*S2[-3, 1, 2, n])/3 - 
   (10*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - 
      S2[-3, 1, 2, n] - S2[-3, 2, 1, n]))/3 + (11*S2[-3, 2, 1, n])/3 - 
   2*S2[-1, n]^2*S2[-2, 1, 1, n] + S2[2, n]*S2[-2, 1, 1, n] + 
   S2[-2, 2, 2, n] - 6*(-(S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - 
     S2[-4, 2, n] + S2[2, n]*S2[2, -2, n] + S2[4, -2, n] + S2[-2, 2, 2, n]) - 
   S2[-2, 3, 1, n] + S2[-2, n]*S2[-1, -2, 1, n] + 
   (S2[-3, n]*(25*S2[3, n] - 6*S2[-2, -1, n] - 11*S2[2, 1, n] - 
      6*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/3 - 2*S2[-2, 1, n]*(S2[-2, -1, n] - S2[2, 1, n] + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])/2) + 2*S2[2, -1, n]*(S2[-2, -1, n] - S2[2, 1, n] + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])/2) + (S2[-3, n]*(-2*S2[3, n] + 9*S2[-2, -1, n] - 
      6*S2[2, 1, n] + 3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
        S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/3 + 
   (S2[2, n]*(-12*S2[-4, n] + 31*S2[-3, 1, n] - 21*S2[3, -1, n] + 
      6*S2[-2, 1, 1, n] - 6*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n])))/3 + 
   (S2[2, n]*(-22*S2[-4, n] + 12*S2[-2, n]*S2[2, n] - 12*S2[-3, 1, n] + 
      3*S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      3*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      4*S2[3, -1, n] + 6*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) - 24*S2[2, 1, -1, n]))/6 + 
   2*S2[-1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
     S2[1, 2, -1, n] - S2[2, 1, -1, n]) - 2*S2[1, n]^2*S2[2, 1, -1, n] + 
   (S2[-2, n]*(63*S2[4, n] - 3*(S2[2, n]^2 + S2[4, n]) + 6*S2[-3, -1, n] - 
      6*S2[3, 1, n] + 36*S2[-2, 1, -1, n] + 
      36*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 
      9*(S2[2, n]^2 + S2[4, n] + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
          S2[-1, 2, -1, n])) - 12*S2[2, 1, 1, n]))/6 + 
   (17*S2[3, -1, 2, n])/3 - 6*(S2[-6, n] + S2[-3, n]*S2[3, n] + 
     S2[-5, 1, n] - S2[-3, 3, n] + S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - 
     S2[3, 1, -2, n]) + S2[3, 1, -2, n] + (38*S2[3, 2, -1, n])/3 + 
   (17*S2[4, -1, 1, n])/3 + (23*S2[4, 1, -1, n])/3 - 
   (8*S2[-3, -1, -1, 1, n])/3 - (8*S2[-3, -1, 1, -1, n])/3 + 
   (10*(S2[-4, -1, -1, n] + S2[-3, -2, -1, n] + S2[-3, -1, -2, n] + 
      S2[1, n]*S2[-3, -1, -1, n] - S2[-3, -1, -1, 1, n] - 
      S2[-3, -1, 1, -1, n] - S2[-3, 1, -1, -1, n]))/3 - 
   (2*S2[-3, 1, -1, -1, n])/3 - 4*S2[-3, 1, 1, 1, n] - 
   2*S2[-2, -1, -1, 2, n] - 3*S2[-2, -1, 2, -1, n] + 
   2*(-S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, 1, n] + 
     S2[2, n]*S2[2, -2, n] - S2[-2, 1, n]*S2[2, 1, n] + 
     S2[-3, n]*(-S2[3, n] + S2[2, 1, n]) + S2[-3, 1, 2, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + S2[-2, 2, 2, n] - 
     S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) + 
     S2[3, 1, -2, n] - S2[-2, 1, 1, 2, n]) - S2[-2, 1, 1, 2, n] + 
   S2[-2, 2, 1, 1, n] - 2*S2[-1, -2, -2, 1, n] - S2[-1, -2, 1, -2, n] - 
   3*(-S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - 
     (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - S2[-5, 1, n] - 
     S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
     S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + (S2[-2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 - S2[4, -2, n] + S2[5, -1, n] + 
     S2[-3, -1, -2, n] - S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
     S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
     S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n]) + 
   (-2*S2[-6, n] - S2[-2, n]^3 - 6*S2[-3, 3, n] + 
     3*S2[-2, n]^2*S2[1, -1, n] + 3*S2[4, n]*S2[1, -1, n] + 
     6*S2[-3, -2, -1, n] + 6*S2[-3, -1, -2, n] - 
     3*S2[-1, n]*(S2[-3, n]*S2[-2, n] + S2[-2, n]^2*S2[1, n] + 
       S2[1, n]*S2[4, n] + S2[5, n] + S2[-3, -2, n] - 
       S2[-2, n]*S2[-2, 1, n] - S2[4, 1, n] - S2[-2, 1, -2, n]) - 
     3*S2[-2, n]*(S2[4, n] + 2*S2[-2, 1, -1, n]) - 6*S2[4, 1, -1, n] + 
     6*S2[-1, 1, -2, -2, n])/2 + 9*(S2[-6, n] + S2[-3, n]*S2[3, n] - 
     S2[-3, 3, n] - (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
     S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
        2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
          S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n]) + 
   9*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
     S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
     S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
     2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]) + 
   6*(-S2[-6, n] + S2[-4, n]*S2[2, n] - S2[-1, n]*S2[1, n]*S2[2, n]^2 - 
     2*S2[-3, n]*S2[3, n] - S2[-1, n]*S2[2, n]*S2[3, n] - 
     S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] - S2[-4, 2, n] - 
     S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + 
     S2[4, n]*S2[1, -1, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
     S2[3, n]*S2[2, -1, n] + S2[-3, n]*S2[2, 1, n] + 
     S2[-1, n]*S2[2, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] + 
     S2[2, n]*S2[3, -1, n] - S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + 
     S2[5, -1, n] - 2*S2[-2, 2, 2, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
     S2[4, 1, -1, n] + 2*S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n]) + 
   7*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (S2[-2, n]^2 - S2[1, n]^2*S2[2, n] - S2[-1, n]^2*
       (S2[1, n]^2 + S2[2, n]) - S2[4, n] + (S2[2, n]^2 + S2[4, n])/2 - 
      4*S2[-3, -1, n] + 6*S2[3, 1, n] - 2*S2[-2, 1, -1, n] - 
      2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 4*S2[-1, -2, 1, n] - 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + (S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n]))/2 + 
      2*S2[-1, 2, -1, n] + 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
        S2[2, -1, n] - 2*S2[1, 1, -1, n]) - 2*S2[2, 1, 1, n] + 
      4*S2[1, 1, -1, -1, n]))/2 - 7*S2[2, -2, 1, 1, n] + 
   (S2[1, n]*(50*S2[-5, n] + 10*S2[-1, n]*S2[4, n] - 
      8*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) - 12*S2[-4, 1, n] - 
      16*S2[3, -2, n] - 22*S2[4, -1, n] - 20*S2[-3, -1, -1, n] - 
      24*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) - 
      24*S2[2, 1, -2, n] + 16*S2[3, -1, 1, n] + 28*S2[3, 1, -1, n] + 
      24*S2[2, 1, -1, 1, n] + 36*S2[2, 1, 1, -1, n]))/6 + 
   (S2[-1, n]*(-48*S2[-3, n]*S2[-2, n] + 42*S2[2, n]*S2[3, n] + S2[5, n] - 
      12*S2[-4, -1, n] + 24*S2[-3, -2, n] - 24*S2[2, n]*S2[-2, -1, n] - 
      24*S2[-2, n]*S2[-2, 1, n] + 6*S2[-3, n]*(S2[-2, n] + 
        S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 6*S2[-2, 1, n]*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      24*S2[-2, n]*S2[2, -1, n] - 6*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n])*S2[2, -1, n] + 24*S2[2, n]*S2[2, 1, n] - 
      24*S2[3, 2, n] - 10*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) - 
      34*S2[4, 1, n] + 36*S2[-3, -1, 1, n] + 24*S2[-3, 1, -1, n] + 
      18*S2[-2, -1, 2, n] + 9*(S2[-3, n]*S2[-2, n] + S2[5, n] - 
        S2[-3, -2, n] + S2[-2, n]*S2[-2, 1, n] + S2[4, 1, n] - 
        S2[-2, 1, -2, n]) - 6*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) - 
      18*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n] - 2*S2[2, 2, 1, n]) - 18*S2[2, 2, 1, n] - 
      24*S2[3, -1, -1, n] - 28*S2[3, 1, 1, n] + 36*S2[-2, -1, 1, 1, n] + 
      36*S2[-2, 1, -1, 1, n] + 24*S2[-2, 1, 1, -1, n] - 
      36*S2[2, -1, -1, 1, n] - 24*S2[2, -1, 1, -1, n] - 
      36*S2[2, 1, 1, 1, n]))/6 + 4*S2[3, -1, -1, -1, n] - 
   6*(S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 2*S2[3, 1, 1, -1, n]) - 
   (4*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
      S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - S2[-2, 3, 1, n] + 
      S2[-1, n]*S2[3, 1, 1, n] - S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n] - 
      S2[3, 1, 1, -1, n]))/3 - 4*S2[3, 1, 1, -1, n] + 
   (8*(-S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + 
      (S2[2, n]*S2[3, -1, n])/2 - S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + 
      S2[5, -1, n] + S2[-2, 3, 1, n] - S2[3, -1, 2, n] + 
      S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
        S2[3, 1, -1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
      S2[4, 1, -1, n] + S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
      S2[3, 1, 1, -1, n]))/3 - 4*S2[-2, -1, -1, 1, 1, n] - 
   6*S2[-2, -1, 1, -1, 1, n] - 6*S2[-2, -1, 1, 1, -1, n] - 
   6*S2[-2, 1, -1, -1, 1, n] - 6*S2[-2, 1, -1, 1, -1, n] - 
   4*S2[-2, 1, 1, -1, -1, n] + 6*S2[2, -1, -1, -1, 1, n] + 
   6*S2[2, -1, -1, 1, -1, n] + 4*S2[2, -1, 1, -1, -1, n] + 
   2*(2*S2[-6, n] + (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 + S2[-3, n]*S2[3, n] + 
     S2[-1, n]*S2[2, n]*S2[3, n] + (S2[-1, n]*S2[1, n]*S2[4, n])/2 + 
     S2[-1, n]*S2[5, n] - S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] - 
     2*S2[-3, 3, n] + S2[3, n]*S2[-2, 1, n] - (S2[2, n]^2*S2[1, -1, n])/2 - 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] - 
     S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] + 
     S2[-3, n]*S2[2, 1, n] - S2[-2, 1, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] + 2*S2[-3, 1, 2, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + 2*S2[-2, 2, 2, n] + 
     S2[2, n]*S2[1, 2, -1, n] + S2[2, n]*S2[2, 1, -1, n] - 
     S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) - 
     S2[-1, n]*S2[2, 2, 1, n] - 2*S2[3, -1, 2, n] + S2[3, 1, -2, n] - 
     S2[3, 2, -1, n] + S2[4, 1, -1, n] - S2[-2, 1, 1, 2, n] - 
     S2[-1, 1, 2, 2, n] - S2[-1, 2, 1, 2, n] + S2[1, n]*S2[2, 1, 1, -1, n] + 
     S2[3, 1, 1, -1, n] - S2[2, 1, 1, -1, 1, n] - 3*S2[2, 1, 1, 1, -1, n]) + 
   4*(-S2[-6, n] - S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
     S2[-3, n]*S2[3, n] - S2[-5, 1, n] + 2*S2[-4, 2, n] + 
     S2[2, n]*S2[-3, 1, n] - S2[1, n]*S2[-3, 2, n] - S2[3, n]*S2[-2, 1, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 - 
     S2[2, n]*S2[2, -2, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     2*S2[-3, n]*S2[2, 1, n] - S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[-2, 1, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] - 
     S2[2, n]*S2[3, -1, n] + S2[-2, n]*S2[3, 1, n] + S2[-1, n]*S2[3, 2, n] + 
     S2[4, -2, n] + S2[1, n]*S2[4, -1, n] - S2[-1, n]*S2[4, 1, n] - 
     S2[5, -1, n] - S2[-4, 1, 1, n] - S2[-3, 1, 2, n] + 2*S2[-3, 2, 1, n] - 
     S2[2, n]*S2[-2, 1, 1, n] + S2[1, n]*S2[-1, 2, 2, n] + 
     S2[1, n]*S2[2, 1, -2, n] + (S2[1, n]^2*S2[2, 1, -1, n])/2 + 
     (S2[2, n]*S2[2, 1, -1, n])/2 - 2*S2[-2, n]*S2[2, 1, 1, n] + 
     2*S2[-1, n]*S2[2, 2, 1, n] + S2[1, n]*S2[3, 1, -1, n] + 
     S2[3, 2, -1, n] - S2[4, -1, 1, n] + S2[-2, 1, 1, 2, n] + 
     S2[-2, 2, 1, 1, n] - S2[-1, 1, 2, 2, n] - S2[-1, 2, 2, 1, n] + 
     S2[2, -2, 1, 1, n] - S2[1, n]*S2[2, 1, -1, 1, n] - 
     2*S2[1, n]*S2[2, 1, 1, -1, n] - S2[3, 1, -1, 1, n] - 
     2*S2[3, 1, 1, -1, n] + S2[2, 1, -1, 1, 1, n] + 2*S2[2, 1, 1, -1, 1, n] + 
     3*S2[2, 1, 1, 1, -1, n]) + 12*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] -> 
  (3*S2[-6, n])/2 - S2[-4, n]*S2[-1, n]^2 - (5*S2[-4, n]*S2[1, n]^2)/3 + 
   ((-5*S2[-3, n] - S2[-1, n]^3)*S2[3, n])/3 + 
   (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - 
   (17*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/3 - S2[-5, 1, n]/3 + 
   (20*S2[-4, 2, n])/3 - S2[-1, n]^2*S2[-3, 1, n] + (8*S2[-3, 3, n])/3 + 
   (S2[-3, n]*(-5*S2[3, n] + 6*S2[-2, -1, n]))/6 + 2*S2[3, n]*S2[-2, 1, n] + 
   (S2[-2, n]^3 - (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^3)/6 + 
   (S2[4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]))/2 - 
   S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) - 
   S2[2, n]*S2[2, -2, n] + (S2[3, n]*(-7*S2[-3, n] - 12*S2[-2, 1, n] - 
      2*S2[2, -1, n]))/6 + (S2[3, n]*S2[2, -1, n])/3 + 
   (S2[2, n]*(-12*S2[-4, n] + 16*S2[-3, 1, n] + 
      6*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) - 12*S2[3, -1, n]))/
    6 + S2[-1, n]^2*S2[3, -1, n] - (7*S2[1, n]^2*S2[3, -1, n])/6 - 
   (25*S2[4, -2, n])/3 - S2[1, n]*S2[4, -1, n] - (17*S2[5, -1, n])/6 + 
   (-S2[-6, n] - S2[-1, n]*S2[5, n] + S2[5, -1, n])/2 - 
   (14*S2[-4, -1, -1, n])/3 - 3*S2[-4, 1, 1, n] + 
   (8*(S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
      (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
      S2[-4, 2, n] + S2[-4, 1, 1, n]))/3 - (5*S2[-3, -2, -1, n])/3 + 
   (4*S2[-3, -1, -2, n])/3 - (5*S2[-3, 1, 2, n])/3 - 
   (2*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - 
      S2[-3, 1, 2, n] - S2[-3, 2, 1, n]))/3 - (2*S2[-3, 2, 1, n])/3 - 
   S2[-2, 2, 2, n] + (S2[-3, n]*(10*S2[3, n] - 2*S2[2, 1, n] - 
      3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/6 + 
   (S2[-3, n]*(3*S2[-2, -1, n] + S2[2, 1, n] - 
      (3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
         S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
         S2[-1, 1, -1, n]))/2))/3 + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (-S2[-2, n]^2 + (-S2[2, n]^2 - S2[4, n])/2 + 2*S2[-2, 1, -1, n] + 
      (-S2[2, n]^2 - S2[4, n] - 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
          S2[-1, 2, -1, n]))/2))/2 + 
   (S2[2, n]*(-8*S2[-4, n] + 3*S2[-2, n]*S2[-1, n]^2 - 3*S2[-2, n]*S2[2, n] - 
      3*S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      3*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      7*S2[3, -1, n] - 6*S2[2, 1, -1, n]))/6 - S2[1, n]^2*S2[2, 1, -1, n] + 
   (10*S2[3, -1, 2, n])/3 - 2*(S2[-6, n] + S2[-3, n]*S2[3, n] + 
     S2[-5, 1, n] - S2[-3, 3, n] + S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - 
     S2[3, 1, -2, n]) - 2*S2[3, 1, -2, n] + (10*S2[3, 2, -1, n])/3 + 
   (19*S2[4, -1, 1, n])/3 + (13*S2[4, 1, -1, n])/3 + 
   (2*S2[-3, -1, -1, 1, n])/3 - S2[-3, -1, 1, -1, n]/3 + 
   (8*(S2[-4, -1, -1, n] + S2[-3, -2, -1, n] + S2[-3, -1, -2, n] + 
      S2[1, n]*S2[-3, -1, -1, n] - S2[-3, -1, -1, 1, n] - 
      S2[-3, -1, 1, -1, n] - S2[-3, 1, -1, -1, n]))/3 + 
   (2*S2[-3, 1, -1, -1, n])/3 - 2*S2[-3, 1, 1, 1, n] - 
   2*(-S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, 1, n] + 
     S2[2, n]*S2[2, -2, n] - S2[-2, 1, n]*S2[2, 1, n] + 
     S2[-3, n]*(-S2[3, n] + S2[2, 1, n]) + S2[-3, 1, 2, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + S2[-2, 2, 2, n] - 
     S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) + 
     S2[3, 1, -2, n] - S2[-2, 1, 1, 2, n]) - 2*S2[-2, 2, -1, -1, n] + 
   (2*S2[-6, n] + S2[-2, n]^3 + 6*S2[-3, 3, n] - 3*S2[-2, n]^2*S2[1, -1, n] - 
     3*S2[4, n]*S2[1, -1, n] - 6*S2[-3, -2, -1, n] - 6*S2[-3, -1, -2, n] + 
     3*S2[-1, n]*(S2[-3, n]*S2[-2, n] + S2[-2, n]^2*S2[1, n] + 
       S2[1, n]*S2[4, n] + S2[5, n] + S2[-3, -2, n] - 
       S2[-2, n]*S2[-2, 1, n] - S2[4, 1, n] - S2[-2, 1, -2, n]) + 
     3*S2[-2, n]*(S2[4, n] + 2*S2[-2, 1, -1, n]) + 6*S2[4, 1, -1, n] - 
     6*S2[-1, 1, -2, -2, n])/3 - 
   4*(-S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - 
     (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - S2[-5, 1, n] - 
     S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
     S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + (S2[-2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 - S2[4, -2, n] + S2[5, -1, n] + 
     S2[-3, -1, -2, n] - S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
     S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
     S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n]) + 
   2*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
     S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
        2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
          S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n]) + 
   2*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
     S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
     S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
     2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]) + 
   2*(-S2[-6, n] + S2[-4, n]*S2[2, n] - S2[-1, n]*S2[1, n]*S2[2, n]^2 - 
     2*S2[-3, n]*S2[3, n] - S2[-1, n]*S2[2, n]*S2[3, n] - 
     S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] - S2[-4, 2, n] - 
     S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + 
     S2[4, n]*S2[1, -1, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
     S2[3, n]*S2[2, -1, n] + S2[-3, n]*S2[2, 1, n] + 
     S2[-1, n]*S2[2, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] + 
     S2[2, n]*S2[3, -1, n] - S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + 
     S2[5, -1, n] - 2*S2[-2, 2, 2, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
     S2[4, 1, -1, n] + 2*S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n]) + 
   2*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) + 
   (S2[-2, n]*(15*S2[4, n] - (3*(S2[2, n]^2 + S2[4, n]))/2 - 
      12*S2[-3, -1, n] + 3*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^
        2 + 12*S2[3, 1, n] - 6*S2[-2, 1, -1, n] + 
      12*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
      (3*(S2[2, n]^2 + S2[4, n] + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
           S2[-1, 2, -1, n])))/2 + 12*S2[2, 1, 1, n] - 
      3*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 
        S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
        2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
        2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
          2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n])))/
    6 - 2*(S2[-6, n] + S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
     S2[-3, n]*S2[3, n] + S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] - 
     S2[3, n]*S2[-2, 1, n] - S2[2, n]*S2[2, -2, n] + 
     S2[-2, 1, n]*S2[2, 1, n] + S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - 
     S2[-3, 1, 2, n] - S2[-3, 2, 1, n] - S2[2, n]*S2[-2, 1, 1, n] - 
     S2[-2, 2, 2, n] - S2[3, 1, -2, n] + S2[-2, 1, 1, 2, n] - 
     S2[-2, 2, 1, 1, n] - S2[2, -2, 1, 1, n]) - 4*S2[2, -2, 1, 1, n] + 
   (S2[1, n]*(16*S2[-5, n] - 4*S2[-1, n]*S2[4, n] + 
      2*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) + 18*S2[-4, 1, n] - 
      14*S2[3, -2, n] - 8*S2[4, -1, n] - 16*S2[-3, -1, -1, n] - 
      12*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) - 
      12*S2[2, 1, -2, n] + 14*S2[3, -1, 1, n] + 14*S2[3, 1, -1, n] + 
      12*S2[2, 1, -1, 1, n] + 12*S2[2, 1, 1, -1, n]))/6 + 
   2*S2[3, -1, -1, -1, n] - 2*(S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + 
     S2[3, 2, -1, n] + S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 
     2*S2[3, 1, 1, -1, n]) + (S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - 
     S2[-3, 3, n] + S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - 
     S2[-2, 3, 1, n] + S2[-1, n]*S2[3, 1, 1, n] - S2[3, -1, 1, 1, n] - 
     S2[3, 1, -1, 1, n] - S2[3, 1, 1, -1, n])/3 - S2[3, 1, 1, -1, n] + 
   (7*(-S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + 
      (S2[2, n]*S2[3, -1, n])/2 - S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + 
      S2[5, -1, n] + S2[-2, 3, 1, n] - S2[3, -1, 2, n] + 
      S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
        S2[3, 1, -1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
      S2[4, 1, -1, n] + S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
      S2[3, 1, 1, -1, n]))/3 - 2*S2[-2, -1, -1, 1, 1, n] - 
   2*S2[-2, -1, 1, -1, 1, n] - 3*S2[-2, -1, 1, 1, -1, n] + 
   (S2[-1, n]*(-13*S2[5, n] + 12*S2[-4, -1, n] - 6*S2[-3, -2, n] + 
      6*S2[-2, n]*S2[-2, 1, n] - 6*S2[-2, 1, n]*(S2[-2, n] + 
        S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 6*S2[-2, n]*S2[2, -1, n] + 
      6*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*S2[2, -1, n] + 
      6*S2[3, 2, n] + 4*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) - 
      8*S2[4, 1, n] + 18*S2[-3, -1, 1, n] + 12*S2[-3, 1, -1, n] - 
      6*(S2[-3, n]*S2[-2, n] + S2[5, n] - S2[-3, -2, n] + 
        S2[-2, n]*S2[-2, 1, n] + S2[4, 1, n] - S2[-2, 1, -2, n]) + 
      12*S2[-2, 2, -1, n] - 12*S2[3, -1, -1, n] - 20*S2[3, 1, 1, n] + 
      18*S2[-2, -1, 1, 1, n] - 18*S2[2, 1, 1, 1, n] + 
      6*S2[-1, 1, -1, 1, 1, n]))/6 + 
   2*(2*S2[-6, n] + (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 + S2[-3, n]*S2[3, n] + 
     S2[-1, n]*S2[2, n]*S2[3, n] + (S2[-1, n]*S2[1, n]*S2[4, n])/2 + 
     S2[-1, n]*S2[5, n] - S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] - 
     2*S2[-3, 3, n] + S2[3, n]*S2[-2, 1, n] - (S2[2, n]^2*S2[1, -1, n])/2 - 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] - 
     S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] + 
     S2[-3, n]*S2[2, 1, n] - S2[-2, 1, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] + 2*S2[-3, 1, 2, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + 2*S2[-2, 2, 2, n] + 
     S2[2, n]*S2[1, 2, -1, n] + S2[2, n]*S2[2, 1, -1, n] - 
     S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) - 
     S2[-1, n]*S2[2, 2, 1, n] - 2*S2[3, -1, 2, n] + S2[3, 1, -2, n] - 
     S2[3, 2, -1, n] + S2[4, 1, -1, n] - S2[-2, 1, 1, 2, n] - 
     S2[-1, 1, 2, 2, n] - S2[-1, 2, 1, 2, n] + S2[1, n]*S2[2, 1, 1, -1, n] + 
     S2[3, 1, 1, -1, n] - S2[2, 1, 1, -1, 1, n] - 3*S2[2, 1, 1, 1, -1, n]) + 
   3*S2[2, 1, 1, 1, -1, n] + 2*(-S2[-6, n] - S2[-4, n]*S2[2, n] + 
     S2[-2, n]*S2[2, n]^2 + S2[-3, n]*S2[3, n] - S2[-5, 1, n] + 
     2*S2[-4, 2, n] + S2[2, n]*S2[-3, 1, n] - S2[1, n]*S2[-3, 2, n] - 
     S2[3, n]*S2[-2, 1, n] - (S2[2, n]^2*S2[1, -1, n])/2 - 
     (S2[4, n]*S2[1, -1, n])/2 - S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] - 2*S2[-3, n]*S2[2, 1, n] - 
     S2[-1, n]*S2[2, n]*S2[2, 1, n] + S2[-2, 1, n]*S2[2, 1, n] - 
     S2[2, -1, n]*S2[2, 1, n] - S2[2, n]*S2[3, -1, n] + 
     S2[-2, n]*S2[3, 1, n] + S2[-1, n]*S2[3, 2, n] + S2[4, -2, n] + 
     S2[1, n]*S2[4, -1, n] - S2[-1, n]*S2[4, 1, n] - S2[5, -1, n] - 
     S2[-4, 1, 1, n] - S2[-3, 1, 2, n] + 2*S2[-3, 2, 1, n] - 
     S2[2, n]*S2[-2, 1, 1, n] + S2[1, n]*S2[-1, 2, 2, n] + 
     S2[1, n]*S2[2, 1, -2, n] + (S2[1, n]^2*S2[2, 1, -1, n])/2 + 
     (S2[2, n]*S2[2, 1, -1, n])/2 - 2*S2[-2, n]*S2[2, 1, 1, n] + 
     2*S2[-1, n]*S2[2, 2, 1, n] + S2[1, n]*S2[3, 1, -1, n] + 
     S2[3, 2, -1, n] - S2[4, -1, 1, n] + S2[-2, 1, 1, 2, n] + 
     S2[-2, 2, 1, 1, n] - S2[-1, 1, 2, 2, n] - S2[-1, 2, 2, 1, n] + 
     S2[2, -2, 1, 1, n] - S2[1, n]*S2[2, 1, -1, 1, n] - 
     2*S2[1, n]*S2[2, 1, 1, -1, n] - S2[3, 1, -1, 1, n] - 
     2*S2[3, 1, 1, -1, n] + S2[2, 1, -1, 1, 1, n] + 2*S2[2, 1, 1, -1, 1, n] + 
     3*S2[2, 1, 1, 1, -1, n]) + 6*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] -> (11*S2[-3, n]^2)/6 - 2*S2[-4, n]*S2[-2, n] + 
   (S2[-3, n]*(-14*S2[-3, n] + S2[-1, n]^3))/12 + 
   (S2[-3, n]*(8*S2[-3, n] + S2[-1, n]^3))/4 - (S2[-2, n]^2*S2[2, n])/2 - 
   S2[3, n]^2 + (7*S2[-1, n]^2*S2[4, n])/4 + 2*S2[2, n]*S2[4, n] + 
   (S2[-1, n]^2*(S2[2, n]^2 + S2[4, n]))/8 + 
   (S2[2, n]*(S2[-1, n]^4 - 6*S2[-1, n]^2*S2[2, n] - 3*S2[2, n]^2 + 
      6*S2[4, n]))/12 + (-S2[2, n]^3 - 3*S2[2, n]*S2[4, n] - 2*S2[6, n])/6 - 
   (5*S2[6, n])/2 - (17*(S2[3, n]^2 + S2[6, n]))/12 + 
   (9*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]))/2 + S2[-5, -1, n]/6 + 
   (14*S2[-4, -2, n])/3 - (S2[-1, n]^2*S2[-3, -1, n])/2 + 
   2*S2[2, n]*S2[-3, -1, n] + 2*S2[-2, n]*S2[-3, 1, n] - 
   (3*S2[3, n]*S2[-2, -1, n])/2 - 2*S2[-3, n]*S2[-2, 1, n] + 
   (S2[-1, n]^3*S2[-2, 1, n])/3 - S2[-1, n]*S2[2, n]*S2[-2, 1, n] - 
   (S2[-1, n]^3*S2[2, -1, n])/3 + (S2[3, n]*(S2[-2, -1, n] - S2[2, 1, n]))/
    2 + S2[3, n]*S2[2, 1, n] + S2[-2, -1, n]*S2[2, 1, n] + 
   S2[3, n]*(S2[-2, -1, n] + S2[2, 1, n]) + 
   (S2[3, n]*(11*S2[3, n] - 12*S2[-2, -1, n] + 3*S2[2, 1, n]))/6 + 
   (3*S2[-2, n]^2*S2[-1, n]^2 - 10*S2[3, n]^2 - 6*S2[-2, -1, n]^2 - 
     3*S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 - 
     6*S2[2, 1, n]^2)/12 - 2*S2[-2, n]*S2[3, -1, n] + 
   (S2[-1, n]^2*S2[3, 1, n])/2 - S2[2, n]*S2[3, 1, n] + 
   S2[1, n]*(S2[5, n] - S2[4, 1, n]) - 6*S2[4, 2, n] + 
   3*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]) + (31*S2[5, 1, n])/6 + 
   S2[-4, -1, 1, n]/3 + (S2[-5, -1, n] + S2[-4, -2, n] + 
     S2[1, n]*S2[-4, -1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n])/3 + 
   S2[-4, 1, -1, n]/3 - S2[-3, -2, 1, n] - 3*S2[-3, -1, 2, n] - 
   4*S2[-3, 1, -2, n] - S2[-1, n]*S2[-3, 1, 1, n] - 4*S2[-3, 2, -1, n] - 
   (S2[-1, n]^2*S2[-2, 1, -1, n])/2 - S2[2, n]*S2[-2, 1, -1, n] + 
   (S2[-2, n]*(-36*S2[-4, n] + 12*S2[-3, 1, n] + 12*S2[2, -2, n] - 
      12*S2[3, -1, n] - 12*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n])))/12 - 
   (S2[-1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
      S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]))/2 + 
   S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
     S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
   S2[2, n]*S2[-1, -2, 1, n] + 
   (S2[-1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/8 + 
   (S2[-1, n]^3*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
      S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]))/6 + 
   (S2[-3, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 - 3*S2[-2, 1, n] - 
      S2[1, n]*S2[1, -1, n] + 3*S2[2, -1, n] + S2[1, 1, -1, n]))/3 - 
   4*S2[2, -2, -2, n] + 2*S2[-2, n]*S2[2, 1, -1, n] + 
   (S2[-1, n]^2*S2[2, 1, 1, n])/2 + 
   (S2[2, n]*(3*S2[-2, n]^2 + 43*S2[4, n] + (3*(S2[2, n]^2 + S2[4, n]))/2 + 
      6*S2[-3, -1, n] - 3*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 - 
      10*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n]) - 2*S2[3, 1, n] - 
      18*S2[-2, 1, -1, n] - 18*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + (9*(S2[2, n]^2 + S2[4, n] + 
         2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/2 + 
      18*S2[2, 1, 1, n]))/12 - (19*S2[2, 3, 1, n])/6 + 6*S2[3, -2, -1, n] + 
   4*S2[3, -1, -2, n] + S2[1, n]*S2[3, -1, -1, n] + 
   (-S2[3, n]^2 - S2[6, n] - 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
       S2[2, 3, 1, n] - S2[3, 2, 1, n]))/12 - (13*S2[3, 2, 1, n])/6 + 
   S2[4, -1, -1, n] - 3*(S2[-5, n]*S2[-1, n] + (S2[-1, n]^2*S2[4, n])/2 + 
     (S2[2, n]*S2[4, n])/2 + S2[6, n] - S2[-5, -1, n] - 
     S2[-1, n]*S2[4, -1, n] - S2[4, 2, n] + S2[4, -1, -1, n]) + 
   S2[-3, -1, -1, -1, n] + S2[-3, 1, -1, 1, n] + S2[-3, 1, 1, -1, n] + 
   2*S2[-2, -2, -1, -1, n] + 2*S2[-2, 1, -1, 2, n] + 2*S2[-2, 1, 2, -1, n] + 
   2*(S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] - S2[3, n]^2/2 + S2[6, n] - 
     S2[-4, -2, n] + S2[-2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, -1, n] - 
     S2[-2, n]*S2[3, -1, n] + S2[5, 1, n] + S2[-4, -1, 1, n] - 
     S2[-3, -2, 1, n] - S2[-3, 1, -2, n] + 
     S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
       S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
     S2[3, -1, -2, n] - S2[-2, -1, 1, 2, n] - S2[-2, -1, 2, 1, n] - 
     S2[-2, 2, -1, 1, n]) + 3*(-S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] + 
     S2[3, n]^2/2 + S2[6, n] + S2[-5, -1, n] - S2[-4, -2, n] - 
     S2[-2, n]*S2[-3, 1, n] + S2[-3, n]*S2[-2, 1, n] + 
     S2[-2, n]*S2[3, -1, n] + S2[-4, 1, -1, n] + S2[-3, 1, -2, n] + 
     S2[2, n]*S2[-2, 1, -1, n] - S2[3, -2, -1, n] - S2[3, -1, -2, n] - 
     S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n] - S2[-2, 2, 1, -1, n]) + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] + 
      S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n] - 2*S2[2, 1, -1, n] - 
      2*S2[-1, -1, -1, 1, n]))/2 + 
   (S2[1, n]*(-2*S2[-4, n]*S2[-1, n] + 10*S2[2, n]*S2[3, n] - 48*S2[5, n] - 
      4*S2[-4, -1, n] + 12*S2[4, 1, n] - 12*S2[3, -1, -1, n] - 
      12*S2[2, 1, -1, -1, n]))/12 + S2[1, n]*S2[2, 1, -1, -1, n] - 
   S2[2, 2, -1, -1, n] - 2*S2[2, 2, 1, 1, n] - S2[3, -1, -1, 1, n] - 
   S2[3, -1, 1, -1, n] - S2[3, 1, -1, -1, n] + S2[-2, -1, -1, -1, 1, n] + 
   2*S2[-2, -1, -1, 1, -1, n] + 3*S2[-2, -1, 1, -1, -1, n] + 
   4*S2[-2, 1, -1, -1, -1, n] + 
   (S2[-1, n]*(-8*S2[-5, n] - 4*S2[-3, n]*S2[2, n] + 12*S2[-2, n]*S2[3, n] + 
      2*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) + 2*S2[-4, 1, n] + 
      12*S2[-2, n]*S2[-2, -1, n] - 12*S2[3, -2, n] - 24*S2[4, -1, n] + 
      12*S2[-3, 1, 1, n] - 12*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + 
        S2[-2, n]*S2[-2, -1, n] - S2[3, -2, n] + S2[4, -1, n] + 
        S2[-1, -2, -2, n]) + 6*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n])*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
        S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 6*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
         2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n]) - 12*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        S2[-4, 1, n] - S2[-3, 2, n] + S2[-2, n]*S2[2, 1, n] - 
        S2[-2, 2, 1, n] - S2[2, 1, -2, n]) - 12*S2[2, 1, -2, n] - 
      12*S2[-2, -1, -1, 1, n] - 12*S2[-2, -1, 1, -1, n] - 
      12*S2[-2, 1, -1, -1, n] + 12*S2[2, -1, -1, -1, n] + 
      12*S2[2, 1, -1, 1, n] + 12*S2[2, 1, 1, -1, n] - 
      6*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n]) - 3*(-6*S2[-2, n]^2*S2[-1, n] - 
        6*S2[-4, n]*S2[1, n] - 2*S2[-3, n]*S2[1, n]^2 - 
        S2[-1, n]^3*S2[1, n]^2 + 14*S2[-3, n]*S2[2, n] + 
        S2[-1, n]^3*S2[2, n] + 3*S2[-1, n]*S2[1, n]^2*S2[2, n] - 
        3*S2[-1, n]*S2[4, n] + 12*S2[-4, 1, n] + 6*S2[-1, n]*S2[-3, -1, n] - 
        12*S2[-3, 2, n] + 6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 
        6*S2[-1, n]^2*S2[-2, 1, n] - 6*S2[2, n]*S2[-2, 1, n] - 
        6*S2[1, n]*S2[2, -2, n] + 6*S2[2, n]*S2[2, -1, n] - 
        6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) - 
        12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 6*S2[1, n]*S2[3, -1, n] - 
        12*S2[-1, n]*S2[3, 1, n] - 12*S2[-2, 2, 1, n] + 
        12*S2[-1, -2, -2, n] + 6*S2[1, n]*S2[-1, -2, -1, n] + 
        12*S2[-1, n]*S2[-1, -2, 1, n] - 6*S2[-1, n]*S2[-1, 2, -1, n] + 
        6*S2[-1, n]^2*S2[1, 1, -1, n] - 6*S2[2, n]*S2[1, 1, -1, n] + 
        12*S2[1, n]*S2[2, 1, -1, n] + 12*S2[-1, n]*S2[2, 1, 1, n] + 
        12*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
        12*S2[-2, 1, -1, -1, n] + 12*S2[1, n]*S2[-1, -1, -1, 1, n] - 
        12*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] - 
        12*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n] + 
        12*S2[1, 1, -1, -1, -1, n])))/12 - 4*S2[2, -1, -1, -1, -1, n] - 
   S2[2, 1, -1, -1, 1, n] - 2*S2[2, 1, -1, 1, -1, n] - 
   3*S2[2, 1, 1, -1, -1, n] + 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[-6, n])/4 - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 + 
   (7*S2[-4, n]*S2[1, n]^2)/12 - S2[-2, n]*S2[2, n]^2 + 
   S2[-1, n]*S2[1, n]*S2[2, n]^2 + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
   ((8*S2[-3, n] + S2[-1, n]^3)*S2[3, n])/6 + S2[-1, n]*S2[2, n]*S2[3, n] - 
   S2[-2, n]*S2[4, n] + (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
   (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 + 
   (10*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/3 + S2[-5, 1, n]/6 + 
   S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - (47*S2[-4, 2, n])/6 + 
   (S2[-1, n]^2*S2[-3, 1, n])/2 + S2[2, n]*S2[-3, 1, n] + 
   S2[1, n]*S2[-3, 2, n] - (7*S2[-3, 3, n])/3 - 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
   S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + 
   (4*S2[-2, n]^3 - (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^3)/6 + 
   (S2[-2, n]^2*S2[1, -1, n])/2 - (S2[2, n]^2*S2[1, -1, n])/2 - 
   S2[2, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 
   S2[2, n]*S2[2, -2, n] + (S2[3, n]*(3*S2[-2, 1, n] - 2*S2[2, -1, n]))/3 - 
   2*S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] + 
   2*S2[3, n]*(-S2[-2, 1, n] + S2[2, -1, n]) + 
   (S2[3, n]*(13*S2[-3, n] - 12*S2[-2, 1, n] + 8*S2[2, -1, n]))/12 + 
   S2[-2, 1, n]*(S2[-2, -1, n] - S2[2, 1, n]) + S2[-3, n]*S2[2, 1, n] + 
   2*S2[2, -1, n]*S2[2, 1, n] - S2[-3, n]*(-S2[3, n] + S2[2, 1, n]) + 
   S2[2, -1, n]*(-S2[-2, -1, n] + S2[2, 1, n]) - (S2[-1, n]^2*S2[3, -1, n])/
    2 - (S2[1, n]^2*S2[3, -1, n])/6 - S2[-2, n]*S2[3, 1, n] + 
   (11*S2[4, -2, n])/3 + (S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n])/4 + 
   (11*S2[5, -1, n])/12 + (4*S2[-4, -1, -1, n])/3 + (7*S2[-4, 1, 1, n])/2 - 
   (11*(S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
      (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
      S2[-4, 2, n] + S2[-4, 1, 1, n]))/6 + (4*S2[-3, -2, -1, n])/3 + 
   S2[-3, -1, -2, n]/3 + (4*S2[-3, 1, 2, n])/3 + 
   (4*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - 
      S2[-3, 1, 2, n] - S2[-3, 2, 1, n]))/3 - (8*S2[-3, 2, 1, n])/3 - 
   S2[-2, n]*S2[-2, 1, -1, n] + (S2[-1, n]^2*S2[-2, 1, 1, n])/2 + 
   4*S2[-2, 2, 2, n] + S2[-2, 3, 1, n] - S2[-2, n]*S2[-1, -2, 1, n] + 
   (S2[-3, n]*(5*S2[3, n] - 18*S2[-2, -1, n] + 12*S2[2, 1, n] - 
      3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/12 + 
   (S2[-3, n]*(-9*S2[-2, -1, n] + 5*S2[2, 1, n] - 
      (3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
         S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
         S2[-1, 1, -1, n]))/2))/6 + 
   (S2[-3, n]*(-11*S2[3, n] + 6*S2[-2, -1, n] + S2[2, 1, n] + 
      3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/6 - S2[1, n]*S2[-1, 2, 2, n] + 
   ((2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n])*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
      S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]))/
    2 + S2[2, n]*S2[1, 2, -1, n] - S2[1, n]*S2[2, 1, -2, n] + 
   (S2[2, n]*(12*S2[-4, n] - 17*S2[-3, 1, n] + 9*S2[3, -1, n] - 
      3*S2[-2, 1, 1, n] + 3*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n])))/6 - 
   (S2[-1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
      S2[1, 2, -1, n] - S2[2, 1, -1, n]))/2 + (S2[2, n]*S2[2, 1, -1, n])/2 + 
   (S2[2, n]*(23*S2[-4, n] - 12*S2[-2, n]*S2[2, n] + 12*S2[-3, 1, n] + 
      12*S2[2, -2, n] - 14*S2[3, -1, n] + 6*S2[2, 1, -1, n]))/12 + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     ((S2[2, n]^2 + S2[4, n])/2 + 2*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) - 2*S2[2, 1, 1, n]))/2 + 
   S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) + 
   2*S2[-2, n]*S2[2, 1, 1, n] + 
   (S2[-2, n]*(-36*S2[4, n] - 24*S2[-2, 1, -1, n] - 
      36*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
      6*(S2[2, n]^2 + S2[4, n] + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
          S2[-1, 2, -1, n])) + 24*S2[2, 1, 1, n]))/12 - 
   2*S2[-1, n]*S2[2, 2, 1, n] - (5*S2[3, -1, 2, n])/3 + 
   4*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
     S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - S2[3, 1, -2, n]) - 
   S2[1, n]*S2[3, 1, -1, n] - (14*S2[3, 2, -1, n])/3 + 
   (4*S2[4, -1, 1, n])/3 - (2*S2[4, 1, -1, n])/3 + 
   (2*S2[-3, -1, -1, 1, n])/3 + (2*S2[-3, -1, 1, -1, n])/3 + 
   (2*S2[-3, 1, -1, -1, n])/3 + (-S2[-4, -1, -1, n] - S2[-3, -2, -1, n] - 
     S2[-3, -1, -2, n] - S2[1, n]*S2[-3, -1, -1, n] + S2[-3, -1, -1, 1, n] + 
     S2[-3, -1, 1, -1, n] + S2[-3, 1, -1, -1, n])/3 + S2[-3, 1, 1, 1, n] - 
   S2[-2, 2, 1, 1, n] + S2[-1, -2, -2, 1, n] + S2[-1, -2, 1, -2, n] + 
   S2[-1, 1, -2, -2, n] - 2*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
     S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
        2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
          S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n]) - S2[-1, 1, 2, 2, n] - 
   2*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
     S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
     S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
     2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]) - 
   S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n] - 
   2*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) + S2[2, -2, 1, 1, n] + 
   S2[1, n]*S2[2, 1, -1, 1, n] + 
   (S2[1, n]*(-22*S2[-5, n] - 14*S2[-1, n]*S2[4, n] + 
      4*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) - 18*S2[-4, 1, n] - 
      4*S2[3, -2, n] - 16*S2[4, -1, n] + 4*S2[-3, -1, -1, n] + 
      12*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) + 
      12*S2[2, 1, -2, n] + 4*S2[3, -1, 1, n] - 8*S2[3, 1, -1, n] - 
      12*S2[2, 1, -1, 1, n] - 24*S2[2, 1, 1, -1, n]))/12 + 
   2*S2[1, n]*S2[2, 1, 1, -1, n] + 
   (S2[-1, n]*(24*S2[-3, n]*S2[-2, n] - 18*S2[2, n]*S2[3, n] - 17*S2[5, n] - 
      12*S2[-3, -2, n] + 12*S2[2, n]*S2[-2, -1, n] + 
      12*S2[-2, n]*S2[-2, 1, n] - 12*S2[-2, n]*S2[2, -1, n] - 
      12*S2[2, n]*S2[2, 1, n] + 12*S2[3, 2, n] + 
      14*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) + 26*S2[4, 1, n] - 
      12*S2[-3, -1, 1, n] - 12*S2[-3, 1, -1, n] + 12*S2[3, -1, -1, n] + 
      20*S2[3, 1, 1, n] - 36*S2[-2, -1, 1, 1, n] - 24*S2[-2, 1, -1, 1, n] - 
      12*S2[-2, 1, 1, -1, n] + 24*S2[2, -1, -1, 1, n] + 
      12*S2[2, -1, 1, -1, n] + 36*S2[2, 1, 1, 1, n]))/12 - 
   S2[3, -1, -1, -1, n] - 2*S2[3, -1, 1, 1, n] + 
   2*(S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 2*S2[3, 1, 1, -1, n]) - 
   (2*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
      S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - S2[-2, 3, 1, n] + 
      S2[-1, n]*S2[3, 1, 1, n] - S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n] - 
      S2[3, 1, 1, -1, n]))/3 + 2*S2[3, 1, 1, -1, n] + 
   (-S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + (S2[2, n]*S2[3, -1, n])/2 - 
     S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + S2[5, -1, n] + S2[-2, 3, 1, n] - 
     S2[3, -1, 2, n] + S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - 
       S2[3, -1, 1, n] - S2[3, 1, -1, n]) - S2[3, 2, -1, n] - 
     S2[4, -1, 1, n] - S2[4, 1, -1, n] + S2[3, -1, 1, 1, n] + 
     S2[3, 1, -1, 1, n] + S2[3, 1, 1, -1, n])/3 + S2[-2, -1, -1, 1, 1, n] + 
   2*S2[-2, -1, 1, -1, 1, n] + 3*S2[-2, -1, 1, 1, -1, n] + 
   3*S2[-2, 1, -1, -1, 1, n] + 2*S2[-2, 1, -1, 1, -1, n] + 
   S2[-2, 1, 1, -1, -1, n] - 3*S2[2, -1, -1, -1, 1, n] - 
   2*S2[2, -1, -1, 1, -1, n] - S2[2, -1, 1, -1, -1, n] - 
   S2[2, 1, -1, 1, 1, n] - 2*S2[2, 1, 1, -1, 1, n] - 
   3*S2[2, 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] -> 
  (-14*S2[-6, n])/3 + 2*S2[-4, n]*S2[-1, n]^2 + (S2[-4, n]*S2[1, n]^2)/6 + 
   S2[-3, n]*S2[3, n] + (4*(2*S2[-3, n] + S2[-1, n]^3)*S2[3, n])/3 + 
   S2[-1, n]*S2[5, n] + (25*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/
    6 + (23*S2[-5, 1, n])/6 - (5*S2[-4, 2, n])/3 - S2[-1, n]*S2[-3, -2, n] + 
   3*S2[-1, n]^2*S2[-3, 1, n] + 4*(S2[-6, n] + S2[-3, n]*S2[3, n] - 
     S2[-3, 3, n]) - (14*S2[-3, 3, n])/3 + 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + 2*S2[3, n] - S2[-2, -1, n]) + 
   (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^3/6 + 
   S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) - 
   3*S2[-1, n]^2*S2[3, -1, n] + (5*S2[1, n]^2*S2[3, -1, n])/3 + 
   2*S2[-2, n]*S2[3, 1, n] + (34*S2[4, -2, n])/3 - S2[1, n]*S2[4, -1, n] + 
   S2[-1, n]*S2[4, 1, n] + (23*S2[5, -1, n])/6 + 
   (-S2[-6, n] - S2[-1, n]*S2[5, n] + S2[5, -1, n])/2 + 
   (8*S2[-4, -1, -1, n])/3 + 
   2*(S2[-6, n] + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
     S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - S2[-4, 2, n] - S2[5, -1, n] + 
     S2[-4, -1, -1, n]) - S2[-4, 1, 1, n] + 
   (S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
     (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
     S2[-4, 2, n] + S2[-4, 1, 1, n])/3 + (14*S2[-3, -2, -1, n])/3 - 
   (4*S2[-3, -1, -2, n])/3 + (8*S2[-3, 1, 2, n])/3 + 
   (2*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - 
      S2[-3, 1, 2, n] - S2[-3, 2, 1, n]))/3 + (2*S2[-3, 2, 1, n])/3 + 
   2*S2[-1, n]^2*S2[-2, 1, 1, n] + 2*(S2[-6, n] + S2[-2, n]*S2[4, n] + 
     S2[-4, 2, n] + S2[2, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - 
       S2[2, -2, n]) - S2[4, -2, n] - 2*S2[-2, 2, 2, n]) + 
   2*(-(S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-4, 2, n] + 
     S2[2, n]*S2[2, -2, n] + S2[4, -2, n] + S2[-2, 2, 2, n]) - 
   2*S2[-2, 3, 1, n] + S2[-2, n]*S2[-1, -2, 1, n] + 
   (S2[-3, n]*(8*S2[3, n] - 9*S2[-2, -1, n] - 3*S2[2, 1, n] - 
      3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/6 + 
   (S2[-3, n]*(-6*S2[-2, -1, n] - S2[2, 1, n] + 
      (3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
         S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
         S2[-1, 1, -1, n]))/2))/3 + 
   (S2[-3, n]*(-25*S2[3, n] - 3*S2[-2, -1, n] + 11*S2[2, 1, n] + 
      6*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/6 + S2[-2, 1, n]*(2*S2[-2, n]*S2[-1, n] + 
     S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
     S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) - 
   S2[2, -1, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
     S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
     S2[-1, 1, -1, n]) - S2[-2, -1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
      2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
     S2[1, 1, -1, n]) + S2[2, 1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
     S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
   (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
     S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n])*
    ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   S2[3, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 - S2[1, n]*S2[1, -1, n] + 
     S2[2, -1, n] + S2[1, 1, -1, n]) + 
   (S2[3, n]*(-S2[2, -1, n] - 3*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
        S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n])))/3 + 
   (S2[3, n]*(S2[-3, n] - 6*S2[-2, 1, n] + 2*S2[2, -1, n] + 
      6*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/6 + 
   (S2[2, n]*(-11*S2[-3, 1, n] + 9*S2[3, -1, n] - 3*S2[-2, 1, 1, n] + 
      3*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n])))/3 - 
   2*S2[-1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
     S2[1, 2, -1, n] - S2[2, 1, -1, n]) + S2[1, n]^2*S2[2, 1, -1, n] + 
   (S2[2, n]*(11*S2[-4, n] - 3*S2[-2, n]*S2[-1, n]^2 + 3*S2[-2, n]*S2[2, n] + 
      3*S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      3*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      12*S2[2, -2, n] + 10*S2[3, -1, n] - 6*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) + 18*S2[2, 1, -1, n]))/6 + 
   (S2[-2, n]*(-30*S2[4, n] + (3*(S2[2, n]^2 + S2[4, n]))/2 + 
      6*S2[-3, -1, n] - 3*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 - 
      6*S2[3, 1, n] - 6*S2[-2, 1, -1, n] - 18*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + (3*(S2[2, n]^2 + S2[4, n] + 
         2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/2 - 
      12*S2[2, 1, 1, n]))/6 - (16*S2[3, -1, 2, n])/3 + 
   S2[1, n]*S2[3, 1, -1, n] - (13*S2[3, 2, -1, n])/3 - 
   (28*S2[4, -1, 1, n])/3 - (13*S2[4, 1, -1, n])/3 - 
   (2*S2[-3, -1, -1, 1, n])/3 + S2[-3, -1, 1, -1, n]/3 - 
   (8*(S2[-4, -1, -1, n] + S2[-3, -2, -1, n] + S2[-3, -1, -2, n] + 
      S2[1, n]*S2[-3, -1, -1, n] - S2[-3, -1, -1, 1, n] - 
      S2[-3, -1, 1, -1, n] - S2[-3, 1, -1, -1, n]))/3 - 
   (2*S2[-3, 1, -1, -1, n])/3 + 2*S2[-3, 1, 1, 1, n] + 
   2*S2[-2, -1, -1, 2, n] + S2[-2, -1, 2, -1, n] + 
   3*(-S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, 1, n] + 
     S2[2, n]*S2[2, -2, n] - S2[-2, 1, n]*S2[2, 1, n] + 
     S2[-3, n]*(-S2[3, n] + S2[2, 1, n]) + S2[-3, 1, 2, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + S2[-2, 2, 2, n] - 
     S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) + 
     S2[3, 1, -2, n] - S2[-2, 1, 1, 2, n]) - 2*S2[-1, -2, -2, 1, n] - 
   S2[-1, -2, 1, -2, n] + (2*S2[-6, n] + S2[-2, n]^3 + 6*S2[-3, 3, n] - 
     3*S2[-2, n]^2*S2[1, -1, n] - 3*S2[4, n]*S2[1, -1, n] - 
     6*S2[-3, -2, -1, n] - 6*S2[-3, -1, -2, n] + 
     3*S2[-1, n]*(S2[-3, n]*S2[-2, n] + S2[-2, n]^2*S2[1, n] + 
       S2[1, n]*S2[4, n] + S2[5, n] + S2[-3, -2, n] - 
       S2[-2, n]*S2[-2, 1, n] - S2[4, 1, n] - S2[-2, 1, -2, n]) + 
     3*S2[-2, n]*(S2[4, n] + 2*S2[-2, 1, -1, n]) + 6*S2[4, 1, -1, n] - 
     6*S2[-1, 1, -2, -2, n])/6 + 
   6*(-S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - 
     (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - S2[-5, 1, n] - 
     S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
     S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + (S2[-2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 - S2[4, -2, n] + S2[5, -1, n] + 
     S2[-3, -1, -2, n] - S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
     S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
     S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n]) - 
   3*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
     S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
        2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
          S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n]) - 
   3*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
     S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
     S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
     2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]) - 
   4*(-S2[-6, n] + S2[-4, n]*S2[2, n] - S2[-1, n]*S2[1, n]*S2[2, n]^2 - 
     2*S2[-3, n]*S2[3, n] - S2[-1, n]*S2[2, n]*S2[3, n] - 
     S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] - S2[-4, 2, n] - 
     S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + 
     S2[4, n]*S2[1, -1, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
     S2[3, n]*S2[2, -1, n] + S2[-3, n]*S2[2, 1, n] + 
     S2[-1, n]*S2[2, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] + 
     S2[2, n]*S2[3, -1, n] - S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + 
     S2[5, -1, n] - 2*S2[-2, 2, 2, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
     S2[4, 1, -1, n] + 2*S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n]) - 
   2*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 
      (-S2[2, n]^2 - S2[4, n])/2 + S2[4, n] + 4*S2[-3, -1, n] - 
      6*S2[3, 1, n] + 2*S2[-2, 1, -1, n] + 2*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + 4*S2[-1, -2, 1, n] + 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + (-S2[2, n]^2 - S2[4, n] - 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n]))/2 - 
      2*S2[-1, 2, -1, n] - 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
        S2[2, -1, n] - 2*S2[1, 1, -1, n]) + 2*S2[2, 1, 1, n] - 
      4*S2[1, 1, -1, -1, n]))/2 + 2*(S2[-6, n] + S2[-4, n]*S2[2, n] + 
     S2[-2, n]*S2[2, n]^2 + S2[-3, n]*S2[3, n] + S2[-5, 1, n] + 
     S2[2, n]*S2[-3, 1, n] - S2[3, n]*S2[-2, 1, n] - S2[2, n]*S2[2, -2, n] + 
     S2[-2, 1, n]*S2[2, 1, n] + S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - 
     S2[-3, 1, 2, n] - S2[-3, 2, 1, n] - S2[2, n]*S2[-2, 1, 1, n] - 
     S2[-2, 2, 2, n] - S2[3, 1, -2, n] + S2[-2, 1, 1, 2, n] - 
     S2[-2, 2, 1, 1, n] - S2[2, -2, 1, 1, n]) + 4*S2[2, -2, 1, 1, n] + 
   (S2[1, n]*(-25*S2[-5, n] - 5*S2[-1, n]*S2[4, n] - 
      2*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) + 20*S2[3, -2, n] + 
      26*S2[4, -1, n] + 16*S2[-3, -1, -1, n] + 
      12*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) + 
      12*S2[2, 1, -2, n] - 20*S2[3, -1, 1, n] - 14*S2[3, 1, -1, n] - 
      12*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n]))/6 - 
   2*S2[3, -1, -1, -1, n] + 2*S2[3, -1, 1, 1, n] + 
   (2*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
      S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - S2[-2, 3, 1, n] + 
      S2[-1, n]*S2[3, 1, 1, n] - S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n] - 
      S2[3, 1, 1, -1, n]))/3 - S2[3, 1, 1, -1, n] - 
   (10*(-S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + 
      (S2[2, n]*S2[3, -1, n])/2 - S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + 
      S2[5, -1, n] + S2[-2, 3, 1, n] - S2[3, -1, 2, n] + 
      S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
        S2[3, 1, -1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
      S2[4, 1, -1, n] + S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
      S2[3, 1, 1, -1, n]))/3 + 2*S2[-2, -1, -1, 1, 1, n] + 
   2*S2[-2, -1, 1, -1, 1, n] + 3*S2[-2, -1, 1, 1, -1, n] + 
   2*S2[-2, 1, -1, 1, -1, n] + 2*S2[-2, 1, 1, -1, -1, n] + 
   (S2[-1, n]*(36*S2[-3, n]*S2[-2, n] - 30*S2[2, n]*S2[3, n] + 10*S2[5, n] - 
      12*S2[-4, -1, n] - 12*S2[-3, -2, n] + 18*S2[2, n]*S2[-2, -1, n] + 
      12*S2[-2, n]*S2[-2, 1, n] - 12*S2[-2, n]*S2[2, -1, n] - 
      18*S2[2, n]*S2[2, 1, n] + 12*S2[3, 2, n] + 
      5*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) + 29*S2[4, 1, n] - 
      36*S2[-3, -1, 1, n] - 24*S2[-3, 1, -1, n] - 12*S2[-2, -1, 2, n] - 
      3*(S2[-3, n]*S2[-2, n] + S2[5, n] - S2[-3, -2, n] + 
        S2[-2, n]*S2[-2, 1, n] + S2[4, 1, n] - S2[-2, 1, -2, n]) - 
      6*S2[-2, 2, -1, n] + 6*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) + 
      6*S2[-2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      6*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      12*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n] - 2*S2[2, 2, 1, n]) + 12*S2[2, 2, 1, n] + 
      24*S2[3, -1, -1, n] + 32*S2[3, 1, 1, n] - 36*S2[-2, -1, 1, 1, n] - 
      24*S2[-2, 1, -1, 1, n] - 18*S2[-2, 1, 1, -1, n] + 
      24*S2[2, -1, -1, 1, n] + 18*S2[2, -1, 1, -1, n] + 
      36*S2[2, 1, 1, 1, n] - 36*S2[-1, -1, 1, 1, 1, n] - 
      18*S2[-1, 1, -1, 1, 1, n]))/6 - 2*S2[2, -1, -1, 1, -1, n] - 
   2*S2[2, -1, 1, -1, -1, n] - 
   2*(2*S2[-6, n] + (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 + S2[-3, n]*S2[3, n] + 
     S2[-1, n]*S2[2, n]*S2[3, n] + (S2[-1, n]*S2[1, n]*S2[4, n])/2 + 
     S2[-1, n]*S2[5, n] - S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] - 
     2*S2[-3, 3, n] + S2[3, n]*S2[-2, 1, n] - (S2[2, n]^2*S2[1, -1, n])/2 - 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] - 
     S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] + 
     S2[-3, n]*S2[2, 1, n] - S2[-2, 1, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] + 2*S2[-3, 1, 2, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + 2*S2[-2, 2, 2, n] + 
     S2[2, n]*S2[1, 2, -1, n] + S2[2, n]*S2[2, 1, -1, n] - 
     S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) - 
     S2[-1, n]*S2[2, 2, 1, n] - 2*S2[3, -1, 2, n] + S2[3, 1, -2, n] - 
     S2[3, 2, -1, n] + S2[4, 1, -1, n] - S2[-2, 1, 1, 2, n] - 
     S2[-1, 1, 2, 2, n] - S2[-1, 2, 1, 2, n] + S2[1, n]*S2[2, 1, 1, -1, n] + 
     S2[3, 1, 1, -1, n] - S2[2, 1, 1, -1, 1, n] - 3*S2[2, 1, 1, 1, -1, n]) - 
   3*S2[2, 1, 1, 1, -1, n] - 2*(-S2[-6, n] - S2[-4, n]*S2[2, n] + 
     S2[-2, n]*S2[2, n]^2 + S2[-3, n]*S2[3, n] - S2[-5, 1, n] + 
     2*S2[-4, 2, n] + S2[2, n]*S2[-3, 1, n] - S2[1, n]*S2[-3, 2, n] - 
     S2[3, n]*S2[-2, 1, n] - (S2[2, n]^2*S2[1, -1, n])/2 - 
     (S2[4, n]*S2[1, -1, n])/2 - S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] - 2*S2[-3, n]*S2[2, 1, n] - 
     S2[-1, n]*S2[2, n]*S2[2, 1, n] + S2[-2, 1, n]*S2[2, 1, n] - 
     S2[2, -1, n]*S2[2, 1, n] - S2[2, n]*S2[3, -1, n] + 
     S2[-2, n]*S2[3, 1, n] + S2[-1, n]*S2[3, 2, n] + S2[4, -2, n] + 
     S2[1, n]*S2[4, -1, n] - S2[-1, n]*S2[4, 1, n] - S2[5, -1, n] - 
     S2[-4, 1, 1, n] - S2[-3, 1, 2, n] + 2*S2[-3, 2, 1, n] - 
     S2[2, n]*S2[-2, 1, 1, n] + S2[1, n]*S2[-1, 2, 2, n] + 
     S2[1, n]*S2[2, 1, -2, n] + (S2[1, n]^2*S2[2, 1, -1, n])/2 + 
     (S2[2, n]*S2[2, 1, -1, n])/2 - 2*S2[-2, n]*S2[2, 1, 1, n] + 
     2*S2[-1, n]*S2[2, 2, 1, n] + S2[1, n]*S2[3, 1, -1, n] + 
     S2[3, 2, -1, n] - S2[4, -1, 1, n] + S2[-2, 1, 1, 2, n] + 
     S2[-2, 2, 1, 1, n] - S2[-1, 1, 2, 2, n] - S2[-1, 2, 2, 1, n] + 
     S2[2, -2, 1, 1, n] - S2[1, n]*S2[2, 1, -1, 1, n] - 
     2*S2[1, n]*S2[2, 1, 1, -1, n] - S2[3, 1, -1, 1, n] - 
     2*S2[3, 1, 1, -1, n] + S2[2, 1, -1, 1, 1, n] + 2*S2[2, 1, 1, -1, 1, n] + 
     3*S2[2, 1, 1, 1, -1, n]) - 6*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] -> -(S2[1, n]^3*S2[3, n])/2 - 3*S2[3, n]^2 + 
   (S2[2, n]*(-S2[1, n]^4 - S2[2, n]^2 - 16*S2[4, n]))/8 + 
   (3*S2[-1, n]^2*S2[4, n])/4 - S2[1, n]^2*S2[4, n] - 3*S2[2, n]*S2[4, n] - 
   (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 - (5*S2[6, n])/2 + 
   (7*(S2[-3, n]^2 + S2[6, n]))/4 + 
   (11*(S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n]))/12 - 
   (7*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]))/2 - 4*S2[-5, -1, n] - 
   (3*S2[-4, -2, n])/2 + (3*S2[1, n]^2*S2[-3, -1, n])/2 + 
   S2[-4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
   S2[-2, 1, n]*S2[2, -1, n] + (S2[1, n]^3*S2[2, 1, n])/2 + 
   (S2[3, n]*(-5*S2[3, n] + 2*S2[-2, -1, n] + 2*S2[2, 1, n]))/2 + 
   (S2[-2, n]*(18*S2[-4, n] - 6*(S2[-4, n] + S2[-3, n]*S2[1, n] - 
        S2[-3, 1, n]) - 2*S2[-3, 1, n] + 4*(S2[-4, n] + S2[-2, n]*S2[2, n] - 
        S2[2, -2, n]) - 4*S2[3, -1, n]))/4 - 
   3*S2[1, n]^2*(S2[4, n] - S2[3, 1, n]) - (3*S2[1, n]^2*S2[3, 1, n])/2 - 
   3*S2[2, n]*S2[3, 1, n] + 6*S2[4, 2, n] - 
   (17*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]))/4 + (7*S2[5, 1, n])/4 - 
   (5*S2[-4, -1, 1, n])/2 + (5*(S2[-5, -1, n] + S2[-4, -2, n] + 
      S2[1, n]*S2[-4, -1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n]))/2 - 
   (3*S2[-4, 1, -1, n])/2 - 4*S2[-3, -2, 1, n] - 4*S2[-3, -1, 2, n] - 
   3*S2[-3, 1, -2, n] - S2[1, n]*S2[-3, 1, -1, n] - 4*S2[-3, 2, -1, n] + 
   (S2[-3, n]*(-(S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 2*S2[-2, 1, n] + 
      S2[1, n]*S2[1, -1, n] - 2*S2[2, -1, n] - S2[1, 1, -1, n]))/2 + 
   (S2[-3, n]*(-7*S2[-3, n] + 4*S2[-2, 1, n] - 4*S2[2, -1, n] - 
      2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/4 + 
   (S2[-3, n]*(7*S2[-3, n] - 2*S2[-2, 1, n] + 6*S2[2, -1, n] + 
      4*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/4 + 
   (10*S2[-3, n]^2 + 2*S2[-1, n]^2*S2[2, n]^2 + 4*S2[-2, 1, n]^2 + 
     4*S2[2, -1, n]^2 + 4*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
        S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n])^2)/8 + (S2[-2, n] + S2[-1, n]*S2[1, n] - 
     S2[1, -1, n])*(S2[-3, 1, n] - S2[2, -2, n] - S2[1, n]*S2[2, -1, n] - 
     2*S2[3, -1, n] + S2[-2, 1, 1, n] + S2[1, 2, -1, n] + S2[2, 1, -1, n]) + 
   (S2[2, n]*(-2*S2[-2, n]^2 - 3*S2[1, n]^2*S2[2, n] - 8*S2[4, n] - 
      2*(S2[2, n]^2 + S2[4, n]) + 10*S2[-3, -1, n] + 
      2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 - 10*S2[3, 1, n] + 
      4*S2[-2, 1, -1, n] + 4*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) - 10*S2[2, 1, 1, n]))/4 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + 6*S2[2, 3, 1, n] + 
   (S2[-1, n]*(36*S2[-5, n] + 8*S2[-4, 1, n] + 8*S2[-3, 2, n] + 
      8*S2[3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      8*S2[2, n]*S2[2, -1, n] - 16*S2[4, -1, n] + 8*S2[-3, 1, 1, n] + 
      8*S2[-2, 2, 1, n] + 8*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - 
        S2[-3, 2, n] + S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + 
        S2[-1, 2, 2, n]) + 8*(-(S2[-3, n]*S2[2, n]) + S2[-3, 2, n] + 
        S2[2, n]*S2[-2, 1, n] + S2[-2, n]*(S2[3, n] - S2[2, 1, n]) - 
        S2[3, -2, n] + S2[2, 1, -2, n]) - 8*S2[3, -1, 1, n]))/8 - 
   3*S2[1, n]*(S2[2, n]*S2[3, n] + 2*(S2[5, n] - S2[3, 2, n] - S2[4, 1, n] + 
       S2[3, 1, 1, n])) + 4*(S2[3, n]^2 + S2[6, n] + 
     2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - S2[2, 3, 1, n] - 
       S2[3, 2, 1, n])) + 7*S2[3, 2, 1, n] + 2*S2[4, -1, -1, n] - 
   7*S2[4, 1, 1, n] + 6*((S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + 
     S2[6, n] + S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - 
     S2[5, 1, n] + S2[4, 1, 1, n]) + S2[-3, 1, -1, 1, n] + 
   2*S2[-3, 1, 1, -1, n] - 3*(S2[-3, n]^2/2 + S2[6, n]/2 + S2[-5, -1, n] + 
     S2[-4, -2, n] + S2[1, n]*S2[-4, -1, n] + S2[1, n]*S2[-3, -2, n] + 
     (S2[1, n]^2*S2[-3, -1, n])/2 + (S2[2, n]*S2[-3, -1, n])/2 - 
     S2[-4, -1, 1, n] - S2[-4, 1, -1, n] - S2[-3, -2, 1, n] - 
     S2[1, n]*S2[-3, -1, 1, n] - S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - 
     S2[1, n]*S2[-3, 1, -1, n] - S2[-3, 2, -1, n] + S2[-3, -1, 1, 1, n] + 
     S2[-3, 1, -1, 1, n] + S2[-3, 1, 1, -1, n]) - S2[-2, -1, 1, 2, n] - 
   S2[-2, -1, 2, 1, n] - S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n] - 
   S2[-2, 2, -1, 1, n] - S2[-2, 2, 1, -1, n] + 
   (S2[1, n]*(6*S2[-3, n]*S2[-2, n] - 2*S2[2, n]*S2[3, n] + 3*S2[5, n] + 
      2*S2[-4, -1, n] + 12*S2[-3, -2, n] + 6*S2[2, n]*S2[2, 1, n] - 
      24*S2[3, 2, n] - 2*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) + 
      10*S2[4, 1, n] - 12*S2[-3, -1, 1, n] - 8*S2[-3, 1, -1, n] + 
      4*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n] - 2*S2[2, 2, 1, n]) + 4*S2[2, 2, 1, n] + 
      12*S2[3, 1, 1, n] + 12*S2[2, 1, 1, 1, n]))/4 - S2[2, 2, -1, -1, n] + 
   4*(-S2[2, n]^3/12 + (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + S2[6, n]/3 - 
     S2[5, 1, n] + S2[2, n]*(S2[4, n]/4 - S2[3, 1, n] + S2[2, 1, 1, n]) + 
     S2[1, n]*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
       S2[2, 2, 1, n]) + S2[2, 3, 1, n] + S2[4, 1, 1, n] - 
     S2[2, 2, 1, 1, n]) + 2*S2[3, -1, -1, 1, n] + S2[3, -1, 1, -1, n] + 
   6*S2[3, 1, 1, 1, n] - 3*S2[-2, -1, 1, 1, 1, n] - 
   2*S2[-2, 1, -1, 1, 1, n] - S2[-2, 1, 1, -1, 1, n] + 
   2*S2[2, -1, -1, 1, 1, n] + S2[2, -1, 1, -1, 1, n] + 
   (S2[1, n]^4*S2[2, n] + S2[2, n]^3 + 4*S2[1, n]^3*
      (S2[3, n] - S2[2, 1, n]) + 12*S2[2, n]*(S2[3, 1, n] - S2[2, 1, 1, n]) + 
     6*S2[1, n]^2*(S2[4, n] - 2*S2[3, 1, n] + 2*S2[2, 1, 1, n]) + 
     4*S2[1, n]*(S2[2, n]*(5*S2[3, n] + 3*S2[2, 1, n]) + 
       6*(S2[5, n] - S2[3, 2, n] - S2[2, 2, 1, n] + S2[3, 1, 1, n] - 
         S2[2, 1, 1, 1, n])) + 8*(S2[3, n]^2 + S2[6, n] - 
       S2[3, n]*S2[2, 1, n] - 3*S2[2, 3, 1, n] + 3*S2[2, 2, 1, 1, n] - 
       3*S2[3, 1, 1, 1, n] + 3*S2[2, 1, 1, 1, 1, n]))/8 - 
   6*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] -> (53*S2[-6, n])/12 - S2[-2, n]^3/6 - 
   S2[-4, n]*S2[-1, n]^2 - (S2[-4, n]*S2[1, n]^2)/6 - 2*S2[-4, n]*S2[2, n] + 
   2*S2[-3, n]*S2[3, n] + (-S2[-3, n] - S2[-1, n]^3)*S2[3, n] + 
   S2[-1, n]*S2[2, n]*S2[3, n] - S2[-2, n]*S2[4, n] - 
   (17*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/6 - 
   (9*S2[-5, 1, n])/2 + S2[-4, 2, n]/3 + S2[-1, n]*S2[-3, -2, n] - 
   2*S2[-1, n]^2*S2[-3, 1, n] - S2[2, n]*S2[-3, 1, n] - 
   S2[1, n]*S2[-3, 2, n] - (5*(S2[-6, n] + S2[-3, n]*S2[3, n] - 
      S2[-3, 3, n]))/2 - 2*S2[-3, 3, n] - 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + 2*S2[3, n] - S2[-2, -1, n]) + 
   S2[3, n]*S2[-2, 1, n] + (S2[4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
      S2[1, -1, n]))/2 - S2[2, n]^2*S2[1, -1, n] - S2[4, n]*S2[1, -1, n] - 
   (S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]))/2 - 
   S2[2, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 
   S2[2, n]*S2[2, -2, n] - 2*S2[3, n]*S2[2, -1, n] - S2[-3, n]*S2[2, 1, n] - 
   S2[-2, 1, n]*S2[2, 1, n] + S2[2, -1, n]*S2[2, 1, n] + 
   2*S2[-1, n]^2*S2[3, -1, n] - (3*S2[1, n]^2*S2[3, -1, n])/4 - 
   S2[-2, n]*S2[3, 1, n] - (11*S2[4, -2, n])/2 + S2[1, n]*S2[4, -1, n] - 
   S2[-1, n]*S2[4, 1, n] + (3*(S2[-6, n] + S2[-1, n]*S2[5, n] - 
      S2[5, -1, n]))/4 - (7*S2[5, -1, n])/4 - 
   2*(S2[-6, n] + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
     S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - S2[-4, 2, n] - S2[5, -1, n] + 
     S2[-4, -1, -1, n]) - (7*S2[-4, 1, 1, n])/3 + 
   (S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
     (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
     S2[-4, 2, n] + S2[-4, 1, 1, n])/3 - 2*S2[-3, -2, -1, n] + 
   2*S2[-3, -1, -2, n] + S2[1, n]*S2[-3, -1, -1, n] + S2[-3, 1, 2, n] + 
   2*S2[-3, 2, 1, n] - (3*S2[-1, n]^2*S2[-2, 1, 1, n])/2 + 
   S2[2, n]*S2[-2, 1, 1, n] + 5*S2[-2, 2, 2, n] + S2[-2, 3, 1, n] - 
   S2[-2, n]*S2[-1, -2, 1, n] + 
   (S2[-3, n]*(19*S2[3, n] + 6*S2[-2, -1, n] - 6*S2[2, 1, n] - 
      6*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/12 + 
   (S2[-3, n]*(-2*S2[3, n] + 6*S2[-2, -1, n] + 3*S2[2, 1, n] + 
      (3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
         S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
         S2[-1, 1, -1, n]))/2))/6 - 
   (S2[-2, 1, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/2 + (S2[2, -1, n]*(2*S2[-2, n]*S2[-1, n] + 
      S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
      S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]))/2 + 
   (S2[-3, n]*(S2[-2, -1, n] + (-2*S2[-2, n]*S2[-1, n] - 
        S2[-1, n]^2*S2[1, n] - S2[3, n] + S2[-2, -1, n] + 
        S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] + S2[-1, 1, -1, n])/2))/2 + 
   S2[1, n]*S2[-1, 2, 2, n] + S2[3, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
      2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
     S2[1, 1, -1, n]) + S2[-2, -1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
      2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
     S2[1, 1, -1, n]) - S2[2, 1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
     S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   ((2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n])*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
      S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]))/
    2 + (S2[3, n]*(3*S2[-3, n] + 4*S2[-2, 1, n] - 
      4*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/4 + 
   S2[2, n]*S2[1, 2, -1, n] + S2[1, n]*S2[2, 1, -2, n] + 
   (S2[2, n]*(-14*S2[-4, n] - 6*S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) - 6*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) + 12*S2[2, -2, n] - 9*S2[3, -1, n] + 
      6*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
        S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]) - 
      18*S2[2, 1, -1, n]))/12 + 
   (3*S2[-1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
      S2[1, 2, -1, n] - S2[2, 1, -1, n]))/2 + (3*S2[2, n]*S2[2, 1, -1, n])/
    2 - S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) - 
   2*S2[-2, n]*S2[2, 1, 1, n] + 
   (S2[-2, n]*(30*S2[4, n] - 12*S2[-3, -1, n] + 12*S2[3, 1, n] + 
      12*S2[-2, 1, -1, n] + 24*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) - 3*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) + 
      12*S2[2, 1, 1, n]))/12 - S2[-1, n]*S2[2, 2, 1, n] + 
   (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
      2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
        S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n]/2 - 
   (3*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
      S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - S2[3, 1, -2, n]))/2 + 
   2*S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + 2*S2[3, 2, -1, n] + 
   (11*S2[4, -1, 1, n])/2 + 6*S2[4, 1, -1, n] - S2[-3, -1, -1, 1, n] - 
   S2[-3, -1, 1, -1, n] - S2[-3, 1, 1, 1, n] - S2[-2, -1, -1, 2, n] - 
   2*(-S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, 1, n] + 
     S2[2, n]*S2[2, -2, n] - S2[-2, 1, n]*S2[2, 1, n] + 
     S2[-3, n]*(-S2[3, n] + S2[2, 1, n]) + S2[-3, 1, 2, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + S2[-2, 2, 2, n] - 
     S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) + 
     S2[3, 1, -2, n] - S2[-2, 1, 1, 2, n]) - S2[-2, 1, 1, 2, n] + 
   S2[-2, 2, -1, -1, n] + 2*S2[-2, 2, 1, 1, n] + 2*S2[-1, -2, -2, 1, n] + 
   S2[-1, -2, 1, -2, n] - 4*(-S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/
      2 - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - 
     S2[-5, 1, n] - S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - 
       S2[-2, -1, n]) + S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + 
     (S2[-2, n]^2*S2[1, -1, n])/2 + (S2[4, n]*S2[1, -1, n])/2 - 
     S2[4, -2, n] + S2[5, -1, n] + S2[-3, -1, -2, n] - 
     S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
     S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
     S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n]) + 
   (-2*S2[-6, n] - S2[-2, n]^3 - 6*S2[-3, 3, n] + 
     3*S2[-2, n]^2*S2[1, -1, n] + 3*S2[4, n]*S2[1, -1, n] + 
     6*S2[-3, -2, -1, n] + 6*S2[-3, -1, -2, n] - 
     3*S2[-1, n]*(S2[-3, n]*S2[-2, n] + S2[-2, n]^2*S2[1, n] + 
       S2[1, n]*S2[4, n] + S2[5, n] + S2[-3, -2, n] - 
       S2[-2, n]*S2[-2, 1, n] - S2[4, 1, n] - S2[-2, 1, -2, n]) - 
     3*S2[-2, n]*(S2[4, n] + 2*S2[-2, 1, -1, n]) - 6*S2[4, 1, -1, n] + 
     6*S2[-1, 1, -2, -2, n])/6 - 2*S2[-1, 1, 2, 2, n] - S2[-1, 2, 1, 2, n] + 
   2*(-S2[-6, n] + S2[-4, n]*S2[2, n] - S2[-1, n]*S2[1, n]*S2[2, n]^2 - 
     2*S2[-3, n]*S2[3, n] - S2[-1, n]*S2[2, n]*S2[3, n] - 
     S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] - S2[-4, 2, n] - 
     S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + 
     S2[4, n]*S2[1, -1, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
     S2[3, n]*S2[2, -1, n] + S2[-3, n]*S2[2, 1, n] + 
     S2[-1, n]*S2[2, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] + 
     S2[2, n]*S2[3, -1, n] - S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + 
     S2[5, -1, n] - 2*S2[-2, 2, 2, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
     S2[4, 1, -1, n] + 2*S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n]) + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (S2[-2, n]^2 - 2*S2[-2, 1, -1, n] - 2*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + (S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n]))/2 + 
      2*S2[2, 1, 1, n] + (-(S2[1, n]^2*S2[2, n]) - 
        S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) - S2[4, n] - 2*S2[-3, -1, n] + 
        4*S2[3, 1, n] - 4*S2[-1, -2, 1, n] - 2*S2[1, n]*
         (S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - S2[-1, 1, -1, n]) + 
        2*S2[-1, 2, -1, n] + 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
          S2[2, -1, n] - 2*S2[1, 1, -1, n]) - 4*S2[2, 1, 1, n] + 
        4*S2[1, 1, -1, -1, n])/2))/2 + 
   (S2[-1, n]^2*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/12 + 
   (S2[2, n]*(12*S2[-4, n] + S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 
        2*S2[3, n]) + 12*S2[-3, 1, n] - 6*(S2[-4, n] + S2[-2, n]*S2[2, n] - 
        S2[2, -2, n]) - 12*S2[3, -1, n] + 6*S2[-2, 1, 1, n] - 
      6*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/12 - 
   S2[1, n]*S2[2, 1, -1, 1, n] - S2[1, n]*S2[2, 1, 1, -1, n] + 
   (S2[1, n]*(30*S2[-5, n] + 6*S2[-1, n]*S2[4, n] + 4*S2[-4, 1, n] - 
      18*S2[3, -2, n] - 18*S2[4, -1, n] - 12*S2[-3, -1, -1, n] - 
      12*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) - 
      12*S2[2, 1, -2, n] + 18*S2[3, -1, 1, n] + 12*S2[3, 1, -1, n] + 
      12*S2[2, 1, -1, 1, n] + 12*S2[2, 1, 1, -1, n]))/12 - 
   S2[3, -1, 1, 1, n]/2 - S2[3, 1, -1, 1, n] - (3*S2[3, 1, 1, -1, n])/2 + 
   (3*(-S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + 
      (S2[2, n]*S2[3, -1, n])/2 - S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + 
      S2[5, -1, n] + S2[-2, 3, 1, n] - S2[3, -1, 2, n] + 
      S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
        S2[3, 1, -1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
      S2[4, 1, -1, n] + S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
      S2[3, 1, 1, -1, n]))/2 + (-S2[3, 1, -2, n] - S2[1, n]*S2[3, 1, -1, n] - 
     S2[3, 2, -1, n] - S2[4, 1, -1, n] + S2[3, 1, -1, 1, n] + 
     2*S2[3, 1, 1, -1, n])/2 - S2[-2, -1, -1, 1, 1, n] - 
   S2[-2, -1, 1, -1, 1, n] - 2*S2[-2, -1, 1, 1, -1, n] - 
   S2[-2, 1, -1, 1, -1, n] - S2[-2, 1, 1, -1, -1, n] + 
   (S2[-1, n]*(-48*S2[-3, n]*S2[-2, n] + 36*S2[2, n]*S2[3, n] - 3*S2[5, n] + 
      12*S2[-4, -1, n] + 24*S2[-3, -2, n] - 24*S2[2, n]*S2[-2, -1, n] - 
      24*S2[-2, n]*S2[-2, 1, n] + 24*S2[-2, n]*S2[2, -1, n] + 
      24*S2[2, n]*S2[2, 1, n] - 24*S2[3, 2, n] - 
      6*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) - 42*S2[4, 1, n] + 
      36*S2[-3, -1, 1, n] + 24*S2[-3, 1, -1, n] + 12*S2[-2, -1, 2, n] + 
      6*(S2[-3, n]*S2[-2, n] + S2[5, n] - S2[-3, -2, n] + 
        S2[-2, n]*S2[-2, 1, n] + S2[4, 1, n] - S2[-2, 1, -2, n]) - 
      6*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 12*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n])*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
      12*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n] - 2*S2[2, 2, 1, n]) - 12*S2[2, 2, 1, n] - 
      24*S2[3, -1, -1, n] - 36*S2[3, 1, 1, n] + 48*S2[-2, -1, 1, 1, n] + 
      36*S2[-2, 1, -1, 1, n] + 24*S2[-2, 1, 1, -1, n] - 
      36*S2[2, -1, -1, 1, n] - 24*S2[2, -1, 1, -1, n] - 
      48*S2[2, 1, 1, 1, n] + 48*S2[-1, -1, 1, 1, 1, n] + 
      24*S2[-1, 1, -1, 1, 1, n]))/12 + S2[2, -1, -1, 1, -1, n] + 
   S2[2, -1, 1, -1, -1, n] + S2[2, 1, -1, 1, 1, n] + S2[2, 1, 1, -1, 1, n] + 
   2*S2[2, 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] -> -(S2[1, n]^3*S2[3, n])/3 + S2[3, n]^2 - 
   (S2[-1, n]^2*S2[4, n])/2 + S2[1, n]^2*S2[4, n] + 
   (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + 
   (S2[2, n]*(S2[1, n]^4 - 3*S2[2, n]^2 + 24*S2[4, n]))/12 - (9*S2[6, n])/2 - 
   (11*(S2[-3, n]^2 + S2[6, n]))/6 - 
   (5*(S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n]))/6 + 
   5*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]) + 4*S2[-5, -1, n] + 
   3*S2[-4, -2, n] - S2[1, n]^2*S2[-3, -1, n] - 
   S2[-4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
   (S2[-3, n]*(-5*S2[-3, n] - 5*S2[-2, 1, n] - 7*S2[2, -1, n]))/6 + 
   (S2[-3, n]*(12*S2[-3, n] - S2[-2, 1, n] + S2[2, -1, n]))/6 + 
   (S2[3, n]*(4*S2[3, n] - 3*S2[-2, -1, n] - 2*S2[2, 1, n]))/3 - 
   (S2[1, n]^3*S2[2, 1, n])/3 + S2[1, n]^2*S2[3, 1, n] + 
   (7*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]))/3 - (5*S2[5, 1, n])/3 + 
   S2[-4, -1, 1, n] - 2*(S2[-5, -1, n] + S2[-4, -2, n] + 
     S2[1, n]*S2[-4, -1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n]) + 
   3*S2[-3, -2, 1, n] + 3*S2[-3, -1, 2, n] + S2[-3, 1, -2, n] + 
   3*S2[-3, 2, -1, n] + S2[2, -1, n]*(-(S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
      2 + S2[-2, 1, n] + S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
     S2[1, 1, -1, n]) + S2[-2, 1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
     S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   S2[-3, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 - S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] + S2[2, -1, n] + S2[1, 1, -1, n]) + 
   (-16*S2[-3, n]^2 - 6*S2[-1, n]^2*S2[2, n]^2 - 12*S2[-2, 1, n]^2 - 
     12*S2[2, -1, n]^2 - 12*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
        S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n])^2)/12 + 
   (S2[-2, n]*(-22*S2[-4, n] + 4*(S2[-4, n] + S2[-3, n]*S2[1, n] - 
        S2[-3, 1, n]) + 4*S2[-3, 1, n] - 12*(S2[-4, n] + S2[-2, n]*S2[2, n] - 
        S2[2, -2, n]) + 6*S2[-2, 1, 1, n] - 
      6*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n])))/6 + S2[1, n]^2*S2[2, 1, 1, n] + 
   (S2[2, n]*(6*S2[-2, n]^2 + 3*S2[1, n]^2*S2[2, n] + 6*S2[4, n] + 
      (9*(S2[2, n]^2 + S2[4, n]))/2 - 12*S2[-3, -1, n] - 
      6*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 + 12*S2[3, 1, n] - 
      12*S2[-2, 1, -1, n] - 6*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + 12*S2[2, 1, 1, n]))/6 + S2[3, -2, -1, n] + 
   S2[3, -1, -2, n] - 3*(S2[3, n]^2 + S2[6, n] + 
     2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - S2[2, 3, 1, n] - 
       S2[3, 2, 1, n])) - 5*S2[3, 2, 1, n] - 2*S2[4, -1, -1, n] + 
   S2[4, 1, 1, n] - 4*((S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + 
     S2[6, n] + S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - 
     S2[5, 1, n] + S2[4, 1, 1, n]) - S2[-3, 1, 1, -1, n] + 
   2*(S2[-3, n]^2/2 + S2[6, n]/2 + S2[-5, -1, n] + S2[-4, -2, n] + 
     S2[1, n]*S2[-4, -1, n] + S2[1, n]*S2[-3, -2, n] + 
     (S2[1, n]^2*S2[-3, -1, n])/2 + (S2[2, n]*S2[-3, -1, n])/2 - 
     S2[-4, -1, 1, n] - S2[-4, 1, -1, n] - S2[-3, -2, 1, n] - 
     S2[1, n]*S2[-3, -1, 1, n] - S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - 
     S2[1, n]*S2[-3, 1, -1, n] - S2[-3, 2, -1, n] + S2[-3, -1, 1, 1, n] + 
     S2[-3, 1, -1, 1, n] + S2[-3, 1, 1, -1, n]) + S2[-2, -1, 1, 2, n] + 
   S2[-2, -1, 2, 1, n] + 2*S2[-2, 1, -1, 2, n] + 2*S2[-2, 1, 2, -1, n] + 
   S2[-2, 2, -1, 1, n] + 2*S2[-2, 2, 1, -1, n] + 
   (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
    (S2[-4, n] + S2[-2, n]*S2[2, n] - S2[-3, 1, n] - S2[2, -2, n] + 
     S2[3, -1, n] - 2*S2[-2, 1, 1, n] + 
     2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
       S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 
     (S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
       3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
         2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
         2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
           S2[2, 1, -1, n] + S2[1, 1, 1, -1, n])))/6) + 
   (S2[-1, n]*(-48*S2[-5, n] + 12*S2[-2, n]*S2[3, n] - 12*S2[-3, 2, n] - 
      12*S2[3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      24*S2[2, n]*S2[2, -1, n] - 12*S2[3, -2, n] + 24*S2[4, -1, n] - 
      12*S2[-3, 1, 1, n] - 24*S2[-2, 2, 1, n] - 
      24*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) + 
      12*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
      24*(-(S2[-3, n]*S2[2, n]) + S2[-3, 2, n] + S2[2, n]*S2[-2, 1, n] + 
        S2[-2, n]*(S2[3, n] - S2[2, 1, n]) - S2[3, -2, n] + 
        S2[2, 1, -2, n]) + 12*S2[3, -1, 1, n] + 12*S2[-2, 1, 1, 1, n] - 
      12*S2[2, -1, 1, 1, n]))/12 + 
   (S2[1, n]*(-4*S2[-3, n]*S2[-2, n] + 4*S2[2, n]*S2[3, n] + 4*S2[5, n] - 
      12*S2[-3, -2, n] - 6*S2[2, n]*S2[2, 1, n] + 24*S2[3, 2, n] - 
      12*S2[4, 1, n] + 12*S2[-3, -1, 1, n] + 12*S2[-3, 1, -1, n] - 
      6*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n] - 2*S2[2, 2, 1, n]) - 6*S2[2, 2, 1, n] - 
      12*S2[3, 1, 1, n] - 12*S2[2, 1, 1, 1, n]))/6 + 2*S2[2, 2, -1, -1, n] - 
   3*(-S2[2, n]^3/12 + (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + S2[6, n]/3 - 
     S2[5, 1, n] + S2[2, n]*(S2[4, n]/4 - S2[3, 1, n] + S2[2, 1, 1, n]) + 
     S2[1, n]*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
       S2[2, 2, 1, n]) + S2[2, 3, 1, n] + S2[4, 1, 1, n] - 
     S2[2, 2, 1, 1, n]) - 2*S2[3, -1, -1, 1, n] - S2[3, -1, 1, -1, n] + 
   (2*(S2[1, n]^3*S2[3, n] + 2*S2[3, n]^2 + 3*S2[2, n]*S2[4, n] + 
      6*S2[6, n] + 3*S2[1, n]^2*(S2[4, n] - S2[3, 1, n]) + 
      3*S2[2, n]*S2[3, 1, n] - 6*S2[4, 2, n] - 6*S2[2, 3, 1, n] + 
      3*S2[1, n]*(S2[2, n]*S2[3, n] + 2*(S2[5, n] - S2[3, 2, n] - 
          S2[4, 1, n] + S2[3, 1, 1, n])) + 6*S2[4, 1, 1, n] - 
      6*S2[3, 1, 1, 1, n]))/3 + 2*S2[-2, -1, 1, 1, 1, n] + 
   2*S2[-2, 1, -1, 1, 1, n] + S2[-2, 1, 1, -1, 1, n] - 
   S2[-2, 1, 1, 1, -1, n] - 2*S2[2, -1, -1, 1, 1, n] - 
   S2[2, -1, 1, -1, 1, n] + S2[2, -1, 1, 1, -1, n] + 
   (-(S2[1, n]^4*S2[2, n]) - S2[2, n]^3 - 4*S2[1, n]^3*
      (S2[3, n] - S2[2, 1, n]) - 12*S2[2, n]*(S2[3, 1, n] - S2[2, 1, 1, n]) - 
     6*S2[1, n]^2*(S2[4, n] - 2*S2[3, 1, n] + 2*S2[2, 1, 1, n]) - 
     4*S2[1, n]*(S2[2, n]*(5*S2[3, n] + 3*S2[2, 1, n]) + 
       6*(S2[5, n] - S2[3, 2, n] - S2[2, 2, 1, n] + S2[3, 1, 1, n] - 
         S2[2, 1, 1, 1, n])) - 8*(S2[3, n]^2 + S2[6, n] - 
       S2[3, n]*S2[2, 1, n] - 3*S2[2, 3, 1, n] + 3*S2[2, 2, 1, 1, n] - 
       3*S2[3, 1, 1, 1, n] + 3*S2[2, 1, 1, 1, 1, n]))/12 + 
   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] -> -(S2[-5, n]*S2[-1, n]) + S2[3, n]^2 + 
   (S2[2, n]*(S2[2, n]^2 - S2[4, n]))/4 - (S2[-1, n]^2*S2[4, n])/4 + 
   (-S2[3, n]^2 - S2[6, n])/2 + S2[6, n] + (S2[-3, n]^2 + S2[6, n])/2 + 
   (S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n])/12 + S2[-5, -1, n] - 
   S2[-4, -2, n] + S2[-4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
     S2[1, -1, n]) + S2[-4, 1, -1, n] + S2[-3, 1, -2, n] + 
   (S2[2, n]*(-2*S2[-2, n]^2 - S2[2, n]^2 + S2[4, n] + 
      2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 + 
      4*S2[-2, 1, -1, n]))/4 + 
   (S2[-3, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 - 
      S2[1, n]*S2[1, -1, n] + S2[1, 1, -1, n]))/2 + 
   S2[2, -1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
   S2[-2, 1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   (S2[-3, n]*(-5*S2[-3, n] + 6*S2[-2, 1, n] - 2*S2[2, -1, n] - 
      2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/4 + 
   (2*S2[-3, n]^2 + 2*S2[-1, n]^2*S2[2, n]^2 + 4*S2[-2, 1, n]^2 + 
     4*S2[2, -1, n]^2 + 4*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
        S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n])^2)/8 - S2[3, -2, -1, n] - S2[3, -1, -2, n] - 
   S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n] - S2[-2, 2, 1, -1, n] + 
   (S2[-2, n]*(-3*S2[-3, 1, n] + 3*(S2[-4, n] + S2[-2, n]*S2[2, n] - 
        S2[2, -2, n]) + 3*S2[3, -1, n] - 3*S2[-2, 1, 1, n] + 
      3*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 
      (S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
        3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
          2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
          2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
            S2[2, 1, -1, n] + S2[1, 1, 1, -1, n])))/2))/3 + 
   (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
    (-S2[-4, n] - S2[-2, n]*S2[2, n] - S2[1, n]*S2[2, -1, n] - S2[3, -1, n] + 
     S2[-2, 1, 1, n] + S2[1, 2, -1, n] + S2[2, 1, -1, n] + 
     (-(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n])) + 
       3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
         2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
         2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
           S2[2, 1, -1, n] + S2[1, 1, 1, -1, n])))/6) - S2[2, 2, -1, -1, n] + 
   S2[-2, 1, 1, 1, -1, n] + (S2[-1, n]*(-24*S2[-2, n]*S2[3, n] - 
      24*S2[-4, 1, n] - 24*S2[2, n]*S2[2, -1, n] + 24*S2[3, -2, n] + 
      24*S2[-2, 2, 1, n] + 24*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - 
        S2[-3, 2, n] + S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + 
        S2[-1, 2, 2, n]) - 24*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
         2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n]) + 24*(-(S2[-3, n]*S2[2, n]) + S2[-3, 2, n] + 
        S2[2, n]*S2[-2, 1, n] + S2[-2, n]*(S2[3, n] - S2[2, 1, n]) - 
        S2[3, -2, n] + S2[2, 1, -2, n]) - 24*S2[-2, 1, 1, 1, n] + 
      24*S2[2, -1, 1, 1, n] + 24*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        (S2[-1, n]*(S2[1, n]^4 + 6*S2[1, n]^2*S2[2, n] + 15*S2[2, n]^2 + 
           8*S2[1, n]*S2[3, n] + 18*S2[4, n]))/24 + S2[-4, 1, n] - 
        (S2[1, n]^3*S2[1, -1, n])/6 - (S2[1, n]*S2[2, n]*S2[1, -1, n])/2 - 
        (S2[3, n]*S2[1, -1, n])/3 - S2[2, n]*S2[2, -1, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[4, -1, n] - S2[-2, 2, 1, n] - 
        S2[-1, 2, 2, n] + (S2[1, n]^2*S2[1, 1, -1, n])/2 + 
        (S2[2, n]*S2[1, 1, -1, n])/2 - S2[2, 1, -2, n] + S2[-2, 1, 1, 1, n] - 
        S2[1, n]*S2[1, 1, 1, -1, n] - S2[2, -1, 1, 1, n] + 
        S2[1, 1, 1, 1, -1, n])))/24 - S2[2, -1, 1, 1, -1, n], 
 S2[1, -1, -1, -1, -1, -1, n] -> (-21*S2[-6, n])/8 - 
   (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - (11*S2[-3, n]*S2[3, n])/12 + 
   ((-8*S2[-3, n] - S2[-1, n]^3)*S2[3, n])/24 + 
   ((-6*S2[-3, n] + S2[-1, n]^3)*S2[3, n])/24 - S2[-1, n]*S2[2, n]*S2[3, n] - 
   (S2[-1, n]*S2[1, n]*S2[4, n])/2 - (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - 
   S2[-1, n]*S2[5, n] - S2[-5, 1, n]/2 - S2[-4, 2, n]/2 + 
   (3*S2[-3, 3, n])/2 + ((-S2[-1, n]^4 - 3*S2[2, n]^2)*
     (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]))/24 - 
   (S2[4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]))/4 + 
   (S2[2, n]^2*S2[1, -1, n])/2 + (S2[4, n]*S2[1, -1, n])/2 + 
   S2[2, n]*S2[2, -2, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
   S2[3, n]*S2[2, -1, n] - (S2[2, -1, n]*S2[2, 1, n])/2 + 
   S2[2, n]*S2[3, -1, n] + 
   (S2[1, n]*(24*S2[-5, n] + 20*S2[-3, n]*S2[-1, n]^2 + S2[-1, n]^5 + 
      20*S2[-3, n]*S2[2, n] + 10*S2[-1, n]^3*S2[2, n] + 
      15*S2[-1, n]*S2[2, n]^2 + 30*S2[-1, n]*S2[4, n] + 60*S2[-3, 2, n] - 
      60*S2[4, -1, n]))/120 + 
   (9*(S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n]))/8 + 
   (9*S2[5, -1, n])/8 - S2[-3, 1, 2, n] - S2[-3, 2, 1, n] + 
   (-S2[-4, 2, n] - S2[1, n]*S2[-3, 2, n] - S2[-3, 3, n] + S2[-3, 1, 2, n] + 
     S2[-3, 2, 1, n])/2 + (S2[-3, n]*(2*S2[-2, n]*S2[-1, n] + 
      S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
      S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]))/6 + 
   (S2[-1, n]^3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/12 - S2[2, n]*S2[1, 2, -1, n] - 
   S2[2, n]*S2[2, 1, -1, n] + (3*S2[3, -1, 2, n])/2 + S2[3, 2, -1, n]/2 + 
   S2[4, -1, 1, n] + (S2[4, -2, n] + S2[1, n]*S2[4, -1, n] + S2[5, -1, n] - 
     S2[4, -1, 1, n] - S2[4, 1, -1, n])/2 + 
   (2*S2[-6, n] + S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
     2*S2[-2, n]*S2[4, n] + 2*S2[-3, n]*S2[-2, -1, n] + 
     S2[-1, n]*S2[2, n]*S2[-2, -1, n] - S2[2, n]*S2[2, -2, n] + 
     S2[2, n]*S2[3, -1, n] - 2*S2[4, -2, n] + 2*S2[5, -1, n] + 
     2*S2[-4, -1, -1, n] - 2*S2[-3, -2, -1, n] - S2[2, n]*S2[-1, -2, -1, n] - 
     2*S2[-2, -1, -1, 2, n] - 2*S2[-2, -1, 2, -1, n] - 
     2*S2[-2, 2, -1, -1, n])/2 + 
   (S2[2, n]*(-6*S2[-3, 1, n] - 3*S2[-1, n]^2*(S2[-2, n] + 
        S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 6*S2[3, -1, n] - 
      6*S2[-1, -1, -1, 1, n]))/12 - (S2[-1, n]^2*S2[-1, -1, -1, 1, n])/2 + 
   S2[-1, 1, 2, 2, n] + (S2[-6, n] + S2[-3, n]*S2[3, n] + 
     S2[-1, n]*S2[2, n]*S2[3, n] + S2[-1, n]*S2[5, n] - S2[-3, 3, n] - 
     S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] + 
     S2[-1, n]*S2[2, n]*S2[2, 1, n] + S2[2, -1, n]*S2[2, 1, n] - 
     S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + 
     S2[2, n]*S2[1, 2, -1, n] - 2*S2[-1, n]*S2[2, 2, 1, n] - 
     S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n])/2 + S2[-1, 2, 1, 2, n] + 
   (S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - 
     S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] - 
     S2[2, n]*S2[3, -1, n] + S2[4, -2, n] + 
     S2[-1, n]*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
       S2[4, 1, n]) - S2[5, -1, n] + S2[-3, 2, 1, n] + 
     S2[2, n]*S2[1, 2, -1, n] + S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
     S2[4, 1, -1, n] - S2[-1, 2, 1, 2, n] - 2*S2[-1, 2, 2, 1, n])/2 + 
   S2[-1, 2, 2, 1, n] + S2[-2, -1, -1, -1, -1, n] + 
   (S2[-1, n]*(-8*S2[-2, n]*S2[-1, n]^3 - 3*S2[-1, n]^4*S2[1, n] - 
      3*S2[1, n]*S2[2, n]^2 - 6*S2[-1, n]^2*S2[3, n] - 6*S2[2, n]*S2[3, n] - 
      6*S2[1, n]*S2[4, n] - 51*S2[5, n] - 24*S2[-4, -1, n] + 
      24*S2[-3, -2, n] + 6*S2[-1, n]^2*S2[-2, -1, n] - 
      18*S2[2, n]*S2[-2, -1, n] - 8*S2[-3, n]*(S2[-2, n] + 
        S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 2*S2[-1, n]^3*S2[1, -1, n] - 
      6*S2[-1, n]*S2[2, n]*S2[1, -1, n] - 8*S2[-3, n]*
       (2*S2[-2, n] + S2[1, -1, n]) - 6*S2[-1, n]^2*S2[2, 1, n] - 
      6*S2[2, n]*S2[2, 1, n] + 24*S2[-2, -1, 2, n] + 24*S2[-2, 2, -1, n] + 
      6*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 6*S2[-1, n]^2*S2[-1, 1, -1, n] + 
      6*S2[2, n]*S2[-1, 1, -1, n] + 24*S2[2, 2, 1, n] - 
      24*S2[-2, -1, -1, -1, n] + 24*S2[-1, n]*S2[-1, -1, -1, 1, n] + 
      24*S2[2, 1, -1, -1, n] + 24*S2[1, -1, -1, -1, -1, n]))/24 - 
   S2[2, 1, -1, -1, -1, n] - S2[-1, -1, -1, -1, -1, 1, n], 
 S2[1, -1, -1, -1, -1, 1, n] -> S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] + 
   (S2[-2, n]^2*S2[2, n])/2 + S2[3, n]^2/2 + (S2[2, n]*S2[4, n])/2 - 
   (7*S2[6, n])/4 + (S2[3, n]^2 + S2[6, n])/4 + 
   (S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n])/12 - S2[-5, -1, n]/2 + 
   (-(S2[-5, n]*S2[-1, n]) - S2[6, n] + S2[-5, -1, n])/2 - S2[-4, -2, n] + 
   S2[1, n]*S2[-4, -1, n] + 
   (S2[-1, n]*(-2*S2[-5, n] + 3*(S2[-5, n] + S2[-4, n]*S2[1, n] - 
        S2[-4, 1, n]) + 3*S2[-4, 1, n]))/2 + S2[-2, n]*S2[-3, 1, n] + 
   2*S2[3, n]*S2[-2, -1, n] + S2[-1, n]*S2[2, n]*S2[-2, 1, n] + 
   S2[3, n]*(S2[-2, -1, n] - S2[2, 1, n]) + S2[3, n]*S2[2, 1, n] + 
   (S2[3, n]*(-S2[-2, -1, n] + S2[2, 1, n]))/2 + 
   (S2[3, n]*(-3*S2[3, n] - S2[-2, -1, n] + S2[2, 1, n]))/2 - 
   S2[3, n]*(S2[-2, -1, n] + S2[2, 1, n]) - S2[-2, n]*S2[3, -1, n] + 
   (S2[2, n]*(-4*S2[4, n] + 4*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n])))/
    2 + S2[2, n]*S2[3, 1, n] + 3*(S2[1, n]*S2[5, n] + S2[6, n] - 
     S2[5, 1, n]) + 2*S2[5, 1, n] + S2[-4, -1, 1, n] - S2[-3, -2, 1, n] - 
   S2[-3, 1, -2, n] - S2[2, n]*S2[-2, 1, -1, n] - S2[2, n]*S2[-1, -2, 1, n] + 
   (S2[3, n]^2 + (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])^2/2)/4 + 2*S2[2, 3, 1, n] + S2[3, -1, -2, n] + 
   S2[1, n]*S2[3, -1, -1, n] + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
     S2[2, 3, 1, n] - S2[3, 2, 1, n]) + 2*S2[3, 2, 1, n] - 
   S2[-2, -1, 1, 2, n] - S2[-2, -1, 2, 1, n] - S2[-2, 2, -1, 1, n] - 
   (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*S2[-1, -1, -1, 1, n] + 
   S2[1, n]*S2[2, 1, -1, -1, n] - S2[2, 2, 1, 1, n] + 
   S2[-2, -1, -1, -1, 1, n] + 
   (S2[1, n]*(-9*S2[-4, n]*S2[-1, n] - 12*S2[2, n]*S2[3, n] - 18*S2[5, n] - 
      6*S2[-4, -1, n] - 6*S2[3, -1, -1, n] - 6*S2[2, 1, -1, -1, n] + 
      (-8*S2[-2, n]*S2[-1, n]^3 - 3*S2[-1, n]^4*S2[1, n] - 
        3*S2[1, n]*S2[2, n]^2 - 6*S2[-1, n]^2*S2[3, n] - 
        6*S2[2, n]*S2[3, n] - 6*S2[1, n]*S2[4, n] - 24*S2[5, n] - 
        24*S2[-4, -1, n] + 24*S2[-3, -2, n] + 6*S2[-1, n]^2*S2[-2, -1, n] - 
        18*S2[2, n]*S2[-2, -1, n] + 2*S2[-1, n]^3*S2[1, -1, n] - 
        6*S2[-1, n]*S2[2, n]*S2[1, -1, n] - 8*S2[-3, n]*
         (2*S2[-2, n] + S2[1, -1, n]) - 6*S2[-1, n]^2*S2[2, 1, n] - 
        6*S2[2, n]*S2[2, 1, n] + 24*S2[-2, -1, 2, n] + 24*S2[-2, 2, -1, n] + 
        6*S2[-1, n]^2*S2[-1, 1, -1, n] + 6*S2[2, n]*S2[-1, 1, -1, n] + 
        24*S2[2, 2, 1, n] - 24*S2[-2, -1, -1, -1, n] + 
        24*S2[-1, n]*S2[-1, -1, -1, 1, n] + 24*S2[2, 1, -1, -1, n] + 
        24*S2[1, -1, -1, -1, -1, n])/4))/6 - S2[2, 1, -1, -1, 1, n], 
 S2[1, -1, -1, -1, 1, -1, n] -> -S2[-3, n]^2 + 2*S2[-4, n]*S2[-2, n] + 
   (S2[-3, n]*(-21*S2[-3, n] - 5*S2[-1, n]^3))/12 + 
   (S2[-3, n]*(5*S2[-3, n] - 3*S2[-1, n]^3))/12 + (S2[-2, n]^2*S2[2, n])/2 + 
   S2[3, n]^2 - 2*S2[-1, n]^2*S2[4, n] + S2[1, n]^2*S2[4, n] - 
   (3*S2[2, n]*S2[4, n])/2 - (S2[-1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + 
   (S2[2, n]*(-S2[-1, n]^4 + 2*S2[-1, n]^2*S2[2, n] + S2[2, n]^2 + 
      2*S2[4, n]))/4 + 11*S2[6, n] + (3*(S2[3, n]^2 + S2[6, n]))/2 + 
   (S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n])/6 - 
   2*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]) + 5*S2[-5, -1, n] - 
   S2[-4, -2, n] + S2[-1, n]^2*S2[-3, -1, n] - 2*S2[2, n]*S2[-3, -1, n] - 
   2*S2[-2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, -1, n] + 
   2*S2[-3, n]*S2[-2, 1, n] - (2*S2[-1, n]^3*S2[-2, 1, n])/3 + 
   S2[-1, n]*S2[2, n]*S2[-2, 1, n] + (2*S2[-1, n]^3*S2[2, -1, n])/3 - 
   (2*S2[-3, n]*(-S2[-2, 1, n] + S2[2, -1, n]))/3 - S2[3, n]*S2[2, 1, n] - 
   S2[3, n]*(S2[-2, -1, n] + S2[2, 1, n]) + 2*S2[-2, n]*S2[3, -1, n] - 
   S2[-1, n]^2*S2[3, 1, n] + S2[2, n]*S2[3, 1, n] + 3*S2[4, 2, n] - 
   9*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]) - 8*S2[5, 1, n] - 
   3*S2[-4, -1, 1, n] - 3*(S2[-5, -1, n] + S2[-4, -2, n] + 
     S2[1, n]*S2[-4, -1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n]) - 
   3*S2[-4, 1, -1, n] - S2[-3, -2, 1, n] + 3*S2[-3, -1, 2, n] + 
   2*S2[-3, 1, -2, n] + 4*S2[-3, 2, -1, n] + S2[-1, n]^2*S2[-2, 1, -1, n] + 
   S2[2, n]*S2[-2, 1, -1, n] + S2[-1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + 
     S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
     S2[-1, -2, 1, n]) - S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + 
     S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
     S2[-1, -2, 1, n]) - S2[2, n]*S2[-1, -2, 1, n] + 
   S2[3, n]*(S2[-2, -1, n] - S2[2, 1, n] + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])/2) + (S2[3, n]*(-2*S2[3, n] + 9*S2[-2, -1, n] - 
      3*S2[2, 1, n] + (3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
         S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
         S2[-1, 1, -1, n]))/2))/3 + (-3*S2[-2, n]^2*S2[-1, n]^2 + 
     10*S2[3, n]^2 - (3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
         S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
         S2[-1, 1, -1, n])^2)/2)/6 - 
   (S2[-2, -1, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/2 + (S2[2, 1, n]*(2*S2[-2, n]*S2[-1, n] + 
      S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
      S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]))/2 + 
   S2[3, n]*(-2*S2[-2, -1, n] + 2*S2[2, 1, n] + 
     (-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - S2[3, n] + 
       S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] + 
       S2[-1, 1, -1, n])/2) - 
   (S2[-1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/4 + 
   4*S2[2, -2, -2, n] - 2*S2[-2, n]*S2[2, 1, -1, n] + 
   (S2[2, n]*(-6*S2[-2, n]^2 + 24*S2[4, n] - 3*(S2[2, n]^2 + S2[4, n]) - 
      48*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n]) + 12*S2[-2, 1, -1, n] + 
      12*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 
      3*(S2[2, n]^2 + S2[4, n] + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
          S2[-1, 2, -1, n])) - 12*S2[2, 1, 1, n]))/12 - 
   S2[-1, n]^2*S2[2, 1, 1, n] - 2*S2[2, 3, 1, n] - 4*S2[3, -2, -1, n] - 
   2*S2[3, -1, -2, n] - S2[-1, n]*S2[3, -1, 1, n] - 
   (5*(S2[3, n]^2 + S2[6, n] + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
        S2[2, 3, 1, n] - S2[3, 2, 1, n])))/2 - 3*S2[3, 2, 1, n] + 
   S2[4, -1, -1, n] + 3*(S2[-5, n]*S2[-1, n] + (S2[-1, n]^2*S2[4, n])/2 + 
     (S2[2, n]*S2[4, n])/2 + S2[6, n] - S2[-5, -1, n] - 
     S2[-1, n]*S2[4, -1, n] - S2[4, 2, n] + S2[4, -1, -1, n]) - 
   2*((S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + S2[6, n] + 
     S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - S2[5, 1, n] + 
     S2[4, 1, 1, n]) - 2*S2[-3, -1, -1, -1, n] + 2*S2[-3, -1, 1, 1, n] + 
   S2[-3, 1, -1, 1, n] + 2*(S2[-3, -2, 1, n] + S2[-3, 1, -2, n] + 
     S2[-1, n]*S2[-3, 1, 1, n] + S2[4, 1, 1, n] - S2[-3, -1, 1, 1, n] - 
     S2[-3, 1, -1, 1, n] - S2[-3, 1, 1, -1, n]) - 2*S2[-2, -2, -1, -1, n] - 
   2*S2[-2, 1, -1, 2, n] - 2*S2[-2, 1, 2, -1, n] - 
   2*(S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] - S2[3, n]^2/2 + S2[6, n] - 
     S2[-4, -2, n] + S2[-2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, -1, n] - 
     S2[-2, n]*S2[3, -1, n] + S2[5, 1, n] + S2[-4, -1, 1, n] - 
     S2[-3, -2, 1, n] - S2[-3, 1, -2, n] + 
     S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
       S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
     S2[3, -1, -2, n] - S2[-2, -1, 1, 2, n] - S2[-2, -1, 2, 1, n] - 
     S2[-2, 2, -1, 1, n]) - 3*(-S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] + 
     S2[3, n]^2/2 + S2[6, n] + S2[-5, -1, n] - S2[-4, -2, n] - 
     S2[-2, n]*S2[-3, 1, n] + S2[-3, n]*S2[-2, 1, n] + 
     S2[-2, n]*S2[3, -1, n] + S2[-4, 1, -1, n] + S2[-3, 1, -2, n] + 
     S2[2, n]*S2[-2, 1, -1, n] - S2[3, -2, -1, n] - S2[3, -1, -2, n] - 
     S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n] - S2[-2, 2, 1, -1, n]) + 
   (S2[-2, n]*(12*S2[-4, n] - 3*S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) + 3*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) + 6*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) - 6*S2[-1, -1, -1, 1, n]))/6 + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (-S2[-4, n] - S2[-2, n]*S2[2, n] - 2*S2[-3, 1, n] - 
      S2[-1, n]*S2[-2, -1, n] - 3*S2[2, -2, n] + S2[3, -1, n] + 
      S2[-1, -2, -1, n] + 2*S2[2, 1, -1, n] + 6*S2[-1, -1, -1, 1, n]))/2 - 
   S2[1, n]*S2[2, 1, -1, -1, n] + S2[2, 2, -1, -1, n] + 2*S2[2, 2, 1, 1, n] - 
   S2[3, -1, -1, 1, n] - 2*(S2[3, -2, -1, n] + S2[3, -1, -2, n] + 
     S2[1, n]*S2[3, -1, -1, n] + S2[4, -1, -1, n] - S2[3, -1, -1, 1, n] - 
     S2[3, -1, 1, -1, n] - S2[3, 1, -1, -1, n]) - S2[-2, -1, -1, -1, 1, n] - 
   S2[-2, -1, -1, 1, -1, n] - 2*S2[-2, -1, 1, -1, -1, n] - 
   2*S2[-2, 1, -1, -1, -1, n] + 
   (S2[1, n]*(2*S2[-3, n]*S2[-2, n] + 14*S2[-4, n]*S2[-1, n] + 
      9*S2[-2, n]*S2[-1, n]^3 + 3*S2[-1, n]^4*S2[1, n] - 
      3*S2[-2, n]*S2[-1, n]*S2[2, n] + 3*S2[1, n]*S2[2, n]^2 + 
      9*S2[-1, n]^2*S2[3, n] + 33*S2[2, n]*S2[3, n] + 6*S2[1, n]*S2[4, n] + 
      96*S2[5, n] + 42*S2[-4, -1, n] - 18*S2[-3, -2, n] + 
      6*S2[-1, n]*S2[-3, 1, n] - 9*S2[-1, n]^2*S2[-2, -1, n] + 
      21*S2[2, n]*S2[-2, -1, n] - 2*S2[-1, n]^3*S2[1, -1, n] + 
      6*S2[-1, n]*S2[2, n]*S2[1, -1, n] + 8*S2[-3, n]*
       (2*S2[-2, n] + S2[1, -1, n]) + 12*S2[-1, n]*S2[2, -2, n] + 
      9*S2[-1, n]^2*S2[2, 1, n] + 3*S2[2, n]*S2[2, 1, n] - 
      6*S2[-1, n]*S2[3, -1, n] - 6*S2[3, 2, n] - 12*S2[4, 1, n] - 
      6*S2[-3, 1, -1, n] - 24*S2[-2, -1, 2, n] - 
      12*(S2[-3, n]*S2[-2, n] + S2[5, n] + S2[-4, -1, n] - S2[-3, -2, n] + 
        S2[2, n]*S2[-2, -1, n] - S2[-2, -1, 2, n] - S2[-2, 2, -1, n]) - 
      24*S2[-2, 2, -1, n] + 3*S2[-1, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) - 6*S2[-1, n]^2*S2[-1, 1, -1, n] - 
      6*S2[2, n]*S2[-1, 1, -1, n] - 6*S2[-1, n]*S2[2, 1, -1, n] - 
      12*S2[2, 2, 1, n] + 18*S2[3, -1, -1, n] + 18*S2[-2, -1, -1, -1, n] - 
      18*S2[-1, n]*S2[-1, -1, -1, 1, n] - 12*S2[2, 1, -1, -1, n] - 
      24*S2[1, -1, -1, -1, -1, n]))/6 + 
   (S2[-1, n]*(16*S2[-5, n] - 28*(S2[-5, n] + S2[-4, n]*S2[1, n] - 
        S2[-4, 1, n]) - 28*S2[-4, 1, n] - 12*S2[3, n]*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      12*S2[-2, -1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      12*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*S2[2, 1, n] + 
      36*S2[4, -1, n] - 24*S2[-3, 1, 1, n] + 6*S2[-2, n]*
       (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 6*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 12*S2[3, -1, 1, n] + 
      12*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n]) + 4*(-6*S2[-2, n]^2*S2[-1, n] - 
        6*S2[-4, n]*S2[1, n] - 2*S2[-3, n]*S2[1, n]^2 - 
        S2[-1, n]^3*S2[1, n]^2 + 14*S2[-3, n]*S2[2, n] + 
        S2[-1, n]^3*S2[2, n] + 3*S2[-1, n]*S2[1, n]^2*S2[2, n] - 
        3*S2[-1, n]*S2[4, n] + 12*S2[-4, 1, n] + 6*S2[-1, n]*S2[-3, -1, n] - 
        12*S2[-3, 2, n] + 6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 
        6*S2[-1, n]^2*S2[-2, 1, n] - 6*S2[2, n]*S2[-2, 1, n] - 
        6*S2[1, n]*S2[2, -2, n] + 6*S2[2, n]*S2[2, -1, n] - 
        6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) - 
        12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 6*S2[1, n]*S2[3, -1, n] - 
        12*S2[-1, n]*S2[3, 1, n] - 12*S2[-2, 2, 1, n] + 
        12*S2[-1, -2, -2, n] + 6*S2[1, n]*S2[-1, -2, -1, n] + 
        12*S2[-1, n]*S2[-1, -2, 1, n] - 6*S2[-1, n]*S2[-1, 2, -1, n] + 
        6*S2[-1, n]^2*S2[1, 1, -1, n] - 6*S2[2, n]*S2[1, 1, -1, n] + 
        12*S2[1, n]*S2[2, 1, -1, n] + 12*S2[-1, n]*S2[2, 1, 1, n] + 
        12*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
        12*S2[-2, 1, -1, -1, n] + 12*S2[1, n]*S2[-1, -1, -1, 1, n] - 
        12*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] - 
        12*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n] + 
        12*S2[1, 1, -1, -1, -1, n])))/12 + 2*S2[2, -1, -1, -1, -1, n] + 
   S2[2, 1, -1, -1, 1, n] + S2[2, 1, -1, 1, -1, n] + 
   2*S2[2, 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] -> 
  (55*S2[-6, n])/6 - (2*S2[-2, n]^3)/3 + (3*S2[-4, n]*S2[1, n]^2)/4 + 
   (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 + 
   ((-8*S2[-3, n] - S2[-1, n]^3)*S2[3, n])/3 + S2[-1, n]*S2[2, n]*S2[3, n] + 
   S2[-2, n]*S2[4, n] + (S2[-1, n]*S2[1, n]*S2[4, n])/2 + 
   3*S2[-1, n]*S2[5, n] - (17*(S2[-6, n] + S2[-5, n]*S2[1, n] - 
      S2[-5, 1, n]))/4 + S2[-5, 1, n]/4 + (7*S2[-4, 2, n])/2 - 
   S2[-1, n]*S2[-3, -2, n] - S2[-1, n]^2*S2[-3, 1, n] - 
   S2[2, n]*S2[-3, 1, n] - (15*(S2[-6, n] + S2[-3, n]*S2[3, n] - 
      S2[-3, 3, n]))/4 + S2[-3, 3, n]/4 + 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + 2*S2[3, n] - S2[-2, -1, n]) + 
   (S2[3, n]*(-S2[-3, n] + 2*S2[-2, 1, n]))/2 - (S2[2, n]^2*S2[1, -1, n])/2 - 
   (S2[4, n]*S2[1, -1, n])/2 - 
   (S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]))/2 + 
   S2[2, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 
   S2[2, n]*S2[2, -2, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
   S2[3, n]*S2[2, -1, n] - 2*S2[3, n]*(-S2[-2, 1, n] + S2[2, -1, n]) + 
   (S2[-3, n]*(10*S2[-2, -1, n] - S2[2, 1, n]))/4 + S2[-3, n]*S2[2, 1, n] - 
   S2[-2, 1, n]*S2[2, 1, n] + S2[2, -1, n]*S2[2, 1, n] + 
   S2[-1, n]^2*S2[3, -1, n] - S2[1, n]^2*S2[3, -1, n] - 8*S2[4, -2, n] + 
   S2[-1, n]*S2[4, 1, n] - 5*S2[5, -1, n] - 
   2*(S2[-6, n] + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
     S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - S2[-4, 2, n] - S2[5, -1, n] + 
     S2[-4, -1, -1, n]) - S2[-4, 1, 1, n]/2 + 
   (S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
     (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
     S2[-4, 2, n] + S2[-4, 1, 1, n])/2 + 3*S2[-3, -1, -2, n] + 
   S2[1, n]*S2[-3, -1, -1, n] - S2[-3, 1, 2, n] - 
   2*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n]) - (S2[-1, n]^2*S2[-2, 1, 1, n])/2 + 
   S2[2, n]*S2[-2, 1, 1, n] - 2*(-(S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - 
     S2[-4, 2, n] + S2[2, n]*S2[2, -2, n] + S2[4, -2, n] + S2[-2, 2, 2, n]) + 
   S2[-2, n]*S2[-1, -2, 1, n] + 
   (S2[-3, n]*(12*S2[3, n] - 2*S2[-2, -1, n] - 3*S2[2, 1, n] - 
      4*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/4 + S2[2, -1, n]*(S2[-2, -1, n] - S2[2, 1, n] + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])/2) + 
   (S2[-3, n]*(S2[3, n] + 4*S2[-2, -1, n] - 4*S2[2, 1, n] + 
      2*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/4 + S2[-2, 1, n]*(-S2[-2, -1, n] + S2[2, 1, n] + 
     (-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - S2[3, n] + 
       S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] + 
       S2[-1, 1, -1, n])/2) + 
   (S2[-2, n]*(16*S2[4, n] - 2*(S2[2, n]^2 + S2[4, n]) + 8*S2[-2, 1, -1, n] + 
      12*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 
      2*(S2[2, n]^2 + S2[4, n] + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
          S2[-1, 2, -1, n]))))/4 + S2[2, n]*S2[1, 2, -1, n] + 
   (S2[2, n]*(-24*S2[-4, n] + 60*S2[-3, 1, n] + 
      6*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) - 36*S2[3, -1, n] + 
      6*S2[-2, 1, 1, n] - 6*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n])))/12 + 
   (S2[-1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
      S2[1, 2, -1, n] - S2[2, 1, -1, n]))/2 - S2[1, n]^2*S2[2, 1, -1, n] + 
   S2[2, n]*S2[2, 1, -1, n] - S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - 
     S2[2, 1, 1, n]) - S2[-1, n]*S2[2, 2, 1, n] + S2[3, -1, 2, n] - 
   2*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
     S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - S2[3, 1, -2, n]) - 
   S2[-1, n]*S2[3, 1, 1, n] + 4*S2[3, 2, -1, n] + 4*S2[4, -1, 1, n] + 
   4*S2[4, 1, -1, n] - 3*S2[-3, -1, -1, 1, n] - 3*S2[-3, -1, 1, -1, n] - 
   2*S2[-3, 1, -1, -1, n] - 3*S2[-3, 1, 1, 1, n] - S2[-2, -1, 2, -1, n] - 
   S2[-2, 1, 1, 2, n] - S2[-2, 2, -1, -1, n] - 2*S2[-1, -2, -2, 1, n] - 
   S2[-1, -2, 1, -2, n] + (S2[2, n]*(-5*S2[-4, n] + 4*S2[-2, n]*S2[2, n] - 
      4*S2[-3, 1, n] - 4*S2[2, -2, n] - 4*S2[2, 1, -1, n] + 
      4*S2[-1, -1, -1, 1, n]))/4 - 
   2*(-S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - 
     (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - S2[-5, 1, n] - 
     S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
     S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + (S2[-2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 - S2[4, -2, n] + S2[5, -1, n] + 
     S2[-3, -1, -2, n] - S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
     S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
     S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n]) + 
   4*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
     S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
        2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
          S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n]) - S2[-1, 1, 2, 2, n] + 
   4*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
     S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
     S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
     2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]) - 
   S2[-1, 2, 1, 2, n] + 2*(-S2[-6, n] + S2[-4, n]*S2[2, n] - 
     S2[-1, n]*S2[1, n]*S2[2, n]^2 - 2*S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - S2[-1, n]*S2[1, n]*S2[4, n] - 
     S2[-1, n]*S2[5, n] - S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] + 
     S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + S2[4, n]*S2[1, -1, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[-3, n]*S2[2, 1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] - 
     S2[2, -1, n]*S2[2, 1, n] + S2[2, n]*S2[3, -1, n] - 
     S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + S2[5, -1, n] - 
     2*S2[-2, 2, 2, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
     S2[4, 1, -1, n] + 2*S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n]) + 
   3*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) - 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + S2[4, n] + 
      2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
      2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
        2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]))/4 - 
   2*(S2[-6, n] + S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
     S2[-3, n]*S2[3, n] + S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] - 
     S2[3, n]*S2[-2, 1, n] - S2[2, n]*S2[2, -2, n] + 
     S2[-2, 1, n]*S2[2, 1, n] + S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - 
     S2[-3, 1, 2, n] - S2[-3, 2, 1, n] - S2[2, n]*S2[-2, 1, 1, n] - 
     S2[-2, 2, 2, n] - S2[3, 1, -2, n] + S2[-2, 1, 1, 2, n] - 
     S2[-2, 2, 1, 1, n] - S2[2, -2, 1, 1, n]) - 5*S2[2, -2, 1, 1, n] + 
   S2[1, n]*S2[2, 1, 1, -1, n] + 
   (S2[-1, n]*(-36*S2[-3, n]*S2[-2, n] + 24*S2[2, n]*S2[3, n] - 6*S2[5, n] + 
      12*S2[-3, -2, n] - 12*S2[2, n]*S2[-2, -1, n] - 
      12*S2[-2, n]*S2[-2, 1, n] + 12*S2[-2, n]*S2[2, -1, n] + 
      12*S2[2, n]*S2[2, 1, n] - 12*S2[3, 2, n] - 
      6*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) - 30*S2[4, 1, n] + 
      36*S2[-3, -1, 1, n] + 24*S2[-3, 1, -1, n] + 12*S2[-2, -1, 2, n] + 
      12*S2[-2, 2, -1, n] - 6*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) - 
      12*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n] - 2*S2[2, 2, 1, n]) - 12*S2[2, 2, 1, n] - 
      24*S2[3, -1, -1, n] - 24*S2[3, 1, 1, n] + 36*S2[-2, -1, 1, 1, n] + 
      24*S2[-2, 1, -1, 1, n] + 12*S2[-2, 1, 1, -1, n] - 
      24*S2[2, -1, -1, 1, n] - 12*S2[2, -1, 1, -1, n] - 
      36*S2[2, 1, 1, 1, n]))/12 + 2*S2[3, -1, -1, -1, n] + 
   S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] - 
   2*(S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 2*S2[3, 1, 1, -1, n]) + 
   S2[3, 1, 1, -1, n] + 2*(-S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + 
     (S2[2, n]*S2[3, -1, n])/2 - S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + 
     S2[5, -1, n] + S2[-2, 3, 1, n] - S2[3, -1, 2, n] + 
     S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
       S2[3, 1, -1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
     S2[4, 1, -1, n] + S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
     S2[3, 1, 1, -1, n]) - 2*S2[-2, -1, -1, 1, 1, n] - 
   3*S2[-2, -1, 1, -1, 1, n] - 3*S2[-2, -1, 1, 1, -1, n] - 
   2*S2[-2, 1, -1, -1, 1, n] - 2*S2[-2, 1, -1, 1, -1, n] - 
   S2[-2, 1, 1, -1, -1, n] + 
   (S2[1, n]*(57*S2[-5, n] - 6*S2[-2, n]^2*S2[-1, n] - 6*S2[-4, n]*S2[1, n] - 
      2*S2[-3, n]*S2[1, n]^2 - S2[-1, n]^3*S2[1, n]^2 + 
      14*S2[-3, n]*S2[2, n] + S2[-1, n]^3*S2[2, n] + 
      3*S2[-1, n]*S2[1, n]^2*S2[2, n] + 3*S2[-1, n]*S2[4, n] - 
      12*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) + 6*S2[-4, 1, n] + 
      6*S2[-1, n]*S2[-3, -1, n] - 12*S2[-3, 2, n] + 6*S2[-1, n]*S2[1, n]*
       S2[-2, -1, n] - 6*S2[-1, n]^2*S2[-2, 1, n] - 6*S2[2, n]*S2[-2, 1, n] - 
      6*S2[1, n]*S2[2, -2, n] + 6*S2[2, n]*S2[2, -1, n] - 
      6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) - 
      12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 24*S2[3, -2, n] - 
      6*S2[1, n]*S2[3, -1, n] - 12*S2[-1, n]*S2[3, 1, n] - 24*S2[4, -1, n] - 
      12*S2[-3, -1, -1, n] - 12*S2[-2, 2, 1, n] + 12*S2[-1, -2, -2, n] + 
      6*S2[1, n]*S2[-1, -2, -1, n] + 12*S2[-1, n]*S2[-1, -2, 1, n] - 
      6*S2[-1, n]*S2[-1, 2, -1, n] - 
      24*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) + 
      6*S2[-1, n]^2*S2[1, 1, -1, n] - 6*S2[2, n]*S2[1, 1, -1, n] - 
      24*S2[2, 1, -2, n] + 12*S2[1, n]*S2[2, 1, -1, n] + 
      12*S2[-1, n]*S2[2, 1, 1, n] + 24*S2[3, -1, 1, n] + 24*S2[3, 1, -1, n] + 
      12*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
      12*S2[-2, 1, -1, -1, n] + 12*S2[1, n]*S2[-1, -1, -1, 1, n] - 
      12*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] + 
      12*S2[2, 1, -1, 1, n] + 24*S2[2, 1, 1, -1, n] + 
      12*S2[1, 1, -1, -1, -1, n]))/12 + 2*S2[2, -1, -1, -1, 1, n] + 
   2*S2[2, -1, -1, 1, -1, n] + S2[2, -1, 1, -1, -1, n] - 
   S2[2, 1, 1, -1, 1, n] - 3*S2[2, 1, 1, 1, -1, n] + 
   2*(-S2[-6, n] - S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
     S2[-3, n]*S2[3, n] - S2[-5, 1, n] + 2*S2[-4, 2, n] + 
     S2[2, n]*S2[-3, 1, n] - S2[1, n]*S2[-3, 2, n] - S2[3, n]*S2[-2, 1, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 - 
     S2[2, n]*S2[2, -2, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     2*S2[-3, n]*S2[2, 1, n] - S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[-2, 1, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] - 
     S2[2, n]*S2[3, -1, n] + S2[-2, n]*S2[3, 1, n] + S2[-1, n]*S2[3, 2, n] + 
     S2[4, -2, n] + S2[1, n]*S2[4, -1, n] - S2[-1, n]*S2[4, 1, n] - 
     S2[5, -1, n] - S2[-4, 1, 1, n] - S2[-3, 1, 2, n] + 2*S2[-3, 2, 1, n] - 
     S2[2, n]*S2[-2, 1, 1, n] + S2[1, n]*S2[-1, 2, 2, n] + 
     S2[1, n]*S2[2, 1, -2, n] + (S2[1, n]^2*S2[2, 1, -1, n])/2 + 
     (S2[2, n]*S2[2, 1, -1, n])/2 - 2*S2[-2, n]*S2[2, 1, 1, n] + 
     2*S2[-1, n]*S2[2, 2, 1, n] + S2[1, n]*S2[3, 1, -1, n] + 
     S2[3, 2, -1, n] - S2[4, -1, 1, n] + S2[-2, 1, 1, 2, n] + 
     S2[-2, 2, 1, 1, n] - S2[-1, 1, 2, 2, n] - S2[-1, 2, 2, 1, n] + 
     S2[2, -2, 1, 1, n] - S2[1, n]*S2[2, 1, -1, 1, n] - 
     2*S2[1, n]*S2[2, 1, 1, -1, n] - S2[3, 1, -1, 1, n] - 
     2*S2[3, 1, 1, -1, n] + S2[2, 1, -1, 1, 1, n] + 2*S2[2, 1, 1, -1, 1, n] + 
     3*S2[2, 1, 1, 1, -1, n]) + 6*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[-3, n]^2/2 + S2[-4, n]*S2[-2, n] + 
   (S2[-3, n]*(-5*S2[-3, n] + 3*S2[-1, n]^3))/8 + 
   (S2[-3, n]*(21*S2[-3, n] + 5*S2[-1, n]^3))/8 - S2[3, n]^2/2 + 
   (13*S2[-1, n]^2*S2[4, n])/4 + (S2[2, n]*S2[4, n])/2 + 
   (3*S2[-1, n]^2*(S2[2, n]^2 + S2[4, n]))/8 + 
   (S2[2, n]*(3*S2[-1, n]^4 - 6*S2[-1, n]^2*S2[2, n] - 3*S2[2, n]^2 + 
      2*S2[4, n]))/8 - 8*S2[6, n] - (5*(S2[3, n]^2 + S2[6, n]))/4 - 
   (5*(S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n]))/12 + 
   4*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]) - (9*S2[-5, -1, n])/2 - 
   S2[-4, -2, n]/2 - (3*S2[-1, n]^2*S2[-3, -1, n])/2 + 
   S2[-2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, -1, n] + 
   S2[-1, n]^3*S2[-2, 1, n] - S2[-4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
     S2[1, -1, n]) - S2[-1, n]^3*S2[2, -1, n] + 
   S2[-3, n]*(-S2[-2, 1, n] + S2[2, -1, n]) + 
   S2[3, n]*(S2[-2, -1, n] - S2[2, 1, n]) - S2[-2, n]*S2[3, -1, n] + 
   (3*S2[-1, n]^2*S2[3, 1, n])/2 + S2[1, n]*(S2[5, n] - S2[4, 1, n]) - 
   5*S2[4, 2, n] + (17*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]))/2 + 
   5*S2[5, 1, n] + (9*S2[-4, -1, 1, n])/2 + 
   (5*(S2[-5, -1, n] + S2[-4, -2, n] + S2[1, n]*S2[-4, -1, n] - 
      S2[-4, -1, 1, n] - S2[-4, 1, -1, n]))/2 + (5*S2[-4, 1, -1, n])/2 - 
   S2[-3, -2, 1, n] - 2*S2[-3, -1, 2, n] - 2*S2[-3, 1, -2, n] - 
   3*S2[-3, 2, -1, n] - (3*S2[-1, n]^2*S2[-2, 1, -1, n])/2 - 
   (3*S2[-1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
      S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]))/2 + 
   S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
     S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
   S2[-2, -1, n]*(S2[2, 1, n] + (2*S2[-2, n]*S2[-1, n] + 
       S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
       S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n])/2) + 
   (3*S2[-2, n]^2*S2[-1, n]^2 - 12*S2[3, n]^2 - 2*S2[-2, -1, n]^2 - 
     S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 - 
     2*S2[2, 1, n]^2 + (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
        S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])^2/2)/4 + 
   (S2[3, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - S2[-1, 1, -1, n]))/2 - 
   (S2[2, 1, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/2 + 
   (S2[3, n]*(-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 
      6*S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] + 
      S2[-1, 1, -1, n]))/2 + (3*S2[-1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/8 - 
   6*S2[2, -2, -2, n] + (S2[-2, n]*(-12*S2[-4, n] + 4*S2[-3, 1, n] - 
      4*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      8*S2[2, -2, n] - 4*S2[3, -1, n] - 4*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) - 4*S2[2, 1, -1, n]))/4 + 
   (3*S2[-1, n]^2*S2[2, 1, 1, n])/2 + 
   (S2[2, n]*(2*S2[-2, n]^2 + 14*S2[4, n] + 3*(S2[2, n]^2 + S2[4, n]) + 
      4*S2[-3, -1, n] - 2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 + 
      16*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n]) - 8*S2[3, 1, n] - 
      12*S2[-2, 1, -1, n] - 12*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + 3*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) + 
      12*S2[2, 1, 1, n]))/8 + (5*S2[2, 3, 1, n])/2 + 6*S2[3, -2, -1, n] + 
   4*S2[3, -1, -2, n] + S2[1, n]*S2[3, -1, -1, n] + 
   S2[-1, n]*S2[3, -1, 1, n] + 
   (9*(S2[3, n]^2 + S2[6, n] + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
        S2[2, 3, 1, n] - S2[3, 2, 1, n])))/4 + (9*S2[3, 2, 1, n])/2 + 
   2*S2[4, -1, -1, n] - 5*(S2[-5, n]*S2[-1, n] + (S2[-1, n]^2*S2[4, n])/2 + 
     (S2[2, n]*S2[4, n])/2 + S2[6, n] - S2[-5, -1, n] - 
     S2[-1, n]*S2[4, -1, n] - S2[4, 2, n] + S2[4, -1, -1, n]) + 
   S2[4, 1, 1, n] + 3*S2[-3, -1, -1, -1, n] - 2*S2[-3, -1, 1, 1, n] - 
   S2[-3, 1, -1, 1, n] - 2*(S2[-3, -2, 1, n] + S2[-3, 1, -2, n] + 
     S2[-1, n]*S2[-3, 1, 1, n] + S2[4, 1, 1, n] - S2[-3, -1, 1, 1, n] - 
     S2[-3, 1, -1, 1, n] - S2[-3, 1, 1, -1, n]) + 3*S2[-2, -2, -1, -1, n] + 
   3*(S2[-4, n]*S2[-2, n] - S2[3, n]^2/2 + S2[6, n]/2 - S2[-4, -2, n] - 
     S2[-2, n]*S2[2, -2, n] - S2[-2, -1, n]*S2[2, 1, n] + 
     S2[3, n]*(S2[-2, -1, n] + S2[2, 1, n]) - S2[-2, n]*S2[3, -1, n] + 
     S2[5, 1, n] + S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + 
       S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
       S2[-1, -2, 1, n]) + S2[2, -2, -2, n] + S2[-2, n]*S2[2, 1, -1, n] - 
     S2[2, 3, 1, n] + S2[3, -1, -2, n] - S2[3, 2, 1, n] - 
     S2[-2, -1, 1, 2, n]) - S2[-2, -1, 1, 2, n] - S2[-2, -1, 2, 1, n] + 
   3*(S2[-3, n]^2 - 2*S2[-4, n]*S2[-2, n] - (S2[-2, n]^2*S2[2, n])/2 + 
     (S2[2, n]*S2[4, n])/2 + 2*S2[-4, -2, n] + S2[2, n]*S2[-3, -1, n] + 
     S2[-2, n]*S2[-3, 1, n] - S2[3, n]*S2[-2, -1, n] - 
     S2[-3, n]*S2[-2, 1, n] - S2[-1, n]*S2[2, n]*S2[-2, 1, n] + 
     S2[-2, n]*S2[2, -2, n] + S2[-2, -1, n]*S2[2, 1, n] - 
     S2[2, n]*S2[3, 1, n] - S2[4, 2, n] - S2[-3, -1, 2, n] - 
     S2[-3, 1, -2, n] - S2[-3, 2, -1, n] + S2[2, n]*S2[-1, -2, 1, n] - 
     S2[2, -2, -2, n] + S2[3, -2, -1, n] + S2[-2, -1, 1, 2, n] + 
     S2[-2, 1, -1, 2, n] + S2[-2, 1, 2, -1, n]) - S2[-2, 2, -1, 1, n] + 
   4*(-S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] + S2[3, n]^2/2 + S2[6, n] + 
     S2[-5, -1, n] - S2[-4, -2, n] - S2[-2, n]*S2[-3, 1, n] + 
     S2[-3, n]*S2[-2, 1, n] + S2[-2, n]*S2[3, -1, n] + S2[-4, 1, -1, n] + 
     S2[-3, 1, -2, n] + S2[2, n]*S2[-2, 1, -1, n] - S2[3, -2, -1, n] - 
     S2[3, -1, -2, n] - S2[-2, 1, -1, 2, n] - S2[-2, 1, 2, -1, n] - 
     S2[-2, 2, 1, -1, n]) + ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (2*S2[-3, 1, n] + 6*S2[2, -2, n] - 2*S2[3, -1, n] + 
      2*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
        S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]) - 
      4*S2[2, 1, -1, n] - 6*S2[-1, -1, -1, 1, n]))/2 - S2[2, 2, -1, -1, n] - 
   S2[2, 2, 1, 1, n] - S2[3, -1, -1, 1, n] - 2*S2[3, -1, 1, -1, n] - 
   3*S2[3, 1, -1, -1, n] + 2*S2[-2, -1, -1, 1, -1, n] + 
   4*S2[-2, -1, 1, -1, -1, n] + 3*S2[-2, 1, -1, -1, -1, n] + 
   (S2[1, n]*(-4*S2[-3, n]*S2[-2, n] + 2*S2[-4, n]*S2[-1, n] - 
      8*S2[-2, n]*S2[-1, n]^3 - 3*S2[-1, n]^4*S2[1, n] + 
      4*S2[-2, n]*S2[-1, n]*S2[2, n] - 3*S2[1, n]*S2[2, n]^2 - 
      6*S2[-1, n]^2*S2[3, n] - 14*S2[2, n]*S2[3, n] - 6*S2[1, n]*S2[4, n] - 
      66*S2[5, n] - 38*S2[-4, -1, n] + 20*S2[-3, -2, n] - 
      4*S2[-1, n]*S2[-3, 1, n] + 8*S2[-1, n]^2*S2[-2, -1, n] - 
      24*S2[2, n]*S2[-2, -1, n] + 2*S2[-1, n]^3*S2[1, -1, n] - 
      6*S2[-1, n]*S2[2, n]*S2[1, -1, n] - 8*S2[-3, n]*
       (2*S2[-2, n] + S2[1, -1, n]) - 12*S2[-1, n]*S2[2, -2, n] - 
      8*S2[-1, n]^2*S2[2, 1, n] + 4*S2[-1, n]*S2[3, -1, n] + 4*S2[3, 2, n] + 
      8*S2[4, 1, n] + 8*S2[-3, 1, -1, n] + 24*S2[-2, -1, 2, n] + 
      20*(S2[-3, n]*S2[-2, n] + S2[5, n] + S2[-4, -1, n] - S2[-3, -2, n] + 
        S2[2, n]*S2[-2, -1, n] - S2[-2, -1, 2, n] - S2[-2, 2, -1, n]) + 
      24*S2[-2, 2, -1, n] - 4*S2[-1, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) + S2[-1, n]^2*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) + 
      S2[2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 6*S2[-1, n]^2*S2[-1, 1, -1, n] + 
      6*S2[2, n]*S2[-1, 1, -1, n] + 8*S2[-1, n]*S2[2, 1, -1, n] + 
      4*S2[2, 2, 1, n] - 12*S2[3, -1, -1, n] - 12*S2[-2, -1, -1, -1, n] + 
      12*S2[-1, n]*S2[-1, -1, -1, 1, n] + 12*S2[2, 1, -1, -1, n] + 
      24*S2[1, -1, -1, -1, -1, n]))/4 + 
   (S2[-1, n]*(4*S2[-5, n] + 4*(S2[-5, n] + S2[-4, n]*S2[1, n] - 
        S2[-4, 1, n]) + 4*S2[-4, 1, n] - 8*S2[-2, -1, n]*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      8*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*S2[2, 1, n] - 
      40*S2[4, -1, n] + 16*S2[-3, 1, 1, n] + 
      8*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 8*S2[3, -1, 1, n] - 
      12*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n]) - 4*(-6*S2[-2, n]^2*S2[-1, n] - 
        6*S2[-4, n]*S2[1, n] - 2*S2[-3, n]*S2[1, n]^2 - 
        S2[-1, n]^3*S2[1, n]^2 + 14*S2[-3, n]*S2[2, n] + 
        S2[-1, n]^3*S2[2, n] + 3*S2[-1, n]*S2[1, n]^2*S2[2, n] - 
        3*S2[-1, n]*S2[4, n] + 12*S2[-4, 1, n] + 6*S2[-1, n]*S2[-3, -1, n] - 
        12*S2[-3, 2, n] + 6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 
        6*S2[-1, n]^2*S2[-2, 1, n] - 6*S2[2, n]*S2[-2, 1, n] - 
        6*S2[1, n]*S2[2, -2, n] + 6*S2[2, n]*S2[2, -1, n] - 
        6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) - 
        12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 6*S2[1, n]*S2[3, -1, n] - 
        12*S2[-1, n]*S2[3, 1, n] - 12*S2[-2, 2, 1, n] + 
        12*S2[-1, -2, -2, n] + 6*S2[1, n]*S2[-1, -2, -1, n] + 
        12*S2[-1, n]*S2[-1, -2, 1, n] - 6*S2[-1, n]*S2[-1, 2, -1, n] + 
        6*S2[-1, n]^2*S2[1, 1, -1, n] - 6*S2[2, n]*S2[1, 1, -1, n] + 
        12*S2[1, n]*S2[2, 1, -1, n] + 12*S2[-1, n]*S2[2, 1, 1, n] + 
        12*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
        12*S2[-2, 1, -1, -1, n] + 12*S2[1, n]*S2[-1, -1, -1, 1, n] - 
        12*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] - 
        12*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n] + 
        12*S2[1, 1, -1, -1, -1, n])))/8 - 3*S2[2, -1, -1, -1, -1, n] - 
   2*S2[2, 1, -1, 1, -1, n] - 4*S2[2, 1, 1, -1, -1, n] + 
   6*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] -> (-79*S2[-6, n])/6 - 
   (S2[-4, n]*S2[-1, n]^2)/2 - (5*S2[-4, n]*S2[1, n]^2)/3 + 
   (2*(8*S2[-3, n] + S2[-1, n]^3)*S2[3, n])/3 - S2[-1, n]*S2[5, n] + 
   (29*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/6 - 
   (11*S2[-5, 1, n])/6 - (10*S2[-4, 2, n])/3 + S2[-1, n]*S2[-3, -2, n] + 
   2*S2[-1, n]^2*S2[-3, 1, n] + 
   (13*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n]))/2 - 
   (29*S2[-3, 3, n])/6 - S2[-3, n]*(S2[-2, n]*S2[-1, n] + 2*S2[3, n] - 
     S2[-2, -1, n]) + (8*S2[-2, n]^3 - (S2[-2, n] + S2[-1, n]*S2[1, n] - 
       S2[1, -1, n])^3)/6 - (S2[4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
      S2[1, -1, n]))/2 + S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - 
     S2[2, -2, n]) - (2*S2[3, n]*(-3*S2[-2, 1, n] + S2[2, -1, n]))/3 + 
   (S2[3, n]*(5*S2[-3, n] - 18*S2[-2, 1, n] + 4*S2[2, -1, n]))/6 + 
   S2[3, n]*(-3*S2[-2, 1, n] + 4*S2[2, -1, n]) - 
   (5*S2[-3, n]*(6*S2[-2, -1, n] - S2[2, 1, n]))/6 - 
   2*S2[-1, n]^2*S2[3, -1, n] + (4*S2[1, n]^2*S2[3, -1, n])/3 - 
   S2[-2, n]*S2[3, 1, n] + (41*S2[4, -2, n])/3 - S2[1, n]*S2[4, -1, n] - 
   S2[-1, n]*S2[4, 1, n] + (S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n])/
    2 + (55*S2[5, -1, n])/6 + S2[-4, -1, -1, n]/3 + 
   5*(S2[-6, n] + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
     S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - S2[-4, 2, n] - S2[5, -1, n] + 
     S2[-4, -1, -1, n]) - 3*S2[-4, 1, 1, n] + 
   (5*(S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
      (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
      S2[-4, 2, n] + S2[-4, 1, 1, n]))/3 + (7*S2[-3, -2, -1, n])/3 - 
   (14*S2[-3, -1, -2, n])/3 + (22*S2[-3, 1, 2, n])/3 + 
   (13*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - 
      S2[-3, 1, 2, n] - S2[-3, 2, 1, n]))/3 + (4*S2[-3, 2, 1, n])/3 + 
   S2[-1, n]^2*S2[-2, 1, 1, n] + 4*(-(S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - 
     S2[-4, 2, n] + S2[2, n]*S2[2, -2, n] + S2[4, -2, n] + S2[-2, 2, 2, n]) + 
   S2[-2, 3, 1, n] - S2[-2, n]*S2[-1, -2, 1, n] + 
   (S2[-3, n]*(7*S2[3, n] - 18*S2[-2, -1, n] + 12*S2[2, 1, n] - 
      9*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/6 + S2[2, -1, n]*(-2*S2[-2, -1, n] + 
     2*S2[2, 1, n] - (3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
        S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]))/2) + S2[-2, 1, n]*(2*S2[-2, -1, n] - 
     2*S2[2, 1, n] + (3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
        S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]))/2) + 
   (S2[-3, n]*(-47*S2[3, n] + 12*S2[-2, -1, n] + 7*S2[2, 1, n] + 
      18*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/6 + 
   (S2[-2, n]*(-48*S2[4, n] + 6*(S2[2, n]^2 + S2[4, n]) - 
      24*S2[-2, 1, -1, n] - 36*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + 6*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n]))))/6 + 
   (S2[2, n]*(21*S2[-4, n] - 62*S2[-3, 1, n] - 
      6*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 36*S2[3, -1, n] - 
      6*S2[-2, 1, 1, n] + 6*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n])))/6 - 
   S2[-1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
     S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 2*S2[1, n]^2*S2[2, 1, -1, n] - 
   (17*S2[3, -1, 2, n])/3 + 5*(S2[-6, n] + S2[-3, n]*S2[3, n] + 
     S2[-5, 1, n] - S2[-3, 3, n] + S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - 
     S2[3, 1, -2, n]) + 2*S2[3, 1, -2, n] - (29*S2[3, 2, -1, n])/3 - 
   (23*S2[4, -1, 1, n])/3 - (20*S2[4, 1, -1, n])/3 + 
   (11*S2[-3, -1, -1, 1, n])/3 + (14*S2[-3, -1, 1, -1, n])/3 - 
   (4*(S2[-4, -1, -1, n] + S2[-3, -2, -1, n] + S2[-3, -1, -2, n] + 
      S2[1, n]*S2[-3, -1, -1, n] - S2[-3, -1, -1, 1, n] - 
      S2[-3, -1, 1, -1, n] - S2[-3, 1, -1, -1, n]))/3 + 
   (8*S2[-3, 1, -1, -1, n])/3 + 4*S2[-3, 1, 1, 1, n] + S2[-2, -1, -1, 2, n] + 
   2*S2[-2, -1, 2, -1, n] + 2*S2[-2, 2, -1, -1, n] + 2*S2[-1, -2, -2, 1, n] + 
   S2[-1, -2, 1, -2, n] + (S2[2, n]*(7*S2[-4, n] - 12*S2[-2, n]*S2[2, n] + 
      12*S2[-3, 1, n] - 3*S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) + 3*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) + 12*S2[2, -2, n] - 4*S2[3, -1, n] + 
      12*S2[2, 1, -1, n] - 18*S2[-1, -1, -1, 1, n]))/6 + 
   5*(-S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - 
     (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - S2[-5, 1, n] - 
     S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
     S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + (S2[-2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 - S2[4, -2, n] + S2[5, -1, n] + 
     S2[-3, -1, -2, n] - S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
     S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
     S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n]) - 
   8*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
     S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
        2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
          S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n]) - 
   8*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
     S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
     S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
     2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]) - 
   5*(-S2[-6, n] + S2[-4, n]*S2[2, n] - S2[-1, n]*S2[1, n]*S2[2, n]^2 - 
     2*S2[-3, n]*S2[3, n] - S2[-1, n]*S2[2, n]*S2[3, n] - 
     S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] - S2[-4, 2, n] - 
     S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + 
     S2[4, n]*S2[1, -1, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
     S2[3, n]*S2[2, -1, n] + S2[-3, n]*S2[2, 1, n] + 
     S2[-1, n]*S2[2, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] + 
     S2[2, n]*S2[3, -1, n] - S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + 
     S2[5, -1, n] - 2*S2[-2, 2, 2, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
     S2[4, 1, -1, n] + 2*S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n]) - 
   5*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (-S2[-2, n]^2 + S2[1, n]^2*S2[2, n] + S2[-1, n]^2*
       (S2[1, n]^2 + S2[2, n]) + (-S2[2, n]^2 - S2[4, n])/2 + S2[4, n] + 
      4*S2[-3, -1, n] - 6*S2[3, 1, n] + 2*S2[-2, 1, -1, n] + 
      2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 4*S2[-1, -2, 1, n] + 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + (-S2[2, n]^2 - S2[4, n] - 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n]))/2 - 
      2*S2[-1, 2, -1, n] - 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
        S2[2, -1, n] - 2*S2[1, 1, -1, n]) + 2*S2[2, 1, 1, n] - 
      4*S2[1, 1, -1, -1, n]))/2 + 3*(S2[-6, n] + S2[-4, n]*S2[2, n] + 
     S2[-2, n]*S2[2, n]^2 + S2[-3, n]*S2[3, n] + S2[-5, 1, n] + 
     S2[2, n]*S2[-3, 1, n] - S2[3, n]*S2[-2, 1, n] - S2[2, n]*S2[2, -2, n] + 
     S2[-2, 1, n]*S2[2, 1, n] + S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - 
     S2[-3, 1, 2, n] - S2[-3, 2, 1, n] - S2[2, n]*S2[-2, 1, 1, n] - 
     S2[-2, 2, 2, n] - S2[3, 1, -2, n] + S2[-2, 1, 1, 2, n] - 
     S2[-2, 2, 1, 1, n] - S2[2, -2, 1, 1, n]) + 8*S2[2, -2, 1, 1, n] + 
   (S2[-1, n]*(36*S2[-3, n]*S2[-2, n] - 24*S2[2, n]*S2[3, n] - 19*S2[5, n] + 
      6*S2[-4, -1, n] - 12*S2[-3, -2, n] + 12*S2[2, n]*S2[-2, -1, n] + 
      12*S2[-2, n]*S2[-2, 1, n] - 6*S2[-3, n]*(S2[-2, n] + 
        S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 6*S2[-2, 1, n]*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      12*S2[-2, n]*S2[2, -1, n] + 6*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n])*S2[2, -1, n] - 12*S2[2, n]*S2[2, 1, n] + 
      12*S2[3, 2, n] + 10*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) + 
      34*S2[4, 1, n] - 36*S2[-3, -1, 1, n] - 24*S2[-3, 1, -1, n] - 
      12*S2[-2, -1, 2, n] - 12*S2[-2, 2, -1, n] + 
      9*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 12*(S2[5, n] + S2[2, n]*(S2[3, n] + 
          S2[2, 1, n]) - S2[3, 2, n] + S2[4, 1, n] - 2*S2[2, 2, 1, n]) + 
      12*S2[2, 2, 1, n] + 24*S2[3, -1, -1, n] + 28*S2[3, 1, 1, n] - 
      36*S2[-2, -1, 1, 1, n] - 24*S2[-2, 1, -1, 1, n] - 
      12*S2[-2, 1, 1, -1, n] + 24*S2[2, -1, -1, 1, n] + 
      12*S2[2, -1, 1, -1, n] + 36*S2[2, 1, 1, 1, n]))/6 - 
   4*S2[3, -1, -1, -1, n] + 5*(S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + 
     S2[3, 2, -1, n] + S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 
     2*S2[3, 1, 1, -1, n]) + 
   (4*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
      S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - S2[-2, 3, 1, n] + 
      S2[-1, n]*S2[3, 1, 1, n] - S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n] - 
      S2[3, 1, 1, -1, n]))/3 + 2*S2[3, 1, 1, -1, n] - 
   (8*(-S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + 
      (S2[2, n]*S2[3, -1, n])/2 - S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + 
      S2[5, -1, n] + S2[-2, 3, 1, n] - S2[3, -1, 2, n] + 
      S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
        S2[3, 1, -1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
      S2[4, 1, -1, n] + S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
      S2[3, 1, 1, -1, n]))/3 + 4*S2[-2, -1, -1, 1, 1, n] + 
   6*S2[-2, -1, 1, -1, 1, n] + 6*S2[-2, -1, 1, 1, -1, n] + 
   3*S2[-2, 1, -1, -1, 1, n] + 4*S2[-2, 1, -1, 1, -1, n] + 
   2*S2[-2, 1, 1, -1, -1, n] + 
   (S2[1, n]*(-44*S2[-5, n] - 10*S2[-1, n]*S2[4, n] + 
      5*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) + 15*S2[-4, 1, n] + 
      16*S2[3, -2, n] + 22*S2[4, -1, n] + 8*S2[-3, -1, -1, n] + 
      24*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) + 
      24*S2[2, 1, -2, n] - 16*S2[3, -1, 1, n] - 22*S2[3, 1, -1, n] - 
      24*S2[2, 1, -1, 1, n] - 36*S2[2, 1, 1, -1, n] + 
      3*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n])))/6 - 3*S2[2, -1, -1, -1, 1, n] - 
   4*S2[2, -1, -1, 1, -1, n] - 2*S2[2, -1, 1, -1, -1, n] - 
   2*(2*S2[-6, n] + (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 + S2[-3, n]*S2[3, n] + 
     S2[-1, n]*S2[2, n]*S2[3, n] + (S2[-1, n]*S2[1, n]*S2[4, n])/2 + 
     S2[-1, n]*S2[5, n] - S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] - 
     2*S2[-3, 3, n] + S2[3, n]*S2[-2, 1, n] - (S2[2, n]^2*S2[1, -1, n])/2 - 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] - 
     S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] + 
     S2[-3, n]*S2[2, 1, n] - S2[-2, 1, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] + 2*S2[-3, 1, 2, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + 2*S2[-2, 2, 2, n] + 
     S2[2, n]*S2[1, 2, -1, n] + S2[2, n]*S2[2, 1, -1, n] - 
     S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) - 
     S2[-1, n]*S2[2, 2, 1, n] - 2*S2[3, -1, 2, n] + S2[3, 1, -2, n] - 
     S2[3, 2, -1, n] + S2[4, 1, -1, n] - S2[-2, 1, 1, 2, n] - 
     S2[-1, 1, 2, 2, n] - S2[-1, 2, 1, 2, n] + S2[1, n]*S2[2, 1, 1, -1, n] + 
     S2[3, 1, 1, -1, n] - S2[2, 1, 1, -1, 1, n] - 3*S2[2, 1, 1, 1, -1, n]) - 
   4*(-S2[-6, n] - S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
     S2[-3, n]*S2[3, n] - S2[-5, 1, n] + 2*S2[-4, 2, n] + 
     S2[2, n]*S2[-3, 1, n] - S2[1, n]*S2[-3, 2, n] - S2[3, n]*S2[-2, 1, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 - 
     S2[2, n]*S2[2, -2, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     2*S2[-3, n]*S2[2, 1, n] - S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[-2, 1, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] - 
     S2[2, n]*S2[3, -1, n] + S2[-2, n]*S2[3, 1, n] + S2[-1, n]*S2[3, 2, n] + 
     S2[4, -2, n] + S2[1, n]*S2[4, -1, n] - S2[-1, n]*S2[4, 1, n] - 
     S2[5, -1, n] - S2[-4, 1, 1, n] - S2[-3, 1, 2, n] + 2*S2[-3, 2, 1, n] - 
     S2[2, n]*S2[-2, 1, 1, n] + S2[1, n]*S2[-1, 2, 2, n] + 
     S2[1, n]*S2[2, 1, -2, n] + (S2[1, n]^2*S2[2, 1, -1, n])/2 + 
     (S2[2, n]*S2[2, 1, -1, n])/2 - 2*S2[-2, n]*S2[2, 1, 1, n] + 
     2*S2[-1, n]*S2[2, 2, 1, n] + S2[1, n]*S2[3, 1, -1, n] + 
     S2[3, 2, -1, n] - S2[4, -1, 1, n] + S2[-2, 1, 1, 2, n] + 
     S2[-2, 2, 1, 1, n] - S2[-1, 1, 2, 2, n] - S2[-1, 2, 2, 1, n] + 
     S2[2, -2, 1, 1, n] - S2[1, n]*S2[2, 1, -1, 1, n] - 
     2*S2[1, n]*S2[2, 1, 1, -1, n] - S2[3, 1, -1, 1, n] - 
     2*S2[3, 1, 1, -1, n] + S2[2, 1, -1, 1, 1, n] + 2*S2[2, 1, 1, -1, 1, n] + 
     3*S2[2, 1, 1, 1, -1, n]) - 12*S2[-1, -1, -1, 1, 1, 1, n] - 
   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] -> (15*S2[-6, n])/4 + 2*S2[-4, n]*S2[-1, n]^2 + 
   (17*S2[-4, n]*S2[1, n]^2)/12 - 2*S2[-4, n]*S2[2, n] - S2[-3, n]*S2[3, n] + 
   ((-4*S2[-3, n] + S2[-1, n]^3)*S2[3, n])/3 - S2[-2, n]*S2[4, n] + 
   (S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n])/6 - (11*S2[-5, 1, n])/3 - 
   (13*S2[-4, 2, n])/6 + (S2[-1, n]^2*S2[-3, 1, n])/2 - 
   S2[1, n]*S2[-3, 2, n] - (7*(S2[-6, n] + S2[-3, n]*S2[3, n] - 
      S2[-3, 3, n]))/2 - S2[-3, 3, n]/6 + 
   (-S2[-2, n]^3 + (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^3)/6 - 
   (S2[4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]))/2 - 
   (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 - 
   S2[2, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 
   S2[3, n]*(-S2[-2, 1, n] - S2[2, -1, n]) + S2[1, n]*S2[2, n]*S2[2, -1, n] - 
   (S2[3, n]*S2[2, -1, n])/3 + 
   (S2[3, n]*(11*S2[-3, n] + 24*S2[-2, 1, n] + 4*S2[2, -1, n]))/12 - 
   S2[-3, n]*S2[2, 1, n] - S2[-1, n]*S2[2, n]*S2[2, 1, n] - 
   S2[-3, n]*(-S2[3, n] + S2[2, 1, n]) - (S2[-1, n]^2*S2[3, -1, n])/2 - 
   (S2[1, n]^2*S2[3, -1, n])/3 - S2[-2, n]*S2[3, 1, n] + 
   S2[-1, n]*S2[3, 2, n] - (8*S2[4, -2, n])/3 + 2*S2[1, n]*S2[4, -1, n] - 
   S2[-1, n]*S2[4, 1, n] + (3*(S2[-6, n] + S2[-1, n]*S2[5, n] - 
      S2[5, -1, n]))/4 - (35*S2[5, -1, n])/12 + (5*S2[-4, -1, -1, n])/3 - 
   3*(S2[-6, n] + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
     S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - S2[-4, 2, n] - S2[5, -1, n] + 
     S2[-4, -1, -1, n]) + S2[-4, 1, 1, n]/2 - 
   (13*(S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
      (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
      S2[-4, 2, n] + S2[-4, 1, 1, n]))/6 - (4*S2[-3, -2, -1, n])/3 + 
   (2*S2[-3, -1, -2, n])/3 - (4*S2[-3, 1, 2, n])/3 + (5*S2[-3, 2, 1, n])/3 + 
   (-S2[-5, 1, n] - S2[2, n]*S2[-3, 1, n] - S2[-3, 3, n] + S2[-3, 1, 2, n] + 
     S2[-3, 2, 1, n])/3 + (S2[-1, n]^2*S2[-2, 1, 1, n])/2 + 
   3*S2[-2, 2, 2, n] + S2[-2, 3, 1, n] + 
   (S2[-3, n]*(14*S2[3, n] + 2*S2[2, 1, n] - 
      (9*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
         S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
         S2[-1, 1, -1, n]))/2))/6 + 
   (S2[-3, n]*(9*S2[-2, -1, n] - 8*S2[2, 1, n] + 
      (3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
         S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
         S2[-1, 1, -1, n]))/2))/6 + 
   (S2[-3, n]*(-5*S2[3, n] + 6*S2[-2, -1, n] + 
      6*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/12 - 
   (S2[-2, 1, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/2 + (S2[2, -1, n]*(2*S2[-2, n]*S2[-1, n] + 
      S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
      S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]))/2 + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (S2[-2, n]^2 + (S2[2, n]^2 + S2[4, n])/2 - 2*S2[-2, 1, -1, n] + 
      (S2[2, n]^2 + S2[4, n] + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
          S2[-1, 2, -1, n]))/2))/2 + S2[1, n]*S2[-1, 2, 2, n] + 
   S2[1, n]*S2[2, 1, -2, n] + (S2[2, n]*(6*S2[-4, n] + 11*S2[-3, 1, n] - 
      9*S2[3, -1, n] + 3*S2[-2, 1, 1, n] - 
      3*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n])))/6 + 
   (S2[2, n]*(S2[-4, n] + 6*S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) - 6*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) + 12*S2[2, -2, n] - 4*S2[3, -1, n] + 
      6*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
        S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]) - 
      18*S2[2, 1, -1, n]))/12 - 
   (S2[-1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
      S2[1, 2, -1, n] - S2[2, 1, -1, n]))/2 + (S2[2, n]*S2[2, 1, -1, n])/2 - 
   2*S2[-2, n]*S2[2, 1, 1, n] + 
   (S2[-2, n]*(30*S2[4, n] - 3*(S2[2, n]^2 + S2[4, n]) - 
      6*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 + 
      12*S2[-2, 1, -1, n] + 12*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) - 3*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) + 
      12*S2[2, 1, 1, n]))/12 + S2[-1, n]*S2[2, 2, 1, n] + 
   (2*S2[3, -1, 2, n])/3 + S2[3, 1, -2, n] + (5*S2[3, 2, -1, n])/3 + 
   (8*S2[4, -1, 1, n])/3 + (5*S2[4, 1, -1, n])/3 - 
   (2*S2[-3, -1, -1, 1, n])/3 - (2*S2[-3, -1, 1, -1, n])/3 + 
   (S2[-4, -1, -1, n] + S2[-3, -2, -1, n] + S2[-3, -1, -2, n] + 
     S2[1, n]*S2[-3, -1, -1, n] - S2[-3, -1, -1, 1, n] - 
     S2[-3, -1, 1, -1, n] - S2[-3, 1, -1, -1, n])/3 - 
   (2*S2[-3, 1, -1, -1, n])/3 - S2[-3, 1, 1, 1, n] - S2[-2, -1, -1, 2, n] - 
   S2[-2, -1, 2, -1, n] + 2*S2[-2, 2, 1, 1, n] - 
   2*(-S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - 
     (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - S2[-5, 1, n] - 
     S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
     S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + (S2[-2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 - S2[4, -2, n] + S2[5, -1, n] + 
     S2[-3, -1, -2, n] - S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
     S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
     S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n]) + 
   (-2*S2[-6, n] - S2[-2, n]^3 - 6*S2[-3, 3, n] + 
     3*S2[-2, n]^2*S2[1, -1, n] + 3*S2[4, n]*S2[1, -1, n] + 
     6*S2[-3, -2, -1, n] + 6*S2[-3, -1, -2, n] - 
     3*S2[-1, n]*(S2[-3, n]*S2[-2, n] + S2[-2, n]^2*S2[1, n] + 
       S2[1, n]*S2[4, n] + S2[5, n] + S2[-3, -2, n] - 
       S2[-2, n]*S2[-2, 1, n] - S2[4, 1, n] - S2[-2, 1, -2, n]) - 
     3*S2[-2, n]*(S2[4, n] + 2*S2[-2, 1, -1, n]) - 6*S2[4, 1, -1, n] + 
     6*S2[-1, 1, -2, -2, n])/6 + 2*(S2[-6, n] + S2[-3, n]*S2[3, n] - 
     S2[-3, 3, n] - (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
     S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
        2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
          S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n]) - S2[-1, 1, 2, 2, n] + 
   2*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
     S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
     S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
     2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]) + 
   2*(-S2[-6, n] + S2[-4, n]*S2[2, n] - S2[-1, n]*S2[1, n]*S2[2, n]^2 - 
     2*S2[-3, n]*S2[3, n] - S2[-1, n]*S2[2, n]*S2[3, n] - 
     S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] - S2[-4, 2, n] - 
     S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + 
     S2[4, n]*S2[1, -1, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
     S2[3, n]*S2[2, -1, n] + S2[-3, n]*S2[2, 1, n] + 
     S2[-1, n]*S2[2, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] + 
     S2[2, n]*S2[3, -1, n] - S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + 
     S2[5, -1, n] - 2*S2[-2, 2, 2, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
     S2[4, 1, -1, n] + 2*S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n]) - 
   S2[1, n]*S2[2, 1, -1, 1, n] - S2[1, n]*S2[2, 1, 1, -1, n] + 
   S2[3, -1, -1, -1, n] + (-S2[-6, n] - S2[-3, n]*S2[3, n] - S2[-5, 1, n] + 
     S2[-3, 3, n] - S2[-2, n]*S2[3, 1, n] - S2[-4, 1, 1, n] + 
     S2[-2, 3, 1, n] - S2[-1, n]*S2[3, 1, 1, n] + S2[3, -1, 1, 1, n] + 
     S2[3, 1, -1, 1, n] + S2[3, 1, 1, -1, n])/3 + 
   (2*(-S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + 
      (S2[2, n]*S2[3, -1, n])/2 - S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + 
      S2[5, -1, n] + S2[-2, 3, 1, n] - S2[3, -1, 2, n] + 
      S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
        S2[3, 1, -1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
      S2[4, 1, -1, n] + S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
      S2[3, 1, 1, -1, n]))/3 - S2[-2, -1, -1, 1, 1, n] - 
   S2[-2, -1, 1, -1, 1, n] - S2[-2, 1, -1, 1, -1, n] - 
   S2[-2, 1, 1, -1, -1, n] + (S2[-1, n]*(29*S2[5, n] - 36*S2[-4, -1, n] + 
      12*S2[-2, 1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      12*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*S2[2, -1, n] - 
      2*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) - 2*S2[4, 1, n] + 
      4*S2[3, 1, 1, n] - 36*S2[-1, -1, 1, 1, 1, n] - 
      12*S2[-1, 1, -1, 1, 1, n]))/12 + 
   (S2[1, n]*(16*S2[-5, n] + 6*S2[-3, n]*S2[-1, n]^2 - 6*S2[-3, n]*S2[2, n] - 
      12*S2[-2, n]*S2[3, n] + 14*S2[-1, n]*S2[4, n] - 
      4*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) - 30*S2[-4, 1, n] - 
      12*S2[-1, n]*S2[-3, -1, n] - 12*S2[-2, n]*S2[-2, -1, n] - 
      12*S2[-2, n]*S2[2, 1, n] + 16*S2[3, -2, n] + 12*S2[-1, n]*S2[3, 1, n] - 
      44*S2[4, -1, n] + 8*S2[-3, -1, -1, n] + 12*S2[-3, 1, 1, n] + 
      24*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
        S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n]) - 
      12*S2[-1, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
        S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
      6*S2[-2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 12*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - 
        S2[-3, 2, n] + S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + 
        S2[-1, 2, 2, n]) + 24*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        S2[-4, 1, n] - S2[-3, 2, n] + S2[-2, n]*S2[2, 1, n] - 
        S2[-2, 2, 1, n] - S2[2, 1, -2, n]) + 12*S2[2, 1, -2, n] + 
      12*S2[-1, n]*S2[2, 1, 1, n] - 4*S2[3, -1, 1, n] - 4*S2[3, 1, -1, n] + 
      12*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
      3*S2[-1, n]*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + 
          S2[2, n]) + S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 
        4*S2[-1, -2, 1, n] + 2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - 
          S2[2, 1, n] - S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
        2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
          2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]) - 
      6*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n]) - 3*(-6*S2[-2, n]^2*S2[-1, n] - 
        6*S2[-4, n]*S2[1, n] - 2*S2[-3, n]*S2[1, n]^2 - 
        S2[-1, n]^3*S2[1, n]^2 + 14*S2[-3, n]*S2[2, n] + 
        S2[-1, n]^3*S2[2, n] + 3*S2[-1, n]*S2[1, n]^2*S2[2, n] - 
        3*S2[-1, n]*S2[4, n] + 12*S2[-4, 1, n] + 6*S2[-1, n]*S2[-3, -1, n] - 
        12*S2[-3, 2, n] + 6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 
        6*S2[-1, n]^2*S2[-2, 1, n] - 6*S2[2, n]*S2[-2, 1, n] - 
        6*S2[1, n]*S2[2, -2, n] + 6*S2[2, n]*S2[2, -1, n] - 
        6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) - 
        12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 6*S2[1, n]*S2[3, -1, n] - 
        12*S2[-1, n]*S2[3, 1, n] - 12*S2[-2, 2, 1, n] + 
        12*S2[-1, -2, -2, n] + 6*S2[1, n]*S2[-1, -2, -1, n] + 
        12*S2[-1, n]*S2[-1, -2, 1, n] - 6*S2[-1, n]*S2[-1, 2, -1, n] + 
        6*S2[-1, n]^2*S2[1, 1, -1, n] - 6*S2[2, n]*S2[1, 1, -1, n] + 
        12*S2[1, n]*S2[2, 1, -1, n] + 12*S2[-1, n]*S2[2, 1, 1, n] + 
        12*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
        12*S2[-2, 1, -1, -1, n] + 12*S2[1, n]*S2[-1, -1, -1, 1, n] - 
        12*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] - 
        12*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n] + 
        12*S2[1, 1, -1, -1, -1, n])))/12 + S2[2, -1, -1, 1, -1, n] + 
   S2[2, -1, 1, -1, -1, n] + S2[2, 1, -1, 1, 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], 
 S2[1, -1, -1, 1, 1, 1, n] -> S2[-3, n]^2/4 - S2[2, n]^3/12 + 
   (S2[1, n]^3*S2[3, n])/6 + (S2[-1, n]^2*S2[4, n])/2 - 
   (S2[1, n]^2*S2[4, n])/2 - (S2[2, n]*S2[4, n])/2 + (25*S2[6, n])/12 + 
   (S2[-3, n]^2 + S2[6, n])/4 + (S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 
     2*S2[6, n])/3 - S2[-5, -1, n] - S2[-4, -2, n] - S2[1, n]*S2[-3, -2, n] - 
   (S2[2, n]*S2[-3, -1, n])/2 + (S2[-3, n]*(S2[-2, 1, n] - S2[2, -1, n]))/2 + 
   (S2[-3, n]*(S2[-3, n] + S2[-2, 1, n] - S2[2, -1, n]))/2 - 
   (S2[1, n]^2*S2[3, 1, n])/2 + S2[4, 2, n] - 
   3*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]) - S2[5, 1, n] - 
   S2[-4, -1, 1, n] - S2[-4, 1, -1, n] - S2[-3, -2, 1, n] + 
   S2[1, n]*S2[-3, -1, 1, n] - S2[-3, -1, 2, n] + S2[1, n]*S2[-3, 1, -1, n] + 
   (S2[3, n]*(-5*S2[3, n] + 3*S2[-2, -1, n] + 
      (3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
         S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
         S2[-1, 1, -1, n]))/2))/3 + 
   (S2[-2, n]*(21*S2[-4, n] - 9*(S2[-4, n] + S2[-3, n]*S2[1, n] - 
        S2[-3, 1, n]) - 3*S2[-3, 1, n] - 6*S2[3, -1, n] + 6*S2[-2, 1, 1, n] - 
      6*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n])))/6 + 
   S2[2, n]*(S2[4, n]/4 - S2[3, 1, n] + S2[2, 1, 1, n]) + 
   S2[1, n]*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
     S2[2, 2, 1, n]) + S2[2, 3, 1, n] + 
   (3*(S2[3, n]^2 + S2[6, n] + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
        S2[2, 3, 1, n] - S2[3, 2, 1, n])))/2 + 2*S2[3, 2, 1, n] + 
   S2[4, -1, -1, n] + S2[4, 1, 1, n] + 
   2*((S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + S2[6, n] + 
     S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - S2[5, 1, n] + 
     S2[4, 1, 1, n]) - S2[-3, -1, 1, 1, n] - S2[-3, 1, -1, 1, n] - 
   S2[-3, 1, 1, -1, n] - S2[-2, -2, 1, 1, n] - S2[-2, -1, 1, 2, n] - 
   S2[-2, -1, 2, 1, n] + 
   (S2[2, n]*(-18*S2[4, n] - 3*(S2[2, n]^2 + S2[4, n]) + 18*S2[-3, -1, n] - 
      18*S2[3, 1, n] + 12*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) - 12*S2[2, 1, 1, n] + 
      3*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 
        S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
        2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
        2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
          2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n])))/
    12 + (S2[-1, n]*(4*S2[-5, n] + 4*S2[-4, 1, n] - 4*S2[4, -1, n] + 
      4*S2[-3, 1, 1, n] - 4*S2[3, -1, 1, n] + 4*S2[-2, 1, 1, 1, n] - 
      4*S2[2, -1, 1, 1, n]))/4 - S2[2, 2, 1, 1, n] + S2[3, -1, -1, 1, n] + 
   S2[3, -1, 1, -1, n] + (-(S2[1, n]^3*S2[3, n]) - 2*S2[3, n]^2 - 
     3*S2[2, n]*S2[4, n] - 6*S2[6, n] - 3*S2[1, n]^2*
      (S2[4, n] - S2[3, 1, n]) - 3*S2[2, n]*S2[3, 1, n] + 6*S2[4, 2, n] + 
     6*S2[2, 3, 1, n] - 3*S2[1, n]*(S2[2, n]*S2[3, n] + 
       2*(S2[5, n] - S2[3, 2, n] - S2[4, 1, n] + S2[3, 1, 1, n])) - 
     6*S2[4, 1, 1, n] + 6*S2[3, 1, 1, 1, n])/6 - S2[-2, 1, -1, 1, 1, n] - 
   S2[-2, 1, 1, -1, 1, n] - S2[-2, 1, 1, 1, -1, n] + 
   (S2[1, n]*(9*S2[-3, n]*S2[-2, n] - 3*S2[2, n]*S2[3, n] + 6*S2[5, n] + 
      6*S2[-3, -2, n] - 6*S2[3, 2, n] + 6*S2[4, 1, n] - 6*S2[-3, -1, 1, n] - 
      6*S2[-3, 1, -1, n] + 6*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - 
        S2[3, 2, n] + S2[4, 1, n] - 2*S2[2, 2, 1, n]) + 6*S2[2, 2, 1, n] + 
      6*S2[3, 1, 1, n] + 6*S2[-1, -1, 1, 1, 1, n]))/6 + 
   S2[2, -1, -1, 1, 1, n] + S2[2, -1, 1, -1, 1, n] + S2[2, -1, 1, 1, -1, n] - 
   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] -> (-13*S2[-3, n]^2)/6 + 2*S2[-4, n]*S2[-2, n] - 
   (S2[-3, n]*S2[-1, n]^3)/3 + (S2[-2, n]^2*S2[2, n])/2 + S2[3, n]^2 + 
   (S2[2, n]*(-S2[-1, n]^4 + 6*S2[-1, n]^2*S2[2, n] + 3*S2[2, n]^2 - 
      6*S2[4, n]))/12 - (S2[-1, n]^2*S2[4, n])/4 - 
   (S2[-1, n]^2*(S2[2, n]^2 + S2[4, n]))/8 - S2[1, n]*S2[5, n] - S2[6, n]/2 - 
   (5*(S2[3, n]^2 + S2[6, n]))/12 + (S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 
     2*S2[6, n])/6 + (3*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]))/2 + 
   (8*S2[-5, -1, n])/3 + S2[-4, -2, n]/6 + (S2[-1, n]^2*S2[-3, -1, n])/2 - 
   S2[2, n]*S2[-3, -1, n] - 2*S2[-2, n]*S2[-3, 1, n] + 
   (3*S2[3, n]*S2[-2, -1, n])/2 + 2*S2[-3, n]*S2[-2, 1, n] - 
   (S2[-1, n]^3*S2[-2, 1, n])/3 + S2[-1, n]*S2[2, n]*S2[-2, 1, n] + 
   (S2[-1, n]^3*S2[2, -1, n])/3 + 
   (S2[3, n]*(7*S2[3, n] - 6*S2[-2, -1, n] - 3*S2[2, 1, n]))/6 - 
   S2[-2, -1, n]*S2[2, 1, n] + (S2[3, n]*(-S2[-2, -1, n] + S2[2, 1, n]))/2 - 
   S2[3, n]*(S2[-2, -1, n] + S2[2, 1, n]) + 
   (-3*S2[-2, n]^2*S2[-1, n]^2 + 16*S2[3, n]^2 + 6*S2[-2, -1, n]^2 + 
     3*S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 + 
     6*S2[2, 1, n]^2)/12 + 2*S2[-2, n]*S2[3, -1, n] - 
   (S2[-1, n]^2*S2[3, 1, n])/2 + S2[2, n]*S2[3, 1, n] + 
   S2[1, n]*(S2[5, n] - S2[4, 1, n]) + S2[4, 2, n] + (7*S2[5, 1, n])/6 - 
   (13*S2[-4, -1, 1, n])/6 - 
   (7*(S2[-5, -1, n] + S2[-4, -2, n] + S2[1, n]*S2[-4, -1, n] - 
      S2[-4, -1, 1, n] - S2[-4, 1, -1, n]))/6 - (7*S2[-4, 1, -1, n])/6 + 
   S2[-3, -2, 1, n] + 2*S2[-3, -1, 2, n] + 3*S2[-3, 1, -2, n] + 
   2*S2[-3, 2, -1, n] + (S2[-1, n]^2*S2[-2, 1, -1, n])/2 + 
   S2[2, n]*S2[-2, 1, -1, n] + 
   (S2[-2, n]*(-6*S2[-3, 1, n] - 6*S2[2, -2, n] + 6*S2[3, -1, n] - 
      3*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
        S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n])))/6 + 
   (S2[-1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
      S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]))/2 - 
   S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
     S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 
   S2[2, n]*S2[-1, -2, 1, n] - 
   (S2[-1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/8 - 
   (S2[-1, n]^3*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
      S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]))/3 + 
   (S2[-3, n]*(S2[-2, 1, n] - S2[2, -1, n] - 
      2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/3 - 
   S2[-2, n]*S2[2, 1, -1, n] - (S2[-1, n]^2*S2[2, 1, 1, n])/2 - 
   (7*S2[2, 3, 1, n])/6 - 2*S2[3, -2, -1, n] - 3*S2[3, -1, -2, n] + 
   S2[1, n]*S2[3, -1, -1, n] - S2[-1, n]*S2[3, -1, 1, n] - 
   (19*(S2[3, n]^2 + S2[6, n] + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
        S2[2, 3, 1, n] - S2[3, 2, 1, n])))/12 - (13*S2[3, 2, 1, n])/6 + 
   S2[4, 1, 1, n] + S2[-2, -2, -1, -1, n] - 2*S2[-2, 1, -1, 2, n] - 
   2*S2[-2, 1, 2, -1, n] + 2*(S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] - 
     S2[3, n]^2/2 + S2[6, n] - S2[-4, -2, n] + S2[-2, n]*S2[-3, 1, n] + 
     S2[3, n]*S2[-2, -1, n] - S2[-2, n]*S2[3, -1, n] + S2[5, 1, n] + 
     S2[-4, -1, 1, n] - S2[-3, -2, 1, n] - S2[-3, 1, -2, n] + 
     S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
       S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
     S2[3, -1, -2, n] - S2[-2, -1, 1, 2, n] - S2[-2, -1, 2, 1, n] - 
     S2[-2, 2, -1, 1, n]) - S2[-2, 2, 1, -1, n] + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (-S2[-4, n] - S2[-2, n]*S2[2, n] - S2[-1, n]*S2[-2, -1, n] - 
      S2[2, -2, n] - S2[3, -1, n] + S2[-1, -2, -1, n] + 2*S2[2, 1, -1, n] + 
      2*S2[-1, -1, -1, 1, n]))/2 + 
   (S2[2, n]*(3*S2[-2, n]^2 - 5*S2[4, n] - (3*(S2[2, n]^2 + S2[4, n]))/2 - 
      6*S2[-3, -1, n] + 3*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 - 
      4*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n]) + 28*S2[3, 1, n] + 
      6*S2[-2, 1, -1, n] + 6*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) - (3*(S2[2, n]^2 + S2[4, n] + 
         2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/2 - 
      6*S2[2, 1, 1, n] + 3*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*
         (S2[1, n]^2 + S2[2, n]) + S2[4, n] + 2*S2[-3, -1, n] - 
        4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 2*S2[1, n]*
         (S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - S2[-1, 1, -1, n]) - 
        2*S2[-1, 2, -1, n] - 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
          S2[2, -1, n] - 2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 
        4*S2[1, 1, -1, -1, n])))/12 + 
   (S2[-1, n]^2*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 
      S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
      2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
        2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]))/4 - 
   2*S2[2, 2, -1, -1, n] - 2*S2[2, 2, 1, 1, n] - 2*S2[3, 1, -1, -1, n] + 
   2*S2[-2, -1, -1, -1, 1, n] + S2[-2, -1, -1, 1, -1, n] + 
   (S2[1, n]*(12*S2[-3, n]*S2[-2, n] + 2*S2[-4, n]*S2[-1, n] + 
      4*S2[2, n]*S2[3, n] + 12*S2[5, n] + 26*S2[-4, -1, n] + 
      12*S2[2, n]*S2[-2, -1, n] + 4*S2[-3, n]*(S2[-2, n] + 
        S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 2*S2[-1, n]^3*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      6*S2[-1, n]*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      12*S2[-1, n]*S2[2, -2, n] - 12*S2[2, n]*S2[2, 1, n] - 
      12*S2[-3, 1, -1, n] - 48*(S2[-3, n]*S2[-2, n] + S2[5, n] + 
        S2[-4, -1, n] - S2[-3, -2, n] + S2[2, n]*S2[-2, -1, n] - 
        S2[-2, -1, 2, n] - S2[-2, 2, -1, n]) + 
      6*S2[-1, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
        S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]) - 
      6*S2[-1, n]^2*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
        S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 6*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) - 
      12*S2[-1, n]*S2[2, 1, -1, n] + 48*S2[2, 2, 1, n] - 
      36*S2[-2, -1, -1, -1, n] + 36*S2[-1, n]*S2[-1, -1, -1, 1, n] + 
      12*S2[2, 1, -1, -1, n] - 2*(-8*S2[-2, n]*S2[-1, n]^3 - 
        3*S2[-1, n]^4*S2[1, n] - 3*S2[1, n]*S2[2, n]^2 - 
        6*S2[-1, n]^2*S2[3, n] - 6*S2[2, n]*S2[3, n] - 6*S2[1, n]*S2[4, n] - 
        24*S2[5, n] - 24*S2[-4, -1, n] + 24*S2[-3, -2, n] + 
        6*S2[-1, n]^2*S2[-2, -1, n] - 18*S2[2, n]*S2[-2, -1, n] + 
        2*S2[-1, n]^3*S2[1, -1, n] - 6*S2[-1, n]*S2[2, n]*S2[1, -1, n] - 
        8*S2[-3, n]*(2*S2[-2, n] + S2[1, -1, n]) - 6*S2[-1, n]^2*
         S2[2, 1, n] - 6*S2[2, n]*S2[2, 1, n] + 24*S2[-2, -1, 2, n] + 
        24*S2[-2, 2, -1, n] + 6*S2[-1, n]^2*S2[-1, 1, -1, n] + 
        6*S2[2, n]*S2[-1, 1, -1, n] + 24*S2[2, 2, 1, n] - 
        24*S2[-2, -1, -1, -1, n] + 24*S2[-1, n]*S2[-1, -1, -1, 1, n] + 
        24*S2[2, 1, -1, -1, n] + 24*S2[1, -1, -1, -1, -1, n])))/12 + 
   (S2[-1, n]*(-16*S2[-5, n] + 4*S2[-3, n]*S2[2, n] - 
      2*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) - 2*S2[-4, 1, n] - 
      6*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 12*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
         2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n]) + 12*S2[3, -1, 1, n] + 
      6*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n])))/12 + S2[2, 1, -1, 1, -1, n] + 
   2*(S2[-3, n]^2 - S2[-4, n]*S2[-2, n] - S2[3, n]^2/2 + S2[2, n]*S2[4, n] + 
     S2[6, n]/2 + S2[-4, -2, n] + S2[2, n]*S2[-3, -1, n] + 
     S2[-2, n]*S2[-3, 1, n] - S2[-3, n]*S2[-2, 1, n] + S2[3, n]*S2[2, 1, n] - 
     S2[-2, n]*S2[3, -1, n] - S2[4, 2, n] + S2[5, 1, n] - S2[-3, -1, 2, n] - 
     S2[-3, 1, -2, n] - S2[-3, 2, -1, n] - S2[2, n]*S2[-2, 1, -1, n] + 
     S2[-2, n]*S2[2, 1, -1, n] - S2[2, 3, 1, n] + S2[3, -2, -1, n] + 
     S2[3, -1, -2, n] - S2[3, 2, 1, n] + S2[-2, 1, -1, 2, n] + 
     S2[-2, 1, 2, -1, n] + S2[1, n]*S2[2, 1, -1, -1, n] + 
     S2[2, 2, -1, -1, n] + S2[3, 1, -1, -1, n] - S2[2, 1, -1, -1, 1, n] - 
     S2[2, 1, -1, 1, -1, n] - 2*S2[2, 1, 1, -1, -1, n]) + 
   4*S2[2, 1, 1, -1, -1, n] - S2[-1, -1, -1, 1, -1, 1, n], 
 S2[1, -1, 1, -1, -1, 1, n] -> (32*S2[-6, n])/3 - (S2[-4, n]*S2[1, n]^2)/3 - 
   (2*(5*S2[-3, n] + S2[-1, n]^3)*S2[3, n])/3 - S2[-2, n]*S2[4, n] - 
   (35*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/6 - 
   (7*S2[-5, 1, n])/6 + (16*S2[-4, 2, n])/3 - 2*S2[-1, n]^2*S2[-3, 1, n] + 
   (22*S2[-3, 3, n])/3 + 
   (-8*S2[-2, n]^3 + (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^3)/6 - 
   S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) - 
   S2[2, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 
   S2[3, n]*(5*S2[-2, 1, n] - 4*S2[2, -1, n]) + 
   (S2[3, n]*(-7*S2[-3, n] + 3*S2[-2, 1, n] - 2*S2[2, -1, n]))/3 + 
   (2*S2[3, n]*(-3*S2[-2, 1, n] + S2[2, -1, n]))/3 + 
   2*S2[-1, n]^2*S2[3, -1, n] - (S2[1, n]^2*S2[3, -1, n])/3 - 
   (29*S2[4, -2, n])/3 - (9*(S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n]))/
    2 - (31*S2[5, -1, n])/6 - S2[-4, -1, -1, n]/3 - 
   4*(S2[-6, n] + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
     S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - S2[-4, 2, n] - S2[5, -1, n] + 
     S2[-4, -1, -1, n]) - 3*S2[-4, 1, 1, n] + 
   (S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
     (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
     S2[-4, 2, n] + S2[-4, 1, 1, n])/3 - (7*S2[-3, -2, -1, n])/3 + 
   (17*S2[-3, -1, -2, n])/3 - (16*S2[-3, 1, 2, n])/3 - 
   (13*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - 
      S2[-3, 1, 2, n] - S2[-3, 2, 1, n]))/3 + (2*S2[-3, 2, 1, n])/3 - 
   S2[-1, n]^2*S2[-2, 1, 1, n] + 2*S2[-2, 2, 2, n] - 
   3*(-(S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-4, 2, n] + 
     S2[2, n]*S2[2, -2, n] + S2[4, -2, n] + S2[-2, 2, 2, n]) + 
   (S2[-3, n]*(23*S2[3, n] - 12*S2[-2, -1, n] + 2*S2[2, 1, n] - 
      18*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/6 - 2*S2[-2, 1, n]*(S2[-2, -1, n] - S2[2, 1, n] + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])/2) + 2*S2[2, -1, n]*(S2[-2, -1, n] - S2[2, 1, n] + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])/2) + (S2[-3, n]*(15*S2[-2, -1, n] - 7*S2[2, 1, n] + 
      (3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
         S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
         S2[-1, 1, -1, n]))/2))/3 + 
   (S2[-3, n]*(-S2[3, n] + 18*S2[-2, -1, n] - 12*S2[2, 1, n] + 
      9*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/6 - (2*S2[-2, n]*S2[-1, n] + 
     S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
     S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n])*
    ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   (S2[2, n]*(-18*S2[-4, n] + 50*S2[-3, 1, n] + 
      6*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) - 24*S2[3, -1, n] + 
      6*S2[-2, 1, 1, n] - 6*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n])))/6 + 
   S2[-1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
     S2[1, 2, -1, n] - S2[2, 1, -1, n]) - S2[1, n]^2*S2[2, 1, -1, n] + 
   (S2[-2, n]*(48*S2[4, n] - 3*(S2[2, n]^2 + S2[4, n]) + 
      24*S2[-2, 1, -1, n] + 36*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) - 6*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) - 
      12*S2[2, 1, 1, n]))/6 + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     ((-S2[2, n]^2 - S2[4, n])/2 - 2*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + 2*S2[2, 1, 1, n]))/2 + (5*S2[3, -1, 2, n])/3 - 
   9*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
     S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - S2[3, 1, -2, n]) - 
   3*S2[3, 1, -2, n] + (23*S2[3, 2, -1, n])/3 + (14*S2[4, -1, 1, n])/3 - 
   2*(S2[4, -2, n] + S2[1, n]*S2[4, -1, n] + S2[5, -1, n] - S2[4, -1, 1, n] - 
     S2[4, 1, -1, n]) + (17*S2[4, 1, -1, n])/3 - (14*S2[-3, -1, -1, 1, n])/
    3 - (17*S2[-3, -1, 1, -1, n])/3 + 
   (S2[-4, -1, -1, n] + S2[-3, -2, -1, n] + S2[-3, -1, -2, n] + 
     S2[1, n]*S2[-3, -1, -1, n] - S2[-3, -1, -1, 1, n] - 
     S2[-3, -1, 1, -1, n] - S2[-3, 1, -1, -1, n])/3 - 
   (11*S2[-3, 1, -1, -1, n])/3 - 4*S2[-3, 1, 1, 1, n] - 
   2*S2[-2, -1, -1, 2, n] - 2*S2[-2, -1, 2, -1, n] - 2*S2[-2, 2, -1, -1, n] + 
   (S2[2, n]*(-13*S2[-4, n] + 12*S2[-2, n]*S2[2, n] - 12*S2[-3, 1, n] - 
      12*S2[2, -2, n] + 10*S2[3, -1, n] - 6*S2[2, 1, -1, n] + 
      18*S2[-1, -1, -1, 1, n]))/6 - 
   4*(-S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - 
     (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - S2[-5, 1, n] - 
     S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
     S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + (S2[-2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 - S2[4, -2, n] + S2[5, -1, n] + 
     S2[-3, -1, -2, n] - S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
     S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
     S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n]) + 
   6*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
     S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
        2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
          S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n]) + 
   6*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
     S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
     S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
     2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]) + 
   4*(-S2[-6, n] + S2[-4, n]*S2[2, n] - S2[-1, n]*S2[1, n]*S2[2, n]^2 - 
     2*S2[-3, n]*S2[3, n] - S2[-1, n]*S2[2, n]*S2[3, n] - 
     S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] - S2[-4, 2, n] - 
     S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + 
     S2[4, n]*S2[1, -1, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
     S2[3, n]*S2[2, -1, n] + S2[-3, n]*S2[2, 1, n] + 
     S2[-1, n]*S2[2, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] + 
     S2[2, n]*S2[3, -1, n] - S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + 
     S2[5, -1, n] - 2*S2[-2, 2, 2, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
     S2[4, 1, -1, n] + 2*S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n]) + 
   4*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) - 
   2*(S2[-6, n] + S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
     S2[-3, n]*S2[3, n] + S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] - 
     S2[3, n]*S2[-2, 1, n] - S2[2, n]*S2[2, -2, n] + 
     S2[-2, 1, n]*S2[2, 1, n] + S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - 
     S2[-3, 1, 2, n] - S2[-3, 2, 1, n] - S2[2, n]*S2[-2, 1, 1, n] - 
     S2[-2, 2, 2, n] - S2[3, 1, -2, n] + S2[-2, 1, 1, 2, n] - 
     S2[-2, 2, 1, 1, n] - S2[2, -2, 1, 1, n]) - 6*S2[2, -2, 1, 1, n] + 
   (S2[-1, n]*(-36*S2[-3, n]*S2[-2, n] + 24*S2[2, n]*S2[3, n] + 46*S2[5, n] + 
      12*S2[-3, -2, n] - 12*S2[2, n]*S2[-2, -1, n] - 
      12*S2[-2, n]*S2[-2, 1, n] + 12*S2[-2, n]*S2[2, -1, n] + 
      12*S2[2, n]*S2[2, 1, n] - 12*S2[3, 2, n] - 
      19*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) - 43*S2[4, 1, n] + 
      36*S2[-3, -1, 1, n] + 24*S2[-3, 1, -1, n] + 12*S2[-2, -1, 2, n] + 
      12*S2[-2, 2, -1, n] - 6*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) - 
      12*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n] - 2*S2[2, 2, 1, n]) - 12*S2[2, 2, 1, n] - 
      24*S2[3, -1, -1, n] - 40*S2[3, 1, 1, n] + 36*S2[-2, -1, 1, 1, n] + 
      24*S2[-2, 1, -1, 1, n] + 12*S2[-2, 1, 1, -1, n] - 
      24*S2[2, -1, -1, 1, n] - 12*S2[2, -1, 1, -1, n] - 
      36*S2[2, 1, 1, 1, n]))/6 + 4*S2[3, -1, -1, -1, n] + 
   4*S2[3, -1, 1, 1, n] + 2*S2[3, 1, -1, 1, n] - 
   5*(S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 2*S2[3, 1, 1, -1, n]) + 
   (2*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
      S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - S2[-2, 3, 1, n] + 
      S2[-1, n]*S2[3, 1, 1, n] - S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n] - 
      S2[3, 1, 1, -1, n]))/3 + 
   (2*(-S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + 
      (S2[2, n]*S2[3, -1, n])/2 - S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + 
      S2[5, -1, n] + S2[-2, 3, 1, n] - S2[3, -1, 2, n] + 
      S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
        S2[3, 1, -1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
      S2[4, 1, -1, n] + S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
      S2[3, 1, 1, -1, n]))/3 - 2*S2[-2, -1, -1, 1, 1, n] - 
   4*S2[-2, -1, 1, -1, 1, n] - 6*S2[-2, -1, 1, 1, -1, n] - 
   3*S2[-2, 1, -1, -1, 1, n] - 4*S2[-2, 1, -1, 1, -1, n] - 
   2*S2[-2, 1, 1, -1, -1, n] + 
   (S2[1, n]*(39*S2[-5, n] + 9*S2[-2, n]^2*S2[-1, n] + 
      9*S2[-3, n]*S2[-1, n]^2 + S2[-4, n]*S2[1, n] + 15*S2[-3, n]*S2[2, n] + 
      3*S2[-1, n]^3*S2[2, n] - 9*S2[-1, n]*S2[2, n]^2 - 
      12*S2[-2, n]*S2[3, n] + 28*S2[-1, n]*S2[4, n] + 
      6*S2[-1, n]*(S2[2, n]^2 + S2[4, n]) + 8*S2[-4, 1, n] - 
      18*S2[-1, n]*S2[-3, -1, n] - 24*S2[-3, 2, n] - 
      12*S2[-2, n]*S2[-2, -1, n] + 9*S2[-1, n]^2*S2[-2, 1, n] - 
      9*S2[2, n]*S2[-2, 1, n] - 9*S2[-1, n]^2*S2[2, -1, n] + 
      9*S2[2, n]*S2[2, -1, n] + 6*S2[-2, n]*S2[2, 1, n] + 26*S2[3, -2, n] + 
      18*S2[-1, n]*S2[3, 1, n] - 4*S2[4, -1, n] + 16*S2[-3, -1, -1, n] + 
      12*S2[-3, 1, 1, n] - 18*S2[-1, n]*S2[-2, 1, -1, n] + 
      6*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
        S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n]) - 
      12*S2[-1, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
        S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
      3*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + (9*S2[-1, n]*(S2[2, n]^2 + S2[4, n] + 
         2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/2 - 
      24*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) + 
      18*(S2[-5, n] + S2[-3, n]*S2[2, n] + S2[-4, 1, n] - S2[-3, 2, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n]) - 
      6*S2[2, 1, -2, n] + 12*S2[-1, n]*S2[2, 1, 1, n] - 8*S2[3, -1, 1, n] + 
      4*S2[3, 1, -1, n] + 6*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
      18*S2[-2, 1, -1, -1, n] - 18*S2[2, -1, -1, -1, n] + 
      6*S2[2, 1, -1, 1, n] + 12*S2[2, 1, 1, -1, n] - 
      9*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n]) - 3*(-6*S2[-2, n]^2*S2[-1, n] - 
        6*S2[-4, n]*S2[1, n] - 2*S2[-3, n]*S2[1, n]^2 - 
        S2[-1, n]^3*S2[1, n]^2 + 14*S2[-3, n]*S2[2, n] + 
        S2[-1, n]^3*S2[2, n] + 3*S2[-1, n]*S2[1, n]^2*S2[2, n] - 
        3*S2[-1, n]*S2[4, n] + 12*S2[-4, 1, n] + 6*S2[-1, n]*S2[-3, -1, n] - 
        12*S2[-3, 2, n] + 6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 
        6*S2[-1, n]^2*S2[-2, 1, n] - 6*S2[2, n]*S2[-2, 1, n] - 
        6*S2[1, n]*S2[2, -2, n] + 6*S2[2, n]*S2[2, -1, n] - 
        6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) - 
        12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 6*S2[1, n]*S2[3, -1, n] - 
        12*S2[-1, n]*S2[3, 1, n] - 12*S2[-2, 2, 1, n] + 
        12*S2[-1, -2, -2, n] + 6*S2[1, n]*S2[-1, -2, -1, n] + 
        12*S2[-1, n]*S2[-1, -2, 1, n] - 6*S2[-1, n]*S2[-1, 2, -1, n] + 
        6*S2[-1, n]^2*S2[1, 1, -1, n] - 6*S2[2, n]*S2[1, 1, -1, n] + 
        12*S2[1, n]*S2[2, 1, -1, n] + 12*S2[-1, n]*S2[2, 1, 1, n] + 
        12*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
        12*S2[-2, 1, -1, -1, n] + 12*S2[1, n]*S2[-1, -1, -1, 1, n] - 
        12*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] - 
        12*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n] + 
        12*S2[1, 1, -1, -1, -1, n])))/6 + 3*S2[2, -1, -1, -1, 1, n] + 
   4*S2[2, -1, -1, 1, -1, n] + 2*S2[2, -1, 1, -1, -1, n] + 
   2*(-S2[-6, n] - S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
     S2[-3, n]*S2[3, n] - S2[-5, 1, n] + 2*S2[-4, 2, n] + 
     S2[2, n]*S2[-3, 1, n] - S2[1, n]*S2[-3, 2, n] - S2[3, n]*S2[-2, 1, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 - 
     S2[2, n]*S2[2, -2, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     2*S2[-3, n]*S2[2, 1, n] - S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[-2, 1, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] - 
     S2[2, n]*S2[3, -1, n] + S2[-2, n]*S2[3, 1, n] + S2[-1, n]*S2[3, 2, n] + 
     S2[4, -2, n] + S2[1, n]*S2[4, -1, n] - S2[-1, n]*S2[4, 1, n] - 
     S2[5, -1, n] - S2[-4, 1, 1, n] - S2[-3, 1, 2, n] + 2*S2[-3, 2, 1, n] - 
     S2[2, n]*S2[-2, 1, 1, n] + S2[1, n]*S2[-1, 2, 2, n] + 
     S2[1, n]*S2[2, 1, -2, n] + (S2[1, n]^2*S2[2, 1, -1, n])/2 + 
     (S2[2, n]*S2[2, 1, -1, n])/2 - 2*S2[-2, n]*S2[2, 1, 1, n] + 
     2*S2[-1, n]*S2[2, 2, 1, n] + S2[1, n]*S2[3, 1, -1, n] + 
     S2[3, 2, -1, n] - S2[4, -1, 1, n] + S2[-2, 1, 1, 2, n] + 
     S2[-2, 2, 1, 1, n] - S2[-1, 1, 2, 2, n] - S2[-1, 2, 2, 1, n] + 
     S2[2, -2, 1, 1, n] - S2[1, n]*S2[2, 1, -1, 1, n] - 
     2*S2[1, n]*S2[2, 1, 1, -1, n] - S2[3, 1, -1, 1, n] - 
     2*S2[3, 1, 1, -1, n] + S2[2, 1, -1, 1, 1, n] + 2*S2[2, 1, 1, -1, 1, n] + 
     3*S2[2, 1, 1, 1, -1, n]) + 12*S2[-1, -1, -1, 1, 1, 1, n] + 
   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] -> -10*S2[-6, n] - 5*S2[-4, n]*S2[-1, n]^2 - 
   (2*S2[-4, n]*S2[1, n]^2)/3 + S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
   S2[-3, n]*S2[3, n] + ((19*S2[-3, n] - 4*S2[-1, n]^3)*S2[3, n])/3 - 
   S2[-1, n]*S2[5, n] + (25*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/
    3 + (5*S2[-5, 1, n])/3 - (25*S2[-4, 2, n])/3 + S2[-1, n]*S2[-3, -2, n] - 
   2*S2[-1, n]^2*S2[-3, 1, n] + S2[2, n]*S2[-3, 1, n] + 
   5*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n]) - (16*S2[-3, 3, n])/3 - 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + 2*S2[3, n] - S2[-2, -1, n]) - 
   S2[3, n]*S2[-2, 1, n] + 
   (7*S2[-2, n]^3 - (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^3)/6 - 
   S2[2, n]*S2[2, -2, n] + S2[-2, 1, n]*(S2[-2, -1, n] - S2[2, 1, n]) + 
   S2[-2, 1, n]*S2[2, 1, n] + S2[2, -1, n]*(-S2[-2, -1, n] + S2[2, 1, n]) + 
   2*S2[-1, n]^2*S2[3, -1, n] + (S2[1, n]^2*S2[3, -1, n])/3 + 
   (32*S2[4, -2, n])/3 - S2[-1, n]*S2[4, 1, n] - 
   2*(S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n]) + (14*S2[5, -1, n])/3 + 
   (4*S2[-4, -1, -1, n])/3 + 
   6*(S2[-6, n] + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
     S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - S2[-4, 2, n] - S2[5, -1, n] + 
     S2[-4, -1, -1, n]) + 3*S2[-4, 1, 1, n] - 
   (4*(S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
      (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
      S2[-4, 2, n] + S2[-4, 1, 1, n]))/3 + (19*S2[-3, -2, -1, n])/3 - 
   (5*S2[-3, -1, -2, n])/3 + (16*S2[-3, 1, 2, n])/3 + 
   (10*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - 
      S2[-3, 1, 2, n] - S2[-3, 2, 1, n]))/3 - (11*S2[-3, 2, 1, n])/3 - 
   2*S2[-1, n]^2*S2[-2, 1, 1, n] - S2[2, n]*S2[-2, 1, 1, n] - 
   S2[-2, 2, 2, n] + 6*(-(S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - 
     S2[-4, 2, n] + S2[2, n]*S2[2, -2, n] + S2[4, -2, n] + S2[-2, 2, 2, n]) + 
   S2[-2, 3, 1, n] - S2[-2, n]*S2[-1, -2, 1, n] + 
   (S2[-3, n]*(-S2[3, n] - 9*S2[-2, -1, n] + 6*S2[2, 1, n] - 
      3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/3 + 
   (S2[-3, n]*(-21*S2[-2, -1, n] + 13*S2[2, 1, n] - 
      3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/3 + 
   (S2[-3, n]*(-19*S2[3, n] + 6*S2[-2, -1, n] + 5*S2[2, 1, n] + 
      6*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/3 + 2*S2[-2, -1, n]*
    ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
   2*S2[2, 1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   2*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
     S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n])*
    ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   (S2[3, n]*(4*S2[-3, n] - 12*S2[-2, 1, n] - S2[2, -1, n] - 
      6*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/3 + 
   S2[3, n]*(-2*S2[-2, 1, n] + 5*S2[2, -1, n] - 
     2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
       S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])) + 
   (S2[3, n]*(3*S2[-2, 1, n] + S2[2, -1, n] + 
      6*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/3 + 
   (S2[2, n]*(12*S2[-4, n] - 31*S2[-3, 1, n] + 21*S2[3, -1, n] - 
      6*S2[-2, 1, 1, n] + 6*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n])))/3 + 
   2*S2[-1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
     S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 2*S2[1, n]^2*S2[2, 1, -1, n] + 
   (S2[2, n]*(28*S2[-4, n] + 3*S2[-2, n]*S2[-1, n]^2 - 9*S2[-2, n]*S2[2, n] + 
      12*S2[-3, 1, n] - 3*S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) - 3*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) - 10*S2[3, -1, n] - 6*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) + 24*S2[2, 1, -1, n]))/6 - 
   (11*S2[3, -1, 2, n])/3 + 10*(S2[-6, n] + S2[-3, n]*S2[3, n] + 
     S2[-5, 1, n] - S2[-3, 3, n] + S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - 
     S2[3, 1, -2, n]) + S2[3, 1, -2, n] - (38*S2[3, 2, -1, n])/3 - 
   (5*S2[4, -1, 1, n])/3 + 2*(S2[4, -2, n] + S2[1, n]*S2[4, -1, n] + 
     S2[5, -1, n] - S2[4, -1, 1, n] - S2[4, 1, -1, n]) - 
   (17*S2[4, 1, -1, n])/3 + (8*S2[-3, -1, -1, 1, n])/3 + 
   (8*S2[-3, -1, 1, -1, n])/3 - 
   (10*(S2[-4, -1, -1, n] + S2[-3, -2, -1, n] + S2[-3, -1, -2, n] + 
      S2[1, n]*S2[-3, -1, -1, n] - S2[-3, -1, -1, 1, n] - 
      S2[-3, -1, 1, -1, n] - S2[-3, 1, -1, -1, n]))/3 + 
   (2*S2[-3, 1, -1, -1, n])/3 + 4*S2[-3, 1, 1, 1, n] + 
   2*S2[-2, -1, -1, 2, n] + 3*S2[-2, -1, 2, -1, n] - 
   2*(-S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, 1, n] + 
     S2[2, n]*S2[2, -2, n] - S2[-2, 1, n]*S2[2, 1, n] + 
     S2[-3, n]*(-S2[3, n] + S2[2, 1, n]) + S2[-3, 1, 2, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + S2[-2, 2, 2, n] - 
     S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) + 
     S2[3, 1, -2, n] - S2[-2, 1, 1, 2, n]) + S2[-2, 1, 1, 2, n] - 
   S2[-2, 2, 1, 1, n] + 2*S2[-1, -2, -2, 1, n] + S2[-1, -2, 1, -2, n] + 
   (2*S2[-6, n] + S2[-2, n]^3 + 6*S2[-3, 3, n] - 3*S2[-2, n]^2*S2[1, -1, n] - 
     3*S2[4, n]*S2[1, -1, n] - 6*S2[-3, -2, -1, n] - 6*S2[-3, -1, -2, n] + 
     3*S2[-1, n]*(S2[-3, n]*S2[-2, n] + S2[-2, n]^2*S2[1, n] + 
       S2[1, n]*S2[4, n] + S2[5, n] + S2[-3, -2, n] - 
       S2[-2, n]*S2[-2, 1, n] - S2[4, 1, n] - S2[-2, 1, -2, n]) + 
     3*S2[-2, n]*(S2[4, n] + 2*S2[-2, 1, -1, n]) + 6*S2[4, 1, -1, n] - 
     6*S2[-1, 1, -2, -2, n])/2 + 
   3*(-S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - 
     (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - S2[-5, 1, n] - 
     S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
     S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + (S2[-2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 - S2[4, -2, n] + S2[5, -1, n] + 
     S2[-3, -1, -2, n] - S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
     S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
     S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n]) - 
   9*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
     S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
        2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
          S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n]) - 
   9*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
     S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
     S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
     2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]) - 
   6*(-S2[-6, n] + S2[-4, n]*S2[2, n] - S2[-1, n]*S2[1, n]*S2[2, n]^2 - 
     2*S2[-3, n]*S2[3, n] - S2[-1, n]*S2[2, n]*S2[3, n] - 
     S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] - S2[-4, 2, n] - 
     S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + 
     S2[4, n]*S2[1, -1, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
     S2[3, n]*S2[2, -1, n] + S2[-3, n]*S2[2, 1, n] + 
     S2[-1, n]*S2[2, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] + 
     S2[2, n]*S2[3, -1, n] - S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + 
     S2[5, -1, n] - 2*S2[-2, 2, 2, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
     S2[4, 1, -1, n] + 2*S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n]) - 
   7*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) + 
   (S2[-2, n]*(-63*S2[4, n] + (3*(S2[2, n]^2 + S2[4, n]))/2 + 
      3*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 - 
      30*S2[-2, 1, -1, n] - 30*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + (15*(S2[2, n]^2 + S2[4, n] + 
         2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/2 + 
      6*S2[2, 1, 1, n] + 3*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*
         (S2[1, n]^2 + S2[2, n]) + S2[4, n] + 2*S2[-3, -1, n] - 
        4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 2*S2[1, n]*
         (S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - S2[-1, 1, -1, n]) - 
        2*S2[-1, 2, -1, n] - 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
          S2[2, -1, n] - 2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 
        4*S2[1, 1, -1, -1, n])))/6 + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (-(S2[1, n]^2*S2[2, n]) - S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) - 
      S2[4, n] + (S2[2, n]^2 + S2[4, n])/2 - 4*S2[-3, -1, n] + 
      6*S2[3, 1, n] - 2*S2[-2, 1, -1, n] - 2*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) - 4*S2[-1, -2, 1, n] - 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + (S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n]))/2 + 
      2*S2[-1, 2, -1, n] + 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
        S2[2, -1, n] - 2*S2[1, 1, -1, n]) - 2*S2[2, 1, 1, n] + 
      4*S2[1, 1, -1, -1, n]))/2 + 7*S2[2, -2, 1, 1, n] - 
   4*S2[3, -1, -1, -1, n] - 4*S2[3, -1, 1, 1, n] - 2*S2[3, 1, -1, 1, n] + 
   8*(S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 2*S2[3, 1, 1, -1, n]) - 
   (2*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
      S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - S2[-2, 3, 1, n] + 
      S2[-1, n]*S2[3, 1, 1, n] - S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n] - 
      S2[3, 1, 1, -1, n]))/3 + 4*S2[3, 1, 1, -1, n] - 
   (2*(-S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + 
      (S2[2, n]*S2[3, -1, n])/2 - S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + 
      S2[5, -1, n] + S2[-2, 3, 1, n] - S2[3, -1, 2, n] + 
      S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
        S2[3, 1, -1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
      S2[4, 1, -1, n] + S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
      S2[3, 1, 1, -1, n]))/3 + 4*S2[-2, -1, -1, 1, 1, n] + 
   6*S2[-2, -1, 1, -1, 1, n] + 6*S2[-2, -1, 1, 1, -1, n] + 
   6*S2[-2, 1, -1, -1, 1, n] + 6*S2[-2, 1, -1, 1, -1, n] + 
   4*S2[-2, 1, 1, -1, -1, n] + 
   (S2[-1, n]*(6*S2[2, n]*S2[3, n] - 34*S2[5, n] + 36*S2[-4, -1, n] - 
      6*S2[2, n]*S2[-2, -1, n] + 6*S2[2, n]*S2[2, 1, n] + 
      10*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) + 10*S2[4, 1, n] - 
      6*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 12*S2[-2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
         2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n]) - 12*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      4*S2[3, 1, 1, n] + 72*S2[-1, -1, 1, 1, 1, n] + 
      24*S2[-1, 1, -1, 1, 1, n]))/6 + 
   (S2[1, n]*(-38*S2[-5, n] - 12*S2[-2, n]^2*S2[-1, n] - 
      12*S2[-3, n]*S2[-1, n]^2 - 18*S2[-3, n]*S2[2, n] - 
      3*S2[-1, n]^3*S2[2, n] + 15*S2[-1, n]*S2[2, n]^2 + 
      36*S2[-2, n]*S2[3, n] - 22*S2[-1, n]*S2[4, n] - 
      (15*S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 + 
      8*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) + 
      30*S2[-1, n]*S2[-3, -1, n] + 36*S2[-3, 2, n] + 
      30*S2[-2, n]*S2[-2, -1, n] - 12*S2[-1, n]^2*S2[-2, 1, n] + 
      18*S2[2, n]*S2[-2, 1, n] + 6*S2[-2, n]*S2[-1, n]*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      6*S2[3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      6*S2[-2, -1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      3*S2[-1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 + 
      12*S2[-1, n]^2*S2[2, -1, n] - 18*S2[2, n]*S2[2, -1, n] + 
      6*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*S2[2, 1, n] - 
      62*S2[3, -2, n] - 30*S2[-1, n]*S2[3, 1, n] + 22*S2[4, -1, n] - 
      16*S2[-3, -1, -1, n] - 24*S2[-3, 1, 1, n] + 
      30*S2[-1, n]*S2[-2, 1, -1, n] - 
      30*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
        S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n]) + 
      30*S2[-1, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
        S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 
      6*S2[-2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 6*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - (15*S2[-1, n]*(S2[2, n]^2 + S2[4, n] + 
         2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/2 + 
      42*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) - 
      48*(S2[-5, n] + S2[-3, n]*S2[2, n] + S2[-4, 1, n] - S2[-3, 2, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n]) - 
      6*S2[2, 1, -2, n] - 30*S2[-1, n]*S2[2, 1, 1, n] + 20*S2[3, -1, 1, n] + 
      8*S2[3, 1, -1, n] - 24*S2[-2, -1, -1, 1, n] - 36*S2[-2, -1, 1, -1, n] - 
      36*S2[-2, 1, -1, -1, n] - 3*S2[-1, n]*(S2[1, n]^2*S2[2, n] + 
        S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + S2[4, n] + 2*S2[-3, -1, n] - 
        4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 2*S2[1, n]*
         (S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - S2[-1, 1, -1, n]) - 
        2*S2[-1, 2, -1, n] - 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
          S2[2, -1, n] - 2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 
        4*S2[1, 1, -1, -1, n]) + 36*S2[2, -1, -1, -1, n] + 
      12*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n]) + 6*(-6*S2[-2, n]^2*S2[-1, n] - 
        6*S2[-4, n]*S2[1, n] - 2*S2[-3, n]*S2[1, n]^2 - 
        S2[-1, n]^3*S2[1, n]^2 + 14*S2[-3, n]*S2[2, n] + 
        S2[-1, n]^3*S2[2, n] + 3*S2[-1, n]*S2[1, n]^2*S2[2, n] - 
        3*S2[-1, n]*S2[4, n] + 12*S2[-4, 1, n] + 6*S2[-1, n]*S2[-3, -1, n] - 
        12*S2[-3, 2, n] + 6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 
        6*S2[-1, n]^2*S2[-2, 1, n] - 6*S2[2, n]*S2[-2, 1, n] - 
        6*S2[1, n]*S2[2, -2, n] + 6*S2[2, n]*S2[2, -1, n] - 
        6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) - 
        12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 6*S2[1, n]*S2[3, -1, n] - 
        12*S2[-1, n]*S2[3, 1, n] - 12*S2[-2, 2, 1, n] + 
        12*S2[-1, -2, -2, n] + 6*S2[1, n]*S2[-1, -2, -1, n] + 
        12*S2[-1, n]*S2[-1, -2, 1, n] - 6*S2[-1, n]*S2[-1, 2, -1, n] + 
        6*S2[-1, n]^2*S2[1, 1, -1, n] - 6*S2[2, n]*S2[1, 1, -1, n] + 
        12*S2[1, n]*S2[2, 1, -1, n] + 12*S2[-1, n]*S2[2, 1, 1, n] + 
        12*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
        12*S2[-2, 1, -1, -1, n] + 12*S2[1, n]*S2[-1, -1, -1, 1, n] - 
        12*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] - 
        12*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n] + 
        12*S2[1, 1, -1, -1, -1, n])))/6 - 6*S2[2, -1, -1, -1, 1, n] - 
   6*S2[2, -1, -1, 1, -1, n] - 4*S2[2, -1, 1, -1, -1, n] - 
   2*(2*S2[-6, n] + (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 + S2[-3, n]*S2[3, n] + 
     S2[-1, n]*S2[2, n]*S2[3, n] + (S2[-1, n]*S2[1, n]*S2[4, n])/2 + 
     S2[-1, n]*S2[5, n] - S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] - 
     2*S2[-3, 3, n] + S2[3, n]*S2[-2, 1, n] - (S2[2, n]^2*S2[1, -1, n])/2 - 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] - 
     S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] + 
     S2[-3, n]*S2[2, 1, n] - S2[-2, 1, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] + 2*S2[-3, 1, 2, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + 2*S2[-2, 2, 2, n] + 
     S2[2, n]*S2[1, 2, -1, n] + S2[2, n]*S2[2, 1, -1, n] - 
     S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) - 
     S2[-1, n]*S2[2, 2, 1, n] - 2*S2[3, -1, 2, n] + S2[3, 1, -2, n] - 
     S2[3, 2, -1, n] + S2[4, 1, -1, n] - S2[-2, 1, 1, 2, n] - 
     S2[-1, 1, 2, 2, n] - S2[-1, 2, 1, 2, n] + S2[1, n]*S2[2, 1, 1, -1, n] + 
     S2[3, 1, 1, -1, n] - S2[2, 1, 1, -1, 1, n] - 3*S2[2, 1, 1, 1, -1, n]) - 
   4*(-S2[-6, n] - S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
     S2[-3, n]*S2[3, n] - S2[-5, 1, n] + 2*S2[-4, 2, n] + 
     S2[2, n]*S2[-3, 1, n] - S2[1, n]*S2[-3, 2, n] - S2[3, n]*S2[-2, 1, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 - 
     S2[2, n]*S2[2, -2, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     2*S2[-3, n]*S2[2, 1, n] - S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[-2, 1, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] - 
     S2[2, n]*S2[3, -1, n] + S2[-2, n]*S2[3, 1, n] + S2[-1, n]*S2[3, 2, n] + 
     S2[4, -2, n] + S2[1, n]*S2[4, -1, n] - S2[-1, n]*S2[4, 1, n] - 
     S2[5, -1, n] - S2[-4, 1, 1, n] - S2[-3, 1, 2, n] + 2*S2[-3, 2, 1, n] - 
     S2[2, n]*S2[-2, 1, 1, n] + S2[1, n]*S2[-1, 2, 2, n] + 
     S2[1, n]*S2[2, 1, -2, n] + (S2[1, n]^2*S2[2, 1, -1, n])/2 + 
     (S2[2, n]*S2[2, 1, -1, n])/2 - 2*S2[-2, n]*S2[2, 1, 1, n] + 
     2*S2[-1, n]*S2[2, 2, 1, n] + S2[1, n]*S2[3, 1, -1, n] + 
     S2[3, 2, -1, n] - S2[4, -1, 1, n] + S2[-2, 1, 1, 2, n] + 
     S2[-2, 2, 1, 1, n] - S2[-1, 1, 2, 2, n] - S2[-1, 2, 2, 1, n] + 
     S2[2, -2, 1, 1, n] - S2[1, n]*S2[2, 1, -1, 1, n] - 
     2*S2[1, n]*S2[2, 1, 1, -1, n] - S2[3, 1, -1, 1, n] - 
     2*S2[3, 1, 1, -1, n] + S2[2, 1, -1, 1, 1, n] + 2*S2[2, 1, 1, -1, 1, n] + 
     3*S2[2, 1, 1, 1, -1, n]) - 12*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] -> 
  -(S2[-4, n]*S2[-2, n]) - (S2[-2, n]^2*S2[2, n])/2 - S2[1, n]^3*S2[3, n] - 
   (3*S2[-1, n]^2*S2[4, n])/2 + (3*S2[1, n]^2*S2[4, n])/2 + 
   (S2[2, n]*S2[4, n])/2 + (3*S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + 
   (S2[2, n]*(S2[1, n]^4 + S2[2, n]^2 + 18*S2[4, n]))/4 - (29*S2[6, n])/4 - 
   (7*(S2[-3, n]^2 + S2[6, n]))/4 + (3*(S2[3, n]^2 + S2[6, n]))/2 - 
   2*(S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n]) + 
   5*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]) + 7*S2[-5, -1, n] + 
   4*S2[-4, -2, n] - (7*S2[1, n]^2*S2[-3, -1, n])/2 - 
   S2[-4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
   S2[-2, n]*S2[2, -2, n] + S2[-2, 1, n]*S2[2, -1, n] - 
   S2[1, n]^3*S2[2, 1, n] + 3*S2[1, n]^2*S2[3, 1, n] - 3*S2[4, 2, n] + 
   (23*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]))/2 - (3*S2[5, 1, n])/2 + 
   5*S2[-4, -1, 1, n] - 6*(S2[-5, -1, n] + S2[-4, -2, n] + 
     S2[1, n]*S2[-4, -1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n]) + 
   2*S2[-4, 1, -1, n] + 11*S2[-3, -2, 1, n] + 10*S2[-3, -1, 2, n] + 
   6*S2[-3, 1, -2, n] + 5*S2[-3, 2, -1, n] + 
   S2[3, n]*(-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] + 7*S2[3, n] - 
     3*S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] - 2*S2[2, 1, n] + 
     S2[-1, 1, -1, n]) + S2[-3, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 - 
     S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] + S2[2, -1, n] + S2[1, 1, -1, n]) + 
   (S2[-3, n]*(-10*S2[-3, n] + 2*S2[-2, 1, n] - 2*S2[2, -1, n] - 
      4*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/2 + 
   (S2[-3, n]*(5*S2[-3, n] - 6*S2[-2, 1, n] + 6*S2[2, -1, n] + 
      2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/2 + 
   (-13*S2[-3, n]^2 - 2*S2[-2, 1, n]^2 - 2*S2[2, -1, n]^2 - 
     4*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])^2)/4 - 
   S2[2, -2, -2, n] + (S2[-2, n]*(-26*S2[-4, n] + 
      12*(S2[-4, n] + S2[-3, n]*S2[1, n] - S2[-3, 1, n]) + 4*S2[-3, 1, n] + 
      8*S2[3, -1, n] - 6*S2[-2, 1, 1, n] + 
      6*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n])))/2 + 
   (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
    (-S2[-3, 1, n] + S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 2*S2[3, -1, n] - 
     S2[-2, 1, 1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 
   3*S2[1, n]^2*S2[2, 1, 1, n] - S2[3, -1, -2, n] - 
   9*(S2[3, n]^2 + S2[6, n] + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
       S2[2, 3, 1, n] - S2[3, 2, 1, n])) - 16*S2[3, 2, 1, n] - 
   3*S2[4, -1, -1, n] + 3*S2[4, 1, 1, n] - 
   13*((S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + S2[6, n] + 
     S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - S2[5, 1, n] + 
     S2[4, 1, 1, n]) - S2[-3, -1, 1, 1, n] - S2[-3, 1, -1, 1, n] + 
   2*(S2[-4, 1, -1, n] + S2[-3, 1, -2, n] + S2[1, n]*S2[-3, 1, -1, n] + 
     S2[-3, 2, -1, n] - S2[-3, 1, -1, 1, n] - 2*S2[-3, 1, 1, -1, n]) + 
   7*(S2[-3, n]^2/2 + S2[6, n]/2 + S2[-5, -1, n] + S2[-4, -2, n] + 
     S2[1, n]*S2[-4, -1, n] + S2[1, n]*S2[-3, -2, n] + 
     (S2[1, n]^2*S2[-3, -1, n])/2 + (S2[2, n]*S2[-3, -1, n])/2 - 
     S2[-4, -1, 1, n] - S2[-4, 1, -1, n] - S2[-3, -2, 1, n] - 
     S2[1, n]*S2[-3, -1, 1, n] - S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - 
     S2[1, n]*S2[-3, 1, -1, n] - S2[-3, 2, -1, n] + S2[-3, -1, 1, 1, n] + 
     S2[-3, 1, -1, 1, n] + S2[-3, 1, 1, -1, n]) + 3*S2[-2, -2, 1, 1, n] + 
   3*S2[-2, -1, 1, 2, n] + 3*S2[-2, -1, 2, 1, n] + 
   (S2[2, n]*(2*S2[-2, n]^2 + 6*S2[1, n]^2*S2[2, n] + S2[2, n]^2 + 
      29*S2[4, n] + 4*(S2[2, n]^2 + S2[4, n]) - 30*S2[-3, -1, n] - 
      2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 + 28*S2[3, 1, n] - 
      4*S2[-2, 1, -1, n] - 16*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
        S2[-1, 2, -1, n]) + 28*S2[2, 1, 1, n] - 
      2*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 
        S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
        2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
        2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
          2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n])))/
    4 + (S2[-1, n]*(-32*S2[-5, n] - 12*S2[-4, 1, n] - 
      4*S2[3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      12*S2[4, -1, n] - 12*S2[-3, 1, 1, n] + 12*S2[3, -1, 1, n] - 
      12*S2[-2, 1, 1, 1, n] + 12*S2[2, -1, 1, 1, n]))/4 - 
   9*(-S2[2, n]^3/12 + (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + S2[6, n]/3 - 
     S2[5, 1, n] + S2[2, n]*(S2[4, n]/4 - S2[3, 1, n] + S2[2, 1, 1, n]) + 
     S2[1, n]*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
       S2[2, 2, 1, n]) + S2[2, 3, 1, n] + S2[4, 1, 1, n] - 
     S2[2, 2, 1, 1, n]) - 4*S2[3, -1, -1, 1, n] - 3*S2[3, -1, 1, -1, n] + 
   2*(S2[1, n]^3*S2[3, n] + 2*S2[3, n]^2 + 3*S2[2, n]*S2[4, n] + 6*S2[6, n] + 
     3*S2[1, n]^2*(S2[4, n] - S2[3, 1, n]) + 3*S2[2, n]*S2[3, 1, n] - 
     6*S2[4, 2, n] - 6*S2[2, 3, 1, n] + 3*S2[1, n]*(S2[2, n]*S2[3, n] + 
       2*(S2[5, n] - S2[3, 2, n] - S2[4, 1, n] + S2[3, 1, 1, n])) + 
     6*S2[4, 1, 1, n] - 6*S2[3, 1, 1, 1, n]) + 6*S2[-2, -1, 1, 1, 1, n] + 
   6*S2[-2, 1, -1, 1, 1, n] + 4*S2[-2, 1, 1, -1, 1, n] + 
   3*S2[-2, 1, 1, 1, -1, n] + 
   (S2[1, n]*(-12*S2[-3, n]*S2[-2, n] + 4*S2[2, n]*S2[3, n] - 7*S2[5, n] - 
      2*S2[-4, -1, n] - 14*S2[-3, -2, n] - 6*S2[2, n]*S2[2, 1, n] + 
      24*S2[3, 2, n] + 4*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) - 
      10*S2[4, 1, n] + 14*S2[-3, -1, 1, n] + 10*S2[-3, 1, -1, n] - 
      6*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n] - 2*S2[2, 2, 1, n]) - 6*S2[2, 2, 1, n] - 
      12*S2[3, 1, 1, n] - 12*S2[2, 1, 1, 1, n] + 2*S2[-1, 1, -1, 1, 1, n]))/
    2 - 6*S2[2, -1, -1, 1, 1, n] - 4*S2[2, -1, 1, -1, 1, n] - 
   3*S2[2, -1, 1, 1, -1, n] + (-(S2[1, n]^4*S2[2, n]) - S2[2, n]^3 - 
     4*S2[1, n]^3*(S2[3, n] - S2[2, 1, n]) - 
     12*S2[2, n]*(S2[3, 1, n] - S2[2, 1, 1, n]) - 
     6*S2[1, n]^2*(S2[4, n] - 2*S2[3, 1, n] + 2*S2[2, 1, 1, n]) - 
     4*S2[1, n]*(S2[2, n]*(5*S2[3, n] + 3*S2[2, 1, n]) + 
       6*(S2[5, n] - S2[3, 2, n] - S2[2, 2, 1, n] + S2[3, 1, 1, n] - 
         S2[2, 1, 1, 1, n])) - 8*(S2[3, n]^2 + S2[6, n] - 
       S2[3, n]*S2[2, 1, n] - 3*S2[2, 3, 1, n] + 3*S2[2, 2, 1, 1, n] - 
       3*S2[3, 1, 1, 1, n] + 3*S2[2, 1, 1, 1, 1, n]))/4 + 
   12*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[-6, n])/3 - S2[-2, n]^3/3 + 
   (5*S2[-4, n]*S2[-1, n]^2)/2 + S2[-5, n]*S2[1, n] + 
   (S2[-4, n]*S2[1, n]^2)/4 + S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 - 
   S2[-1, n]*S2[1, n]*S2[2, n]^2 - 2*S2[-3, n]*S2[3, n] + 
   ((-2*S2[-3, n] + 3*S2[-1, n]^3)*S2[3, n])/2 - 
   2*S2[-1, n]*S2[2, n]*S2[3, n] + S2[-2, n]*S2[4, n] - 
   S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] + S2[-5, 1, n]/2 + 
   (9*S2[-4, 2, n])/2 - S2[-1, n]*S2[-3, -2, n] + 
   (5*S2[-1, n]^2*S2[-3, 1, n])/2 + S2[2, n]*S2[-3, 1, n] + 
   (7*S2[-3, 3, n])/2 + S2[-3, n]*(S2[-2, n]*S2[-1, n] + 2*S2[3, n] - 
     S2[-2, -1, n]) - 2*S2[3, n]*S2[-2, 1, n] - 
   (S2[4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]))/2 + 
   S2[2, n]^2*S2[1, -1, n] + S2[4, n]*S2[1, -1, n] + 
   (S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]))/2 + 
   S2[2, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) - 
   2*S2[2, n]*S2[2, -2, n] + S2[3, n]*(S2[-2, 1, n] - 2*S2[2, -1, n]) + 
   2*S2[1, n]*S2[2, n]*S2[2, -1, n] + 2*S2[3, n]*S2[2, -1, n] + 
   (S2[-3, n]*(3*S2[3, n] - 4*S2[2, 1, n]))/4 + 
   (S2[-3, n]*(7*S2[3, n] - 4*S2[-2, -1, n] - 4*S2[2, 1, n]))/4 - 
   S2[-3, n]*S2[2, 1, n] + 2*S2[-2, 1, n]*S2[2, 1, n] - 
   S2[2, -1, n]*S2[2, 1, n] - (5*S2[-1, n]^2*S2[3, -1, n])/2 + 
   (3*S2[1, n]^2*S2[3, -1, n])/4 + S2[2, n]*S2[3, -1, n] + 
   (S2[2, n]*(-3*S2[-4, n] + 4*S2[-2, n]*S2[2, n] - 4*S2[-3, 1, n] + 
      4*S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      4*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      4*S2[2, -2, n] + 7*S2[3, -1, n]))/4 + 2*S2[-2, n]*S2[3, 1, n] - 
   S2[4, -2, n]/2 + S2[-1, n]*S2[4, 1, n] + (3*S2[5, -1, n])/2 + 
   (-S2[-6, n] - S2[-5, n]*S2[1, n] - (S2[-4, n]*S2[1, n]^2)/2 - 
     (S2[-4, n]*S2[2, n])/2 + S2[-5, 1, n] + S2[1, n]*S2[-4, 1, n] + 
     S2[-4, 2, n] - S2[-4, 1, 1, n])/2 + (3*S2[-4, 1, 1, n])/2 - 
   S2[-3, -2, -1, n] - 2*S2[-3, -1, -2, n] - 4*S2[-3, 1, 2, n] + 
   2*S2[-1, n]^2*S2[-2, 1, 1, n] - 2*S2[2, n]*S2[-2, 1, 1, n] - 
   6*S2[-2, 2, 2, n] - S2[-2, 3, 1, n] + S2[-2, n]*S2[-1, -2, 1, n] + 
   S2[-3, n]*(2*S2[-2, -1, n] - S2[2, 1, n] + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])/2) + 
   (S2[-2, 1, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/2 - (S2[2, -1, n]*(2*S2[-2, n]*S2[-1, n] + 
      S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
      S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]))/2 - 
   2*S2[3, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
   2*S2[-2, -1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   2*S2[2, 1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
   (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
     S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n])*
    ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   S2[3, n]*(-S2[-3, n] + S2[-2, 1, n] + 
     2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
       S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])) - 
   2*S2[2, n]*S2[1, 2, -1, n] - 2*S2[-1, n]^2*(S2[2, -2, n] + 
     S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - S2[1, 2, -1, n] - 
     S2[2, 1, -1, n]) - 2*S2[2, n]*S2[2, 1, -1, n] + 
   (S2[-2, n]*(8*S2[4, n] + 8*S2[-3, -1, n] - 8*S2[3, 1, n] + 
      8*S2[-2, 1, -1, n] - 2*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) - 
      8*S2[2, 1, 1, n]))/4 + S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - 
     S2[2, 1, 1, n]) + S2[-1, n]*S2[2, 2, 1, n] + (3*S2[3, -1, 2, n])/2 - 
   (3*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
      S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - S2[3, 1, -2, n]))/2 - 
   S2[3, 1, -2, n] + 3*S2[3, 2, -1, n] - (7*S2[4, -1, 1, n])/2 - 
   2*S2[4, 1, -1, n] - S2[-2, -1, 2, -1, n] + 
   3*(-S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] + S2[3, n]*S2[-2, 1, n] + 
     S2[2, n]*S2[2, -2, n] - S2[-2, 1, n]*S2[2, 1, n] + 
     S2[-3, n]*(-S2[3, n] + S2[2, 1, n]) + S2[-3, 1, 2, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + S2[-2, 2, 2, n] - 
     S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) + 
     S2[3, 1, -2, n] - S2[-2, 1, 1, 2, n]) + 2*S2[-2, 1, 1, 2, n] + 
   S2[-2, 2, -1, -1, n] - S2[-2, 2, 1, 1, n] - 2*S2[-1, -2, -2, 1, n] - 
   S2[-1, -2, 1, -2, n] + 3*(-S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/
      2 - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - 
     S2[-5, 1, n] - S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - 
       S2[-2, -1, n]) + S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + 
     (S2[-2, n]^2*S2[1, -1, n])/2 + (S2[4, n]*S2[1, -1, n])/2 - 
     S2[4, -2, n] + S2[5, -1, n] + S2[-3, -1, -2, n] - 
     S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
     S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
     S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n]) + 
   (-2*S2[-6, n] - S2[-2, n]^3 - 6*S2[-3, 3, n] + 
     3*S2[-2, n]^2*S2[1, -1, n] + 3*S2[4, n]*S2[1, -1, n] + 
     6*S2[-3, -2, -1, n] + 6*S2[-3, -1, -2, n] - 
     3*S2[-1, n]*(S2[-3, n]*S2[-2, n] + S2[-2, n]^2*S2[1, n] + 
       S2[1, n]*S2[4, n] + S2[5, n] + S2[-3, -2, n] - 
       S2[-2, n]*S2[-2, 1, n] - S2[4, 1, n] - S2[-2, 1, -2, n]) - 
     3*S2[-2, n]*(S2[4, n] + 2*S2[-2, 1, -1, n]) - 6*S2[4, 1, -1, n] + 
     6*S2[-1, 1, -2, -2, n])/3 + 2*(S2[-6, n] + S2[-3, n]*S2[3, n] - 
     S2[-3, 3, n] - (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
     S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
        2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
          S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n]) + 2*S2[-1, 1, 2, 2, n] + 
   2*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
     S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
     S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
     2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]) + 
   2*S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n] + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (-S2[-2, n]^2 + 2*S2[-2, 1, -1, n] + 2*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + (-S2[2, n]^2 - S2[4, n] - 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n]))/2 - 
      2*S2[2, 1, 1, n] + (S2[1, n]^2*S2[2, n] + S2[-1, n]^2*
         (S2[1, n]^2 + S2[2, n]) + S2[4, n] + 2*S2[-3, -1, n] - 
        4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 2*S2[1, n]*
         (S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - S2[-1, 1, -1, n]) - 
        2*S2[-1, 2, -1, n] - 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
          S2[2, -1, n] - 2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 
        4*S2[1, 1, -1, -1, n])/2))/2 - 
   (S2[-1, n]^2*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/4 + 
   (S2[2, n]*(-6*S2[-4, n] - S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 
        2*S2[3, n]) + 10*S2[-3, 1, n] - 2*(S2[-4, n] + S2[-2, n]*S2[2, n] - 
        S2[2, -2, n]) - 6*S2[3, -1, n] + 4*S2[-2, 1, 1, n] - 
      4*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/4 - S2[2, -2, 1, 1, n] - 
   S2[1, n]*S2[2, 1, 1, -1, n] + (3*S2[3, -1, 1, 1, n])/2 - 
   (3*(S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] + 
      S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 2*S2[3, 1, 1, -1, n]))/2 - 
   (3*S2[3, 1, 1, -1, n])/2 - 
   (3*(-S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + 
      (S2[2, n]*S2[3, -1, n])/2 - S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + 
      S2[5, -1, n] + S2[-2, 3, 1, n] - S2[3, -1, 2, n] + 
      S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
        S2[3, 1, -1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
      S2[4, 1, -1, n] + S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
      S2[3, 1, 1, -1, n]))/2 - S2[-2, -1, 1, -1, 1, n] - 
   3*S2[-2, 1, -1, -1, 1, n] - 2*S2[-2, 1, -1, 1, -1, n] - 
   S2[-2, 1, 1, -1, -1, n] + 
   (S2[-1, n]*(12*S2[-3, n]*S2[-2, n] - 6*S2[2, n]*S2[3, n] + 8*S2[5, n] - 
      8*S2[-4, -1, n] - 4*S2[-3, -2, n] + 8*S2[2, n]*S2[-2, -1, n] + 
      4*S2[-2, n]*S2[-2, 1, n] - 4*S2[-2, n]*S2[2, -1, n] - 
      8*S2[2, n]*S2[2, 1, n] + 4*S2[3, 2, n] + 8*S2[4, 1, n] - 
      12*S2[-3, -1, 1, n] - 8*S2[-3, 1, -1, n] - 4*S2[-2, -1, 2, n] - 
      4*S2[-2, 2, -1, n] + 2*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) + 
      8*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      4*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n] - 2*S2[2, 2, 1, n]) + 4*S2[2, 2, 1, n] + 
      8*S2[3, -1, -1, n] + 12*S2[3, 1, 1, n] - 12*S2[-2, -1, 1, 1, n] - 
      8*S2[-2, 1, -1, 1, n] - 4*S2[-2, 1, 1, -1, n] + 8*S2[2, -1, -1, 1, n] + 
      4*S2[2, -1, 1, -1, n] + 12*S2[2, 1, 1, 1, n] - 
      24*S2[-1, -1, 1, 1, 1, n] - 12*S2[-1, 1, -1, 1, 1, n]))/4 + 
   (S2[1, n]*(-2*S2[-5, n] + 10*S2[-2, n]^2*S2[-1, n] + 
      2*S2[-3, n]*S2[-1, n]^2 + 6*S2[-4, n]*S2[1, n] + 
      2*S2[-3, n]*S2[1, n]^2 + S2[-1, n]^3*S2[1, n]^2 - 
      8*S2[-3, n]*S2[2, n] - S2[-1, n]^3*S2[2, n] - 3*S2[-1, n]*S2[1, n]^2*
       S2[2, n] - 4*S2[-1, n]*S2[2, n]^2 - 8*S2[-2, n]*S2[3, n] + 
      7*S2[-1, n]*S2[4, n] + S2[-1, n]*(S2[2, n]^2 + S2[4, n]) - 
      14*S2[-4, 1, n] - 10*S2[-1, n]*S2[-3, -1, n] + 4*S2[-3, 2, n] - 
      8*S2[-2, n]*S2[-2, -1, n] - 6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + 
      8*S2[-1, n]^2*S2[-2, 1, n] + 4*S2[-2, -1, n]*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      2*S2[-1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 + 
      6*S2[1, n]*S2[2, -2, n] - 2*S2[-1, n]^2*S2[2, -1, n] + 
      6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) + 
      4*S2[-2, n]*S2[2, 1, n] + 12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 
      4*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*S2[2, 1, n] + 
      18*S2[3, -2, n] + 6*S2[1, n]*S2[3, -1, n] + 16*S2[-1, n]*S2[3, 1, n] + 
      2*S2[4, -1, n] + 4*S2[-3, -1, -1, n] + 4*S2[-3, 1, 1, n] - 
      8*S2[-1, n]*S2[-2, 1, -1, n] + 12*S2[-2, 2, 1, n] - 
      12*S2[-1, -2, -2, n] + 4*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + 
        S2[-2, n]*S2[-2, -1, n] - S2[3, -2, n] + S2[4, -1, n] + 
        S2[-1, -2, -2, n]) - 6*S2[1, n]*S2[-1, -2, -1, n] - 
      8*S2[-1, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
        S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 
      12*S2[-1, n]*S2[-1, -2, 1, n] + 2*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n])*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
        S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 2*S2[-1, n]*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) + 
      6*S2[-1, n]*S2[-1, 2, -1, n] - 
      4*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) - 
      6*S2[-1, n]^2*S2[1, 1, -1, n] + 6*S2[2, n]*S2[1, 1, -1, n] + 
      2*S2[-1, n]^2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      2*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      8*(S2[-5, n] + S2[-3, n]*S2[2, n] + S2[-4, 1, n] - S2[-3, 2, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n]) + 
      4*S2[2, 1, -2, n] - 12*S2[1, n]*S2[2, 1, -1, n] - 
      4*S2[-1, n]*S2[2, 1, 1, n] - 10*S2[3, -1, 1, n] - 4*S2[3, 1, -1, n] - 
      8*S2[-2, -1, -1, 1, n] - 4*S2[-2, -1, 1, -1, n] - 
      12*S2[1, n]*S2[-1, -1, -1, 1, n] + 12*S2[-1, n]*S2[1, 1, -1, -1, n] + 
      8*S2[2, 1, -1, 1, n] + 8*S2[2, 1, 1, -1, n] - 
      2*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n]) - 12*S2[1, 1, -1, -1, -1, n]))/4 + 
   3*S2[2, -1, -1, -1, 1, n] + 2*S2[2, -1, -1, 1, -1, n] + 
   S2[2, -1, 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[-5, n]*S2[-1, n] - S2[2, n]^3/12 + S2[3, n]^2 + 
   (S2[2, n]*(S2[2, n]^2 - 2*S2[4, n]))/2 + S2[1, n]^2*S2[4, n] + 
   (S2[2, n]*S2[4, n])/2 + (22*S2[6, n])/3 - 4*(S2[-3, n]^2 + S2[6, n]) + 
   (5*(S2[3, n]^2 + S2[6, n]))/2 + (S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 
     2*S2[6, n])/3 - 4*S2[-5, -1, n] - 4*S2[-4, -2, n] + 
   S2[3, n]*(-4*S2[3, n] + S2[-2, -1, n]) + 
   S2[-4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
   S2[-3, n]*(3*S2[-3, n] + 2*S2[-2, 1, n] - 2*S2[2, -1, n]) + 
   S2[-2, n]*(S2[-4, n] - S2[-3, n]*S2[1, n] + S2[-3, 1, n] - S2[3, -1, n]) + 
   S2[1, n]*(S2[5, n] - S2[4, 1, n]) - 
   6*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]) - 6*S2[5, 1, n] + 
   3*S2[-4, -1, 1, n] + 3*(S2[-5, -1, n] + S2[-4, -2, n] + 
     S2[1, n]*S2[-4, -1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n]) + 
   3*S2[-4, 1, -1, n] - 2*S2[-3, -2, 1, n] - S2[-3, 1, -2, n] + 
   S2[1, n]*S2[-3, 1, -1, n] + (S2[-3, n]^2 + S2[6, n] + 
     2*(S2[-5, -1, n] + S2[2, n]*S2[-3, -1, n] - S2[-3, -1, 2, n] - 
       S2[-3, 2, -1, n]))/2 + S2[-3, 2, -1, n] - 
   2*S2[2, -1, n]*(-(S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
     S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - S2[1, 1, -1, n]) - 
   2*S2[-3, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
   2*S2[-2, 1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   (S2[-1, n]*(-2*S2[-5, n] + 2*S2[-3, n]*S2[2, n] + 
      2*S2[2, n]*S2[-2, 1, n] + 2*S2[3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) - 2*S2[2, n]*S2[2, -1, n] - 
      4*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/2 + 
   (4*S2[-3, n]^2 + S2[-1, n]^2*S2[2, n]^2 + 2*S2[-2, 1, n]^2 + 
     2*S2[2, -1, n]^2 + 4*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
        S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n])^2)/2 + 2*(S2[-4, n]*S2[-2, n] + 
     (S2[-2, n]^2*S2[2, n])/2 - (S2[2, n]*S2[4, n])/2 - S2[-4, -2, n] - 
     S2[-2, n]*S2[2, -2, n] + S2[4, 2, n] + S2[2, -2, -2, n]) + 
   (S2[2, n]*(-2*S2[-2, n]^2 - S2[2, n]^2 - 5*S2[4, n] - 
      2*(S2[2, n]^2 + S2[4, n]) + 6*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
         S2[1, -1, n])^2 - 4*S2[3, 1, n] + 4*S2[-2, 1, -1, n] + 
      4*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n]) - 
      4*S2[2, 1, 1, n]))/4 + S2[2, n]*(S2[4, n]/4 - S2[3, 1, n] + 
     S2[2, 1, 1, n]) + S2[1, n]*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - 
     S2[4, 1, n] + S2[2, 2, 1, n]) + S2[2, 3, 1, n] + S2[3, -1, -2, n] + 
   2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - S2[2, 3, 1, n] - S2[3, 2, 1, n]) + 
   2*S2[3, 2, 1, n] + S2[4, 1, 1, n] - 2*S2[-2, -2, 1, 1, n] - 
   S2[-2, -1, 1, 2, n] - S2[-2, -1, 2, 1, n] + S2[-2, 2, -1, 1, n] + 
   (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
    (-S2[-4, n] - S2[-2, n]*S2[2, n] + S2[-3, 1, n] + S2[2, -2, n] - 
     S2[3, -1, n] + 2*S2[-2, 1, 1, n] - 
     2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
       S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 
     (-(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n])) + 
       3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
         2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
         2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
           S2[2, 1, -1, n] + S2[1, 1, 1, -1, n])))/2) - S2[2, 2, 1, 1, n] - 
   2*S2[-2, 1, -1, 1, 1, n] - S2[-2, 1, 1, -1, 1, n] + 
   (S2[1, n]*(8*S2[-3, n]*S2[-2, n] + 4*S2[-4, n]*S2[-1, n] + 
      2*S2[-1, n]^2*S2[3, n] - 6*S2[2, n]*S2[3, n] + 14*S2[5, n] - 
      10*S2[-4, -1, n] - 2*S2[-3, -2, n] + 4*S2[-1, n]*S2[-3, 1, n] + 
      2*S2[2, n]*S2[-2, -1, n] + 2*S2[-2, n]*S2[-2, 1, n] + 
      2*S2[-3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      2*S2[-1, n]*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      2*S2[-2, 1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      2*S2[-1, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) - 
      2*S2[-2, n]*S2[2, -1, n] - 2*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n])*S2[2, -1, n] - 2*S2[2, n]*S2[2, 1, n] - 
      4*S2[-1, n]*S2[3, -1, n] + 2*S2[3, 2, n] - 
      2*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) + 4*S2[4, 1, n] - 
      6*S2[-3, -1, 1, n] - 6*S2[-3, 1, -1, n] - 2*S2[-2, -1, 2, n] + 
      2*S2[-1, n]*S2[-2, 1, 1, n] - 2*S2[-2, 2, -1, n] + 
      2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
      2*S2[-1, n]*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 
      4*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n] - 2*S2[2, 2, 1, n]) + 4*S2[2, 2, 1, n] + 
      4*S2[3, -1, -1, n] + 6*S2[3, 1, 1, n] - 6*S2[-2, -1, 1, 1, n] - 
      4*S2[-2, 1, -1, 1, n] - 2*S2[-2, 1, 1, -1, n] + 4*S2[2, -1, -1, 1, n] + 
      2*S2[2, -1, 1, -1, n] + 6*S2[2, 1, 1, 1, n] - 
      12*S2[-1, -1, 1, 1, 1, n] - 6*S2[-1, 1, -1, 1, 1, n]))/2 + 
   2*S2[2, -1, -1, 1, 1, n] + S2[2, -1, 1, -1, 1, n], 
 S2[1, -1, 1, 1, 1, -1, n] -> -(S2[-4, n]*S2[-2, n]) - 
   (S2[-2, n]^2*S2[2, n])/2 + (S2[1, n]^3*S2[3, n])/3 + 
   (S2[2, n]*(-S2[1, n]^4 - 3*S2[2, n]^2 - 18*S2[4, n]))/12 + 
   (3*S2[-1, n]^2*S2[4, n])/2 - 2*S2[1, n]^2*S2[4, n] + 
   (S2[2, n]*S2[4, n])/2 - (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + 
   (13*(S2[-3, n]^2 + S2[6, n]))/3 - (5*(S2[3, n]^2 + S2[6, n]))/2 + 
   (2*(S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n]))/3 - 
   5*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]) - 3*S2[-5, -1, n] + 
   S2[-4, -2, n] + S2[1, n]^2*S2[-3, -1, n] - 
   S2[-4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
   S2[-2, n]*S2[2, -2, n] - 3*S2[-3, n]*(-S2[-2, 1, n] + S2[2, -1, n]) + 
   (S2[1, n]^3*S2[2, 1, n])/3 + 
   (S2[3, n]*(-S2[3, n] + 3*S2[-2, -1, n] + 2*S2[2, 1, n]))/3 - 
   S2[1, n]^2*S2[3, 1, n] + (5*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]))/
    3 + (17*S2[5, 1, n])/3 - 3*S2[-4, -1, 1, n] - 3*S2[-4, 1, -1, n] - 
   3*S2[-3, -2, 1, n] - 4*S2[-3, -1, 2, n] - 2*S2[-3, 1, -2, n] + 
   (-S2[-3, n]^2 - S2[6, n] - 2*(S2[-5, -1, n] + S2[2, n]*S2[-3, -1, n] - 
       S2[-3, -1, 2, n] - S2[-3, 2, -1, n]))/2 - 3*S2[-3, 2, -1, n] + 
   2*S2[-2, 1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   (S2[-3, n]*(-9*S2[-3, n] + 5*S2[-2, 1, n] - 5*S2[2, -1, n] - 
      3*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/3 + 
   S2[2, -1, n]*(S2[-2, 1, n] - 2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
       S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
       S2[1, 1, -1, n])) + (S2[-3, n]*(11*S2[-3, n] - 22*S2[-2, 1, n] + 
      22*S2[2, -1, n] + 6*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
        S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n])))/6 + (-2*S2[-3, n]^2 - 6*S2[-1, n]^2*S2[2, n]^2 - 
     6*S2[-2, 1, n]^2 - 6*S2[2, -1, n]^2 - 
     12*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])^2)/12 - 
   S2[2, -2, -2, n] + (S2[2, n]*(-3*S2[1, n]^2*S2[2, n] - 12*S2[4, n] - 
      (3*(S2[2, n]^2 + S2[4, n]))/2 + 18*S2[-3, -1, n] + 
      6*S2[-2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      6*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 - 12*S2[3, 1, n] + 
      6*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 12*S2[2, 1, 1, n]))/6 - 
   S2[1, n]^2*S2[2, 1, 1, n] + 3*(S2[3, n]^2 + S2[6, n] + 
     2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - S2[2, 3, 1, n] - 
       S2[3, 2, 1, n])) + 5*S2[3, 2, 1, n] + S2[4, -1, -1, n] - 
   S2[4, 1, 1, n] + 4*((S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + 
     S2[6, n] + S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - 
     S2[5, 1, n] + S2[4, 1, 1, n]) + S2[-3, 1, 1, -1, n] - 
   2*(S2[-3, n]^2/2 + S2[6, n]/2 + S2[-5, -1, n] + S2[-4, -2, n] + 
     S2[1, n]*S2[-4, -1, n] + S2[1, n]*S2[-3, -2, n] + 
     (S2[1, n]^2*S2[-3, -1, n])/2 + (S2[2, n]*S2[-3, -1, n])/2 - 
     S2[-4, -1, 1, n] - S2[-4, 1, -1, n] - S2[-3, -2, 1, n] - 
     S2[1, n]*S2[-3, -1, 1, n] - S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - 
     S2[1, n]*S2[-3, 1, -1, n] - S2[-3, 2, -1, n] + S2[-3, -1, 1, 1, n] + 
     S2[-3, 1, -1, 1, n] + S2[-3, 1, 1, -1, n]) - S2[-2, -1, 1, 2, n] - 
   S2[-2, -1, 2, 1, n] - S2[-2, 2, -1, 1, n] + 
   (S2[-2, n]*(28*S2[-4, n] - 4*(S2[-4, n] + S2[-3, n]*S2[1, n] - 
        S2[-3, 1, n]) + 8*S2[-3, 1, n] - 12*S2[3, -1, n] + 
      12*S2[-2, 1, 1, n] - 12*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n]) - 
      3*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
        3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
          2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
          2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
            S2[2, 1, -1, n] + S2[1, 1, 1, -1, n])))))/6 + 
   (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
    (S2[-4, n] + S2[-2, n]*S2[2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
     S2[-2, 1, 1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
       3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
         2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
         2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
           S2[2, 1, -1, n] + S2[1, 1, 1, -1, n])))/2) + 
   3*(-S2[2, n]^3/12 + (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + S2[6, n]/3 - 
     S2[5, 1, n] + S2[2, n]*(S2[4, n]/4 - S2[3, 1, n] + S2[2, 1, 1, n]) + 
     S2[1, n]*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
       S2[2, 2, 1, n]) + S2[2, 3, 1, n] + S2[4, 1, 1, n] - 
     S2[2, 2, 1, 1, n]) + 2*S2[3, -1, -1, 1, n] + S2[3, -1, 1, -1, n] - 
   (2*(S2[1, n]^3*S2[3, n] + 2*S2[3, n]^2 + 3*S2[2, n]*S2[4, n] + 
      6*S2[6, n] + 3*S2[1, n]^2*(S2[4, n] - S2[3, 1, n]) + 
      3*S2[2, n]*S2[3, 1, n] - 6*S2[4, 2, n] - 6*S2[2, 3, 1, n] + 
      3*S2[1, n]*(S2[2, n]*S2[3, n] + 2*(S2[5, n] - S2[3, 2, n] - 
          S2[4, 1, n] + S2[3, 1, 1, n])) + 6*S2[4, 1, 1, n] - 
      6*S2[3, 1, 1, 1, n]))/3 - 2*S2[-2, -1, 1, 1, 1, n] - 
   2*S2[-2, 1, -1, 1, 1, n] - S2[-2, 1, 1, -1, 1, n] - 
   S2[-2, 1, 1, 1, -1, n] + (S2[1, n]*(-14*S2[-3, n]*S2[-2, n] - 
      6*S2[-4, n]*S2[-1, n] - 6*S2[-1, n]^2*S2[3, n] + 8*S2[2, n]*S2[3, n] - 
      40*S2[5, n] + 18*S2[-4, -1, n] + 18*S2[-3, -2, n] - 
      12*S2[-1, n]*S2[-3, 1, n] - 6*S2[2, n]*S2[-2, -1, n] - 
      6*S2[-2, n]*S2[-2, 1, n] - 6*S2[-1, n]*S2[2, n]*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      6*S2[-2, 1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      6*S2[-1, n]*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 
      6*S2[-2, n]*S2[2, -1, n] + 6*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n])*S2[2, -1, n] + 12*S2[2, n]*S2[2, 1, n] + 
      12*S2[-1, n]*S2[3, -1, n] - 30*S2[3, 2, n] + 
      6*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) + 12*S2[4, 1, n] + 
      6*S2[-2, -1, 2, n] - 6*S2[-1, n]*S2[-2, 1, 1, n] + 6*S2[-2, 2, -1, n] + 
      6*S2[-2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
      6*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      6*S2[-1, n]*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n]) - 12*S2[3, -1, -1, n] + 
      12*S2[-2, -1, 1, 1, n] + 12*S2[-2, 1, -1, 1, n] + 
      6*S2[-2, 1, 1, -1, n] + S2[-1, n]*
       (S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
        3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
          2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
          2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
            S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))) - 
      12*S2[2, -1, -1, 1, n] - 6*S2[2, -1, 1, -1, n] + 
      24*S2[-1, -1, 1, 1, 1, n] + 12*S2[-1, 1, -1, 1, 1, n]))/6 + 
   (S2[-1, n]*(28*S2[-5, n] + 4*S2[-2, n]*S2[3, n] + 8*S2[-4, 1, n] - 
      4*S2[2, n]*S2[-2, 1, n] + 4*S2[3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) + 4*S2[2, n]*S2[2, -1, n] - 8*S2[4, -1, n] + 
      8*S2[-3, 1, 1, n] + 12*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
         2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n]) - 8*S2[3, -1, 1, n] + 8*S2[-2, 1, 1, 1, n] - 
      8*S2[2, -1, 1, 1, n] - 16*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        (S2[-1, n]*(S2[1, n]^4 + 6*S2[1, n]^2*S2[2, n] + 15*S2[2, n]^2 + 
           8*S2[1, n]*S2[3, n] + 18*S2[4, n]))/24 + S2[-4, 1, n] - 
        (S2[1, n]^3*S2[1, -1, n])/6 - (S2[1, n]*S2[2, n]*S2[1, -1, n])/2 - 
        (S2[3, n]*S2[1, -1, n])/3 - S2[2, n]*S2[2, -1, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[4, -1, n] - S2[-2, 2, 1, n] - 
        S2[-1, 2, 2, n] + (S2[1, n]^2*S2[1, 1, -1, n])/2 + 
        (S2[2, n]*S2[1, 1, -1, n])/2 - S2[2, 1, -2, n] + S2[-2, 1, 1, 1, n] - 
        S2[1, n]*S2[1, 1, 1, -1, n] - S2[2, -1, 1, 1, n] + 
        S2[1, 1, 1, 1, -1, n])))/4 + 2*S2[2, -1, -1, 1, 1, n] + 
   S2[2, -1, 1, -1, 1, n] + S2[2, -1, 1, 1, -1, n] + 
   (S2[1, n]^4*S2[2, n] + S2[2, n]^3 + 4*S2[1, n]^3*
      (S2[3, n] - S2[2, 1, n]) + 12*S2[2, n]*(S2[3, 1, n] - S2[2, 1, 1, n]) + 
     6*S2[1, n]^2*(S2[4, n] - 2*S2[3, 1, n] + 2*S2[2, 1, 1, n]) + 
     4*S2[1, n]*(S2[2, n]*(5*S2[3, n] + 3*S2[2, 1, n]) + 
       6*(S2[5, n] - S2[3, 2, n] - S2[2, 2, 1, n] + S2[3, 1, 1, n] - 
         S2[2, 1, 1, 1, n])) + 8*(S2[3, n]^2 + S2[6, n] - 
       S2[3, n]*S2[2, 1, n] - 3*S2[2, 3, 1, n] + 3*S2[2, 2, 1, 1, n] - 
       3*S2[3, 1, 1, 1, n] + 3*S2[2, 1, 1, 1, 1, n]))/12 - 
   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] -> (3*S2[-6, n])/2 + S2[-5, n]*S2[1, n] + 
   (S2[-4, n]*S2[2, n])/2 + S2[-1, n]*S2[5, n] + S2[-5, 1, n]/2 + 
   (-S2[-6, n] - S2[-5, n]*S2[1, n] + S2[-5, 1, n])/2 - 
   S2[1, n]*S2[-4, 1, n] + S2[4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
     S2[1, -1, n]) - S2[5, -1, n] + S2[-4, 1, 1, n] + 
   S2[3, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
   S2[4, -1, 1, n] + S2[-3, 1, 1, 1, n] + 
   (S2[2, n]*(-3*S2[-4, n] + S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 
        2*S2[3, n]) - 3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/6 - S2[3, -1, 1, 1, n] + 
   S2[-2, 1, 1, 1, 1, n] + (S2[1, n]*(-3*S2[-5, n] + 6*S2[-4, 1, n] + 
      6*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        (S2[-1, n]*(S2[1, n]^4 + 6*S2[1, n]^2*S2[2, n] + 15*S2[2, n]^2 + 
           8*S2[1, n]*S2[3, n] + 18*S2[4, n]))/24 + S2[-4, 1, n] - 
        (S2[1, n]^3*S2[1, -1, n])/6 - (S2[1, n]*S2[2, n]*S2[1, -1, n])/2 - 
        (S2[3, n]*S2[1, -1, n])/3 - S2[2, n]*S2[2, -1, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[4, -1, n] - S2[-2, 2, 1, n] - 
        S2[-1, 2, 2, n] + (S2[1, n]^2*S2[1, 1, -1, n])/2 + 
        (S2[2, n]*S2[1, 1, -1, n])/2 - S2[2, 1, -2, n] + S2[-2, 1, 1, 1, n] - 
        S2[1, n]*S2[1, 1, 1, -1, n] - S2[2, -1, 1, 1, n] + 
        S2[1, 1, 1, 1, -1, n])))/6 - S2[2, -1, 1, 1, 1, n] - 
   5*S2[-1, 1, 1, 1, 1, 1, n], S2[1, 1, -1, -1, -1, -1, n] -> 
  (-2*S2[-3, n]^2)/3 - S2[-4, n]*S2[-2, n] + S2[-5, n]*S2[-1, n] + 
   (S2[-3, n]*(5*S2[-3, n] - S2[-1, n]^3))/48 + 
   (S2[-3, n]*(-21*S2[-3, n] + S2[-1, n]^3))/48 + S2[3, n]^2/2 + 
   (S2[-1, n]^4*S2[1, n]^2 + 3*S2[1, n]^2*S2[2, n]^2 - 6*S2[3, n]^2)/48 + 
   (S2[2, n]*(-S2[-1, n]^4 - 6*S2[-1, n]^2*S2[2, n] - 3*S2[2, n]^2 - 
      6*S2[4, n]))/48 + (S2[1, n]^2*S2[4, n])/8 - (S2[2, n]*S2[4, n])/2 + 
   (3*S2[6, n])/8 + (11*(S2[3, n]^2 + S2[6, n]))/24 - 
   2*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]) - (7*S2[-5, -1, n])/3 - 
   S2[-4, -2, n]/3 - S2[2, n]*S2[-3, -1, n] - S2[-2, n]*S2[-3, 1, n] - 
   S2[3, n]*S2[-2, -1, n] + (S2[3, n]*(-9*S2[3, n] + 12*S2[-2, -1, n]))/12 - 
   S2[3, n]*S2[2, 1, n] + S2[-2, n]*S2[3, -1, n] - S2[-1, n]*S2[4, -1, n] + 
   S2[4, 2, n] - (3*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]))/4 - 
   (43*S2[5, 1, n])/12 - (7*S2[-4, -1, 1, n])/6 + 
   (S2[-5, -1, n] + S2[-4, -2, n] + S2[1, n]*S2[-4, -1, n] - 
     S2[-4, -1, 1, n] - S2[-4, 1, -1, n])/3 - (2*S2[-4, 1, -1, n])/3 + 
   S2[-3, -2, 1, n] + S2[-3, -1, 2, n] + S2[-3, 1, -2, n] + 
   S2[-3, 2, -1, n] + (S2[-2, n]*(24*S2[-4, n] + 
      12*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
        S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n])))/24 - 
   S2[2, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
     S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
   (S2[-3, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
      S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]))/3 + 
   (S2[-1, n]^3*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
      S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]))/6 + 
   S2[2, -2, -2, n] - S2[-2, n]*S2[2, 1, -1, n] + (11*S2[2, 3, 1, n])/6 - 
   S2[3, -2, -1, n]/2 - S2[3, -1, -2, n] + 
   (5*(S2[3, n]^2 + S2[6, n] + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
        S2[2, 3, 1, n] - S2[3, 2, 1, n])))/12 + (4*S2[3, 2, 1, n])/3 + 
   (3*S2[4, -1, -1, n])/2 - S2[-2, -2, -1, -1, n] + S2[-2, -1, 1, 2, n] + 
   S2[-2, -1, 2, 1, n] + S2[-2, 2, -1, 1, n] + S2[-2, 2, 1, -1, n] + 
   (S2[2, n]*(6*S2[-1, n]^2*S2[1, n]^2 - 32*S2[4, n] + 
      8*(S2[1, n]*S2[3, n] + S2[4, n] - S2[3, 1, n]) - 32*S2[3, 1, n] - 
      6*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 
        S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
        2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
        2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
          2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n])))/
    48 - (S2[-1, n]^2*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*
       (S2[1, n]^2 + S2[2, n]) + S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 
      4*S2[-1, -2, 1, n] + 2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - 
        S2[2, 1, n] - S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
      2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
        2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]))/8 - 
   S2[1, n]*S2[2, 1, -1, -1, n] + S2[2, 2, 1, 1, n] + S2[3, -1, -1, 1, n]/2 + 
   (S2[-4, -1, 1, n] + S2[3, -1, -2, n] + S2[-1, n]*S2[3, -1, 1, n] + 
     S2[3, 2, 1, n] - 2*S2[3, -1, -1, 1, n] - S2[3, -1, 1, -1, n])/2 - 
   S2[3, 1, -1, -1, n]/2 + (-S2[3, -2, -1, n] - S2[3, -1, -2, n] - 
     S2[1, n]*S2[3, -1, -1, n] - S2[4, -1, -1, n] + S2[3, -1, -1, 1, n] + 
     S2[3, -1, 1, -1, n] + S2[3, 1, -1, -1, n])/2 - 
   S2[-2, -1, -1, -1, 1, n] - S2[-2, -1, -1, 1, -1, n] - 
   S2[-2, -1, 1, -1, -1, n] - S2[-2, 1, -1, -1, -1, n] + 
   (S2[1, n]*(3*S2[-4, n]*S2[-1, n] - 2*S2[2, n]*S2[3, n] + 9*S2[5, n] - 
      4*S2[-4, -1, n] - 4*S2[-3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) - 2*S2[-1, n]^3*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) - 6*S2[-1, n]*S2[2, n]*(S2[-2, n] + 
        S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      12*(S2[-3, n]*S2[-2, n] + S2[5, n] + S2[-4, -1, n] - S2[-3, -2, n] + 
        S2[2, n]*S2[-2, -1, n] - S2[-2, -1, 2, n] - S2[-2, 2, -1, n]) + 
      3*S2[-1, n]^2*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
        S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 3*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) - 
      12*S2[2, 2, 1, n] + 6*S2[3, -1, -1, n] + 12*S2[-2, -1, -1, -1, n] - 
      12*S2[-1, n]*S2[-1, -1, -1, 1, n] + (-8*S2[-2, n]*S2[-1, n]^3 - 
        3*S2[-1, n]^4*S2[1, n] - 3*S2[1, n]*S2[2, n]^2 - 
        6*S2[-1, n]^2*S2[3, n] - 6*S2[2, n]*S2[3, n] - 6*S2[1, n]*S2[4, n] - 
        24*S2[5, n] - 24*S2[-4, -1, n] + 24*S2[-3, -2, n] + 
        6*S2[-1, n]^2*S2[-2, -1, n] - 18*S2[2, n]*S2[-2, -1, n] + 
        2*S2[-1, n]^3*S2[1, -1, n] - 6*S2[-1, n]*S2[2, n]*S2[1, -1, n] - 
        8*S2[-3, n]*(2*S2[-2, n] + S2[1, -1, n]) - 6*S2[-1, n]^2*
         S2[2, 1, n] - 6*S2[2, n]*S2[2, 1, n] + 24*S2[-2, -1, 2, n] + 
        24*S2[-2, 2, -1, n] + 6*S2[-1, n]^2*S2[-1, 1, -1, n] + 
        6*S2[2, n]*S2[-1, 1, -1, n] + 24*S2[2, 2, 1, n] - 
        24*S2[-2, -1, -1, -1, n] + 24*S2[-1, n]*S2[-1, -1, -1, 1, n] + 
        24*S2[2, 1, -1, -1, n] + 24*S2[1, -1, -1, -1, -1, n])/2))/12 + 
   (S2[-1, n]*(60*S2[-5, n] + 8*S2[-3, n]*S2[1, n]^2 - 8*S2[-3, n]*S2[2, n] - 
      12*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) - 12*S2[-4, 1, n] + 
      48*S2[4, -1, n] + 24*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
        S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n]) - 24*S2[3, -1, 1, n] + 
      4*(-6*S2[-2, n]^2*S2[-1, n] - 6*S2[-4, n]*S2[1, n] - 
        2*S2[-3, n]*S2[1, n]^2 - S2[-1, n]^3*S2[1, n]^2 + 
        14*S2[-3, n]*S2[2, n] + S2[-1, n]^3*S2[2, n] + 3*S2[-1, n]*S2[1, n]^2*
         S2[2, n] - 3*S2[-1, n]*S2[4, n] + 12*S2[-4, 1, n] + 
        6*S2[-1, n]*S2[-3, -1, n] - 12*S2[-3, 2, n] + 6*S2[-1, n]*S2[1, n]*
         S2[-2, -1, n] - 6*S2[-1, n]^2*S2[-2, 1, n] - 
        6*S2[2, n]*S2[-2, 1, n] - 6*S2[1, n]*S2[2, -2, n] + 
        6*S2[2, n]*S2[2, -1, n] - 6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 
          2*S2[3, n] - 2*S2[2, 1, n]) - 12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 
        6*S2[1, n]*S2[3, -1, n] - 12*S2[-1, n]*S2[3, 1, n] - 
        12*S2[-2, 2, 1, n] + 12*S2[-1, -2, -2, n] + 
        6*S2[1, n]*S2[-1, -2, -1, n] + 12*S2[-1, n]*S2[-1, -2, 1, n] - 
        6*S2[-1, n]*S2[-1, 2, -1, n] + 6*S2[-1, n]^2*S2[1, 1, -1, n] - 
        6*S2[2, n]*S2[1, 1, -1, n] + 12*S2[1, n]*S2[2, 1, -1, n] + 
        12*S2[-1, n]*S2[2, 1, 1, n] + 12*S2[-2, -1, -1, 1, n] + 
        12*S2[-2, -1, 1, -1, n] + 12*S2[-2, 1, -1, -1, n] + 
        12*S2[1, n]*S2[-1, -1, -1, 1, n] - 12*S2[-1, n]*S2[1, 1, -1, -1, n] - 
        12*S2[2, -1, -1, -1, n] - 12*S2[2, 1, -1, 1, n] - 
        12*S2[2, 1, 1, -1, n] + 12*S2[1, 1, -1, -1, -1, n])))/48 + 
   S2[2, -1, -1, -1, -1, n] + S2[2, 1, -1, -1, 1, n] + 
   S2[2, 1, -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] -> 
  (-20*S2[-6, n])/3 + (2*S2[-2, n]^3)/3 - (S2[-4, n]*S2[-1, n]^2)/4 - 
   (S2[-4, n]*S2[1, n]^2)/4 + S2[-4, n]*S2[2, n] - S2[-2, n]*S2[2, n]^2 - 
   S2[-3, n]*S2[3, n] + ((5*S2[-3, n] + S2[-1, n]^3)*S2[3, n])/3 - 
   (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 + 
   (15*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/4 + 
   (9*S2[-5, 1, n])/4 - 6*S2[-4, 2, n] + S2[-1, n]^2*S2[-3, 1, n] - 
   2*S2[2, n]*S2[-3, 1, n] + S2[1, n]*S2[-3, 2, n] + 
   (5*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n]))/4 - 
   (11*S2[-3, 3, n])/4 + (S2[3, n]*(3*S2[-3, n] - 4*S2[-2, 1, n]))/4 + 
   3*S2[3, n]*S2[-2, 1, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
   (S2[4, n]*S2[1, -1, n])/2 + 
   (S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]))/2 + 
   3*S2[2, n]*S2[2, -2, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] + 
   2*S2[3, n]*(-S2[-2, 1, n] + S2[2, -1, n]) + 2*S2[-3, n]*S2[2, 1, n] + 
   S2[-1, n]*S2[2, n]*S2[2, 1, n] - 2*S2[-2, 1, n]*S2[2, 1, n] + 
   S2[2, -1, n]*S2[2, 1, n] + S2[-3, n]*(-S2[3, n] + S2[2, 1, n]) - 
   S2[-1, n]^2*S2[3, -1, n] + (S2[2, n]*S2[3, -1, n])/2 - 
   S2[-1, n]*S2[3, 2, n] + 6*S2[4, -2, n] + S2[-1, n]*S2[4, 1, n] + 
   2*(S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n]) + (9*S2[5, -1, n])/2 - 
   S2[-4, -1, -1, n]/2 + 
   (5*(S2[-6, n] + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
      S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - S2[-4, 2, n] - S2[5, -1, n] + 
      S2[-4, -1, -1, n]))/2 + (-S2[-6, n] - S2[-5, n]*S2[1, n] - 
     (S2[-4, n]*S2[1, n]^2)/2 - (S2[-4, n]*S2[2, n])/2 + S2[-5, 1, n] + 
     S2[1, n]*S2[-4, 1, n] + S2[-4, 2, n] - S2[-4, 1, 1, n])/2 + 
   (3*S2[-4, 1, 1, n])/2 + S2[-3, -2, -1, n] - 3*S2[-3, -1, -2, n] + 
   4*S2[-3, 1, 2, n] + 2*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + 
     S2[-3, 3, n] - S2[-3, 1, 2, n] - S2[-3, 2, 1, n]) - 2*S2[-3, 2, 1, n] + 
   (S2[-1, n]^2*S2[-2, 1, 1, n])/2 + 2*S2[2, n]*S2[-2, 1, 1, n] + 
   2*S2[-2, 2, 2, n] - S2[-2, 3, 1, n] + 
   (S2[-3, n]*(-S2[3, n] - 6*S2[-2, -1, n] + 4*S2[2, 1, n] - 
      3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/4 + S2[-2, 1, n]*(S2[-2, -1, n] - S2[2, 1, n] + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])/2) + (S2[-3, n]*(-7*S2[3, n] + 4*S2[-2, -1, n] - 
      5*S2[2, 1, n] + 6*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
        S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/4 + 
   (S2[-3, n]*(-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - S2[3, n] - 
      9*S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] + 4*S2[2, 1, n] + 
      S2[-1, 1, -1, n]))/4 + S2[2, -1, n]*(-S2[-2, -1, n] + S2[2, 1, n] + 
     (-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - S2[3, n] + 
       S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] + 
       S2[-1, 1, -1, n])/2) + 
   (S2[-2, n]*(-16*S2[4, n] + 2*(S2[2, n]^2 + S2[4, n]) - 
      8*S2[-2, 1, -1, n] - 12*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + 2*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n]))))/4 - 
   S2[1, n]*S2[-1, 2, 2, n] + 
   ((2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n])*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
      S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]))/
    2 - S2[1, n]*S2[2, 1, -2, n] + 
   (S2[2, n]*(9*S2[-4, n] - 48*S2[-3, 1, n] - 
      6*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 24*S2[3, -1, n] - 
      6*S2[-2, 1, 1, n] + 6*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n])))/12 - 
   (S2[-1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
      S2[1, 2, -1, n] - S2[2, 1, -1, n]))/2 - (S2[2, n]*S2[2, 1, -1, n])/2 - 
   S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) + 
   2*S2[-2, n]*S2[2, 1, 1, n] - 2*S2[-1, n]*S2[2, 2, 1, n] + 
   4*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
     S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - S2[3, 1, -2, n]) + 
   2*S2[3, 1, -2, n] - S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - 
     S2[3, -1, 1, n] - S2[3, 1, -1, n]) - S2[1, n]*S2[3, 1, -1, n] - 
   4*S2[3, 2, -1, n] - 2*S2[4, -1, 1, n] - 3*S2[4, 1, -1, n] + 
   3*S2[-3, -1, -1, 1, n] + 3*S2[-3, -1, 1, -1, n] + 2*S2[-3, 1, -1, -1, n] + 
   3*S2[-3, 1, 1, 1, n] + S2[-2, -1, -1, 2, n] + S2[-2, -1, 2, -1, n] - 
   2*S2[-2, 1, 1, 2, n] + S2[-2, 2, -1, -1, n] - S2[-2, 2, 1, 1, n] + 
   (S2[2, n]*(5*S2[-4, n] - 4*S2[-2, n]*S2[2, n] + 4*S2[-3, 1, n] + 
      4*S2[2, -2, n] - 2*S2[3, -1, n] + 2*S2[2, 1, -1, n] - 
      6*S2[-1, -1, -1, 1, n]))/4 + (S2[1, n]^2*S2[-1, -1, -1, 1, n])/2 + 
   3*(-S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - 
     (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - S2[-5, 1, n] - 
     S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
     S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + (S2[-2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 - S2[4, -2, n] + S2[5, -1, n] + 
     S2[-3, -1, -2, n] - S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
     S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
     S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n]) - 
   3*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
     S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
        2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
          S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n]) + S2[-1, 1, 2, 2, n] - 
   3*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
     S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
     S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
     2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]) - 
   2*(-S2[-6, n] + S2[-4, n]*S2[2, n] - S2[-1, n]*S2[1, n]*S2[2, n]^2 - 
     2*S2[-3, n]*S2[3, n] - S2[-1, n]*S2[2, n]*S2[3, n] - 
     S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] - S2[-4, 2, n] - 
     S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + 
     S2[4, n]*S2[1, -1, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
     S2[3, n]*S2[2, -1, n] + S2[-3, n]*S2[2, 1, n] + 
     S2[-1, n]*S2[2, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] + 
     S2[2, n]*S2[3, -1, n] - S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + 
     S2[5, -1, n] - 2*S2[-2, 2, 2, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
     S2[4, 1, -1, n] + 2*S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n]) + 
   S2[-1, 2, 2, 1, n] - 2*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - 
     S2[-3, n]*S2[3, n] - S2[-1, n]*S2[2, n]*S2[3, n] - 
     (S2[-1, n]*S2[1, n]*S2[4, n])/2 - (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/
      2 - S2[-1, n]*S2[5, n] - S2[-4, 2, n] + S2[-3, 3, n] + 
     (S2[2, n]^2*S2[1, -1, n])/2 + (S2[4, n]*S2[1, -1, n])/2 + 
     S2[2, n]*S2[2, -2, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] + 
     S2[3, n]*S2[2, -1, n] + S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - 
     S2[-3, 1, 2, n] - S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + S2[3, -1, 2, n] + S2[4, -1, 1, n] + 
     S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) + 
   2*(S2[-6, n] + S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
     S2[-3, n]*S2[3, n] + S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] - 
     S2[3, n]*S2[-2, 1, n] - S2[2, n]*S2[2, -2, n] + 
     S2[-2, 1, n]*S2[2, 1, n] + S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - 
     S2[-3, 1, 2, n] - S2[-3, 2, 1, n] - S2[2, n]*S2[-2, 1, 1, n] - 
     S2[-2, 2, 2, n] - S2[3, 1, -2, n] + S2[-2, 1, 1, 2, n] - 
     S2[-2, 2, 1, 1, n] - S2[2, -2, 1, 1, n]) + 3*S2[2, -2, 1, 1, n] + 
   S2[1, n]*S2[2, 1, -1, 1, n] + 2*S2[1, n]*S2[2, 1, 1, -1, n] + 
   (S2[-1, n]*(36*S2[-3, n]*S2[-2, n] - 24*S2[2, n]*S2[3, n] - 48*S2[5, n] + 
      6*S2[-4, -1, n] - 12*S2[-3, -2, n] + 12*S2[2, n]*S2[-2, -1, n] + 
      12*S2[-2, n]*S2[-2, 1, n] - 12*S2[-2, n]*S2[2, -1, n] - 
      12*S2[2, n]*S2[2, 1, n] + 12*S2[3, 2, n] + 
      18*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) + 42*S2[4, 1, n] - 
      36*S2[-3, -1, 1, n] - 24*S2[-3, 1, -1, n] - 12*S2[-2, -1, 2, n] - 
      12*S2[-2, 2, -1, n] + 6*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) + 
      12*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n] - 2*S2[2, 2, 1, n]) + 12*S2[2, 2, 1, n] + 
      24*S2[3, -1, -1, n] + 36*S2[3, 1, 1, n] - 36*S2[-2, -1, 1, 1, n] - 
      24*S2[-2, 1, -1, 1, n] - 12*S2[-2, 1, 1, -1, n] + 
      24*S2[2, -1, -1, 1, n] + 12*S2[2, -1, 1, -1, n] + 
      36*S2[2, 1, 1, 1, n]))/12 - 2*S2[3, -1, -1, -1, n] - 
   3*S2[3, -1, 1, 1, n] - S2[3, 1, -1, 1, n] + 
   2*(S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 2*S2[3, 1, 1, -1, n]) + 
   S2[3, 1, 1, -1, n] + S2[-2, -1, -1, 1, 1, n] + 2*S2[-2, -1, 1, -1, 1, n] + 
   3*S2[-2, -1, 1, 1, -1, n] + S2[-2, 1, -1, -1, 1, n] + 
   2*S2[-2, 1, -1, 1, -1, n] + S2[-2, 1, 1, -1, -1, n] + 
   (S2[1, n]*(-33*S2[-5, n] - 12*S2[-2, n]^2*S2[-1, n] - 
      12*S2[-3, n]*S2[-1, n]^2 - 8*S2[-3, n]*S2[2, n] - 
      4*S2[-1, n]^3*S2[2, n] + 12*S2[-1, n]*S2[2, n]^2 + 
      24*S2[-2, n]*S2[3, n] - 30*S2[-1, n]*S2[4, n] - 
      6*S2[-1, n]*(S2[2, n]^2 + S2[4, n]) + 
      6*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) + 
      24*S2[-1, n]*S2[-3, -1, n] + 24*S2[-3, 2, n] + 
      24*S2[-2, n]*S2[-2, -1, n] - 12*S2[-1, n]^2*S2[-2, 1, n] + 
      12*S2[2, n]*S2[-2, 1, n] + 12*S2[-1, n]^2*S2[2, -1, n] - 
      12*S2[2, n]*S2[2, -1, n] - 36*S2[3, -2, n] - 24*S2[-1, n]*S2[3, 1, n] + 
      24*S2[4, -1, n] - 24*S2[-3, -1, -1, n] - 24*S2[-3, 1, 1, n] + 
      24*S2[-1, n]*S2[-2, 1, -1, n] - 
      24*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
        S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n]) + 
      24*S2[-1, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
        S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 
      6*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 6*S2[-1, n]*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) + 
      24*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) - 
      36*(S2[-5, n] + S2[-3, n]*S2[2, n] + S2[-4, 1, n] - S2[-3, 2, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n]) - 
      12*S2[2, 1, -2, n] - 24*S2[-1, n]*S2[2, 1, 1, n] + 12*S2[3, -1, 1, n] - 
      12*S2[-2, -1, -1, 1, n] - 24*S2[-2, -1, 1, -1, n] - 
      24*S2[-2, 1, -1, -1, n] + 24*S2[2, -1, -1, -1, n] + 
      12*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n]) + 4*(-6*S2[-2, n]^2*S2[-1, n] - 
        6*S2[-4, n]*S2[1, n] - 2*S2[-3, n]*S2[1, n]^2 - 
        S2[-1, n]^3*S2[1, n]^2 + 14*S2[-3, n]*S2[2, n] + 
        S2[-1, n]^3*S2[2, n] + 3*S2[-1, n]*S2[1, n]^2*S2[2, n] - 
        3*S2[-1, n]*S2[4, n] + 12*S2[-4, 1, n] + 6*S2[-1, n]*S2[-3, -1, n] - 
        12*S2[-3, 2, n] + 6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 
        6*S2[-1, n]^2*S2[-2, 1, n] - 6*S2[2, n]*S2[-2, 1, n] - 
        6*S2[1, n]*S2[2, -2, n] + 6*S2[2, n]*S2[2, -1, n] - 
        6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) - 
        12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 6*S2[1, n]*S2[3, -1, n] - 
        12*S2[-1, n]*S2[3, 1, n] - 12*S2[-2, 2, 1, n] + 
        12*S2[-1, -2, -2, n] + 6*S2[1, n]*S2[-1, -2, -1, n] + 
        12*S2[-1, n]*S2[-1, -2, 1, n] - 6*S2[-1, n]*S2[-1, 2, -1, n] + 
        6*S2[-1, n]^2*S2[1, 1, -1, n] - 6*S2[2, n]*S2[1, 1, -1, n] + 
        12*S2[1, n]*S2[2, 1, -1, n] + 12*S2[-1, n]*S2[2, 1, 1, n] + 
        12*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
        12*S2[-2, 1, -1, -1, n] + 12*S2[1, n]*S2[-1, -1, -1, 1, n] - 
        12*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] - 
        12*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n] + 
        12*S2[1, 1, -1, -1, -1, n])))/12 - S2[2, -1, -1, -1, 1, n] - 
   2*S2[2, -1, -1, 1, -1, n] - S2[2, -1, 1, -1, -1, n] - 
   S2[2, 1, -1, 1, 1, n] - 2*S2[2, 1, 1, -1, 1, n] - 
   3*S2[2, 1, 1, 1, -1, n] - 6*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] -> (145*S2[-6, n])/12 - (5*S2[-2, n]^3)/6 + 
   (3*S2[-4, n]*S2[-1, n]^2)/2 + S2[-4, n]*S2[1, n]^2 + 
   (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - 3*S2[-3, n]*S2[3, n] + 
   S2[-1, n]*S2[2, n]*S2[3, n] + (S2[-1, n]*S2[1, n]*S2[4, n])/2 + 
   S2[-1, n]*S2[5, n] - (23*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/
    4 - (7*S2[-5, 1, n])/4 + 3*S2[-4, 2, n] - (S2[-1, n]^2*S2[-3, 1, n])/2 + 
   (S2[1, n]^2*S2[-3, 1, n])/2 - S2[2, n]*S2[-3, 1, n] - 
   (5*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n]))/4 + 
   (15*S2[-3, 3, n])/4 + S2[3, n]*S2[-2, 1, n] - (S2[2, n]^2*S2[1, -1, n])/
    2 - (S2[4, n]*S2[1, -1, n])/2 - 
   (S2[-1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]))/2 + 
   S2[1, n]^2*S2[2, -2, n] + S2[2, n]*S2[2, -2, n] - 
   S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] + 
   S2[-3, n]*S2[2, 1, n] - S2[-2, 1, n]*S2[2, 1, n] + 
   S2[2, -1, n]*S2[2, 1, n] + (S2[-1, n]^2*S2[3, -1, n])/2 - 
   (S2[1, n]^2*S2[3, -1, n])/2 + (S2[2, n]*S2[3, -1, n])/2 - 
   S2[-2, n]*S2[3, 1, n] - 10*S2[4, -2, n] - S2[1, n]*S2[4, -1, n] - 
   (7*(S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n]))/4 - 
   (23*S2[5, -1, n])/4 + S2[-4, -1, -1, n] - 
   4*(S2[-6, n] + (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 + 
     S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - S2[-4, 2, n] - S2[5, -1, n] + 
     S2[-4, -1, -1, n]) - 2*S2[-3, -2, -1, n] + 5*S2[-3, -1, -2, n] + 
   S2[1, n]*S2[-3, -1, -1, n] - 3*S2[-3, 1, 2, n] - 
   3*(S2[-5, 1, n] + S2[2, n]*S2[-3, 1, n] + S2[-3, 3, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n]) + S2[2, n]*S2[-2, 1, 1, n] + 2*S2[-2, 2, 2, n] - 
   3*(-(S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-4, 2, n] + 
     S2[2, n]*S2[2, -2, n] + S2[4, -2, n] + S2[-2, 2, 2, n]) + 
   S2[-2, 3, 1, n] + (S2[1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
      S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
      S2[-1, -2, -1, n]))/4 + (S2[-3, n]*(18*S2[3, n] - 6*S2[-2, -1, n] - 
      S2[2, 1, n] - 8*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + 
        S2[3, n] - S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/4 + S2[2, -1, n]*(S2[-2, -1, n] - S2[2, 1, n] + 
     (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
       S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
       S2[-1, 1, -1, n])/2) + (S2[-3, n]*(18*S2[-2, -1, n] - 9*S2[2, 1, n] + 
      2*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/4 + 
   (S2[-3, n]*(-2*S2[3, n] + 6*S2[-2, -1, n] - 3*S2[2, 1, n] + 
      2*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/2 + S2[-2, 1, n]*(-S2[-2, -1, n] + S2[2, 1, n] + 
     (-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - S2[3, n] + 
       S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] + 
       S2[-1, 1, -1, n])/2) + S2[3, n]*(-(S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
      2 - 2*S2[-2, 1, n] + S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
     S2[1, 1, -1, n]) + S2[3, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
     3*S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - 4*S2[2, -1, n] + 
     S2[1, 1, -1, n]) - S2[-2, -1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
      2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
     S2[1, 1, -1, n]) + S2[2, 1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
     S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
   (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
     S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n])*
    ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   (S2[3, n]*(-5*S2[-3, n] + 8*S2[-2, 1, n] + 
      4*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/4 + 
   S2[2, n]*S2[1, 2, -1, n] + (S2[2, n]*(-10*S2[-4, n] + 30*S2[-3, 1, n] + 
      2*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) - 18*S2[3, -1, n] + 
      4*S2[-2, 1, 1, n] - 4*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n])))/4 - 
   2*S2[1, n]^2*S2[2, 1, -1, n] + S2[2, n]*S2[2, 1, -1, n] - 
   S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) - 
   S2[-1, n]*S2[2, 2, 1, n] - 7*(S2[-6, n] + S2[-3, n]*S2[3, n] + 
     S2[-5, 1, n] - S2[-3, 3, n] + S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - 
     S2[3, 1, -2, n]) - S2[3, 1, -2, n] + 
   S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
     S2[3, 1, -1, n]) + 6*S2[3, 2, -1, n] + 5*S2[4, -1, 1, n] + 
   6*S2[4, 1, -1, n] - 4*S2[-3, -1, -1, 1, n] - 4*S2[-3, -1, 1, -1, n] - 
   3*S2[-3, 1, -1, -1, n] - 3*S2[-3, 1, 1, 1, n] - S2[-2, -1, -1, 2, n] - 
   S2[-2, -1, 2, -1, n] - S2[-2, 1, 1, 2, n] - S2[-2, 2, -1, -1, n] - 
   (3*S2[1, n]^2*S2[-1, -1, -1, 1, n])/2 + 
   (S2[2, n]*(-7*S2[-4, n] - S2[-2, n]*S2[-1, n]^2 + 6*S2[-2, n]*S2[2, n] - 
      6*S2[-3, 1, n] + S2[-1, n]*S2[-2, -1, n] - 5*S2[2, -2, n] + 
      5*S2[3, -1, n] - S2[-1, -2, -1, n] - 8*S2[2, 1, -1, n] + 
      6*S2[-1, -1, -1, 1, n]))/4 - 
   5*(-S2[-6, n] - (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - 
     (S2[-1, n]*S2[1, n]*S2[4, n])/2 - S2[-1, n]*S2[5, n] - S2[-5, 1, n] - 
     S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
     S2[-2, n]*S2[-1, n]*S2[-2, 1, n] + (S2[-2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 - S2[4, -2, n] + S2[5, -1, n] + 
     S2[-3, -1, -2, n] - S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] - 
     S2[-2, n]*S2[-1, -2, 1, n] + S2[4, -1, 1, n] + S2[-1, -2, -2, 1, n] + 
     S2[-1, -2, 1, -2, n] + S2[-1, 1, -2, -2, n]) + 
   6*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 + 
     S2[-2, 2, 2, n] + S2[2, n]*S2[2, 1, -1, n] + 
     (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
        2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
          S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n] - S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[-1, 1, 2, 2, n]) - S2[-1, 1, 2, 2, n] + 
   6*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
     S2[-1, n]*S2[5, n] - S2[-3, 3, n] - S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     S2[3, n]*S2[2, -1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] - S2[-1, n]*S2[3, 2, n] + 
     S2[-1, n]*S2[4, 1, n] + S2[-3, 1, 2, n] + S2[2, n]*S2[1, 2, -1, n] - 
     2*S2[-1, n]*S2[2, 2, 1, n] - S2[3, -1, 2, n] - S2[-1, 2, 1, 2, n]) - 
   S2[-1, 2, 1, 2, n] + 4*(-S2[-6, n] + S2[-4, n]*S2[2, n] - 
     S2[-1, n]*S2[1, n]*S2[2, n]^2 - 2*S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - S2[-1, n]*S2[1, n]*S2[4, n] - 
     S2[-1, n]*S2[5, n] - S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] + 
     S2[-3, 3, n] + S2[2, n]^2*S2[1, -1, n] + S2[4, n]*S2[1, -1, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[-3, n]*S2[2, 1, n] + S2[-1, n]*S2[2, n]*S2[2, 1, n] - 
     S2[2, -1, n]*S2[2, 1, n] + S2[2, n]*S2[3, -1, n] - 
     S2[-1, n]*S2[3, 2, n] + S2[-1, n]*S2[4, 1, n] + S2[5, -1, n] - 
     2*S2[-2, 2, 2, n] - S2[2, n]*S2[1, 2, -1, n] - 
     S2[2, n]*S2[2, 1, -1, n] + 2*S2[3, -1, 2, n] + S2[3, 2, -1, n] - 
     S2[4, 1, -1, n] + 2*S2[-1, 1, 2, 2, n] + S2[-1, 2, 1, 2, n]) + 
   4*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) + 
   (S2[-2, n]*(S2[-1, n]^2*S2[1, n]^2 - 2*S2[1, n]^2*S2[2, n] - 
      S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 29*S2[4, n] - 
      2*(S2[2, n]^2 + S2[4, n]) - 6*S2[-3, -1, n] + 8*S2[3, 1, n] + 
      12*S2[-2, 1, -1, n] + 20*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) - 4*S2[-1, -2, 1, n] - 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 3*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) + 
      2*S2[-1, 2, -1, n] + 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
        S2[2, -1, n] - 2*S2[1, 1, -1, n]) - 4*S2[2, 1, 1, n] + 
      4*S2[1, 1, -1, -1, n]))/4 - 2*(S2[-6, n] + S2[-4, n]*S2[2, n] + 
     S2[-2, n]*S2[2, n]^2 + S2[-3, n]*S2[3, n] + S2[-5, 1, n] + 
     S2[2, n]*S2[-3, 1, n] - S2[3, n]*S2[-2, 1, n] - S2[2, n]*S2[2, -2, n] + 
     S2[-2, 1, n]*S2[2, 1, n] + S2[-2, n]*S2[3, 1, n] + S2[-4, 1, 1, n] - 
     S2[-3, 1, 2, n] - S2[-3, 2, 1, n] - S2[2, n]*S2[-2, 1, 1, n] - 
     S2[-2, 2, 2, n] - S2[3, 1, -2, n] + S2[-2, 1, 1, 2, n] - 
     S2[-2, 2, 1, 1, n] - S2[2, -2, 1, 1, n]) - 6*S2[2, -2, 1, 1, n] + 
   S2[1, n]*S2[2, 1, 1, -1, n] + 3*S2[3, -1, -1, -1, n] + 
   3*S2[3, -1, 1, 1, n] + 2*S2[3, 1, -1, 1, n] - 
   5*(S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 2*S2[3, 1, 1, -1, n]) - 
   3*S2[-2, -1, -1, 1, 1, n] - 5*S2[-2, -1, 1, -1, 1, n] - 
   6*S2[-2, -1, 1, 1, -1, n] - 3*S2[-2, 1, -1, -1, 1, n] - 
   4*S2[-2, 1, -1, 1, -1, n] - 2*S2[-2, 1, 1, -1, -1, n] + 
   (S2[-1, n]*(-12*S2[-3, n]*S2[-2, n] + 2*S2[1, n]^2*S2[3, n] + 
      6*S2[2, n]*S2[3, n] + 23*S2[5, n] - 8*S2[-4, -1, n] + 4*S2[-3, -2, n] - 
      2*S2[1, n]^2*S2[-2, -1, n] - 2*S2[2, n]*S2[-2, -1, n] - 
      4*S2[-2, n]*S2[-2, 1, n] + 4*S2[-2, n]*S2[2, -1, n] + 
      2*S2[1, n]^2*S2[2, 1, n] + 2*S2[2, n]*S2[2, 1, n] - 4*S2[3, 2, n] - 
      8*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) - 16*S2[4, 1, n] + 
      12*S2[-3, -1, 1, n] + 8*S2[-3, 1, -1, n] + 4*S2[-2, -1, 2, n] + 
      4*S2[-2, 2, -1, n] + S2[1, n]^2*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) - 
      S2[2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 4*S2[-2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
         2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n]) + 4*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
      4*(S2[5, n] + S2[2, n]*(S2[3, n] + S2[2, 1, n]) - S2[3, 2, n] + 
        S2[4, 1, n] - 2*S2[2, 2, 1, n]) - 4*S2[2, 2, 1, n] - 
      8*S2[3, -1, -1, n] - 12*S2[3, 1, 1, n] + 12*S2[-2, -1, 1, 1, n] + 
      8*S2[-2, 1, -1, 1, n] + 4*S2[-2, 1, 1, -1, n] - 8*S2[2, -1, -1, 1, n] - 
      4*S2[2, -1, 1, -1, n] - 12*S2[2, 1, 1, 1, n] - 
      12*S2[-1, -1, 1, 1, 1, n] - 4*S2[-1, 1, -1, 1, 1, n]))/4 + 
   (S2[1, n]*(23*S2[-5, n] + 6*S2[-2, n]^2*S2[-1, n] + 
      6*S2[-3, n]*S2[-1, n]^2 + 6*S2[-3, n]*S2[2, n] + 
      2*S2[-1, n]^3*S2[2, n] - 6*S2[-1, n]*S2[2, n]^2 - 
      12*S2[-2, n]*S2[3, n] + 14*S2[-1, n]*S2[4, n] + 
      3*S2[-1, n]*(S2[2, n]^2 + S2[4, n]) - 
      4*(S2[-5, n] + S2[-4, n]*S2[1, n] - S2[-4, 1, n]) - 4*S2[-4, 1, n] - 
      12*S2[-1, n]*S2[-3, -1, n] - 12*S2[-3, 2, n] - 
      12*S2[-2, n]*S2[-2, -1, n] + 6*S2[-1, n]^2*S2[-2, 1, n] - 
      6*S2[2, n]*S2[-2, 1, n] - 4*S2[-2, n]*S2[-1, n]*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      4*S2[3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      4*S2[-2, -1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      2*S2[-1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 - 
      6*S2[-1, n]^2*S2[2, -1, n] + 6*S2[2, n]*S2[2, -1, n] - 
      4*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*S2[2, 1, n] + 
      20*S2[3, -2, n] + 12*S2[-1, n]*S2[3, 1, n] - 12*S2[4, -1, n] + 
      8*S2[-3, -1, -1, n] + 8*S2[-3, 1, 1, n] - 
      12*S2[-1, n]*S2[-2, 1, -1, n] + 
      12*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
        S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n]) - 
      12*S2[-1, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
        S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
      2*S2[-2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 4*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 3*S2[-1, n]*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) - 
      16*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) + 
      16*(S2[-5, n] + S2[-3, n]*S2[2, n] + S2[-4, 1, n] - S2[-3, 2, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n]) + 
      12*S2[-1, n]*S2[2, 1, 1, n] - 4*S2[3, -1, 1, n] + 
      8*S2[-2, -1, -1, 1, n] + 16*S2[-2, -1, 1, -1, n] + 
      12*S2[-2, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] + 
      4*S2[2, 1, -1, 1, n] + 4*S2[2, 1, 1, -1, n] - 
      6*(2*S2[-2, n]^2*S2[-1, n] + S2[-1, n]^3*S2[1, n]^2 + 
        S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - S2[-1, n]*S2[1, n]^2*S2[2, n] + 
        S2[-1, n]*S2[1, n]*S2[3, n] + S2[-1, n]*S2[4, n] - 
        3*S2[-1, n]*S2[-3, -1, n] + 2*S2[1, n]*S2[-3, 1, n] - 
        3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + S2[-1, n]^2*S2[-2, 1, n] + 
        S2[2, n]*S2[-2, 1, n] - S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - 
        S2[1, n]*S2[2, n]*S2[1, -1, n] - S2[3, n]*S2[1, -1, n] - 
        S2[-2, -1, n]*S2[1, -1, n] + 4*S2[1, n]*S2[2, -2, n] - 
        S2[2, n]*S2[2, -1, n] + 5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + 
        S2[1, -1, n]*S2[2, 1, n] + 2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 
        2*S2[4, -1, n] + 2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n]) - 2*(-6*S2[-2, n]^2*S2[-1, n] - 
        6*S2[-4, n]*S2[1, n] - 2*S2[-3, n]*S2[1, n]^2 - 
        S2[-1, n]^3*S2[1, n]^2 + 14*S2[-3, n]*S2[2, n] + 
        S2[-1, n]^3*S2[2, n] + 3*S2[-1, n]*S2[1, n]^2*S2[2, n] - 
        3*S2[-1, n]*S2[4, n] + 12*S2[-4, 1, n] + 6*S2[-1, n]*S2[-3, -1, n] - 
        12*S2[-3, 2, n] + 6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 
        6*S2[-1, n]^2*S2[-2, 1, n] - 6*S2[2, n]*S2[-2, 1, n] - 
        6*S2[1, n]*S2[2, -2, n] + 6*S2[2, n]*S2[2, -1, n] - 
        6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) - 
        12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 6*S2[1, n]*S2[3, -1, n] - 
        12*S2[-1, n]*S2[3, 1, n] - 12*S2[-2, 2, 1, n] + 
        12*S2[-1, -2, -2, n] + 6*S2[1, n]*S2[-1, -2, -1, n] + 
        12*S2[-1, n]*S2[-1, -2, 1, n] - 6*S2[-1, n]*S2[-1, 2, -1, n] + 
        6*S2[-1, n]^2*S2[1, 1, -1, n] - 6*S2[2, n]*S2[1, 1, -1, n] + 
        12*S2[1, n]*S2[2, 1, -1, n] + 12*S2[-1, n]*S2[2, 1, 1, n] + 
        12*S2[-2, -1, -1, 1, n] + 12*S2[-2, -1, 1, -1, n] + 
        12*S2[-2, 1, -1, -1, n] + 12*S2[1, n]*S2[-1, -1, -1, 1, n] - 
        12*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, -1, -1, -1, n] - 
        12*S2[2, 1, -1, 1, n] - 12*S2[2, 1, 1, -1, n] + 
        12*S2[1, 1, -1, -1, -1, n])))/4 + 3*S2[2, -1, -1, -1, 1, n] + 
   4*S2[2, -1, -1, 1, -1, n] + 2*S2[2, -1, 1, -1, -1, n] - 
   S2[2, 1, 1, -1, 1, n] - 3*S2[2, 1, 1, 1, -1, n] + 
   3*(-S2[-6, n] - S2[-4, n]*S2[2, n] + S2[-2, n]*S2[2, n]^2 + 
     S2[-3, n]*S2[3, n] - S2[-5, 1, n] + 2*S2[-4, 2, n] + 
     S2[2, n]*S2[-3, 1, n] - S2[1, n]*S2[-3, 2, n] - S2[3, n]*S2[-2, 1, n] - 
     (S2[2, n]^2*S2[1, -1, n])/2 - (S2[4, n]*S2[1, -1, n])/2 - 
     S2[2, n]*S2[2, -2, n] + S2[1, n]*S2[2, n]*S2[2, -1, n] - 
     2*S2[-3, n]*S2[2, 1, n] - S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
     S2[-2, 1, n]*S2[2, 1, n] - S2[2, -1, n]*S2[2, 1, n] - 
     S2[2, n]*S2[3, -1, n] + S2[-2, n]*S2[3, 1, n] + S2[-1, n]*S2[3, 2, n] + 
     S2[4, -2, n] + S2[1, n]*S2[4, -1, n] - S2[-1, n]*S2[4, 1, n] - 
     S2[5, -1, n] - S2[-4, 1, 1, n] - S2[-3, 1, 2, n] + 2*S2[-3, 2, 1, n] - 
     S2[2, n]*S2[-2, 1, 1, n] + S2[1, n]*S2[-1, 2, 2, n] + 
     S2[1, n]*S2[2, 1, -2, n] + (S2[1, n]^2*S2[2, 1, -1, n])/2 + 
     (S2[2, n]*S2[2, 1, -1, n])/2 - 2*S2[-2, n]*S2[2, 1, 1, n] + 
     2*S2[-1, n]*S2[2, 2, 1, n] + S2[1, n]*S2[3, 1, -1, n] + 
     S2[3, 2, -1, n] - S2[4, -1, 1, n] + S2[-2, 1, 1, 2, n] + 
     S2[-2, 2, 1, 1, n] - S2[-1, 1, 2, 2, n] - S2[-1, 2, 2, 1, n] + 
     S2[2, -2, 1, 1, n] - S2[1, n]*S2[2, 1, -1, 1, n] - 
     2*S2[1, n]*S2[2, 1, 1, -1, n] - S2[3, 1, -1, 1, n] - 
     2*S2[3, 1, 1, -1, n] + S2[2, 1, -1, 1, 1, n] + 2*S2[2, 1, 1, -1, 1, n] + 
     3*S2[2, 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, 1, -1, 1, n], 
 S2[1, 1, -1, -1, 1, 1, n] -> -S2[-3, n]^2/2 + (3*S2[-5, n]*S2[-1, n])/2 + 
   (S2[2, n]*(-S2[1, n]^4 - 3*S2[2, n]^2 - 6*S2[4, n]))/8 + 
   (3*S2[1, n]^2*S2[4, n])/4 + (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + 
   (-S2[-3, n]^2 - S2[6, n])/4 + S2[6, n] + 
   (S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n])/4 - 
   (3*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]))/2 - 
   (3*S2[-5, -1, n])/2 - S2[1, n]*S2[-3, -2, n] - 
   (S2[2, n]*S2[-3, -1, n])/2 + (S2[1, n]^3*S2[2, 1, n])/2 - S2[4, 2, n]/2 - 
   (3*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]))/4 - S2[5, 1, n]/4 + 
   S2[-4, 1, -1, n]/2 + S2[1, n]*S2[-3, -1, 1, n] + S2[-3, 1, -2, n]/2 + 
   S2[1, n]*S2[-3, 1, -1, n] + S2[-3, 2, -1, n]/2 + 
   (S2[-3, n]*(-(S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
      S2[1, n]*S2[1, -1, n] - S2[1, 1, -1, n]))/2 + 
   (S2[-3, n]*(-3*S2[-3, n] + 2*S2[-2, 1, n] - 2*S2[2, -1, n] - 
      2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/4 + 
   (S2[-3, n]*(5*S2[-3, n] - 4*S2[-2, 1, n] + 4*S2[2, -1, n] + 
      4*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/4 + 
   (2*S2[-3, n]^2 + 4*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])^2)/8 - 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
     S2[2, 3, 1, n] - S2[3, 2, 1, n]) + 3*S2[3, 2, 1, n] - 
   (3*S2[4, 1, 1, n])/2 + 
   (3*((S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + S2[6, n] + 
      S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - S2[5, 1, n] + 
      S2[4, 1, 1, n]))/2 - S2[-3, 1, -1, 1, n]/2 - S2[-3, 1, 1, -1, n] + 
   (-S2[-4, 1, -1, n] - S2[-3, 1, -2, n] - S2[1, n]*S2[-3, 1, -1, n] - 
     S2[-3, 2, -1, n] + S2[-3, 1, -1, 1, n] + 2*S2[-3, 1, 1, -1, n])/2 + 
   S2[-2, -2, 1, 1, n] + S2[-2, -1, 1, 2, n] + S2[-2, -1, 2, 1, n] + 
   (S2[1, n]^2*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 
      S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
      2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
        2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]))/8 + 
   (S2[2, n]*(-7*S2[1, n]^2*S2[2, n] - S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) - 
      7*S2[4, n] + 2*(S2[2, n]^2 + S2[4, n]) + 2*S2[-3, -1, n] + 
      4*S2[3, 1, n] - 4*S2[-1, -2, 1, n] - 2*S2[1, n]*
       (S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - S2[-1, 1, -1, n]) + 
      2*S2[-1, 2, -1, n] + 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
        S2[2, -1, n] - 2*S2[1, 1, -1, n]) - 16*S2[2, 1, 1, n] + 
      4*S2[1, 1, -1, -1, n]))/8 + 
   2*(-S2[2, n]^3/12 + (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + S2[6, n]/3 - 
     S2[5, 1, n] + S2[2, n]*(S2[4, n]/4 - S2[3, 1, n] + S2[2, 1, 1, n]) + 
     S2[1, n]*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
       S2[2, 2, 1, n]) + S2[2, 3, 1, n] + S2[4, 1, 1, n] - 
     S2[2, 2, 1, 1, n]) + (-(S2[1, n]^3*S2[3, n]) - 2*S2[3, n]^2 - 
     3*S2[2, n]*S2[4, n] - 6*S2[6, n] - 3*S2[1, n]^2*
      (S2[4, n] - S2[3, 1, n]) - 3*S2[2, n]*S2[3, 1, n] + 6*S2[4, 2, n] + 
     6*S2[2, 3, 1, n] - 3*S2[1, n]*(S2[2, n]*S2[3, n] + 
       2*(S2[5, n] - S2[3, 2, n] - S2[4, 1, n] + S2[3, 1, 1, n])) - 
     6*S2[4, 1, 1, n] + 6*S2[3, 1, 1, 1, n])/2 - 3*S2[-2, -1, 1, 1, 1, n] - 
   S2[-2, 1, -1, 1, 1, n] + (S2[1, n]*(8*S2[-3, n]*S2[-2, n] + 
      4*S2[-4, n]*S2[-1, n] + 2*S2[-1, n]^2*S2[3, n] - 6*S2[2, n]*S2[3, n] + 
      11*S2[5, n] - 4*S2[-4, -1, n] + 4*S2[-1, n]*S2[-3, 1, n] + 
      4*S2[2, n]*S2[-2, -1, n] + 4*S2[-2, n]*S2[-2, 1, n] - 
      4*S2[-2, n]*S2[2, -1, n] + 2*S2[2, n]*S2[2, 1, n] - 
      4*S2[-1, n]*S2[3, -1, n] - 8*S2[3, 2, n] - 
      6*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) + 4*S2[4, 1, n] - 
      8*S2[-3, -1, 1, n] - 6*S2[-3, 1, -1, n] - 4*S2[-2, -1, 2, n] - 
      2*(S2[-3, n]*S2[-2, n] + S2[5, n] - S2[-3, -2, n] + 
        S2[-2, n]*S2[-2, 1, n] + S2[4, 1, n] - S2[-2, 1, -2, n]) + 
      4*S2[-1, n]*S2[-2, 1, 1, n] + 2*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) - 
      4*S2[-1, n]*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 4*S2[3, -1, -1, n] + 
      4*S2[3, 1, 1, n] - 4*S2[-2, 1, -1, 1, n] - 4*S2[-2, 1, 1, -1, n] + 
      4*S2[2, -1, -1, 1, n] + 4*S2[2, -1, 1, -1, n] + 12*S2[2, 1, 1, 1, n] - 
      12*S2[-1, -1, 1, 1, 1, n] - 4*S2[-1, 1, -1, 1, 1, n]))/4 + 
   S2[2, -1, -1, 1, 1, n] + (S2[1, n]^4*S2[2, n] + S2[2, n]^3 + 
     4*S2[1, n]^3*(S2[3, n] - S2[2, 1, n]) + 
     12*S2[2, n]*(S2[3, 1, n] - S2[2, 1, 1, n]) + 
     6*S2[1, n]^2*(S2[4, n] - 2*S2[3, 1, n] + 2*S2[2, 1, 1, n]) + 
     4*S2[1, n]*(S2[2, n]*(5*S2[3, n] + 3*S2[2, 1, n]) + 
       6*(S2[5, n] - S2[3, 2, n] - S2[2, 2, 1, n] + S2[3, 1, 1, n] - 
         S2[2, 1, 1, 1, n])) + 8*(S2[3, n]^2 + S2[6, n] - 
       S2[3, n]*S2[2, 1, n] - 3*S2[2, 3, 1, n] + 3*S2[2, 2, 1, 1, n] - 
       3*S2[3, 1, 1, 1, n] + 3*S2[2, 1, 1, 1, 1, n]))/8, 
 S2[1, 1, -1, 1, -1, -1, n] -> (-19*S2[-6, n])/6 + S2[-2, n]^3/6 - 
   (S2[-4, n]*S2[-1, n]^2)/4 + (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 - 
   (S2[-4, n]*S2[1, n]^2)/2 + S2[-2, n]*S2[2, n]^2 - 
   (3*S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - 2*S2[-3, n]*S2[3, n] + 
   ((-2*S2[-3, n] - S2[-1, n]^3)*S2[3, n])/2 - 2*S2[-1, n]*S2[2, n]*
    S2[3, n] - S2[-1, n]*S2[1, n]*S2[4, n] - S2[-1, n]*S2[5, n] - 
   (9*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/4 + 
   (3*S2[-5, 1, n])/4 + (7*S2[-4, 2, n])/2 - (S2[-1, n]^2*S2[-3, 1, n])/2 - 
   (S2[1, n]^2*S2[-3, 1, n])/2 + 2*S2[2, n]*S2[-3, 1, n] - 
   S2[1, n]*S2[-3, 2, n] - (15*(S2[-6, n] + S2[-3, n]*S2[3, n] - 
      S2[-3, 3, n]))/4 + (7*S2[-3, 3, n])/4 + 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) - 
   S2[-2, n]*S2[-1, n]*S2[-2, 1, n] - 3*S2[3, n]*S2[-2, 1, n] + 
   (S2[-1, n]^2*S2[1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]))/
    4 - (S2[-2, n]^2*S2[1, -1, n])/2 + S2[2, n]^2*S2[1, -1, n] + 
   (S2[4, n]*S2[1, -1, n])/2 - (3*S2[1, n]^2*S2[2, -2, n])/2 - 
   2*S2[2, n]*S2[2, -2, n] + 3*S2[1, n]*S2[2, n]*S2[2, -1, n] + 
   2*S2[3, n]*S2[2, -1, n] - S2[-3, n]*S2[2, 1, n] + 
   2*S2[-2, 1, n]*S2[2, 1, n] - 2*S2[2, -1, n]*S2[2, 1, n] - 
   S2[-3, n]*(-S2[3, n] + S2[2, 1, n]) + (S2[-1, n]^2*S2[3, -1, n])/2 - 
   (S2[1, n]^2*S2[3, -1, n])/4 + S2[2, n]*S2[3, -1, n] + 
   S2[-2, n]*S2[3, 1, n] - S2[4, -2, n]/2 + S2[1, n]*S2[4, -1, n] + 
   (7*(S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n]))/2 + S2[5, -1, n]/2 + 
   (-S2[-6, n] - (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 - 
     S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) + S2[-4, 2, n] + S2[5, -1, n] - 
     S2[-4, -1, -1, n])/2 - (3*S2[-4, -1, -1, n])/2 - 2*S2[-4, 1, 1, n] + 
   2*(S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
     (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
     S2[-4, 2, n] + S2[-4, 1, 1, n]) - 2*S2[-3, -2, -1, n] - 
   3*S2[-3, -1, -2, n] - 4*S2[-3, 1, 2, n] + S2[-2, n]*S2[-2, 1, -1, n] - 
   (S2[-1, n]^2*S2[-2, 1, 1, n])/2 - 2*S2[2, n]*S2[-2, 1, 1, n] - 
   4*S2[-2, 2, 2, n] - S2[-2, 3, 1, n] - 
   (S2[1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
      S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]))/2 + 
   S2[-2, n]*S2[-1, -2, 1, n] + 
   (S2[-3, n]*(4*S2[3, n] + 2*S2[-2, -1, n] - 3*S2[2, 1, n] + 
      2*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n])))/4 + 
   (S2[-3, n]*(-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] - S2[3, n] - 
      S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] + S2[-1, 1, -1, n]))/4 + 
   (S2[-3, n]*(S2[3, n] + S2[2, 1, n] + (-2*S2[-2, n]*S2[-1, n] - 
        S2[-1, n]^2*S2[1, n] - S2[3, n] + S2[-2, -1, n] + 
        S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] + S2[-1, 1, -1, n])/2))/2 + 
   S2[1, n]*S2[-1, 2, 2, n] + S2[3, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
      2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
     S2[1, 1, -1, n]) + S2[-2, -1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
      2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
     S2[1, 1, -1, n]) - S2[2, 1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
     S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   ((2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n])*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
      S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]))/
    2 + (S2[3, n]*(3*S2[-3, n] + 4*S2[-2, 1, n] - 
      4*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/4 - 
   2*S2[2, n]*S2[1, 2, -1, n] + S2[1, n]*S2[2, 1, -2, n] + 
   (S2[-1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
      S2[1, 2, -1, n] - S2[2, 1, -1, n]))/2 + S2[1, n]^2*S2[2, 1, -1, n] - 
   (3*S2[2, n]*S2[2, 1, -1, n])/2 + S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - 
     S2[2, 1, 1, n]) - 2*S2[-2, n]*S2[2, 1, 1, n] + 
   (S2[-2, n]*(S2[1, n]^2*S2[2, n] + S2[4, n] + 2*S2[2, 1, 1, n]))/2 + 
   2*S2[-1, n]*S2[2, 2, 1, n] + (11*S2[3, -1, 2, n])/2 + 
   (3*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
      S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - S2[3, 1, -2, n]))/2 - 
   S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + 3*S2[3, 2, -1, n] + 
   S2[4, -1, 1, n]/2 - S2[4, 1, -1, n] + 2*S2[-3, -1, -1, 1, n] + 
   2*S2[-3, -1, 1, -1, n] + 2*(S2[-4, -1, -1, n] + S2[-3, -2, -1, n] + 
     S2[-3, -1, -2, n] + S2[1, n]*S2[-3, -1, -1, n] - S2[-3, -1, -1, 1, n] - 
     S2[-3, -1, 1, -1, n] - S2[-3, 1, -1, -1, n]) + 2*S2[-3, 1, -1, -1, n] + 
   2*S2[-2, 1, 1, 2, n] + S2[-2, 2, -1, -1, n] + S2[-2, 2, 1, 1, n] - 
   S2[-1, -2, -2, 1, n] - S2[-1, -2, 1, -2, n] + 
   (S2[2, n]*(-6*S2[-4, n] - 2*S2[-2, n]*S2[2, n] + 2*S2[-3, 1, n] - 
      3*S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      3*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      6*S2[2, -2, n] - 5*S2[3, -1, n] + 2*(S2[-4, n] + S2[-2, n]*S2[2, n] + 
        S2[-1, n]*S2[-2, -1, n] - S2[2, -2, n] + S2[3, -1, n] - 
        S2[-1, -2, -1, n]) - 6*S2[2, 1, -1, n] - 6*S2[-1, -1, -1, 1, n]))/4 + 
   (3*S2[1, n]^2*S2[-1, -1, -1, 1, n])/2 - S2[-1, 1, -2, -2, n] + 
   (-2*S2[-6, n] - S2[-2, n]^3 - 6*S2[-3, 3, n] + 
     3*S2[-2, n]^2*S2[1, -1, n] + 3*S2[4, n]*S2[1, -1, n] + 
     6*S2[-3, -2, -1, n] + 6*S2[-3, -1, -2, n] - 
     3*S2[-1, n]*(S2[-3, n]*S2[-2, n] + S2[-2, n]^2*S2[1, n] + 
       S2[1, n]*S2[4, n] + S2[5, n] + S2[-3, -2, n] - 
       S2[-2, n]*S2[-2, 1, n] - S2[4, 1, n] - S2[-2, 1, -2, n]) - 
     3*S2[-2, n]*(S2[4, n] + 2*S2[-2, 1, -1, n]) - 6*S2[4, 1, -1, n] + 
     6*S2[-1, 1, -2, -2, n])/6 + 2*S2[-1, 1, 2, 2, n] + 
   2*S2[-1, 2, 1, 2, n] + 
   (S2[-1, n]^2*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/4 + 
   (S2[2, n]*(-S2[-4, n] + S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 
        2*S2[3, n]) - 2*S2[-3, 1, n] + S2[1, n]^2*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 2*S2[3, -1, n] - 
      2*S2[-2, 1, 1, n] + 2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/4 - 
   S2[1, n]*S2[2, 1, -1, 1, n] - 2*S2[1, n]*S2[2, 1, 1, -1, n] - 
   (3*S2[3, -1, 1, 1, n])/2 - S2[3, 1, -1, 1, n] + 
   (S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 2*S2[3, 1, 1, -1, n])/2 - 
   (5*S2[3, 1, 1, -1, n])/2 + 
   (3*(-S2[-5, 1, n] + (S2[1, n]^2*S2[3, -1, n])/2 + 
      (S2[2, n]*S2[3, -1, n])/2 - S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] + 
      S2[5, -1, n] + S2[-2, 3, 1, n] - S2[3, -1, 2, n] + 
      S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - S2[3, -1, 1, n] - 
        S2[3, 1, -1, n]) - S2[3, 2, -1, n] - S2[4, -1, 1, n] - 
      S2[4, 1, -1, n] + S2[3, -1, 1, 1, n] + S2[3, 1, -1, 1, n] + 
      S2[3, 1, 1, -1, n]))/2 - S2[-2, -1, -1, 1, 1, n] - 
   S2[-2, 1, 1, -1, -1, n] + (S2[-1, n]*(-2*S2[2, n]*S2[3, n] - 14*S2[5, n] - 
      2*S2[-4, -1, n] + 2*S2[1, n]^2*S2[-2, -1, n] - 
      2*S2[2, n]*S2[-2, -1, n] - 2*S2[1, n]^2*S2[2, 1, n] + 
      2*S2[2, n]*S2[2, 1, n] + 2*(S2[1, n]*S2[4, n] + S2[5, n] - 
        S2[4, 1, n]) + 2*S2[4, 1, n] - 2*S2[1, n]^2*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) + 
      2*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 4*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      4*S2[-1, 1, -1, 1, 1, n]))/4 + 
   (S2[1, n]*(-3*S2[-5, n] - 2*S2[-2, n]^2*S2[-1, n] - 
      2*S2[-3, n]*S2[-1, n]^2 - 2*S2[-3, n]*S2[2, n] + 
      4*S2[-1, n]*S2[2, n]^2 - 4*S2[-1, n]*S2[4, n] - 
      S2[-1, n]*(S2[2, n]^2 + S2[4, n]) + 4*S2[-4, 1, n] + 
      4*S2[-1, n]*S2[-3, -1, n] + 4*S2[-3, 2, n] - 
      2*S2[-1, n]^2*S2[-2, 1, n] + 2*S2[2, n]*S2[-2, 1, n] - 
      4*S2[-2, -1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      2*S2[-1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 + 
      2*S2[-1, n]^2*S2[2, -1, n] - 2*S2[2, n]*S2[2, -1, n] - 
      4*S2[-2, n]*S2[2, 1, n] + 4*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n])*S2[2, 1, n] - 6*S2[3, -2, n] - 
      4*S2[-1, n]*S2[3, 1, n] - 6*S2[4, -1, n] - 8*S2[-3, -1, -1, n] + 
      4*S2[-1, n]*S2[-2, 1, -1, n] + 
      4*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
        S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n]) + 
      4*S2[-1, n]*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
        S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 
      2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       (2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - S2[-1, n]*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) - 
      4*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) - 
      4*S2[-1, n]^2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
      4*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      4*(S2[-5, n] + S2[-3, n]*S2[2, n] + S2[-4, 1, n] - S2[-3, 2, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n]) - 
      4*S2[-1, n]*S2[2, 1, 1, n] + 6*S2[3, -1, 1, n] + 
      4*S2[-2, -1, -1, 1, n] + 2*S2[-1, n]*(S2[1, n]^2*S2[2, n] + 
        S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + S2[4, n] + 2*S2[-3, -1, n] - 
        4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 2*S2[1, n]*
         (S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - S2[-1, 1, -1, n]) - 
        2*S2[-1, 2, -1, n] - 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
          S2[2, -1, n] - 2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 
        4*S2[1, 1, -1, -1, n]) + 2*(2*S2[-2, n]^2*S2[-1, n] + 
        S2[-1, n]^3*S2[1, n]^2 + S2[-3, n]*(S2[-1, n]^2 - S2[2, n]) - 
        S2[-1, n]*S2[1, n]^2*S2[2, n] + S2[-1, n]*S2[1, n]*S2[3, n] + 
        S2[-1, n]*S2[4, n] - 3*S2[-1, n]*S2[-3, -1, n] + 
        2*S2[1, n]*S2[-3, 1, n] - 3*S2[-1, n]*S2[1, n]*S2[-2, -1, n] + 
        S2[-1, n]^2*S2[-2, 1, n] + S2[2, n]*S2[-2, 1, n] - 
        S2[-1, n]^2*S2[1, n]*S2[1, -1, n] - S2[1, n]*S2[2, n]*S2[1, -1, n] - 
        S2[3, n]*S2[1, -1, n] - S2[-2, -1, n]*S2[1, -1, n] + 
        4*S2[1, n]*S2[2, -2, n] - S2[2, n]*S2[2, -1, n] + 
        5*S2[-1, n]*S2[1, n]*S2[2, 1, n] + S2[1, -1, n]*S2[2, 1, n] + 
        2*S2[3, -2, n] + 4*S2[-1, n]*S2[3, 1, n] - 2*S2[4, -1, n] + 
        2*S2[-2, 2, 1, n] - 2*S2[-1, -2, -2, n] - 
        2*S2[1, n]*S2[-1, -2, -1, n] - 2*S2[-1, n]*S2[-1, -2, 1, n] + 
        S2[-2, n]*(4*S2[-1, n]^2*S2[1, n] - S2[1, n]*S2[2, n] + S2[3, n] - 
          S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - S2[-1, n]*S2[1, n]*S2[-1, 1, -1, n] + 
        S2[1, -1, n]*S2[-1, 1, -1, n] + S2[-1, n]*S2[-1, 2, -1, n] - 
        2*S2[-1, n]^2*S2[1, 1, -1, n] + 2*S2[2, n]*S2[1, 1, -1, n] - 
        4*S2[1, n]*S2[2, 1, -1, n] - 2*S2[-1, n]*S2[2, 1, 1, n] - 
        2*S2[-2, -1, -1, 1, n] - 6*S2[1, n]*S2[-1, -1, -1, 1, n] + 
        4*S2[-1, n]*S2[1, 1, -1, -1, n] + 2*S2[2, 1, -1, 1, n] + 
        2*S2[1, -1, 1, -1, -1, n])))/4 + S2[2, -1, 1, -1, -1, n] + 
   S2[2, 1, -1, 1, 1, n] + 2*S2[2, 1, 1, -1, 1, n] + 
   2*(2*S2[-6, n] + (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 + S2[-3, n]*S2[3, n] + 
     S2[-1, n]*S2[2, n]*S2[3, n] + (S2[-1, n]*S2[1, n]*S2[4, n])/2 + 
     S2[-1, n]*S2[5, n] - S2[-4, 2, n] - S2[2, n]*S2[-3, 1, n] - 
     2*S2[-3, 3, n] + S2[3, n]*S2[-2, 1, n] - (S2[2, n]^2*S2[1, -1, n])/2 - 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] - 
     S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] + 
     S2[-3, n]*S2[2, 1, n] - S2[-2, 1, n]*S2[2, 1, n] + 
     S2[2, -1, n]*S2[2, 1, n] + 2*S2[-3, 1, 2, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + 2*S2[-2, 2, 2, n] + 
     S2[2, n]*S2[1, 2, -1, n] + S2[2, n]*S2[2, 1, -1, n] - 
     S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - S2[2, 1, 1, n]) - 
     S2[-1, n]*S2[2, 2, 1, n] - 2*S2[3, -1, 2, n] + S2[3, 1, -2, n] - 
     S2[3, 2, -1, n] + S2[4, 1, -1, n] - S2[-2, 1, 1, 2, n] - 
     S2[-1, 1, 2, 2, n] - S2[-1, 2, 1, 2, n] + S2[1, n]*S2[2, 1, 1, -1, n] + 
     S2[3, 1, 1, -1, n] - S2[2, 1, 1, -1, 1, n] - 3*S2[2, 1, 1, 1, -1, n]) + 
   6*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, n]^3*S2[3, n] + 
   (S2[2, n]*(-S2[1, n]^4 - 18*S2[4, n]))/4 + (3*S2[-1, n]^2*S2[4, n])/2 - 
   (11*S2[1, n]^2*S2[4, n])/4 - (5*S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/8 + 
   2*S2[6, n] + (33*(S2[-3, n]^2 + S2[6, n]))/4 - 
   (11*(S2[3, n]^2 + S2[6, n]))/2 + 2*(S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 
     2*S2[6, n]) - 8*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]) - 
   (7*S2[-5, -1, n])/2 + 2*S2[-4, -2, n] + (7*S2[1, n]^2*S2[-3, -1, n])/2 + 
   (S2[-3, n]*(-7*S2[-3, n] + 5*S2[-2, 1, n] - 5*S2[2, -1, n]))/2 + 
   (S2[-3, n]*(3*S2[-3, n] - 4*S2[-2, 1, n] + 4*S2[2, -1, n]))/2 + 
   S2[1, n]^3*S2[2, 1, n] - (5*S2[1, n]^2*S2[3, 1, n])/2 + 2*S2[4, 2, n] - 
   (9*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]))/2 + (17*S2[5, 1, n])/2 - 
   10*S2[-4, -1, 1, n] + 2*(S2[-5, -1, n] + S2[-4, -2, n] + 
     S2[1, n]*S2[-4, -1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n]) - 
   6*S2[-4, 1, -1, n] - 12*S2[-3, -2, 1, n] - (25*S2[-3, -1, 2, n])/2 - 
   6*S2[-3, 1, -2, n] - (3*(S2[-3, n]^2 + S2[6, n] + 
      2*(S2[-5, -1, n] + S2[2, n]*S2[-3, -1, n] - S2[-3, -1, 2, n] - 
        S2[-3, 2, -1, n])))/4 - (13*S2[-3, 2, -1, n])/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
      S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]))/2 + 
   S2[3, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] - 3*S2[3, n] + 
     3*S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + 2*S2[2, 1, n] - 
     S2[-1, 1, -1, n]) + (S2[1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/8 + 
   S2[2, -1, n]*(-(S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 - 2*S2[-2, 1, n] + 
     S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - S2[1, 1, -1, n]) + 
   S2[-2, 1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   (S2[-3, n]*(7*S2[-2, 1, n] - 7*S2[2, -1, n] + 
      2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/2 + 
   (10*S2[-3, n]^2 + S2[-2, n]^2*S2[1, n]^2 - S2[-1, n]^2*S2[2, n]^2 + 
     2*S2[-2, 1, n]^2 + S2[1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n])^2 + 2*S2[2, -1, n]^2 - 
     4*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])^2)/4 + 
   2*(S2[-4, n]*S2[-2, n] + (S2[-2, n]^2*S2[2, n])/2 - 
     (S2[2, n]*S2[4, n])/2 - S2[-4, -2, n] - S2[-2, n]*S2[2, -2, n] + 
     S2[4, 2, n] + S2[2, -2, -2, n]) + 
   (S2[-2, n]*(28*S2[-4, n] - 14*(S2[-4, n] + S2[-3, n]*S2[1, n] - 
        S2[-3, 1, n]) - 6*S2[-3, 1, n] - 8*S2[3, -1, n] + 6*S2[-2, 1, 1, n] - 
      6*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n])))/2 - 
   (5*S2[1, n]^2*S2[2, 1, 1, n])/2 + S2[3, -1, -2, n] + 
   9*(S2[3, n]^2 + S2[6, n] + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
       S2[2, 3, 1, n] - S2[3, 2, 1, n])) + 16*S2[3, 2, 1, n] + 
   3*S2[4, -1, -1, n] - 3*S2[4, 1, 1, n] + 
   13*((S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + S2[6, n] + 
     S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - S2[5, 1, n] + 
     S2[4, 1, 1, n]) + 2*S2[-3, -1, 1, 1, n] + S2[-3, 1, -1, 1, n] - 
   3*(S2[-4, 1, -1, n] + S2[-3, 1, -2, n] + S2[1, n]*S2[-3, 1, -1, n] + 
     S2[-3, 2, -1, n] - S2[-3, 1, -1, 1, n] - 2*S2[-3, 1, 1, -1, n]) - 
   S2[-3, 1, 1, -1, n] - 8*(S2[-3, n]^2/2 + S2[6, n]/2 + S2[-5, -1, n] + 
     S2[-4, -2, n] + S2[1, n]*S2[-4, -1, n] + S2[1, n]*S2[-3, -2, n] + 
     (S2[1, n]^2*S2[-3, -1, n])/2 + (S2[2, n]*S2[-3, -1, n])/2 - 
     S2[-4, -1, 1, n] - S2[-4, 1, -1, n] - S2[-3, -2, 1, n] - 
     S2[1, n]*S2[-3, -1, 1, n] - S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - 
     S2[1, n]*S2[-3, 1, -1, n] - S2[-3, 2, -1, n] + S2[-3, -1, 1, 1, n] + 
     S2[-3, 1, -1, 1, n] + S2[-3, 1, 1, -1, n]) - 4*S2[-2, -2, 1, 1, n] - 
   3*S2[-2, -1, 1, 2, n] - 3*S2[-2, -1, 2, 1, n] + S2[-2, 2, -1, 1, n] + 
   (S2[2, n]*(-3*S2[-2, n]^2 + S2[-1, n]^2*S2[1, n]^2 - 
      7*S2[1, n]^2*S2[2, n] - 29*S2[4, n] - (9*(S2[2, n]^2 + S2[4, n]))/2 + 
      40*S2[-3, -1, n] - 3*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^
        2 - 30*S2[3, 1, n] + 6*S2[-2, 1, -1, n] + 
      18*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 
      (3*(S2[2, n]^2 + S2[4, n] + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
           S2[-1, 2, -1, n])))/2 - 30*S2[2, 1, 1, n] + 
      3*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 
        S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
        2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
        2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
          2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n])))/
    4 - (S2[1, n]^2*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*
       (S2[1, n]^2 + S2[2, n]) + S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 
      4*S2[-1, -2, 1, n] + 2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - 
        S2[2, 1, n] - S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
      2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
        2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]))/4 + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/2 + 
   (S2[-1, n]*(44*S2[-5, n] + 2*S2[-3, n]*S2[1, n]^2 - 2*S2[-3, n]*S2[2, n] + 
      12*S2[-4, 1, n] + 2*S2[1, n]^2*S2[-2, 1, n] - 2*S2[2, n]*S2[-2, 1, n] - 
      2*S2[1, n]^2*S2[2, -1, n] + 2*S2[2, n]*S2[2, -1, n] - 12*S2[4, -1, n] + 
      12*S2[-3, 1, 1, n] + 4*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
         2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n]) - 12*S2[3, -1, 1, n] + 12*S2[-2, 1, 1, 1, n] - 
      12*S2[2, -1, 1, 1, n]))/4 + 
   9*(-S2[2, n]^3/12 + (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + S2[6, n]/3 - 
     S2[5, 1, n] + S2[2, n]*(S2[4, n]/4 - S2[3, 1, n] + S2[2, 1, 1, n]) + 
     S2[1, n]*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
       S2[2, 2, 1, n]) + S2[2, 3, 1, n] + S2[4, 1, 1, n] - 
     S2[2, 2, 1, 1, n]) + 4*S2[3, -1, -1, 1, n] + 3*S2[3, -1, 1, -1, n] - 
   2*(S2[1, n]^3*S2[3, n] + 2*S2[3, n]^2 + 3*S2[2, n]*S2[4, n] + 6*S2[6, n] + 
     3*S2[1, n]^2*(S2[4, n] - S2[3, 1, n]) + 3*S2[2, n]*S2[3, 1, n] - 
     6*S2[4, 2, n] - 6*S2[2, 3, 1, n] + 3*S2[1, n]*(S2[2, n]*S2[3, n] + 
       2*(S2[5, n] - S2[3, 2, n] - S2[4, 1, n] + S2[3, 1, 1, n])) + 
     6*S2[4, 1, 1, n] - 6*S2[3, 1, 1, 1, n]) - 6*S2[-2, -1, 1, 1, 1, n] - 
   6*S2[-2, 1, -1, 1, 1, n] - 5*S2[-2, 1, 1, -1, 1, n] - 
   3*S2[-2, 1, 1, 1, -1, n] + 
   (S2[1, n]*(-4*S2[-3, n]*S2[-2, n] - 16*S2[-4, n]*S2[-1, n] - 
      8*S2[-1, n]^2*S2[3, n] + 20*S2[2, n]*S2[3, n] - 32*S2[5, n] + 
      40*S2[-4, -1, n] + 48*S2[-3, -2, n] - 16*S2[-1, n]*S2[-3, 1, n] - 
      16*S2[2, n]*S2[-2, -1, n] - 16*S2[-2, n]*S2[-2, 1, n] - 
      4*S2[-3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      4*S2[-1, n]*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      4*S2[-2, 1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      16*S2[-2, n]*S2[2, -1, n] + 4*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n])*S2[2, -1, n] + 28*S2[2, n]*S2[2, 1, n] + 
      16*S2[-1, n]*S2[3, -1, n] - 64*S2[3, 2, n] - 
      2*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) + 10*S2[4, 1, n] - 
      8*S2[-3, -1, 1, n] - 4*S2[-3, 1, -1, n] + 12*S2[-2, -1, 2, n] + 
      6*(S2[-3, n]*S2[-2, n] + S2[5, n] - S2[-3, -2, n] + 
        S2[-2, n]*S2[-2, 1, n] + S2[4, 1, n] - S2[-2, 1, -2, n]) - 
      16*S2[-1, n]*S2[-2, 1, 1, n] - 4*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) - 
      8*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      16*S2[-1, n]*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n]) - 16*S2[3, -1, -1, n] + 
      24*S2[-2, -1, 1, 1, n] + 24*S2[-2, 1, -1, 1, n] + 
      16*S2[-2, 1, 1, -1, n] - 24*S2[2, -1, -1, 1, n] - 
      16*S2[2, -1, 1, -1, n] + 48*S2[-1, -1, 1, 1, 1, n] + 
      16*S2[-1, 1, -1, 1, 1, n]))/4 + 6*S2[2, -1, -1, 1, 1, n] + 
   5*S2[2, -1, 1, -1, 1, n] + 3*S2[2, -1, 1, 1, -1, n] + 
   (S2[1, n]^4*S2[2, n] + S2[2, n]^3 + 4*S2[1, n]^3*
      (S2[3, n] - S2[2, 1, n]) + 12*S2[2, n]*(S2[3, 1, n] - S2[2, 1, 1, n]) + 
     6*S2[1, n]^2*(S2[4, n] - 2*S2[3, 1, n] + 2*S2[2, 1, 1, n]) + 
     4*S2[1, n]*(S2[2, n]*(5*S2[3, n] + 3*S2[2, 1, n]) + 
       6*(S2[5, n] - S2[3, 2, n] - S2[2, 2, 1, n] + S2[3, 1, 1, n] - 
         S2[2, 1, 1, 1, n])) + 8*(S2[3, n]^2 + S2[6, n] - 
       S2[3, n]*S2[2, 1, n] - 3*S2[2, 3, 1, n] + 3*S2[2, 2, 1, 1, n] - 
       3*S2[3, 1, 1, 1, n] + 3*S2[2, 1, 1, 1, 1, n]))/4 - 
   12*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, n]^3*S2[3, n])/2 + 2*S2[3, n]^2 - 
   (9*S2[-1, n]^2*S2[4, n])/4 + (13*S2[1, n]^2*S2[4, n])/4 + 
   3*S2[2, n]*S2[4, n] + (3*S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/8 + 
   (S2[2, n]*(S2[1, n]^4 - S2[2, n]^2 + 24*S2[4, n]))/8 + (23*S2[6, n])/4 - 
   7*(S2[-3, n]^2 + S2[6, n]) + 4*(S2[3, n]^2 + S2[6, n]) - 
   (5*(S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n]))/4 + 
   8*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]) + (9*S2[-5, -1, n])/2 - 
   (3*S2[1, n]^2*S2[-3, -1, n])/2 + 
   (9*S2[-3, n]*(-S2[-2, 1, n] + S2[2, -1, n]))/2 + 
   S2[3, n]*(S2[3, n] - 2*S2[-2, -1, n] - S2[2, 1, n]) - 
   (S2[1, n]^3*S2[2, 1, n])/2 + 3*S2[1, n]^2*(S2[4, n] - S2[3, 1, n]) + 
   (3*S2[1, n]^2*S2[3, 1, n])/2 + 3*S2[2, n]*S2[3, 1, n] - 7*S2[4, 2, n] - 
   (17*S2[5, 1, n])/2 + (-(S2[1, n]*S2[5, n]) - S2[6, n] + S2[5, 1, n])/2 + 
   5*S2[-4, -1, 1, n] + 4*S2[-4, 1, -1, n] + 6*S2[-3, -2, 1, n] + 
   (13*S2[-3, -1, 2, n])/2 + 4*S2[-3, 1, -2, n] + 
   (3*(S2[-3, n]^2 + S2[6, n] + 2*(S2[-5, -1, n] + S2[2, n]*S2[-3, -1, n] - 
        S2[-3, -1, 2, n] - S2[-3, 2, -1, n])))/4 + (11*S2[-3, 2, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/8 - 
   S2[-2, 1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   S2[2, -1, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 2*S2[-2, 1, n] - 
     S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
   (S2[-3, n]*(9*S2[-3, n] + (S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 - 
      2*S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] + 2*S2[2, -1, n] + 
      S2[1, 1, -1, n]))/2 + (S2[-3, n]*(-5*S2[-3, n] + 12*S2[-2, 1, n] - 
      16*S2[2, -1, n] - 2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
        S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n])))/4 + (-8*S2[-3, n]^2 - 2*S2[-2, n]^2*S2[1, n]^2 + 
     4*S2[-1, n]^2*S2[2, n]^2 - 4*S2[-2, 1, n]^2 - 
     2*S2[1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 - 
     4*S2[2, -1, n]^2 + 4*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
        S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n])^2)/8 - 2*(S2[-4, n]*S2[-2, n] + 
     (S2[-2, n]^2*S2[2, n])/2 - (S2[2, n]*S2[4, n])/2 - S2[-4, -2, n] - 
     S2[-2, n]*S2[2, -2, n] + S2[4, 2, n] + S2[2, -2, -2, n]) + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 + 
   (S2[2, n]*(6*S2[-2, n]^2 - 2*S2[-1, n]^2*S2[1, n]^2 + 
      8*S2[1, n]^2*S2[2, n] + S2[2, n]^2 + 27*S2[4, n] + 
      7*(S2[2, n]^2 + S2[4, n]) - 40*S2[-3, -1, n] - 
      12*S2[-2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      6*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 + 28*S2[3, 1, n] - 
      12*S2[-2, 1, -1, n] - 16*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
        S2[-1, 2, -1, n]) + 28*S2[2, 1, 1, n]))/8 - 6*S2[2, 3, 1, n] - 
   S2[3, -1, -2, n] + 3*S2[1, n]*(S2[2, n]*S2[3, n] + 
     2*(S2[5, n] - S2[3, 2, n] - S2[4, 1, n] + S2[3, 1, 1, n])) - 
   5*(S2[3, n]^2 + S2[6, n] + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
       S2[2, 3, 1, n] - S2[3, 2, 1, n])) - 9*S2[3, 2, 1, n] - 
   2*S2[4, -1, -1, n] + 8*S2[4, 1, 1, n] - 
   7*((S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + S2[6, n] + 
     S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - S2[5, 1, n] + 
     S2[4, 1, 1, n]) - S2[-3, 1, -1, 1, n] - 2*S2[-3, 1, 1, -1, n] + 
   3*(S2[-3, n]^2/2 + S2[6, n]/2 + S2[-5, -1, n] + S2[-4, -2, n] + 
     S2[1, n]*S2[-4, -1, n] + S2[1, n]*S2[-3, -2, n] + 
     (S2[1, n]^2*S2[-3, -1, n])/2 + (S2[2, n]*S2[-3, -1, n])/2 - 
     S2[-4, -1, 1, n] - S2[-4, 1, -1, n] - S2[-3, -2, 1, n] - 
     S2[1, n]*S2[-3, -1, 1, n] - S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - 
     S2[1, n]*S2[-3, 1, -1, n] - S2[-3, 2, -1, n] + S2[-3, -1, 1, 1, n] + 
     S2[-3, 1, -1, 1, n] + S2[-3, 1, 1, -1, n]) + 2*S2[-2, -2, 1, 1, n] + 
   2*S2[-2, -1, 1, 2, n] + 2*S2[-2, -1, 2, 1, n] + S2[-2, 1, -1, 2, n] + 
   S2[-2, 1, 2, -1, n] + S2[-2, 2, 1, -1, n] - 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/2 + 
   (S2[-2, n]*(-30*S2[-4, n] + 10*(S2[-4, n] + S2[-3, n]*S2[1, n] - 
        S2[-3, 1, n]) - 2*S2[-3, 1, n] + 2*S2[1, n]^2*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 12*S2[3, -1, n] - 
      8*S2[-2, 1, 1, n] + 8*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 
      2*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
        3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
          2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
          2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
            S2[2, 1, -1, n] + S2[1, 1, 1, -1, n])))))/4 + 
   S2[2, 2, -1, -1, n] - 5*(-S2[2, n]^3/12 + 
     (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + S2[6, n]/3 - S2[5, 1, n] + 
     S2[2, n]*(S2[4, n]/4 - S2[3, 1, n] + S2[2, 1, 1, n]) + 
     S2[1, n]*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
       S2[2, 2, 1, n]) + S2[2, 3, 1, n] + S2[4, 1, 1, n] - 
     S2[2, 2, 1, 1, n]) - 2*S2[3, -1, -1, 1, n] - S2[3, -1, 1, -1, n] - 
   6*S2[3, 1, 1, 1, n] + 3*S2[-2, -1, 1, 1, 1, n] + 
   4*S2[-2, 1, -1, 1, 1, n] + 2*S2[-2, 1, 1, -1, 1, n] + 
   (S2[1, n]*(14*S2[-3, n]*S2[-2, n] + 12*S2[-4, n]*S2[-1, n] + 
      4*S2[-2, n]*S2[-1, n]*S2[2, n] + 8*S2[-1, n]^2*S2[3, n] - 
      10*S2[2, n]*S2[3, n] + 38*S2[5, n] - 20*S2[-4, -1, n] - 
      24*S2[-3, -2, n] + 12*S2[-1, n]*S2[-3, 1, n] + 
      8*S2[2, n]*S2[-2, -1, n] + 12*S2[-2, n]*S2[-2, 1, n] + 
      8*S2[-1, n]*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      4*S2[-2, 1, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      12*S2[-2, n]*S2[2, -1, n] - 4*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n])*S2[2, -1, n] - 14*S2[2, n]*S2[2, 1, n] - 
      12*S2[-1, n]*S2[3, -1, n] + 36*S2[3, 2, n] - 
      4*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) - 12*S2[4, 1, n] + 
      4*S2[-3, 1, -1, n] - 8*S2[-2, -1, 2, n] - 
      4*(S2[-3, n]*S2[-2, n] + S2[5, n] - S2[-3, -2, n] + 
        S2[-2, n]*S2[-2, 1, n] + S2[4, 1, n] - S2[-2, 1, -2, n]) + 
      12*S2[-1, n]*S2[-2, 1, 1, n] - 8*S2[-2, n]*
       ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      8*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
      12*S2[-1, n]*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 8*S2[3, -1, -1, n] - 
      12*S2[-2, -1, 1, 1, n] - 16*S2[-2, 1, -1, 1, n] - 
      8*S2[-2, 1, 1, -1, n] - 2*S2[-1, n]*
       (S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
        3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
          2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
          2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
            S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))) + 
      16*S2[2, -1, -1, 1, n] + 8*S2[2, -1, 1, -1, n] - 
      24*S2[-1, -1, 1, 1, 1, n] - 12*S2[-1, 1, -1, 1, 1, n]))/4 + 
   (S2[-1, n]*(-88*S2[-5, n] - 8*S2[-2, n]*S2[3, n] - 24*S2[-4, 1, n] - 
      4*S2[1, n]^2*S2[-2, 1, n] + 4*S2[2, n]*S2[-2, 1, n] - 
      16*S2[3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      4*S2[1, n]^2*S2[2, -1, n] - 4*S2[2, n]*S2[2, -1, n] + 24*S2[4, -1, n] - 
      24*S2[-3, 1, 1, n] + 4*S2[1, n]^2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
         2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n]) - 28*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
         2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n]) + 24*S2[3, -1, 1, n] - 24*S2[-2, 1, 1, 1, n] + 
      24*S2[2, -1, 1, 1, n] + 48*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        (S2[-1, n]*(S2[1, n]^4 + 6*S2[1, n]^2*S2[2, n] + 15*S2[2, n]^2 + 
           8*S2[1, n]*S2[3, n] + 18*S2[4, n]))/24 + S2[-4, 1, n] - 
        (S2[1, n]^3*S2[1, -1, n])/6 - (S2[1, n]*S2[2, n]*S2[1, -1, n])/2 - 
        (S2[3, n]*S2[1, -1, n])/3 - S2[2, n]*S2[2, -1, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[4, -1, n] - S2[-2, 2, 1, n] - 
        S2[-1, 2, 2, n] + (S2[1, n]^2*S2[1, 1, -1, n])/2 + 
        (S2[2, n]*S2[1, 1, -1, n])/2 - S2[2, 1, -2, n] + S2[-2, 1, 1, 1, n] - 
        S2[1, n]*S2[1, 1, 1, -1, n] - S2[2, -1, 1, 1, n] + 
        S2[1, 1, 1, 1, -1, n])))/8 - 4*S2[2, -1, -1, 1, 1, n] - 
   2*S2[2, -1, 1, -1, 1, n] + (-(S2[1, n]^4*S2[2, n]) - S2[2, n]^3 - 
     4*S2[1, n]^3*(S2[3, n] - S2[2, 1, n]) - 
     12*S2[2, n]*(S2[3, 1, n] - S2[2, 1, 1, n]) - 
     6*S2[1, n]^2*(S2[4, n] - 2*S2[3, 1, n] + 2*S2[2, 1, 1, n]) - 
     4*S2[1, n]*(S2[2, n]*(5*S2[3, n] + 3*S2[2, 1, n]) + 
       6*(S2[5, n] - S2[3, 2, n] - S2[2, 2, 1, n] + S2[3, 1, 1, n] - 
         S2[2, 1, 1, 1, n])) - 8*(S2[3, n]^2 + S2[6, n] - 
       S2[3, n]*S2[2, 1, n] - 3*S2[2, 3, 1, n] + 3*S2[2, 2, 1, 1, n] - 
       3*S2[3, 1, 1, 1, n] + 3*S2[2, 1, 1, 1, 1, n]))/8 + 
   6*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] -> (-7*S2[-6, n])/4 + (7*S2[-4, n]*S2[1, n]^2)/4 - 
   (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - 2*S2[-3, n]*S2[3, n] - 
   S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
   (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 + 
   S2[-1, n]*(S2[2, n]*S2[3, n] - 2*S2[5, n]) - S2[-1, n]*S2[5, n] + 
   (9*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/4 - 
   (17*S2[-5, 1, n])/4 - (7*S2[-4, 2, n])/2 + S2[-3, 3, n] + 
   S2[3, n]*S2[-2, 1, n] + (S2[2, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
      S2[1, -1, n]))/2 - (5*S2[4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
      S2[1, -1, n]))/2 + (S2[2, n]^2*S2[1, -1, n])/2 + 
   (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
   S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
   S2[2, n]*S2[3, -1, n] + S2[-2, n]*(S2[4, n] - S2[3, 1, n]) - 
   S2[4, -2, n] + 3*S2[5, -1, n] + (3*S2[-4, 1, 1, n])/2 - 
   (7*(S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
      (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
      S2[-4, 2, n] + S2[-4, 1, 1, n]))/2 + S2[2, n]*S2[-2, 1, 1, n] + 
   S2[-2, 3, 1, n] + (S2[3, n]*(6*S2[-3, n] - 6*S2[2, -1, n] - 
      18*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/6 - 
   S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + S2[3, 1, -2, n] + 
   3*S2[4, -1, 1, n] - 3*S2[-3, 1, 1, 1, n] + S2[-1, 1, 2, 2, n] + 
   S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n] + 
   (S2[1, n]^2*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/12 + 
   (S2[2, n]*(21*S2[-4, n] - 12*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n]) - 
      7*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
        3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
          2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
          2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
            S2[2, 1, -1, n] + S2[1, 1, 1, -1, n])))))/12 - 
   S2[2, -2, 1, 1, n] + 3*S2[3, -1, 1, 1, n] - 4*S2[-2, 1, 1, 1, 1, n] + 
   (S2[1, n]*(27*S2[-5, n] + 12*S2[-1, n]*S2[4, n] - 30*S2[-4, 1, n] + 
      12*S2[3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      12*S2[4, -1, n] + 12*S2[-3, 1, 1, n] + 12*S2[2, n]*
       ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
      12*S2[3, -1, 1, n] + 12*S2[-2, 1, 1, 1, n] - 12*S2[2, -1, 1, 1, n] - 
      48*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        (S2[-1, n]*(S2[1, n]^4 + 6*S2[1, n]^2*S2[2, n] + 15*S2[2, n]^2 + 
           8*S2[1, n]*S2[3, n] + 18*S2[4, n]))/24 + S2[-4, 1, n] - 
        (S2[1, n]^3*S2[1, -1, n])/6 - (S2[1, n]*S2[2, n]*S2[1, -1, n])/2 - 
        (S2[3, n]*S2[1, -1, n])/3 - S2[2, n]*S2[2, -1, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[4, -1, n] - S2[-2, 2, 1, n] - 
        S2[-1, 2, 2, n] + (S2[1, n]^2*S2[1, 1, -1, n])/2 + 
        (S2[2, n]*S2[1, 1, -1, n])/2 - S2[2, 1, -2, n] + S2[-2, 1, 1, 1, n] - 
        S2[1, n]*S2[1, 1, 1, -1, n] - S2[2, -1, 1, 1, n] + 
        S2[1, 1, 1, 1, -1, n])))/12 + 4*S2[2, -1, 1, 1, 1, n] + 
   10*S2[-1, 1, 1, 1, 1, 1, n], S2[1, 1, 1, -1, -1, -1, n] -> 
  (-23*S2[-6, n])/12 - (S2[-4, n]*S2[-1, n]^2)/2 - 
   (S2[-2, n]^2*S2[-1, n]*S2[1, n])/2 + (S2[-4, n]*S2[1, n]^2)/4 + 
   (S2[-3, n]*S2[1, n]^3)/18 + (6*S2[-2, n]^3 + S2[-1, n]^3*S2[1, n]^3)/36 - 
   S2[-2, n]*S2[2, n]^2 + S2[-1, n]*S2[1, n]*S2[2, n]^2 + 
   (S2[-4, n]*(S2[-1, n]^2 + S2[2, n]))/2 - S2[-3, n]*S2[3, n] + 
   ((20*S2[-3, n] + S2[-1, n]^3)*S2[3, n])/18 + (S2[-1, n]*S2[1, n]*S2[4, n])/
    2 - S2[-1, n]*S2[5, n] + 
   (7*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/4 + S2[-5, 1, n]/4 + 
   S2[-1, n]*(S2[5, n] - S2[-4, -1, n]) - (5*S2[-4, 2, n])/2 + 
   S2[2, n]*S2[-3, 1, n] + S2[1, n]*S2[-3, 2, n] + 
   (9*(S2[-6, n] + S2[-3, n]*S2[3, n] - S2[-3, 3, n]))/4 + 
   (7*S2[-3, 3, n])/4 + (S2[-3, n]*(S2[3, n] - 6*S2[-2, -1, n]))/12 - 
   S2[-3, n]*(S2[-2, n]*S2[-1, n] + S2[3, n] - S2[-2, -1, n]) + 
   (S2[3, n]*(-S2[-3, n] - 4*S2[-2, 1, n]))/4 + 
   S2[-2, n]*S2[-1, n]*S2[-2, 1, n] - 
   (S2[-1, n]^2*S2[1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]))/
    4 + (S2[-2, n]^2*S2[1, -1, n])/2 + (S2[4, n]*S2[1, -1, n])/2 + 
   (S2[1, n]^2*S2[2, -2, n])/2 - S2[1, n]*S2[2, n]*S2[2, -1, n] + 
   S2[3, n]*S2[2, -1, n] - S2[-1, n]*S2[2, n]*S2[2, 1, n] + 
   (S2[-3, n]*(-2*S2[-2, -1, n] + S2[2, 1, n]))/4 + 
   (S2[-3, n]*(-19*S2[3, n] + 9*S2[2, 1, n]))/12 + 
   (S2[1, n]^2*S2[3, -1, n])/4 - S2[2, n]*S2[3, -1, n] - 
   S2[-2, n]*S2[3, 1, n] + S2[-1, n]*S2[3, 2, n] + (3*S2[4, -2, n])/2 - 
   S2[1, n]*S2[4, -1, n] - S2[-1, n]*S2[4, 1, n] - 
   (7*(S2[-6, n] + S2[-1, n]*S2[5, n] - S2[5, -1, n]))/4 - S2[5, -1, n]/4 + 
   S2[-4, -1, -1, n] + (-S2[-6, n] - S2[-5, n]*S2[1, n] - 
     (S2[-4, n]*S2[1, n]^2)/2 - (S2[-4, n]*S2[2, n])/2 + S2[-5, 1, n] + 
     S2[1, n]*S2[-4, 1, n] + S2[-4, 2, n] - S2[-4, 1, 1, n])/2 + 
   (3*S2[-4, 1, 1, n])/2 + S2[-3, -2, -1, n] + S2[-3, -1, -2, n] - 
   S2[1, n]*S2[-3, -1, -1, n] - S2[-3, 2, 1, n] - 
   S2[-2, n]*S2[-2, 1, -1, n] + S2[-2, 3, 1, n] + 
   (S2[1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] + S2[-1, n]*S2[-2, -1, n] - 
      S2[2, -2, n] + S2[3, -1, n] - S2[-1, -2, -1, n]))/4 - 
   S2[-2, n]*S2[-1, -2, 1, n] + 
   (S2[-2, n]*(-9*S2[4, n] - 6*S2[-2, 1, -1, n] - 
      6*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) + 
      (3*(S2[2, n]^2 + S2[4, n] + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
           S2[-1, 2, -1, n])))/2))/6 - S2[1, n]*S2[-1, 2, 2, n] - 
   S2[1, n]*S2[2, 1, -2, n] - (S2[1, n]^2*S2[2, 1, -1, n])/2 - 
   (S2[2, n]*S2[2, 1, -1, n])/2 + S2[-2, n]*(S2[2, n]^2 + S2[3, 1, n] - 
     S2[2, 1, 1, n]) + 2*S2[-2, n]*S2[2, 1, 1, n] + 
   S2[-1, n]*S2[2, 2, 1, n] - (S2[-1, n]*(S2[1, n]*(S2[2, n]^2 + S2[4, n]) + 
      2*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
        S2[2, 2, 1, n])))/2 - S2[3, -1, 2, n]/2 + 
   (S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
     S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - S2[3, 1, -2, n])/2 - 
   S2[3, 1, -2, n] - S2[1, n]*S2[3, 1, -1, n] - 2*S2[3, 2, -1, n] - 
   S2[4, -1, 1, n]/2 - 2*S2[4, 1, -1, n] - S2[-2, 2, -1, -1, n] - 
   S2[-2, 2, 1, 1, n] + S2[-1, -2, -2, 1, n] + S2[-1, -2, 1, -2, n] - 
   (S2[1, n]^2*S2[-1, -1, -1, 1, n])/2 + 
   (S2[2, n]*(4*S2[-4, n] - S2[-2, n]*S2[2, n] - S2[-1, n]*S2[-2, -1, n] + 
      S2[-1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      S2[2, -2, n] + S2[-1, -2, -1, n] + 4*S2[2, 1, -1, n] + 
      2*S2[-1, -1, -1, 1, n]))/4 + (2*S2[-6, n] + S2[-2, n]^3 + 
     6*S2[-3, 3, n] - 3*S2[-2, n]^2*S2[1, -1, n] - 3*S2[4, n]*S2[1, -1, n] - 
     6*S2[-3, -2, -1, n] - 6*S2[-3, -1, -2, n] + 
     3*S2[-1, n]*(S2[-3, n]*S2[-2, n] + S2[-2, n]^2*S2[1, n] + 
       S2[1, n]*S2[4, n] + S2[5, n] + S2[-3, -2, n] - 
       S2[-2, n]*S2[-2, 1, n] - S2[4, 1, n] - S2[-2, 1, -2, n]) + 
     3*S2[-2, n]*(S2[4, n] + 2*S2[-2, 1, -1, n]) + 6*S2[4, 1, -1, n] - 
     6*S2[-1, 1, -2, -2, n])/6 + S2[-1, 1, -2, -2, n] - 
   (S2[-1, n]^2*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/12 + 
   (S2[2, n]*(18*S2[-4, n] - 36*S2[-3, 1, n] - 9*S2[1, n]^2*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 36*S2[3, -1, n] - 
      3*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
        3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
          2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
          2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
            S2[2, 1, -1, n] + S2[1, 1, 1, -1, n])))))/36 + 
   S2[1, n]*S2[2, 1, -1, 1, n] + S2[1, n]*S2[2, 1, 1, -1, n] + 
   S2[3, -1, 1, 1, n]/2 + S2[3, 1, -1, 1, n] + 
   (S2[3, 1, -2, n] + S2[1, n]*S2[3, 1, -1, n] + S2[3, 2, -1, n] + 
     S2[4, 1, -1, n] - S2[3, 1, -1, 1, n] - 2*S2[3, 1, 1, -1, n])/2 + 
   (S2[-5, 1, n] - (S2[1, n]^2*S2[3, -1, n])/2 - (S2[2, n]*S2[3, -1, n])/2 + 
     S2[-2, n]*S2[3, 1, n] - S2[4, -2, n] - S2[5, -1, n] - S2[-2, 3, 1, n] + 
     S2[3, -1, 2, n] - S2[1, n]*(S2[3, -2, n] + S2[4, -1, n] - 
       S2[3, -1, 1, n] - S2[3, 1, -1, n]) + S2[3, 2, -1, n] + 
     S2[4, -1, 1, n] + S2[4, 1, -1, n] - S2[3, -1, 1, 1, n] - 
     S2[3, 1, -1, 1, n] - S2[3, 1, 1, -1, n])/2 + (3*S2[3, 1, 1, -1, n])/2 + 
   S2[-2, -1, -1, 1, 1, n] + S2[-2, -1, 1, -1, 1, n] + 
   S2[-2, -1, 1, 1, -1, n] + S2[-2, 1, -1, -1, 1, n] + 
   S2[-2, 1, -1, 1, -1, n] + S2[-2, 1, 1, -1, -1, n] + 
   (S2[-1, n]*(3*S2[1, n]^3*S2[2, n] + 6*S2[2, n]*S2[3, n] + 27*S2[5, n] + 
      36*S2[-4, -1, n] + 9*S2[1, n]^2*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) - 
      9*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 36*S2[-1, -1, 1, 1, 1, n]))/36 + 
   (S2[1, n]*(-3*S2[-5, n] - 6*S2[-2, n]^2*S2[-1, n] - 6*S2[-4, n]*S2[1, n] - 
      2*S2[-3, n]*S2[1, n]^2 - S2[-1, n]^3*S2[1, n]^2 + 
      12*S2[-3, n]*S2[2, n] + 3*S2[-1, n]*S2[1, n]^2*S2[2, n] - 
      3*S2[-1, n]*S2[2, n]^2 + 12*S2[-2, n]*S2[3, n] - 3*S2[-1, n]*S2[4, n] + 
      6*S2[-4, 1, n] + 6*S2[-1, n]*S2[-3, -1, n] - 12*S2[-3, 2, n] + 
      12*S2[-2, n]*S2[-2, -1, n] + 6*S2[-1, n]*S2[1, n]*S2[-2, -1, n] - 
      6*S2[-1, n]^2*S2[-2, 1, n] - 6*S2[2, n]*S2[-2, 1, n] - 
      6*S2[1, n]*S2[2, -2, n] + 6*S2[2, n]*S2[2, -1, n] - 
      6*S2[-2, n]*(S2[-1, n]^2*S2[1, n] + 2*S2[3, n] - 2*S2[2, 1, n]) - 
      12*S2[-1, n]*S2[1, n]*S2[2, 1, n] - 6*S2[3, -2, n] - 
      6*S2[1, n]*S2[3, -1, n] - 12*S2[-1, n]*S2[3, 1, n] + 18*S2[4, -1, n] + 
      12*S2[-3, -1, -1, n] - 12*S2[-2, 2, 1, n] + 12*S2[-1, -2, -2, n] - 
      12*(-(S2[-1, n]*(S2[-2, n]^2 + S2[4, n]))/2 + S2[-2, n]*S2[-2, -1, n] - 
        S2[3, -2, n] + S2[4, -1, n] + S2[-1, -2, -2, n]) + 
      6*S2[1, n]*S2[-1, -2, -1, n] + 12*S2[-1, n]*S2[-1, -2, 1, n] - 
      6*S2[-1, n]*S2[-1, 2, -1, n] + 
      12*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) + 
      6*S2[-1, n]^2*S2[1, 1, -1, n] - 6*S2[2, n]*S2[1, 1, -1, n] + 
      6*S2[-1, n]^2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      6*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
      12*(S2[-5, n] + S2[-3, n]*S2[2, n] + S2[-4, 1, n] - S2[-3, 2, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[-2, 2, 1, n] - S2[2, 1, -2, n]) + 
      12*S2[1, n]*S2[2, 1, -1, n] + 12*S2[-1, n]*S2[2, 1, 1, n] - 
      6*S2[3, -1, 1, n] + 12*S2[1, n]*S2[-1, -1, -1, 1, n] - 
      3*S2[-1, n]*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + 
          S2[2, n]) + S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 
        4*S2[-1, -2, 1, n] + 2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - 
          S2[2, 1, n] - S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
        2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
          2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]) - 
      12*S2[-1, n]*S2[1, 1, -1, -1, n] - 12*S2[2, 1, -1, 1, n] - 
      12*S2[2, 1, 1, -1, n] + 12*S2[1, 1, -1, -1, -1, n]))/12 - 
   S2[2, -1, -1, -1, 1, n] - S2[2, -1, -1, 1, -1, n] - 
   S2[2, -1, 1, -1, -1, n] - S2[2, 1, -1, 1, 1, n] - S2[2, 1, 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[-4, n]*S2[-2, n]) - 
   (S2[-2, n]^2*S2[2, n])/2 - (S2[1, n]^3*S2[3, n])/6 - 
   (S2[-1, n]^2*S2[4, n])/2 + S2[1, n]^2*S2[4, n] + (S2[2, n]*S2[4, n])/2 + 
   (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/8 + 
   (S2[2, n]*(S2[1, n]^4 + 12*S2[4, n]))/6 + S2[6, n]/12 - 
   (17*(S2[-3, n]^2 + S2[6, n]))/6 + 2*(S2[3, n]^2 + S2[6, n]) - 
   (5*(S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n]))/6 + 
   (10*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]))/3 + 
   (5*S2[-5, -1, n])/6 - S2[-4, -2, n] - S2[1, n]*S2[-4, -1, n] - 
   (3*S2[1, n]^2*S2[-3, -1, n])/2 + S2[-2, n]*S2[2, -2, n] + 
   (S2[-3, n]*(-3*S2[-3, n] + 2*S2[-2, 1, n] - 2*S2[2, -1, n]))/6 + 
   S2[-2, 1, n]*S2[2, -1, n] + (3*S2[-3, n]*(-S2[-2, 1, n] + S2[2, -1, n]))/
    2 + (S2[-3, n]*(9*S2[-3, n] - 5*S2[-2, 1, n] + 5*S2[2, -1, n]))/6 + 
   (-17*S2[-3, n]^2 - 6*S2[-2, 1, n]^2 - 3*S2[1, n]^2*
      (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 - 6*S2[2, -1, n]^2)/
    12 - (2*S2[1, n]^3*S2[2, 1, n])/3 + (S2[1, n]^2*S2[3, 1, n])/2 - 
   2*S2[4, 2, n] + (13*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]))/6 - 
   (17*S2[5, 1, n])/6 + 5*S2[-4, -1, 1, n] + 4*S2[-4, 1, -1, n] + 
   5*S2[-3, -2, 1, n] + (11*S2[-3, -1, 2, n])/2 + 3*S2[-3, 1, -2, n] + 
   S2[1, n]*S2[-3, 1, -1, n] + (S2[-3, n]^2 + S2[6, n] + 
     2*(S2[-5, -1, n] + S2[2, n]*S2[-3, -1, n] - S2[-3, -1, 2, n] - 
       S2[-3, 2, -1, n]))/4 + (7*S2[-3, 2, -1, n])/2 + 
   (S2[1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
      S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]))/2 + 
   (S2[1, n]^3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/12 + 
   (S2[3, n]*(-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] + 4*S2[3, n] - 
      2*S2[-2, -1, n] + S2[-1, n]*S2[1, -1, n] - 2*S2[2, 1, n] + 
      S2[-1, 1, -1, n]))/3 - S2[2, -2, -2, n] + 
   (S2[-2, n]*(-27*S2[-4, n] + 15*(S2[-4, n] + S2[-3, n]*S2[1, n] - 
        S2[-3, 1, n]) + 9*S2[-3, 1, n] + 6*S2[3, -1, n] - 6*S2[-2, 1, 1, n] + 
      6*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n])))/6 + 
   (3*S2[1, n]^2*S2[2, 1, 1, n])/2 - 
   (7*(S2[3, n]^2 + S2[6, n] + 2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - 
        S2[2, 3, 1, n] - S2[3, 2, 1, n])))/2 - 7*S2[3, 2, 1, n] - 
   S2[4, -1, -1, n] + 2*S2[4, 1, 1, n] - 
   5*((S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + S2[6, n] + 
     S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - S2[5, 1, n] + 
     S2[4, 1, 1, n]) - 2*S2[-3, -1, 1, 1, n] - 2*S2[-3, 1, -1, 1, n] - 
   2*S2[-3, 1, 1, -1, n] + 3*(S2[-3, n]^2/2 + S2[6, n]/2 + S2[-5, -1, n] + 
     S2[-4, -2, n] + S2[1, n]*S2[-4, -1, n] + S2[1, n]*S2[-3, -2, n] + 
     (S2[1, n]^2*S2[-3, -1, n])/2 + (S2[2, n]*S2[-3, -1, n])/2 - 
     S2[-4, -1, 1, n] - S2[-4, 1, -1, n] - S2[-3, -2, 1, n] - 
     S2[1, n]*S2[-3, -1, 1, n] - S2[-3, -1, 2, n] - S2[-3, 1, -2, n] - 
     S2[1, n]*S2[-3, 1, -1, n] - S2[-3, 2, -1, n] + S2[-3, -1, 1, 1, n] + 
     S2[-3, 1, -1, 1, n] + S2[-3, 1, 1, -1, n]) + S2[-2, -2, 1, 1, n] - 
   S2[-2, 2, -1, 1, n] + (S2[2, n]*(6*S2[-2, n]^2 + 12*S2[1, n]^2*S2[2, n] + 
      42*S2[4, n] + (9*(S2[2, n]^2 + S2[4, n]))/2 - 48*S2[-3, -1, n] + 
      3*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 + 30*S2[3, 1, n] - 
      12*S2[-2, 1, -1, n] - 18*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) + 3*(S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])) + 
      42*S2[2, 1, 1, n] - 3*(S2[1, n]^2*S2[2, n] + 
        S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + S2[4, n] + 2*S2[-3, -1, n] - 
        4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 2*S2[1, n]*
         (S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - S2[-1, 1, -1, n]) - 
        2*S2[-1, 2, -1, n] - 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
          S2[2, -1, n] - 2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 
        4*S2[1, 1, -1, -1, n])))/12 - 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/6 + 
   (S2[-1, n]*(-52*S2[-5, n] - 12*S2[-4, 1, n] + 12*S2[4, -1, n] - 
      12*S2[-3, 1, 1, n] + 12*S2[3, -1, 1, n] - 12*S2[-2, 1, 1, 1, n] + 
      12*S2[2, -1, 1, 1, n]))/12 - 
   4*(-S2[2, n]^3/12 + (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + S2[6, n]/3 - 
     S2[5, 1, n] + S2[2, n]*(S2[4, n]/4 - S2[3, 1, n] + S2[2, 1, 1, n]) + 
     S2[1, n]*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
       S2[2, 2, 1, n]) + S2[2, 3, 1, n] + S2[4, 1, 1, n] - 
     S2[2, 2, 1, 1, n]) - S2[3, -1, -1, 1, n] - S2[3, -1, 1, -1, n] + 
   (5*(S2[1, n]^3*S2[3, n] + 2*S2[3, n]^2 + 3*S2[2, n]*S2[4, n] + 
      6*S2[6, n] + 3*S2[1, n]^2*(S2[4, n] - S2[3, 1, n]) + 
      3*S2[2, n]*S2[3, 1, n] - 6*S2[4, 2, n] - 6*S2[2, 3, 1, n] + 
      3*S2[1, n]*(S2[2, n]*S2[3, n] + 2*(S2[5, n] - S2[3, 2, n] - 
          S2[4, 1, n] + S2[3, 1, 1, n])) + 6*S2[4, 1, 1, n] - 
      6*S2[3, 1, 1, 1, n]))/6 + 4*S2[-2, -1, 1, 1, 1, n] + 
   3*S2[-2, 1, -1, 1, 1, n] + 2*S2[-2, 1, 1, -1, 1, n] + 
   S2[-2, 1, 1, 1, -1, n] + (S2[1, n]*(-6*S2[-3, n]*S2[-2, n] + 
      12*S2[-4, n]*S2[-1, n] + 6*S2[-1, n]^2*S2[3, n] - 8*S2[2, n]*S2[3, n] + 
      22*S2[5, n] - 36*S2[-4, -1, n] - 48*S2[-3, -2, n] + 
      12*S2[-1, n]*S2[-3, 1, n] + 12*S2[2, n]*S2[-2, -1, n] + 
      12*S2[-2, n]*S2[-2, 1, n] - 12*S2[-2, n]*S2[2, -1, n] - 
      36*S2[2, n]*S2[2, 1, n] - 12*S2[-1, n]*S2[3, -1, n] + 72*S2[3, 2, n] + 
      12*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) - 24*S2[4, 1, n] + 
      24*S2[-3, -1, 1, n] + 12*S2[-3, 1, -1, n] + 
      12*S2[-1, n]*S2[-2, 1, 1, n] + 3*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) + 
      12*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
      12*S2[-1, n]*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 12*S2[3, -1, -1, n] - 
      36*S2[-2, -1, 1, 1, n] - 24*S2[-2, 1, -1, 1, n] - 
      12*S2[-2, 1, 1, -1, n] + 24*S2[2, -1, -1, 1, n] + 
      12*S2[2, -1, 1, -1, n] - 12*S2[2, 1, 1, 1, n] - 
      36*S2[-1, -1, 1, 1, 1, n] - 12*S2[-1, 1, -1, 1, 1, n]))/12 - 
   3*S2[2, -1, -1, 1, 1, n] - 2*S2[2, -1, 1, -1, 1, n] - 
   S2[2, -1, 1, 1, -1, n] + (-(S2[1, n]^4*S2[2, n]) - S2[2, n]^3 - 
     4*S2[1, n]^3*(S2[3, n] - S2[2, 1, n]) - 
     12*S2[2, n]*(S2[3, 1, n] - S2[2, 1, 1, n]) - 
     6*S2[1, n]^2*(S2[4, n] - 2*S2[3, 1, n] + 2*S2[2, 1, 1, n]) - 
     4*S2[1, n]*(S2[2, n]*(5*S2[3, n] + 3*S2[2, 1, n]) + 
       6*(S2[5, n] - S2[3, 2, n] - S2[2, 2, 1, n] + S2[3, 1, 1, n] - 
         S2[2, 1, 1, 1, n])) - 8*(S2[3, n]^2 + S2[6, n] - 
       S2[3, n]*S2[2, 1, n] - 3*S2[2, 3, 1, n] + 3*S2[2, 2, 1, 1, n] - 
       3*S2[3, 1, 1, 1, n] + 3*S2[2, 1, 1, 1, 1, n]))/6 + 
   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] -> S2[-3, n]^2/2 + (S2[1, n]^3*S2[3, n])/6 + 
   (S2[2, n]*(S2[2, n]^2 - 2*S2[4, n]))/4 + S2[-1, n]^2*S2[4, n] - 
   S2[1, n]^2*S2[4, n] - (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/8 + 
   (29*S2[6, n])/12 + (8*(S2[-3, n]^2 + S2[6, n]))/3 - 
   (3*(S2[3, n]^2 + S2[6, n]))/2 + (S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 
     2*S2[6, n])/6 - (25*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]))/
    6 - (5*S2[-5, -1, n])/3 - S2[-4, -2, n] + S2[1, n]*S2[-3, -2, n] + 
   (S2[1, n]^2*S2[-3, -1, n])/2 + (S2[2, n]*S2[-3, -1, n])/2 - 
   (S2[1, n]^3*S2[-2, -1, n])/6 - S2[-2, 1, n]*S2[2, -1, n] - 
   (3*S2[-3, n]*(-S2[-2, 1, n] + S2[2, -1, n]))/2 + 
   (S2[-3, n]*(-9*S2[-3, n] - 4*S2[-2, 1, n] + 4*S2[2, -1, n]))/6 + 
   (S2[-3, n]*(-11*S2[-3, n] + S2[-2, 1, n] + 11*S2[2, -1, n]))/6 + 
   (-S2[-3, n]^2 - 3*S2[-1, n]^2*S2[2, n]^2 + 6*S2[-2, 1, n]^2 + 
     3*S2[1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 + 
     6*S2[2, -1, n]^2)/12 + (S2[1, n]^3*S2[2, 1, n])/6 - 
   (S2[1, n]^2*S2[3, 1, n])/2 - S2[4, 2, n] + 
   (17*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]))/6 + (17*S2[5, 1, n])/6 + 
   S2[-4, 1, -1, n] - S2[1, n]*S2[-3, -1, 1, n] - S2[-3, -1, 2, n]/2 + 
   S2[-3, 1, -2, n] + (-S2[-3, n]^2 - S2[6, n] - 
     2*(S2[-5, -1, n] + S2[2, n]*S2[-3, -1, n] - S2[-3, -1, 2, n] - 
       S2[-3, 2, -1, n]))/4 - (3*S2[-3, 2, -1, n])/2 + 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 + 
   (S2[1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
      S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]))/2 - 
   (S2[1, n]^3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/6 + 
   (S2[3, n]*(-2*S2[-2, n]*S2[-1, n] - S2[-1, n]^2*S2[1, n] + 6*S2[3, n] + 
      S2[-1, n]*S2[1, -1, n] + S2[-1, 1, -1, n]))/3 - 
   (S2[1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/8 - 
   (S2[1, n]^2*S2[2, 1, 1, n])/2 - S2[3, -2, -1, n] - S2[3, -1, -2, n] + 
   S2[4, -1, -1, n] + S2[-2, -2, 1, 1, n] - 2*S2[-2, 1, -1, 2, n] - 
   2*S2[-2, 1, 2, -1, n] - S2[-2, 2, -1, 1, n] - 2*S2[-2, 2, 1, -1, n] + 
   (S2[1, n]^2*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 
      S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
      2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
        2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]))/4 + 
   (S2[2, n]*(-2*S2[-2, n]^2 + S2[-1, n]^2*S2[1, n]^2 - 
      S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 5*S2[4, n] - 
      (3*(S2[2, n]^2 + S2[4, n]))/2 - 4*S2[-3, -1, n] + 
      2*S2[-2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])^2 + 6*S2[3, 1, n] + 
      6*S2[-2, 1, -1, n] - 2*((S2[-2, n]^2 + S2[4, n])/2 + 
        S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - S2[-2, 1, -1, n] - 
        S2[-1, -2, 1, n]) - 4*S2[-1, -2, 1, n] - 
      2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + (S2[2, n]^2 + S2[4, n] + 
        2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n]))/2 + 
      2*S2[-1, 2, -1, n] + 2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + 
        S2[2, -1, n] - 2*S2[1, 1, -1, n]) - 2*S2[2, 1, 1, n] + 
      4*S2[1, 1, -1, -1, n]))/4 + 
   ((S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
     (S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/6 + 
   (S2[-2, n]*(-2*S2[-4, n] - S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 
        2*S2[3, n]) + 8*(S2[-4, n] + S2[-3, n]*S2[1, n] - S2[-3, 1, n]) + 
      2*S2[-3, 1, n] - 3*S2[1, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) + 6*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 
      6*S2[3, -1, n] - 6*S2[-2, 1, 1, n] + 
      6*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/6 - 
   2*S2[2, 2, -1, -1, n] + S2[-2, 1, 1, -1, 1, n] + 
   2*S2[-2, 1, 1, 1, -1, n] + 
   (S2[1, n]*(-16*S2[-3, n]*S2[-2, n] - 12*S2[-4, n]*S2[-1, n] - 
      6*S2[-2, n]*S2[-1, n]*S2[2, n] - 12*S2[-1, n]^2*S2[3, n] - 
      6*S2[2, n]*S2[3, n] - 46*S2[5, n] - 12*S2[-3, -2, n] - 
      12*S2[-1, n]*S2[-3, 1, n] + 6*S2[2, n]*S2[-2, -1, n] - 
      18*S2[-1, n]*S2[2, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      6*S2[2, n]*S2[2, 1, n] + 12*S2[-1, n]*S2[3, -1, n] + 
      12*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) + 12*S2[4, 1, n] + 
      12*S2[-3, -1, 1, n] - 6*(S2[-3, n]*S2[-2, n] + S2[5, n] - 
        S2[-3, -2, n] + S2[-2, n]*S2[-2, 1, n] + S2[4, 1, n] - 
        S2[-2, 1, -2, n]) - 12*S2[-1, n]*S2[-2, 1, 1, n] + 
      12*S2[-2, 2, -1, n] + 6*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + 
        S2[-1, n]^2*S2[1, n] + S2[3, n] - S2[-2, -1, n] - 
        S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - S2[-1, 1, -1, n]) + 
      12*S2[-2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
      12*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n])*
       ((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      12*S2[-1, n]*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
        S2[1, 2, -1, n] - S2[2, 1, -1, n]) - 12*S2[-2, 1, 1, -1, n] + 
      6*S2[-1, n]*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 
          2*S2[3, n]) - 3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
          2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
          2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
            S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))) + 
      12*S2[2, -1, 1, -1, n] + 12*S2[-1, 1, -1, 1, 1, n]))/12 + 
   (S2[-1, n]*(62*S2[-5, n] + 2*S2[-2, n]*S2[1, n]^3 + 4*S2[-2, n]*S2[3, n] + 
      12*S2[-4, 1, n] + 2*S2[1, n]^3*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) + 16*S2[3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) - 12*S2[4, -1, n] + 12*S2[-3, 1, 1, n] - 
      12*S2[1, n]^2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      24*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
      12*S2[3, -1, 1, n] + 12*S2[-2, 1, 1, 1, n] - 12*S2[2, -1, 1, 1, n] - 
      48*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        (S2[-1, n]*(S2[1, n]^4 + 6*S2[1, n]^2*S2[2, n] + 15*S2[2, n]^2 + 
           8*S2[1, n]*S2[3, n] + 18*S2[4, n]))/24 + S2[-4, 1, n] - 
        (S2[1, n]^3*S2[1, -1, n])/6 - (S2[1, n]*S2[2, n]*S2[1, -1, n])/2 - 
        (S2[3, n]*S2[1, -1, n])/3 - S2[2, n]*S2[2, -1, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[4, -1, n] - S2[-2, 2, 1, n] - 
        S2[-1, 2, 2, n] + (S2[1, n]^2*S2[1, 1, -1, n])/2 + 
        (S2[2, n]*S2[1, 1, -1, n])/2 - S2[2, 1, -2, n] + S2[-2, 1, 1, 1, n] - 
        S2[1, n]*S2[1, 1, 1, -1, n] - S2[2, -1, 1, 1, n] + 
        S2[1, 1, 1, 1, -1, n])))/12 - S2[2, -1, 1, -1, 1, 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] -> (5*S2[-6, n])/4 - 2*S2[-4, n]*S2[1, n]^2 - 
   S2[-3, n]*S2[3, n] + S2[-2, n]*S2[4, n] + 
   (S2[-1, n]*(S2[1, n]^2*S2[3, n] - 3*S2[2, n]*S2[3, n] + 4*S2[5, n]))/2 - 
   (17*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/4 + 
   (19*S2[-5, 1, n])/4 + 3*S2[-4, 2, n] + (S2[1, n]^2*S2[-3, 1, n])/2 + 
   4*S2[-3, 3, n] - S2[2, n]^2*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
     S2[1, -1, n]) + (5*S2[4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
      S2[1, -1, n]))/2 - (S2[1, n]^2*S2[3, -1, n])/2 - 
   S2[-2, n]*S2[3, 1, n] - S2[4, -2, n] - 2*S2[5, -1, n] - S2[-4, 1, 1, n] + 
   5*(S2[-6, n] + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
     (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - S2[1, n]*S2[-4, 1, n] - 
     S2[-4, 2, n] + S2[-4, 1, 1, n]) - 2*S2[-3, 1, 2, n] - 
   2*S2[-3, 2, 1, n] + (S2[1, n]^2*S2[-2, 1, 1, n])/2 + S2[-2, 2, 2, n] + 
   S2[-2, 3, 1, n] + (S2[1, n]^3*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
      S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]))/
    6 + (S2[3, n]*(-24*S2[-3, n] + 12*S2[-2, 1, n] + 24*S2[2, -1, n] + 
      40*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/12 - 
   (S2[1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
      S2[1, 2, -1, n] - S2[2, 1, -1, n]))/2 + 2*S2[3, -1, 2, n] + 
   S2[3, 1, -2, n] - S2[4, -1, 1, n] + 3*S2[-3, 1, 1, 1, n] - 
   3*S2[-2, 1, 1, 2, n] - 3*S2[-2, 2, 1, 1, n] - 
   3*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) - 
   (S2[1, n]^2*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/4 + 
   (S2[2, n]*(-8*S2[-4, n] + 2*S2[-3, 1, n] + 2*S2[1, n]^2*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 2*S2[3, -1, n] + 
      2*S2[-2, 1, 1, n] + 10*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 
      3*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
        3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
          2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
          2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
            S2[2, 1, -1, n] + S2[1, 1, 1, -1, n])))))/4 - 
   3*(-(S2[-3, n]*S2[3, n]) + S2[-3, 3, n] + S2[3, n]*S2[-2, 1, n] + 
     S2[-2, n]*(S2[4, n] - S2[3, 1, n]) - S2[4, -2, n] + S2[-4, 1, 1, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + S2[-2, 3, 1, n] + S2[3, 1, -2, n] - 
     S2[-2, 1, 1, 2, n] - S2[-2, 2, 1, 1, n] - S2[2, -2, 1, 1, n]) - 
   3*S2[3, -1, 1, 1, n] + 6*S2[-2, 1, 1, 1, 1, n] + 
   (S2[1, n]*(-33*S2[-5, n] + 6*S2[-1, n]*S2[2, n]^2 - 
      18*S2[-1, n]*S2[4, n] + 36*S2[-4, 1, n] + 12*S2[-3, 2, n] - 
      24*S2[3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      12*S2[2, n]*S2[2, -1, n] + 12*S2[4, -1, n] - 24*S2[-3, 1, 1, n] + 
      12*S2[-2, 2, 1, n] + 12*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - 
        S2[-3, 2, n] + S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + 
        S2[-1, 2, 2, n]) - 30*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
         2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n]) + 12*(-(S2[-3, n]*S2[2, n]) + S2[-3, 2, n] + 
        S2[2, n]*S2[-2, 1, n] + S2[-2, n]*(S2[3, n] - S2[2, 1, n]) - 
        S2[3, -2, n] + S2[2, 1, -2, n]) + 24*S2[3, -1, 1, n] - 
      36*S2[-2, 1, 1, 1, n] + 36*S2[2, -1, 1, 1, n] + 
      72*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        (S2[-1, n]*(S2[1, n]^4 + 6*S2[1, n]^2*S2[2, n] + 15*S2[2, n]^2 + 
           8*S2[1, n]*S2[3, n] + 18*S2[4, n]))/24 + S2[-4, 1, n] - 
        (S2[1, n]^3*S2[1, -1, n])/6 - (S2[1, n]*S2[2, n]*S2[1, -1, n])/2 - 
        (S2[3, n]*S2[1, -1, n])/3 - S2[2, n]*S2[2, -1, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[4, -1, n] - S2[-2, 2, 1, n] - 
        S2[-1, 2, 2, n] + (S2[1, n]^2*S2[1, 1, -1, n])/2 + 
        (S2[2, n]*S2[1, 1, -1, n])/2 - S2[2, 1, -2, n] + S2[-2, 1, 1, 1, n] - 
        S2[1, n]*S2[1, 1, 1, -1, n] - S2[2, -1, 1, 1, n] + 
        S2[1, 1, 1, 1, -1, n])))/12 - 6*S2[2, -1, 1, 1, 1, n] - 
   10*S2[-1, 1, 1, 1, 1, 1, n], S2[1, 1, 1, 1, -1, -1, n] -> 
  -S2[-3, n]^2/2 + S2[-4, n]*S2[-2, n] + (S2[-2, n]^2*S2[2, n])/2 - 
   S2[2, n]^3/12 + (24*S2[-3, n]^2 + 12*S2[-2, n]^2*S2[1, n]^2 + 
     S2[-1, n]^2*S2[1, n]^4 + 3*S2[-1, n]^2*S2[2, n]^2)/48 + S2[3, n]^2 + 
   (S2[2, n]*(-S2[1, n]^4 - 3*S2[2, n]^2 - 18*S2[4, n]))/48 - 
   (S2[-1, n]^2*S2[4, n])/8 - (S2[2, n]*S2[4, n])/2 + 
   (S2[1, n]^2*(S2[2, n]^2 + S2[4, n]))/4 + (-S2[-3, n]^2 - S2[6, n])/12 - 
   (11*S2[6, n])/12 + (S2[2, n]^3 + 3*S2[2, n]*S2[4, n] + 2*S2[6, n])/6 + 
   (5*(S2[-5, n]*S2[-1, n] + S2[6, n] - S2[-5, -1, n]))/6 - 
   (2*S2[-5, -1, n])/3 - S2[-4, -2, n]/2 - S2[1, n]*S2[-4, -1, n] - 
   S2[1, n]*S2[-3, -2, n] - (S2[2, n]*S2[-3, -1, n])/2 + 
   (S2[1, n]^3*S2[-2, -1, n])/6 - S2[-2, n]*S2[2, -2, n] + 
   (S2[-3, n]*(13*S2[-3, n] - 6*S2[-2, 1, n] - 6*S2[2, -1, n]))/12 + 
   (S2[-3, n]*(S2[-2, 1, n] - S2[2, -1, n]))/2 + (3*S2[4, 2, n])/2 - 
   (3*(S2[1, n]*S2[5, n] + S2[6, n] - S2[5, 1, n]))/2 - S2[5, 1, n] - 
   S2[-4, -1, 1, n]/2 + (S2[-5, -1, n] + S2[-4, -2, n] + 
     S2[1, n]*S2[-4, -1, n] - S2[-4, -1, 1, n] - S2[-4, 1, -1, n])/2 - 
   S2[-3, -2, 1, n] + S2[1, n]*S2[-3, -1, 1, n] - S2[-3, -1, 2, n] - 
   S2[-3, 1, -2, n]/2 + S2[1, n]*S2[-3, 1, -1, n] + S2[-3, 2, -1, n]/2 - 
   (S2[1, n]^2*S2[-2, 1, -1, n])/2 - 
   (S2[1, n]^2*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + 
      S2[3, 1, n] - S2[-2, 1, -1, n] - S2[-1, -2, 1, n]))/2 + 
   (S2[1, n]^3*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/12 + 
   (S2[3, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] - 8*S2[3, n] + 
      S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
      S2[-1, 1, -1, n]))/6 + 
   (S2[1, n]^2*(S2[2, n]^2 + S2[4, n] + 
      2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - S2[-1, 2, -1, n])))/8 + 
   S2[2, -2, -2, n] + (S2[-2, n]*(32*S2[-4, n] - 
      32*(S2[-4, n] + S2[-3, n]*S2[1, n] - S2[-3, 1, n]) - 8*S2[-3, 1, n] - 
      24*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) - 24*S2[3, -1, n] + 
      24*S2[-2, 1, 1, n] - 24*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n])))/24 + 
   S2[2, n]*(S2[4, n]/4 - S2[3, 1, n] + S2[2, 1, 1, n]) + 
   S2[1, n]*(-(S2[2, n]*S2[2, 1, n]) + S2[3, 2, n] - S2[4, 1, n] + 
     S2[2, 2, 1, n]) + S2[2, 3, 1, n] + S2[3, -2, -1, n] + S2[3, -1, -2, n] + 
   2*(S2[2, n]*S2[3, 1, n] + S2[5, 1, n] - S2[2, 3, 1, n] - S2[3, 2, 1, n]) + 
   2*S2[3, 2, 1, n] + S2[4, 1, 1, n]/2 + 
   (3*((S2[1, n]^2*S2[4, n])/2 + (S2[2, n]*S2[4, n])/2 + S2[6, n] + 
      S2[1, n]*(S2[5, n] - S2[4, 1, n]) - S2[4, 2, n] - S2[5, 1, n] + 
      S2[4, 1, 1, n]))/2 - S2[-3, 1, -1, 1, n]/2 - S2[-3, 1, 1, -1, n] + 
   (-S2[-4, 1, -1, n] - S2[-3, 1, -2, n] - S2[1, n]*S2[-3, 1, -1, n] - 
     S2[-3, 2, -1, n] + S2[-3, 1, -1, 1, n] + 2*S2[-3, 1, 1, -1, n])/2 - 
   S2[-2, -2, 1, 1, n] + S2[-2, 1, -1, 2, n] + S2[-2, 1, 2, -1, n] + 
   S2[-2, 2, -1, 1, n] + S2[-2, 2, 1, -1, n] + 
   (S2[2, n]*(12*S2[-2, n]^2 - 6*S2[-1, n]^2*S2[1, n]^2 - 
      18*S2[1, n]^2*S2[2, n] - 72*S2[4, n] + 72*S2[-3, -1, n] - 
      48*S2[3, 1, n] - 24*S2[-2, 1, -1, n] + 
      24*((S2[-2, n]^2 + S2[4, n])/2 + S2[-1, n]*S2[-2, 1, n] + S2[3, 1, n] - 
        S2[-2, 1, -1, n] - S2[-1, -2, 1, n]) - 
      6*(S2[2, n]^2 + S2[4, n] + 2*(S2[-3, -1, n] + S2[-1, n]*S2[2, -1, n] - 
          S2[-1, 2, -1, n])) - 48*S2[2, 1, 1, n] + 
      6*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*(S2[1, n]^2 + S2[2, n]) + 
        S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 4*S2[-1, -2, 1, n] + 
        2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - S2[2, 1, n] - 
          S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
        2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
          2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n])))/
    48 - (S2[1, n]^2*(S2[1, n]^2*S2[2, n] + S2[-1, n]^2*
       (S2[1, n]^2 + S2[2, n]) + S2[4, n] + 2*S2[-3, -1, n] - 4*S2[3, 1, n] + 
      4*S2[-1, -2, 1, n] + 2*S2[1, n]*(S2[3, n] + S2[-2, -1, n] - 
        S2[2, 1, n] - S2[-1, 1, -1, n]) - 2*S2[-1, 2, -1, n] - 
      2*S2[-1, n]*(S2[1, n]*S2[1, -1, n] + S2[2, -1, n] - 
        2*S2[1, 1, -1, n]) + 4*S2[2, 1, 1, n] - 4*S2[1, 1, -1, -1, n]))/8 + 
   S2[2, 2, -1, -1, n] - S2[2, 2, 1, 1, n] + 
   (-(S2[1, n]^3*S2[3, n]) - 2*S2[3, n]^2 - 3*S2[2, n]*S2[4, n] - 
     6*S2[6, n] - 3*S2[1, n]^2*(S2[4, n] - S2[3, 1, n]) - 
     3*S2[2, n]*S2[3, 1, n] + 6*S2[4, 2, n] + 6*S2[2, 3, 1, n] - 
     3*S2[1, n]*(S2[2, n]*S2[3, n] + 2*(S2[5, n] - S2[3, 2, n] - 
         S2[4, 1, n] + S2[3, 1, 1, n])) - 6*S2[4, 1, 1, n] + 
     6*S2[3, 1, 1, 1, n])/6 - S2[-2, -1, 1, 1, 1, n] - 
   S2[-2, 1, -1, 1, 1, n] - S2[-2, 1, 1, -1, 1, n] - S2[-2, 1, 1, 1, -1, n] + 
   (S2[1, n]*(8*S2[-3, n]*S2[-2, n] + 4*S2[-1, n]^2*S2[3, n] + 
      20*S2[2, n]*S2[3, n] + 12*S2[5, n] + 36*S2[-4, -1, n] + 
      48*S2[-3, -2, n] - 12*S2[2, n]*S2[-2, -1, n] - 
      24*S2[-2, n]*S2[-2, 1, n] + 12*S2[-1, n]*S2[2, n]*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      24*S2[-2, n]*S2[2, -1, n] + 24*S2[2, n]*S2[2, 1, n] - 48*S2[3, 2, n] - 
      12*(S2[1, n]*S2[4, n] + S2[5, n] - S2[4, 1, n]) - 24*S2[-3, -1, 1, n] - 
      12*S2[-3, 1, -1, n] + 12*(S2[-3, n]*S2[-2, n] + S2[5, n] - 
        S2[-3, -2, n] + S2[-2, n]*S2[-2, 1, n] + S2[4, 1, n] - 
        S2[-2, 1, -2, n]) - 24*S2[-2, 2, -1, n] - 
      6*S2[2, n]*(2*S2[-2, n]*S2[-1, n] + S2[-1, n]^2*S2[1, n] + S2[3, n] - 
        S2[-2, -1, n] - S2[-1, n]*S2[1, -1, n] + S2[2, 1, n] - 
        S2[-1, 1, -1, n]) + 24*S2[-2, -1, 1, 1, n] + 24*S2[-2, 1, -1, 1, n] + 
      24*S2[-2, 1, 1, -1, n] - 4*S2[-1, n]*
       (S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
        3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
          2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
          2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
            S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))) - 
      24*S2[2, -1, -1, 1, n] - 24*S2[2, -1, 1, -1, n] + 
      24*S2[-1, -1, 1, 1, 1, n]))/24 + 
   (S2[-1, n]*(-40*S2[-5, n] - 8*S2[1, n]^3*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) - 16*S2[3, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
        S2[1, -1, n]) + 24*S2[1, n]^2*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
         2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n]) - 24*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/
         2 + S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + 
        S2[1, 1, -1, n]) + 48*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        (S2[-1, n]*(S2[1, n]^4 + 6*S2[1, n]^2*S2[2, n] + 15*S2[2, n]^2 + 
           8*S2[1, n]*S2[3, n] + 18*S2[4, n]))/24 + S2[-4, 1, n] - 
        (S2[1, n]^3*S2[1, -1, n])/6 - (S2[1, n]*S2[2, n]*S2[1, -1, n])/2 - 
        (S2[3, n]*S2[1, -1, n])/3 - S2[2, n]*S2[2, -1, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[4, -1, n] - S2[-2, 2, 1, n] - 
        S2[-1, 2, 2, n] + (S2[1, n]^2*S2[1, 1, -1, n])/2 + 
        (S2[2, n]*S2[1, 1, -1, n])/2 - S2[2, 1, -2, n] + S2[-2, 1, 1, 1, n] - 
        S2[1, n]*S2[1, 1, 1, -1, n] - S2[2, -1, 1, 1, n] + 
        S2[1, 1, 1, 1, -1, n])))/48 + S2[2, -1, -1, 1, 1, n] + 
   S2[2, -1, 1, -1, 1, n] + S2[2, -1, 1, 1, -1, n] + 
   (S2[1, n]^4*S2[2, n] + S2[2, n]^3 + 4*S2[1, n]^3*
      (S2[3, n] - S2[2, 1, n]) + 12*S2[2, n]*(S2[3, 1, n] - S2[2, 1, 1, n]) + 
     6*S2[1, n]^2*(S2[4, n] - 2*S2[3, 1, n] + 2*S2[2, 1, 1, n]) + 
     4*S2[1, n]*(S2[2, n]*(5*S2[3, n] + 3*S2[2, 1, n]) + 
       6*(S2[5, n] - S2[3, 2, n] - S2[2, 2, 1, n] + S2[3, 1, 1, n] - 
         S2[2, 1, 1, 1, n])) + 8*(S2[3, n]^2 + S2[6, n] - 
       S2[3, n]*S2[2, 1, n] - 3*S2[2, 3, 1, n] + 3*S2[2, 2, 1, 1, n] - 
       3*S2[3, 1, 1, 1, n] + 3*S2[2, 1, 1, 1, 1, n]))/24 - 
   S2[-1, -1, 1, 1, 1, 1, n], S2[1, 1, 1, 1, -1, 1, n] -> 
  (-15*S2[-6, n])/8 + (5*S2[-4, n]*S2[1, n]^2)/4 + (S2[-3, n]*S2[1, n]^3)/6 - 
   S2[-2, n]*S2[4, n] + (S2[-1, n]*(S2[1, n]^3*S2[2, n] - 
      3*S2[1, n]^2*S2[3, n] + 5*S2[2, n]*S2[3, n] - 6*S2[5, n]))/6 + 
   (27*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/8 - 
   (33*S2[-5, 1, n])/8 - (3*S2[-4, 2, n])/2 - (S2[1, n]^2*S2[-3, 1, n])/2 - 
   2*S2[-3, 3, n] + (S2[1, n]^3*S2[-2, 1, n])/6 + 
   ((S2[1, n]^4 + 15*S2[2, n]^2)*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
      S2[1, -1, n]))/24 - (5*S2[4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
      S2[1, -1, n]))/4 + (S2[1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - 
      S2[2, -2, n]))/2 - (S2[1, n]^3*S2[2, -1, n])/6 + 
   (S2[1, n]^2*S2[3, -1, n])/2 + S2[4, -2, n] + S2[5, -1, n] + 
   S2[-4, 1, 1, n]/2 - (7*(S2[-6, n] + S2[-5, n]*S2[1, n] + 
      (S2[-4, n]*S2[1, n]^2)/2 + (S2[-4, n]*S2[2, n])/2 - S2[-5, 1, n] - 
      S2[1, n]*S2[-4, 1, n] - S2[-4, 2, n] + S2[-4, 1, 1, n]))/2 + 
   S2[-3, 1, 2, n] + S2[-3, 2, 1, n] - S2[1, n]^2*S2[-2, 1, 1, n] - 
   2*S2[-2, 2, 2, n] - (S2[1, n]^3*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + 
      S2[-2, 1, n] - S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]))/
    3 + (S2[3, n]*(4*S2[-3, n] - 5*S2[-2, 1, n] - 4*S2[2, -1, n] - 
      5*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/3 + 
   S2[1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
     S2[1, 2, -1, n] - S2[2, 1, -1, n]) - S2[3, -1, 2, n] + 
   2*(S2[-6, n] + S2[-3, n]*S2[3, n] + S2[-5, 1, n] - S2[-3, 3, n] + 
     S2[-2, n]*S2[3, 1, n] - S2[-2, 3, 1, n] - S2[3, 1, -2, n]) - 
   S2[-3, 1, 1, 1, n] + 3*S2[-2, 1, 1, 2, n] + 3*S2[-2, 2, 1, 1, n] + 
   3*(-S2[-6, n] - (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 - S2[-3, n]*S2[3, n] - 
     S2[-1, n]*S2[2, n]*S2[3, n] - (S2[-1, n]*S2[1, n]*S2[4, n])/2 - 
     (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-1, n]*S2[5, n] - 
     S2[-4, 2, n] + S2[-3, 3, n] + (S2[2, n]^2*S2[1, -1, n])/2 + 
     (S2[4, n]*S2[1, -1, n])/2 + S2[2, n]*S2[2, -2, n] + 
     S2[1, n]*S2[2, n]*S2[2, -1, n] + S2[3, n]*S2[2, -1, n] + 
     S2[2, n]*S2[3, -1, n] + S2[5, -1, n] - S2[-3, 1, 2, n] - 
     S2[-3, 2, 1, n] - S2[2, n]*S2[1, 2, -1, n] - S2[2, n]*S2[2, 1, -1, n] + 
     S2[3, -1, 2, n] + S2[4, -1, 1, n] + S2[-1, 1, 2, 2, n] + 
     S2[-1, 2, 1, 2, n] + S2[-1, 2, 2, 1, n]) + 
   (S2[1, n]^2*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/4 + 
   (S2[2, n]*(30*S2[-4, n] - 12*S2[-3, 1, n] - 18*S2[1, n]^2*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 
      12*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 12*S2[3, -1, n] - 
      24*S2[-2, 1, 1, n] - 48*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n]) - 
      10*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
        3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
          2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
          2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
            S2[2, 1, -1, n] + S2[1, 1, 1, -1, n])))))/24 + 
   3*(-(S2[-3, n]*S2[3, n]) + S2[-3, 3, n] + S2[3, n]*S2[-2, 1, n] + 
     S2[-2, n]*(S2[4, n] - S2[3, 1, n]) - S2[4, -2, n] + S2[-4, 1, 1, n] + 
     S2[2, n]*S2[-2, 1, 1, n] + S2[-2, 3, 1, n] + S2[3, 1, -2, n] - 
     S2[-2, 1, 1, 2, n] - S2[-2, 2, 1, 1, n] - S2[2, -2, 1, 1, n]) + 
   S2[3, -1, 1, 1, n] - 4*S2[-2, 1, 1, 1, 1, n] + 
   (S2[1, n]*(75*S2[-5, n] + 12*S2[-3, n]*S2[2, n] - 
      12*S2[-1, n]*S2[2, n]^2 + 24*S2[-2, n]*S2[3, n] + 
      24*S2[-1, n]*S2[4, n] - 36*S2[-4, 1, n] - 24*S2[-3, 2, n] + 
      12*S2[2, n]*S2[-2, 1, n] + 32*S2[3, n]*(S2[-2, n] + 
        S2[-1, n]*S2[1, n] - S2[1, -1, n]) + 36*S2[2, n]*S2[2, -1, n] - 
      24*S2[3, -2, n] + 24*S2[-3, 1, 1, n] - 48*S2[-2, 2, 1, n] - 
      48*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) + 
      48*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) - 
      48*(-(S2[-3, n]*S2[2, n]) + S2[-3, 2, n] + S2[2, n]*S2[-2, 1, n] + 
        S2[-2, n]*(S2[3, n] - S2[2, 1, n]) - S2[3, -2, n] + 
        S2[2, 1, -2, n]) - 24*S2[3, -1, 1, n] + 72*S2[-2, 1, 1, 1, n] - 
      72*S2[2, -1, 1, 1, n] - 96*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        (S2[-1, n]*(S2[1, n]^4 + 6*S2[1, n]^2*S2[2, n] + 15*S2[2, n]^2 + 
           8*S2[1, n]*S2[3, n] + 18*S2[4, n]))/24 + S2[-4, 1, n] - 
        (S2[1, n]^3*S2[1, -1, n])/6 - (S2[1, n]*S2[2, n]*S2[1, -1, n])/2 - 
        (S2[3, n]*S2[1, -1, n])/3 - S2[2, n]*S2[2, -1, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[4, -1, n] - S2[-2, 2, 1, n] - 
        S2[-1, 2, 2, n] + (S2[1, n]^2*S2[1, 1, -1, n])/2 + 
        (S2[2, n]*S2[1, 1, -1, n])/2 - S2[2, 1, -2, n] + S2[-2, 1, 1, 1, n] - 
        S2[1, n]*S2[1, 1, 1, -1, n] - S2[2, -1, 1, 1, n] + 
        S2[1, 1, 1, 1, -1, n])))/24 + 4*S2[2, -1, 1, 1, 1, n] + 
   5*S2[-1, 1, 1, 1, 1, 1, n], S2[1, 1, 1, 1, 1, -1, n] -> 
  (15*S2[-6, n])/8 + S2[-5, n]*S2[1, n] + (S2[-4, n]*S2[1, n]^2)/2 + 
   (S2[-4, n]*S2[2, n])/2 + (S2[-1, n]*S2[1, n]*S2[2, n]^2)/2 + 
   S2[-3, n]*S2[3, n] + S2[-1, n]*S2[2, n]*S2[3, n] + 
   (S2[-1, n]*S2[1, n]*S2[4, n])/2 + (S2[-2, n]*(S2[2, n]^2 + S2[4, n]))/2 + 
   (S2[-2, n]*(S2[1, n]^4 + 3*S2[2, n]^2 + 6*S2[4, n]))/24 + 
   S2[-1, n]*S2[5, n] + (S2[-1, n]*(S2[1, n]^5 - 10*S2[1, n]^3*S2[2, n] + 
      20*S2[1, n]^2*S2[3, n] - 20*S2[2, n]*S2[3, n] + 24*S2[5, n]))/120 - 
   (7*(S2[-6, n] + S2[-5, n]*S2[1, n] - S2[-5, 1, n]))/8 - 
   (7*S2[-5, 1, n])/8 - S2[1, n]*S2[-4, 1, n] - S2[-3, 3, n] - 
   (S2[1, n]^3*S2[-2, 1, n])/6 - S2[3, n]*S2[-2, 1, n] + 
   ((-S2[1, n]^4 - 3*S2[2, n]^2)*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
      S2[1, -1, n]))/24 + (S2[4, n]*(S2[-2, n] + S2[-1, n]*S2[1, n] - 
      S2[1, -1, n]))/4 - (S2[2, n]^2*S2[1, -1, n])/2 - 
   (S2[4, n]*S2[1, -1, n])/2 - 
   (S2[1, n]^2*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]))/2 - 
   S2[2, n]*S2[2, -2, n] + (S2[1, n]^3*S2[2, -1, n])/6 - 
   S2[1, n]*S2[2, n]*S2[2, -1, n] - S2[3, n]*S2[2, -1, n] - 
   S2[2, n]*S2[3, -1, n] - S2[-2, n]*(S2[4, n] - S2[3, 1, n]) - 
   S2[-2, n]*S2[3, 1, n] + S2[4, -2, n] - S2[5, -1, n] + S2[-3, 1, 2, n] + 
   S2[-3, 2, 1, n] + (S2[1, n]^2*S2[-2, 1, 1, n])/2 - 
   S2[2, n]*S2[-2, 1, 1, n] + S2[-2, 2, 2, n] + 
   (S2[1, n]^3*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
      S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]))/6 + 
   (S2[3, n]*(80*S2[-2, 1, n] + 40*S2[2, -1, n] + 
      40*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n])))/120 + 
   S2[2, n]*S2[1, 2, -1, n] - 
   (S2[1, n]^2*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + S2[3, -1, n] - 
      S2[1, 2, -1, n] - S2[2, 1, -1, n]))/2 + S2[2, n]*S2[2, 1, -1, n] - 
   S2[3, -1, 2, n] - S2[4, -1, 1, n] - S2[-1, 1, 2, 2, n] - 
   S2[-1, 2, 1, 2, n] - S2[-1, 2, 2, 1, n] - 
   (S2[1, n]^2*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
      3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
        2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
        2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
          S2[2, 1, -1, n] + S2[1, 1, 1, -1, n]))))/12 + 
   (S2[2, n]*(30*S2[-2, n]*S2[1, n]^2 + 30*S2[1, n]^2*
       (S2[-2, n] + S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 
      60*(S2[-4, n] + S2[-2, n]*S2[2, n] - S2[2, -2, n]) + 
      60*S2[-2, 1, 1, n] + 60*(S2[2, -2, n] + S2[1, n]*S2[2, -1, n] + 
        S2[3, -1, n] - S2[1, 2, -1, n] - S2[2, 1, -1, n]) + 
      10*(S2[-1, n]*(S2[1, n]^3 + 3*S2[1, n]*S2[2, n] + 2*S2[3, n]) - 
        3*(S2[1, n]^2*S2[1, -1, n] + S2[2, n]*S2[1, -1, n] + 
          2*S2[1, n]*(S2[2, -1, n] - S2[1, 1, -1, n]) + 
          2*(S2[3, -1, n] - S2[-2, 1, 1, n] - S2[1, 2, -1, n] - 
            S2[2, 1, -1, n] + S2[1, 1, 1, -1, n])))))/120 + 
   S2[2, -2, 1, 1, n] + S2[-2, 1, 1, 1, 1, n] + 
   (S2[1, n]*(-135*S2[-5, n] + 15*S2[-1, n]*S2[2, n]^2 - 
      80*S2[-2, n]*S2[3, n] - 30*S2[-1, n]*S2[4, n] - 
      60*S2[2, n]*S2[-2, 1, n] - 40*S2[3, n]*(S2[-2, n] + 
        S2[-1, n]*S2[1, n] - S2[1, -1, n]) - 60*S2[2, n]*S2[2, -1, n] + 
      120*S2[3, -2, n] + 120*S2[-2, 2, 1, n] + 
      120*(-(S2[-1, n]*(S2[2, n]^2 + S2[4, n]))/2 - S2[-3, 2, n] + 
        S2[2, n]*S2[2, -1, n] + S2[4, -1, n] + S2[-1, 2, 2, n]) - 
      60*S2[2, n]*((S2[-1, n]*(S2[1, n]^2 + S2[2, n]))/2 + S2[-2, 1, n] - 
        S2[1, n]*S2[1, -1, n] - S2[2, -1, n] + S2[1, 1, -1, n]) + 
      120*(-(S2[-3, n]*S2[2, n]) + S2[-3, 2, n] + S2[2, n]*S2[-2, 1, n] + 
        S2[-2, n]*(S2[3, n] - S2[2, 1, n]) - S2[3, -2, n] + 
        S2[2, 1, -2, n]) - 120*S2[-2, 1, 1, 1, n] + 120*S2[2, -1, 1, 1, n] + 
      120*(S2[-5, n] + S2[-3, n]*S2[2, n] + 
        (S2[-1, n]*(S2[1, n]^4 + 6*S2[1, n]^2*S2[2, n] + 15*S2[2, n]^2 + 
           8*S2[1, n]*S2[3, n] + 18*S2[4, n]))/24 + S2[-4, 1, n] - 
        (S2[1, n]^3*S2[1, -1, n])/6 - (S2[1, n]*S2[2, n]*S2[1, -1, n])/2 - 
        (S2[3, n]*S2[1, -1, n])/3 - S2[2, n]*S2[2, -1, n] + 
        S2[-2, n]*S2[2, 1, n] - S2[4, -1, n] - S2[-2, 2, 1, n] - 
        S2[-1, 2, 2, n] + (S2[1, n]^2*S2[1, 1, -1, n])/2 + 
        (S2[2, n]*S2[1, 1, -1, n])/2 - S2[2, 1, -2, n] + S2[-2, 1, 1, 1, n] - 
        S2[1, n]*S2[1, 1, 1, -1, n] - S2[2, -1, 1, 1, n] + 
        S2[1, 1, 1, 1, -1, n])))/120 - 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, n]^3*S2[3, n])/18 + (S2[1, n]^6 + 45*S2[1, n]^2*S2[2, n]^2 + 
     15*S2[2, n]^3 + 40*S2[3, n]^2)/720 + (S2[1, n]^2*S2[4, n])/8 + 
   (S2[2, n]*(S2[1, n]^4 + 6*S2[4, n]))/48 + 
   (S2[1, n]*(5*S2[2, n]*S2[3, n] + 6*S2[5, n]))/30 + S2[6, n]/6}
