(define format _format)

(defun float-testing-function ((x float) (y float))
  (* x y (* x x))
  )

(let ((x (float-testing-function (* 1.2 1.2) 3.4)))
  (format #t "~,,3f~%" x)
  )
0