(define-module (use)
  #:use-module (oop goops)
  #:use-module (srfi srfi-1)
  ;;
  #:duplicates (merge-generics)
  #:export (<music-document>
))

(define-class <music> ())

(define (test-expr)
  (for-each display '()))

(define-class <music-document> ()
  (music #:init-form (test-expr) #:init-keyword #:music))