(define <test> (send Object :copy))
(send <test> :rename "Test Object")
(send <test> :answer :setup () (send self :set 'value 0))
(send <test> :answer :setval (x) (send self :set 'value x))
(send <test> :answer :test ()
      (display
       (format #f "Value: ~A\n" (send self :get 'value))))


(define v1 (send <test> :instance))
(send v1 :setval (* 5 5))
(send v1 :test)

Output:
#;13> ; loading /home/nicola/src/Scheme/obj/test.scm ...
Value: 25
#;14>