keyboardIntroUpper = \relative c' {
  <cis e g>8 ~ <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
  r <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r

  <cis e g>8 ~
  <cis e g>8 ~ <cis e gis>-.
  r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
  r <cis e gis>-. r <cis e gis>-.

  <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
  <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
}

keyboardIntroLower = \relative c {
  cis4-. gis-. cis-. gis-.
  cis-. gis-. cis-. r8 cis ~
  cis4 gis-. cis-. gis-.
  cis-. gis-.
  dis8 r r d ~ d2 |
  dis8 r r d ~ d2 |
}

keysIntroEndUpper = \relative c' {
  r8 <cis e gis>-. r <cis e gis>-. |
  r  <cis e gis>-. r <cis e gis>-. |
  r  <cis e gis>-. r <cis e gis>-. |
  r  <cis e gis>-. r <cis e gis>-. |
}

keysIntroEndLower = \relative c {
  cis4-. gis-. | cis-. gis-. |
  cis-.  gis-. | cis-. gis-. |
}

keysSoloUpper = \relative c' {
  \time 2/4
  r8 <cis e gis>-. r <cis e gis>-. |
  r  <cis e gis>-. r <cis e gis>-. |
  r  <cis e gis>-. r <cis e gis>-. |
  \time 3/4
  r  <cis e gis>-. r r <cis e gis>-. r |
  \time 2/4
  r8 <c e a>-. r <c e a>-. |
  r  <c e a>-. r <c e a>-. |
  r  <c e a>-. r <c e a>-. |
  r  <c e a>-. r  r        |
  <c e a>-. r r <c e a>-.  |
}

keysSoloLower = \relative c {
  \time 2/4
  cis4-. gis-. | cis-. gis-. |
  cis-.  gis-. |
  \time 3/4
  cis8 r gis gis r gis |
  \time 2/4
  a4-. e-. | a-. e-. | a-. e-. |
  a-. c8 b | r f f r |
}

keysSpookyUpper = \relative c' {
  \time 2/4
  <cis fis a>2 ~ | <cis fis a> ~ | <cis fis a> ~ |
  \time 3/4
  <cis fis a>2.  |
  \time 2/4
  <d f a>2 ~ | <d f a> ~ |
  <d f a> ~  | <d f a> ~ |
  <d f a>    |
}

keysSpookyLower = \relative c {
  \time 2/4
  fis2 ~ | fis ~ | fis ~ |
  \time 3/4
  fis2.  |
  \time 2/4
  d2 ~ | d ~ | d ~ | d ~ | d |
}

keysHalfUpper = \relative c' {
  \time 2/4
  r4 <d fis b>8-. r |
  r4 <d fis b>8-. r |
  r4 <d fis b>8-. r |
  \time 3/4
  r4 <d fis b>8-. r <d fis b>-. r |
  \time 2/4
  r4 <d g bes>8-. r |
  r4 <d g bes>8-. r |
  r4 <d g bes>8-. r |
  r4 <d g bes>8-. r |
  r4 <d g bes>8-. r |
}

keysHalfLower = \relative c {
  \time 2/4
  b4. r8 | b4. r8 | b4. r8 |
  \time 3/4
  b4-. r r |
  \time 2/4
  g-. r | g-. r | g-. r |
  g-. r | g-. r8 g-. |
}

keysWeirdUpper = \relative c' {
  \repeat volta 2 {
    \time 5/4 { <d g b>8 r <d g b> r <d g b> r <d g b> r <d g b> r |}
    \time 9/8 { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
  } \alternative {
    { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
    { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
  }
}

keysWeirdLower = \relative c {
  \repeat volta 2 {
    \time 5/4 { g8 r g r g r g r g r |}
    \time 9/8 { b8 r b r b r b r b | }
  } \alternative {
    { b8 r b r b r b r b |}
    { b8 r b r b r b r b |}
  }
}

keysDanceUpper = \relative c' {
  \time 5/4 { <d g b>4 r2 r2 | <d fis b>4 r2 r2 | }
  \time 3/4 { <d g b>2. | <e ais fis>4 ~ <d ais' fis>4 r4 | }
}

keysDanceLower = \relative c {
  \time 5/4 { d4 r2 r2 | d4 r2 r2 | }
  \time 3/4 { e2. | e4 d4 r4 | }
}

keysBeautyUpper = \relative c' {
  \repeat unfold 3 {
    \time 4/4 { r1  |}
    \time 3/4 { r2. |}
  }

  \time 4/4
  b'4.-> a a8-> g8 ~ |
  \time 6/8
  g4. r8 g8 fis |
  \time 9/8
  e2 r4 d8 r cis |

  \repeat volta 2 {
    \time 7/8 { r8*7 |}
    \time 3/4 { r2.  |}

    \repeat unfold 2 {
      \time 4/4 { r1  |}
      \time 3/4 { r2. |}
    }
    \time 4/4
    b'4.-> a a8-> g8 ~ |
  } \alternative {
    { \time 6/8 g4. r8 g8 fis |
      \time 9/8 e2 r4 d8 r cis |}
    { \time 6/8 g'4. r8 g8 fis |}
  }
}

keysBeautyLower = \relative c {
  \repeat unfold 3 {
    \time 4/4 { b1 | }
    \time 3/4 { d4. cis | }
  }
  \time 4/4 { R1 |}
  \time 6/8 R8*6 |
  \time 9/8 R8*9 |

  \repeat volta 2 {
    \time 7/8 { b8*7 | }
    \time 3/4 { d4. cis | }

    \repeat unfold 2 {
      \time 4/4 { b1 | }
      \time 3/4 { d4. cis | }
    }
    \time 4/4 { R1 |}
  } \alternative {
    { \time 6/8 R8*6 |
      \time 9/8 R8*9 | }
    { \time 6/8 { R8*6 |} }
  }
}

keyboard = \new PianoStaff <<
  \set PianoStaff.midiInstrument = #"reed organ"
  \new Staff \relative c'  {
    \time 2/4
    \key cis \minor
    R2 | r4 r8 <cis e g> ~ |
    \repeat volta 2 \keyboardIntroUpper
    \alternative {
      { r2   | }
      { \keysIntroEndUpper }
    }

    %% Stick solo
    \repeat unfold 2 \keysSoloUpper

    %% Spooky!
    \key fis \minor
    \set PianoStaff.midiInstrument = #"choir aahs"
    \repeat volta 2 \keysSpookyUpper

    %% Half time feel
    \key b \minor
    \repeat volta 2 {
      \set PianoStaff.midiInstrument = #"reed organ"
      \repeat volta 2 \keysHalfUpper
      \keysWeirdUpper
      \keysDanceUpper
    }

    %% Beauty
    \set PianoStaff.midiInstrument = #"string ensemble 1"
    \keysBeautyUpper
  }

  \new Staff \relative c {
    \clef bass
    \key cis \minor
    r2 | r2 |
    \repeat volta 2 \keyboardIntroLower
    \alternative {
      { r2   | }
      { \keysIntroEndLower }
    }

    \repeat unfold 2 \keysSoloLower

    %% Spooky!
    \key fis \minor
    \repeat volta 2 \keysSpookyLower

    %% Half time feel
    \key b \minor
    \repeat volta 2 {
      \repeat volta 2 \keysHalfLower
      \keysWeirdLower
      \keysDanceLower
    }

    %% Beauty
    \keysBeautyLower
  }
>>