(define format _format)
(format #t "~,,2f~%" (fmin 1.0 2.0 -1.2 3.7 2.2))