showSimpleRest =
#(define-scheme-function (parser location dots) (string?)
   (make-override-markup (cons 'baseline-skip 7)
                         (make-column-markup
                           (map
                             (lambda (style)
                                     (make-line-markup
                                       (list
                                         (make-pad-to-box-markup
                                           '(0 . 20) '(0 . 0)
                                            (symbol->string style))
                                         (make-override-markup
                                           (cons 'line-width 60)
                                           (make-override-markup
                                             (cons 'style style)
                                             (make-fill-line-markup
                                               (map
                                                 (lambda (duration)
                                                         (make-rest-markup
                                                           (if (string? duration)
                                                               duration
                                                               (string-append
                                                                 (number->string (expt 2 duration))
                                                                 (if (>= duration 0) dots "")))))
                                                 (append '("maxima" "longa" "breve")(iota 8)))))))))
                             '(default
                               mensural
                               neomensural
                               classical
                               baroque
                               altdefault
                               petrucci
                               blackpetrucci
                               semipetrucci
                               kievan)))))