(exp . x)' = (exp . x) * x' (sin . x)' = (cos . x) * x' (cos . x)' = - (sin . x) * x'
equalTrunc 500 PSE.expExpl (PS.exp (\0 -> 1) [0,1])
equalTrunc 100 (1:1:repeat 0) (PS.exp (\0 -> 1) PSE.log)
checkHoles 30 (PS.exp (\0 -> 1)) 0
equalTrunc 500 PSE.expExpl PSE.expODE
equalTrunc 500 PSE.atanExpl PSE.atanODE
equalTrunc 500 PSE.atanhExpl PSE.atanhODE