\version "2.2.0"
\header {
  title = "I Heard the Bells on Christmas Day"
  subtitle = "(set to J S Bach's `Sheep May Safely Graze')"
  subsubtitle = "---"
  poet = "H W Longfellow"
  composer = "J S Bach"
  arranger = "Adapted by C R Gibbons"
  tagline = "Engraved using GNU LilyPond 2.2.5"
}

melody = \notes \relative c' {
  \clef "G_8"
  \key bes \major
  \override Staff.TimeSignature #'style = #'() \time 4/4
  \tempo 4 = 66
  r1 | r1 |
  \break
  r1 | r1 |
  \break

  % bar 5
  % first and second verses
  \repeat volta 2 {
    bes4 d8 c c4. d8 |
    ees4 g8[( f]) d4 c8[( bes]) |
    d[( bes]) a[( g]) c4. d8 |
    % \break
    a4( g8) f f2 |
    f4 aes8 g g4. a8 |
    bes4 d8[( c]) a4 g8[( f]) |
    % \break
    f'4 g8[( f]) f[( d]) c[( bes]) |
    f'4 g8[( f]) f[( d c bes]) |
    ees4. f8 d[( c bes]) c |
  }
  % \break
  \alternative {
    {
      \time 2/4 a4. bes8 |
      \time 4/4 bes2 r2 | r1 |
      r1 |
      % \break
      r1 |
    }
    {
      a4. bes8 bes2 |
    }
  }

  r2 g'8[( ees d]) c |
  % \break
  f4. g8 d4( c8) bes |
  bes2 r2 |
  r1 |
  % \break
  r1 | r1 |

  % third verse - the angst starts here
  d4 g4 fis4. g8 |
  % \break
  ees4 d4 bes4 a8[( g]) |
  c4 d8[( b]) c4. d8 |
  ees4 f8[( d]) ees4 g8[( f]) |
  % \break
  g4 aes b, c8[( d]) |
  \time 2/4 ees4( d8) c |
  \time 4/4 c2 r2 | r1 |
  % \break
  r1 | r1 |

  % fourth verse
  g4 bes8 a bes4. d8 |
  % \break
  c4( bes8)  a16[( bes]) a4 g8[( f]) |
  f'4( e8) d8 d4. f8 |
  e8[( f16 g16 e8]) d cis4 b8[( a]) |
  % \break
  c2.( bes8) c16[( a]) |
  bes2( ~ [bes8 a]) a4 |
  ees'2.( d8) f16[( e]) |
  % \break
  f2( ~ [f8 e d]) e |
  e4( d8) c bes4 a8 bes16[( g]) |
  \time 2/4 c16[( bes a bes]) c[( bes c d])
  % \break
  \time 4/4 a4( g8) f f4 r4 |

  % fifth verse - same meoldy as the second verse
  bes4 d8 c c4. d8 |
  ees4 g8[( f]) d4 c8[( bes]) |
  % \break
  d[( bes]) a[( g]) c4. d8 |
  a4( g8) f f2 |
  f4 aes8 g g4. a8 |
  % \break
  bes4 d8[( c]) a4 g8[( f]) |
  f'4 g8[( f]) f[( d]) c[( bes]) |
  f'4 g8[( f]) f[( d c bes]) |
  % \break
  ees4. f8 d[( c bes]) c |
  a4. bes8 bes2 |
  r2 g'8[( ees d]) c |
  % \break
  f4. g8 d4( c8) bes |
  bes2 r2 | r1 |
  % \break
  r1 |
  r1 |
  r1 |

  \bar "|."
}

