rm
Original test:
(lambda ((x default) (y default)) #:name "Radioactive exchange between two surfaces" (- (pow x 4) (pow y 4)))