(define hufnagel (get-group glyph-list "^.*hufnagel.*$"))
(define petrucci (get-group glyph-list "^.*petrucci.*$"))
(define solesmes (get-group glyph-list "^.*solesmes.*$"))
(define hufnagel (get-group glyph-list "^.*hufnagel.*$"))
(define petrucci (get-group glyph-list "^.*petrucci.*$"))
(define solesmes (get-group glyph-list "^.*solesmes.*$"))