equalTrunc 500 PSE.atan (PS.atan (\0 -> 0) [0,1])
equalTrunc 50 (0:1:repeat 0) (PS.atan (\0 -> 0) PSE.tan)
checkHoles 20 (PS.atan (\0 -> 0)) 0