(car (extract-named-music chord 'EventChord))))
(hash-key (cons tuning pitches))
(verbose-definition (if (string? diagram-definition)
(car (extract-named-music chord 'EventChord))))
(hash-key (cons tuning pitches))
(verbose-definition (if (string? diagram-definition)