Question about expand.



Hi there!
Somebody can explain why the following expresion is not fully 
expanded with: expand(r2);? I am using Maxima 5.23.2
(%i1)  r2:(r((r((r*(A+B*exp(%i*phi[0]))+t*C)*exp(-2*s*l)*exp(%i*phi[l])+B*exp(%i*phi[0])*exp(%i*phi[l]))+t*C*exp(%i*phi[l]))*exp(-2*s*l)*exp(%i*phi[l])+B*exp(%i*phi[0])*exp(2*%i*phi[l]))+t*C*exp(2*%i*phi[l]))*exp(-2*s*l)*exp(%i*phi[l])+B*exp(%i*phi[0])*exp(3*%i*phi[l]);
         %i phi  - 2 l s      %i phi  - 2 l s
               l                    l
(%o1) %e                (r(%e
       %i phi  - 2 l s             %i phi              %i phi  + %i phi
             l                           0                   l         0
  (r(%e                (t C + r (%e        B + A)) + %e                  B)
      %i phi           2 %i phi  + %i phi         2 %i phi
            l                  l         0                l
  + %e        t C) + %e                    B) + %e          t C)
      3 %i phi  + %i phi
              l         0
  + %e                    B
(%i2) expand(r2);
         %i phi  - 2 l s     %i phi  - 2 l s
               l                   l
(%o2) %e                r(%e
      %i phi  - 2 l s           - 2 l s + %i phi  + %i phi
            l                                   l         0
  r(%e                t C + r %e                            B
      %i phi  + %i phi          %i phi  - 2 l s        2 %i phi  - 2 l s
            l         0               l                        l
  + %e                  B + r %e                A) + %e                  t 
C
      2 %i phi  + %i phi         3 %i phi  - 2 l s         3 %i phi  + %i 
phi
              l         0                l                         l 
0
  + %e                    B) + %e                  t C + %e 
B

Thanks.