global = { \key d \major \time 4/4 }
sopranoMusic = \relative c' {
  \clef "treble"
  r4 d2 a4
}

altoMusic = \relative c' {
  \clef "treble"
  r4 a2 a4
}

tenorMusic = \relative c' {
  \clef "treble"
  r4 fis2 e4
}

bassMusic = \relative c' {
  \clef "bass"
  r4 d2 cis4
}


upper = \relative c' {
  \clef "treble"
  \global
  r4 <a d fis>2 <a e' a>4
}
lower = \relative c, {
  \clef "bass"
  \global
  <d d'>4 <d d'>2 <cis cis'>4
}

verseI = \lyricmode {
  \set stanza = #"1."
  first verse
}

verseII = \lyricmode {
  \set stanza = #"2."
  second verse.
}

verseIII = \lyricmode {
  \set stanza = #"3."
  third verse
}

verseIV = \lyricmode {
  \set stanza = #"4."
  fourth verse
}

theChords = \chordmode {
   d2. a4
}

\score {
  <<
    \new ChoirStaff <<
      
      \context ChordNames { \theChords }
      
      \new Staff = "sopranos" <<
        \set Staff.instrumentName = #"Soprano"
        \new Voice = "sopranos" { \global \sopranoMusic }
      >>
      
      \new Lyrics = "lyricsI" {
        \lyricsto "sopranos" \verseI
      }
      \new Lyrics = "lyricsII" {
        \lyricsto "sopranos" \verseII
      }
      \new Lyrics = "lyricsIII" {
        \lyricsto "sopranos" \verseIII
      }
      \new Lyrics = "lyricsIV" {
        \lyricsto "sopranos" \verseIV
      }
      
      \new Staff = "altos" <<
        \set Staff.instrumentName = #"Alto"
        \new Voice = "altos" { \global \altoMusic }
      >>
      \new Lyrics \lyricsto "altos" { \altoWords }
      \new Staff = "tenors" <<
        \set Staff.instrumentName = #"Tenor"
        \new Voice = "tenors" { \global \tenorMusic }
      >>
      \new Lyrics \lyricsto "tenors" { \tenorWords }
      \new Staff = "basses" <<
        \set Staff.instrumentName = #"Bass"
        \new Voice = "basses" { \global \bassMusic }
      >>
      \new Lyrics \lyricsto "basses" { \bassWords }
    >>

    \new PianoStaff <<
      \set PianoStaff.instrumentName = #"Piano  "
      \new Staff = "upper" \upper
      \new Staff = "lower" \lower
    >>
  >>
}