\version "2.6.3"

theNotes = \relative c' {
  \key d \aeolian
  \cadenzaOn
  d4 e f g a bes cis d 
  c bes a g f ees d
  \bar "|"
  <d f a>2 <g bes d> <a cis e>
  \bar "||"
%  \cadenzaOff
}

text = \lyricmode {
  "1" "2" "3" "4" "5" "6" "7" "8" _ _ _ _ _ _ _ I IV V
}

modeOnD = << \context Voice = "notes" { \theNotes }
	     \lyricsto "notes" \context Lyrics = "text" { \text }
	   >>

theMusic = \context Staff = "Mode" \with { \remove "Time_signature_engraver" } {
  \transpose d d { \modeOnD }
  \break
  \transpose d c { \modeOnD }
}

\score {
  \theMusic
  \layout {}
}