Tempo mark Scheme function

This is a Scheme function which prints a tempo mark such as Fast (♩ = 222)

\version "2.24.0"

%% http://lsr.di.unimi.it/LSR/Item?id=234

tempoMark =
  #(define-music-function (prependText notevalue appendText) (string? ly:duration? string?)
    #{
      \mark \markup
    { 	\line { $prependText " (" \fontsize #-2 \general-align #Y #DOWN \note #notevalue #1 $appendText ) } }
    #})

theMusic = {
  \once \override Score.RehearsalMark.self-alignment-X = #-1
  \time 4/4 \tempoMark "Fast" 4 "= 220-222" s1    
}

\score {
  \theMusic
}