Original test:
(lambda ((x default)) #:name "NMSE example 3.9" (- (/ 1 x) (cotan x)) #:target (if (< (fabs x) 0.026) (* (/ x 3) (+ 1 (/ (sqr x) 15))) (- (/ 1 x) (cotan x))))