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 |
}



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

    \repeat unfold 2 \keysSoloUpper
  }

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

    \repeat unfold 2 \keysSoloLower
  }
>>