(define format _format)

; no longer use process as a test type here because it's no longer built-in so is
; only forward declared at this point.
(format #t "~A~A~%" (eq? (-> type method-table 2) (method-of-type type print))
                    (eq? (-> string method-table 3) (method-of-object "test" inspect))
                    )
0