rm
Original test:
(lambda ((r default) (a default) (b default)) #:name "r*sin(b)/cos(a+b), B" (* r (/ (sin b) (cos (+ a b)))))