(let* ((print-method (method bfloat print))
       (my-float (new 'global 'bfloat))
       )
  (set! (-> my-float data) 1.23456)
  (print-method my-float)
  (format #t "~%")
  )

#|
(let ((x 0))
  (while (< x 9)
         (format #t "method ~d of ~A is ~A~%" x bfloat (-> bfloat method-table x))
         (+1! x)
         )
  )
|#
  0