(define-class (counter)
  (class-vars (class-count 0))
  (instance-vars (instance-count 0))
  (method (increase)
	  (set! class-count (+ 1 class-count))
	  (set! instance-count (+ 1 instance-count))))

(define c1 (instantiate counter))
(define c2 (instantiate counter))