From: edgar@math.ohio-state.edu.invalid   
      
   Maple   
      
   > E1:= -(1/8)*(-csgn(1+a)*((-a)^(1/2)-(-a)^(3/2))*(-(a-1)^2/a)^(1/2)   
   +4*(-a)^(1/2)*arcsin((1/2)*csgn(1+a)*(1+a)/a^(1/2))*   
   a^(1/2)+a^2-2*ln(-a)*a+1)*Pi/a:   
      
   > convert(E1,ln):simplify(%) assuming a<-1;   
      
   (1/4)*(2*ln(-a)*a-1)*Pi/a   
      
   --   
   G. A. Edgar                              http://www.math.ohio-state.edu/~edgar/   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)