(define format _format)

(defun float-testing-function-2 ((x float) (y float))
  (format #t "i ~f ~f~%" x y)
  (let ((result (* x y (* x x))))
    (format #t "r ~f~%" result)
    result
    )
  )

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