(define (make-object superobject)
  (let ((x 0))
    (define (fib n)
      (if (< n 1) 1
      (+ (fib (1- n))
         (fib (- n 2)))))
    (define (set-value! n)
      (set! x (fib n)))
    (λ (msg)
      (cond ((eq? msg 'get) x)
        ((eq? msg 'set!) set-value!)
        (#t (superobject msg))))))