Program (original) (raw)

1> (define a (new-instance x))

2> (define b (new-instance y))

3> (send 'res a) 1

4> (send 'res b) 2