text = \lyrics {
  % bar 5
  % first and second verses
  \repeat fold 2 { }
  \alternative {
    {
      I heard the bells on | Christ -- mas day Their |
      old fa -- mil -- iar | car -- ols play, |
      And mild and sweet the | words re -- peat, Of |
      peace on earth, good -- | will to men. |
      Peace on earth, good -- | \time 2/4 will to | \time 4/4 men. |
    }
    {
      I thought how as the | day had come, The |
      bel -- fries of all | Christ -- en -- dom |
      Had roll'd a -- long th'un -- | bro -- ken song Of |
      peace on earth, good -- | will to men. |
      Peace on earth, good -- | " " " " | " " |
      will to men.
    }
  }
  Peace on | earth, good -- will to | men. |

  % third verse - the angst starts here
  In de -- spair I | bow'd my head; ``There |
  is no peace on | earth,'' I said. ``For |
  hate is srong, and | mocks the | song.''

  % fourth verse
  Then peal'd the bells more | loud and deep: ``God |
  is not dead, nor | doth he sleep; The |
  wrong shall | fail, the |
  right pre -- | vail with |
  Peace on earth, peace on | earth good -- | will to men.''

  % fifth verse - same meoldy as the second verse
  'Til ring -- ing, sing -- ing | on its way, The |
  world re -- volved from | night to day. |
  A voice, a chime, a | chant sub -- lime Of |
  peace on earth, good -- | will to men. |
  Peace on earth, good -- | will to men.
  Peace on | earth, good -- will to | men.
}

