\version "2.15.39"
#(define-markup-command (plusDeux layout props argu) (markup?)
	(interpret-markup layout props (markup #:line (#:hspace 6 argu))))


#(define-markup-command (couplet layout props verses) (markup-list?)
   #:properties ((couplet-index 2))
   (interpret-markup
      layout props
      #{ \markup\line { \bold #(format #f "~a. " couplet-index)
                        \column $verses } #}))

#(define-markup-command (couplets layout props couplets) (markup-list?)
   #:properties ((column-number 2)
                 (first-couplet-index 2)
                 (couplet-horiz-space 4)
                 (couplet-vert-space 1)
                 (word-space 1))
   (let ((columns
          (let ((columns-vector (make-vector column-number '()))
                (col-index 0)
                (couplet-index 0))
            (for-each (lambda (couplet)
                        (vector-set!
                         columns-vector col-index
                         (cons (markup #:vspace couplet-vert-space)
                               (cons (markup
                                      #:override `(word-space . ,word-space)
                                      #:override `(couplet-index
                                                   . ,(+ couplet-index
                                                         first-couplet-index))
                                      couplet)
                                     (vector-ref columns-vector col-index))))
                        (set! couplet-index (1+ couplet-index))
                        (set! col-index
                              (modulo (1+ col-index) column-number)))
                      couplets)
            (map (lambda (column)
                   (make-column-markup (reverse! column)))
                 (vector->list columns-vector)))))
     (interpret-markup
      layout props
      #{\markup
        \override #'(font-size . 1)
        \override #'(font-name . "Adobe Caslon Pro")
        \fill-line {
          \override #`(word-space . ,couplet-horiz-space)
          \line $columns
        }
      #})))

\markup\couplets {
  \couplet {
    "Le premier de ces larrons"
    "Voyait au feu des marrons."
    "Comment les avoir ? par où ?"
    \plusDeux { "Nous vous les aurons," }
    \plusDeux { "Dit l’autre filou." }
    "Comment les avoir ? par où ?"
    "Le voici, dit le matou."
  }
  \couplet {
    "Il écarte avec les doigts"
    "Cendre et charbons à la fois,"
    "Et chataignes de voler,"
    \plusDeux { "Là deux, ici trois" }
    \plusDeux { "On les voit rouler." }
    "Et chataignes de voler,"
    "Et le singe d’emballer."
  }
  \couplet {
    "Mais sans se brûler un peu,"
    "Peut-on manier du feu ?"
    "Maître Chat de temps en temps"
    \plusDeux { "Souffrait de ce jeu" }
    \plusDeux { "Et grinçait les dents," }
    "Maître chat de temps en temps"
    "Poussait quelques cris perçants."
  }
  \couplet {
    "À ce bruit le marmiton"
    "Accourt avec un bâton."
    "Le vol fut pour le magot"
    \plusDeux { "Qui laissant Raton" }
    \plusDeux { "S’enfuit au plus tôt," }
    "Le vol fut pour le magot,"
    "Et Raton paya l’écot."
  }
}