(define format _format)

(define hack-bfloat (new 'global 'bfloat))

(set! (-> hack-bfloat type) bfloat)
(set! (-> hack-bfloat data) 1.233)

(format #t "data ~f print ~A type ~A~%" (-> hack-bfloat data) hack-bfloat (-> hack-bfloat type))
0