pianoTrebleA = \notes \relative c' {
  \clef "G"
  \key bes \major
  \override Staff.TimeSignature #'style = #'() \time 4/4

  <d' f>8 <d f>16 <bes d> <d f>8 <d f>16 <bes d>
    <d f>8 <ees g> <ees g> <g bes> |
  <c, ees> <c ees>16 <a c> <c ees>8 <c ees>16 <a c>
    <c ees>8 <ees a> <c a'> <ees c'> |
  \stemUp bes'8. c32 d bes16 d c f,
    bes8. c32 d bes16 d c a |
  bes8 d32 ees f16 d bes c a
    bes8 d32 ees f16 d bes c a |

  % bar 5
  % first and second verses
  \repeat volta 2 {
    \stemBoth
    \autoBeamOff
    <d, bes'>8
    \autoBeamOn
    bes <f bes> <f a>
      <ees g> <ees g> <f a> <f bes> |
    <f c'> <f c'> <ees c'> <ees c'> <f bes> <f bes> <d bes'> <d bes'> |
    <g bes> <g bes> <f bes> <f bes> <e g> <e g> <f a> <g bes> |
    <f a> <f a> <e g bes> <e g bes> <f a c> <f a c> <f a c> <f a c> |
    <d' f>8 <d f>16 <bes d> <d f>8 <d f>16 <bes d>
      <d f>8 <ees g> <ees g> <g bes> |
    <c, ees> <c ees>16 <a c> <c ees>8 <c ees>16 <a c>
      <c ees>8 <ees a> <c a'> <ees c'> |
    \stemUp r8 bes'32 c d16 bes d c a bes8 r8 r4 |
    r8 bes32 c d16 bes d c a bes8 r8 r4 |
    \stemBoth <bes,, g'>8 <bes g'> <a f'> <c f a>
      <d f bes> <ees a> <f bes> <g c> |
  }
  \alternative {
    {
      \time 2/4 <f a c> <f a c> <f a c> <f bes d> |
      \time 4/4 <d' f>8 <d f>16 <bes d> <d f>8 <d f>16 <bes d>
        <d f>8 <ees g> <ees g> <g bes> |
      <c, ees> <c ees>16 <a c> <c ees>8 <c ees>16 <a c>
        <c ees>8 <ees a> <c a'> <ees c'> |
      \stemUp bes'8. c32 d bes16 d c f,
        bes8. c32 d bes16 d c a |
      bes8 d32 ees f16 d bes c a
        bes8 d32 ees f16 d bes c a |
    }
    {
      <f, a c>8 <f a c> <f a c> <f bes d>
        <d' f>8 <d f>16 <bes d> <d f>8 <d f>16 <bes d> |
    }
  }
  <d f>8 <ees g> <ees g> <g bes>
    <c, ees> <c ees>16 <a c> <c ees>8 <c ees>16 <a c> |
  <c a'>8 <d bes'> <d bes'> <ees c'>
    \stemUp r8 d'32 ees f16 d bes f a |
  \stemBoth <d, bes'>8 <d f>16 <bes d> <d f>8 <d f>16 <bes d>
    <d f>8 <ees g> <ees g> <g bes> |
  <c, ees> <c ees>16 <a c> <c ees>8 <c ees>16 <a c>
    <c ees>8 <ees a> <c a'> <ees c'> |
  \stemUp bes'8. c32 d bes16 d c f,
    bes8. c32 d bes16 d c a |
  bes8 d32 ees f16 d bes c a
    bes8 d32 ees f16 d bes c a |

  % third verse - the angst starts here
  \stemBoth <d, bes'>8 <bes d> <g d'> <g d'>
    <a c d> <a c d> <d, a'> <d g bes> |
  <g a> <g a> <fis a> <fis a> <g bes> <g bes> <g b> <g b d> |
  <g c> <g c> <g b> <g d'> <g c> <g c> <g d'> <g d'> |
  <g c ees> <g c ees> <aes d> <aes d f> <g c ees> <g c ees> <b g'> <b f'> |
  <c ees g> <c g'> <aes c f> <aes c f> <g b d> <d g b> <c g'> <aes c f> |
  \time 2/4 <c ees g> <c ees g> <d f b> <f b> |
  \time 4/4 <ees' g> <ees g>16 <c ees> <ees g>8 <ees g>16 <c ees>
    <ees g>8 <f aes> <f aes> <aes c> |
  <d, f> <d f>16 <b d> <d f>8 <d f>16 <b d>
    <d f>8 <f b> <d b'> <f d'> |
  \stemUp c'8. d32 ees c16 ees d g, c8. d32 ees c16 ees d g, |
  c8 ees32 f g16 ees c d g, c8 ees32 f g16 ees c d b |

  \stemBoth
  \autoBeamOff
  <ees, c'>8
    \autoBeamOn
    <ees, g c> <ees g c> <ees g c>
    <d f bes> <d f bes> <d f bes> <d f bes> |
  <c g' bes> <c g' bes> <c g' bes> <c g' bes>
    <c f a> <c f a> <cis f a> <cis f a> |
  <f' a>8 <f a>16 <d f> <f a>8 <f a>16 <d f>
    <f a>8 <g bes> <g bes> <bes d> |
  <bes, g'> <bes g'>16 e <bes g'>8 <bes g'>16 e
    <e g>8 <g cis> <e cis'> <g e> |
  <ees a> <ees a>16 <c fis> <ees a>8 <ees a>16 <c fis>
    <fis a>8 <g bes> <g bes> <bes d> |
  <g c> <e g>16 <c e> <e g>8 <e g>16 <c e>
    <e g>8 <f a> <f a> <a c> |
  <a c> <a c>16 <f a> <a c>8 <a c>16 <f a>
    <a c>8 <bes d> <bes d> <bes d> |
  <b d> <b d>16 <g b> <b d>8 <b d>16 <g b>
    <d g>8 <c e> <c e> <e g> |
  <e g> <e g>16 <c e> <e g>8 <e g>16 <c e>
    <e bes'>8 <c g> <bes e> <g e'> |
  \time 2/4 <f c'>4 <d f> |
  \time 4/4 <f a> <bes, e g> <a c f>8 <c f a> <c f a> <ees f a c> |

  <d f bes> <d f bes> <d f bes> <f a> <c ees g> <c ees g> <c f a> <d f bes> |
  <ees f c'> <ees f c'> <ees f c'> <ees f c'>
    <d f bes> <d f bes> <d f bes> <d f bes> |
  <d g bes> <d g bes> <d g bes> <d g bes>
    <c e g> <c e g> <c f> <d g bes> |
  <c f a> <f a c> <e g bes> <e g bes>
    <c f a> <c f a> <f a c> <f a c> |
  <d' f>8 <d f>16 <bes d> <d f>8 <d f>16 <bes d>
    <d f>8 <ees g> <ees g> <g bes> |
  <c, ees> <c ees>16 <a c> <c ees>8 <c ees>16 <a c>
    <c ees>8 <ees a> <c a'> <ees c'> |
  \stemUp r8 bes'32 c d16 bes d c a bes8 r8 r4 |
  r8 bes32 c d16 bes d c a bes8 r8 r4 |
  \stemBoth <bes,, g'>8 <bes g'> <a f'> <c f a>
    <d f bes> <ees a> <f bes> <g c> |
  <f a c>8 <f a c> <f a c> <f bes d>
    <d' f>8 <d f>16 <bes d> <d f>8 <d f>16 <bes d> |
  <d f>8 <ees g> <ees g> <g bes>
    <c, ees> <c ees>16 <a c> <c ees>8 <c ees>16 <a c> |
  <c a'>8 <d bes'> <d bes'> <ees c'>
    \stemUp r8 d'32 ees f16 d bes f a |
  \stemBoth <d, bes'>8 <d f>16 <bes d> <d f>8 <d f>16 <bes d>
    <d f>8 <ees g> <ees g> <g bes> |
  <c, ees> <c ees>16 <a c> <c ees>8 <c ees>16 <a c>
    <c ees>8 <ees a> <c a'> <ees c'> |
  \stemUp bes'8. c32 d bes16 d c f,
    bes8. c32 d bes16 d c a |
  bes8 d32 ees f16 d bes c a
    bes8 d32 ees f16 d bes c a |
  <f bes>1 |

  \bar "|."
}

