(define (get-method object message)
(object message))
(define method? procedure?)
(define (send object message . args)
(let ((method (get-method object message)))
(if (method? method)
(apply method (cons object args))
(error "No method" message))))