(define hufnagel (get-group glyph-list "^.*hufnagel.*$"))
(define petrucci (get-group glyph-list "^.*petrucci.*$"))
(define solesmes (get-group glyph-list "^.*solesmes.*$"))
+ (define kievan (get-group glyph-list "^.*kievan.*$"))
;; remove ancient-music groups from the glyph-list
(for-each
mensural
neomensural
petrucci
- solesmes))
+ solesmes
+ kievan))
;; define all remaining groups
(define numbers