pianoTrebleB = \notes \relative c' {
  \clef "G"
  \key bes \major
  \override Staff.TimeSignature #'style = #'() \time 4/4

  s1 | s1 |
  \stemDown d'4 d8 ees d4 d8 ees16 f |
  g4 f8 f ees4 f8 ees |

  % bar 5
  % first and second verses
  \repeat volta 2 {
    s1 | s1 | s1 | s1 |
    s1 | s1 |
    s8 d8 d ees d s8 s4 |
    s8 d8 d ees d s8 s4 |
    s1 |
  }
  \alternative {
    {
      \time 2/4 s2 |
      \time 4/4 s1 | s1 |
      \stemDown d4 d8 ees d4 d8 ees16 f |
      g4 f8 f ees4 f8 ees |
    }
    {
      s1 |
    }
  }
  s1 | s2 s8 bes'8 bes ees, | s1 | s1 |
  \stemDown d4 d8 ees d4 d8 ees16 f |
  g4 f8 f ees4 f8 ees |

  % third verse - the angst starts here
  s1 | s1 | s1 | s1 | s1 |
  \time 2/4 s2 |
  \time 4/4 s1 | s1 |
  \stemDown ees4 ees16 g f d ees4 ees16 g f d |
  ees8 c'8 c16 ees, f g ees8 c'8 c16 ees, f d |

  s1 | s1 | s1 | s1 | s1 | s1 | s1 | s1 |
  s1 | \time 2/4 s2 | \time 4/4 s1 |

  s1 | s1 | s1 | s1 | s1 | s1 |
  s8 d8 d ees d s8 s4 |
  s8 d8 d ees d s8 s4 |
  s1 | s1 | s1 | s2 s8 bes'8 bes ees, | s1 | s1 |
  \stemDown d4 d8 ees d4 d8 ees16 f |
  g4 f8 f ees4 f8 ees |
  d1 |

  \bar "|."
}

