(define format _format)

(format #t "~A~A~%" (eq? (-> process method-table 2) (method process print))
                    (eq? (-> string method-table 3) (method "test" inspect))
                    )
0