hgfred amusement



(%i2) hgfred([1/2,1],[3/2],x^2);
Is  x  zero or nonzero?zero;
(%o2) atanh(x)/x

(%i3) hgfred([1/2,1],[3/2],x^2);
Is  x  zero or nonzero?nonzero;
(%o3) log((x+1)/(1-x))/(2*x)


Barton