Original test:
(lambda ((a default) (b default)) #:name "Bouland and Aaronson, Equation (25)" (- (+ (sqr (+ (sqr a) (sqr b))) (* 4 (+ (* (sqr a) (+ 1 a)) (* (sqr b) (- 1 (* 3 a)))))) 1))