\version"2.20.0"

tire = #(define-music-function
(parser location button)
(string?)
(make-music
'TextScriptEvent
'direction 0
'text ( markup #:underline #:with-color darkgreen button)
))

pousse = #(define-music-function
(parser location button)
(string?)
(make-music
'TextScriptEvent
'direction 0
'text ( markup #:with-color darkgreen button)
))

{ c'_\pousse"1"
d'_\tire"2"
e'_\pousse"3"
f'_\tire"3"
g'_\pousse"4"
}