(let* ((new-method (-> bfloat method-table 0))
       (print-method (-> bfloat method-table 2))
       (my-float (the bfloat (new-method '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