#(define-markup-command (column-right-up layout props args) (markup-list?)
  #:properties ((baseline-skip))
  (let* ((lines (wordwrap-internal-markup-list layout props #f args))
         (right-aligned-lines
           (map (lambda (stil) (ly:stencil-aligned-to stil X RIGHT)) lines)))
    (stack-lines
      UP
      0.0
      baseline-skip
      (reverse right-aligned-lines))))

#(define-markup-command (number-fromproperty layout props digits symbol)
   (index? symbol?)
   (let ((n (chain-assoc-get symbol props)))
     (if (index? n)
         (interpret-markup
          layout props
          (number->string n))
         empty-stencil)))

#(define-markup-command (wordwrap-right-field layout props symbol)
   (symbol?)
   (let* ((m (chain-assoc-get symbol props)))
     (if (markup-list? m)
         (column-right-up-markup layout props m)
         empty-stencil)))