Original test:
(lambda ((x default) (y default) (z default) (t default)) #:name "Graphics.Rendering.Chart.Backend.Diagrams:calcFontMetrics from Chart-diagrams-1.5.1" (* x (/ (* (/ y z) t) t)))