(define-module (remove)
  #:use-module (oop goops)
  #:use-module (srfi srfi-1)
  #:duplicates (merge-generics)
  #:export (<cls>
	    remove!))

(define-class <cls> ())

(define-method (remove! (self <cls>))
  (format #t "<class>: remove!\n"))