kill(all)$ load(ntrig)$ load(atrig1)$

van=facebook.com/LearningCaculus$

f(x):= x^2/(x^4 + 1);

S:''(logcontract(radcan(integrate(f(x),x))));

trigexpand(S);

factor(%)+C;

substitute(arctan,atan,%);