pianoBass = \notes \relative c' {
  \clef "F"
  \key bes \major
  \override Staff.TimeSignature #'style = #'() \time 4/4

  \autoBeamOff
  <bes, bes'>4
    \clef "G"
    \autoBeamOn
    <bes' f'>
    <bes g'> <bes g'> |
  <bes ees> <bes ees>
    <bes a'> <bes a'> |
  \autoBeamOff
  <bes bes'>8
    \clef "F"
    \autoBeamOn
    bes bes <a c>
    <g d'> <g d'> <f bes> <f c'> |
  <ees d'> <ees d'> <f d'> <f c'>
    <g d'> f16 ees f8 f, |

  % bar 5
  % first and second verses
  \repeat volta 2 {
    bes4 bes bes bes |
    a a bes bes |
    bes bes bes a8 bes |
    c4 c f ees |
    <d bes'> <bes aes'> <ees bes'> <d bes'> |
    <c g'> <c bes'> <f c'> <ees c'> |
    <d bes'>8 <d bes'> <ees bes'> <ees bes'>
      <bes bes'> <bes bes'> <c a'> <c a'> |
    <d bes'>8 <d bes'> <ees bes'> <ees bes'>
      <bes bes'> <bes bes'> <d a'> <d bes'> |
    c4 f bes,8 c d ees |
  }
  \alternative {
    {
      \time 2/4 f4 f,4 |
      \time 4/4 bes <bes f'> <bes g'> <bes g'> |
      <bes a'> <bes a'> <bes a'> <bes a'> |
      <bes bes'>8 bes' bes <a c>
        <g d'> <g d'> <f bes> <f c'> |
      <ees d'> <ees d'> <f d'> <f c'>
        <g d'> f16 ees f8 f, |
    }
    {
      f'4 f,4 bes <bes f'> |
    }
  }
  <bes g'> <bes g'> <bes g'> <bes f'> |
  <bes f'>8 <bes f'> <ees bes'> <ees bes'> <f d'> f <f, f'> <f' a> |
  <bes, bes'>4 <bes f'> <bes g'> <bes g'> |
  <bes a'> <bes a'> <bes a'> <bes a'> |
  <bes bes'>8 bes' bes <a c>
    <g d'> <g d'> <f bes> <f c'> |
  <ees d'> <ees d'> <f d'> <f c'>
    <g d'> f16 ees f8 f, |

  % third verse - the angst starts here
  bes4 bes'4 a bes |
  c d g, f |
  ees d ees b |
  c b c d |
  ees f f ees8 f |
  \time 2/4 g4 g,4 |
  \time 4/4 c <c g'> <c aes'> <c aes'> |
  <d aes'> <d aes'> <d aes'> <d aes'> |
  <c g'>8 <c g'> <bes g'> <bes g'> <aes aes'> <aes aes'> <g g'> <g g'> |
  <f f'> <f f'> <g g'> <g g'> <aes ees'> <f f'> <g g'> <g d' g> |

  <c g'>4 c d d |
  e e f e |
  <d a'> <c a'> <bes f'> <a f'> |
  <g d'> <g d'> <a e'> <g e'> |
  <fis ees'> <d d'> g <f d'> |
  <e c'> <c c'> <f c'> <f c'> |
  <f f'> <f f'> <bes f'> <bes bes'> |
  <g g'> <g g'> <c g'> <c c'> |
  <bes g'> <a f'> <g g'> <g g'> |
  \time 2/4 <a a'> <bes bes'> |
  \time 4/4 <c c'>2 c8 c f f, |

  bes4 bes bes bes |
  a a bes bes |
  bes bes bes a8 bes |
  c4 c f ees |
  <d bes'> <bes aes'> <ees bes'> <d bes'> |
  <c g'> <c bes'> <f c'> <ees c'> |
  <d bes'>8 <d bes'> <ees bes'> <ees bes'>
    <bes bes'> <bes bes'> <c a'> <c a'> |
  <d bes'>8 <d bes'> <ees bes'> <ees bes'>
    <bes bes'> <bes bes'> <d a'> <d bes'> |
  c4 f bes,8 c d ees |
  f4 f,4 bes <bes f'> |
  <bes g'> <bes g'> <bes g'> <bes f'> |
  <bes f'>8 <bes f'> <ees bes'> <ees bes'> <f d'> f <f, f'> <f' a> |
  <bes, bes'>4 <bes f'> <bes g'> <bes g'> |
  <bes a'> <bes a'> <bes a'> <bes a'> |
  <bes bes'>8 bes' bes <a c>
    <g d'> <g d'> <f bes> <f c'> |
  <ees d'> <ees d'> <f d'> <f c'>
    <g d'> f16 ees f8 f, |
  <bes bes'>1 |

  \bar "|."
}

\score {
  <<
    \context Voice = melodyStaff {
        \autoBeamOff
        \set Staff.midiInstrument = "bassoon"
        \melody
        % \apply #unfold-repeats \melody
    }
    \lyricsto melodyStaff \new Lyrics \text

    \context PianoStaff <<
      \context Staff = pianoTrebleStaff <<
        \context Voice = pianoTrebleVoiceA {
          \pianoTrebleA
          % \apply #unfold-repeats \pianoTrebleA
        }
        \context Voice = pianoTrebleVoiceB {
          \pianoTrebleB
          % \apply #unfold-repeats \pianoTrebleB
        }
      >>
      \context Staff = pianoBassStaff {
        \pianoBass
        % \apply #unfold-repeats \pianoBass
      }
    >>
  >>
  \paper {
    papersize="letter"
    \tempo 4 = 66
    % \context { \RemoveEmptyStaffContext }
  }
  \midi {
    \tempo 4 = 66
  }
}