keysIntro = {
  \repeat unfold 16 R1 |
}

keysA = \relative c' {
  \key cis \minor
  \time 2/4
  r4 r | <e gis>4 r8 <dis fis> | r <dis fis> r r |
  r4 r | <e gis>4 r8 <dis fis> |
  \time 6/8
  r <dis fis> r <e gis> r r|

  \time 2/4
  r4 r | <e gis>4 r8 <dis fis> | r <dis fis> r r |
  \time 4/4
  <cis e>4. <dis fis> <e gis>4 ~ | <e gis>8 <fis a>4. <e gis>4 <dis fis> |
}

keysAExtended = \relative c' {
  \time 4/4
  <cis e>4. <dis fis> <e gis>4 ~ | <e gis>8 <fis a>4. <e gis>4 <dis fis> |

  %% TODO: more intense!
  \repeat unfold 4 {
    <cis e>4. <dis fis> <e gis>4 ~ | <e gis>8 <fis a>4. <e gis>4 <dis fis> |
  }
}

keysATransition = {
  \time 4/4 R1 | R1 |
}

keysVerse = \relative c {
  \time 4/4
  \key cis \minor
  cis4\sustainOn gis' cis dis8 e ~ e2.. r8\sustainOff |
  <e, b' e fis gis>2.\arpeggio <dis b' cis dis>4\arpeggio ~ <dis b' cis dis>1 |
  cis4\sustainOn gis' cis dis8 e ~ e2.. r8\sustainOff |
  <e, b' e fis gis>2.\arpeggio <dis b' cis dis>4\arpeggio ~ <dis b' cis dis>1 |
  a,2 ~ a4. <a' e' b'>8 ~ <a e' b'>1 |
  a,4. <a' e' b'>4. b,4 ~ | b1 |
}

keysVerseVariant = \relative c' {
  \time 4/4
  \key bes \minor
  <bes des f>1 ~ | <bes des f> |
  <as des f>2. <as c es>4 ~ | <as c es>1 |
  <bes des f>1 ~ | <bes des f> |
  <as des f>2. <as c es>4 ~ | <as c es>1 |

  ges4 bes des <ges, bes des f>\arpeggio ~ | <ges bes des f>1 |
  <ges bes des>4. f'4. <as, c es>4 ~ | <as c es>1 |
}

%% TODO
keysVerseHarder = \keysVerse

keysNasty = \relative c' {
  \time 6/8
  \key cis \minor
  \repeat unfold 2 {
    <gis cis e>2. ~ | <gis cis e>2.   |
    <a bis dis>2.   | <a bis dis fis> |
    <gis cis e>   ~ | <gis cis e> ~   |
    <gis cis e>   ~ | <gis cis e>     |

    <gis cis e>2. ~ | <gis cis e>2.   |
    <a bis dis>2.   | <fis a bis dis> |
    <e gis cis>   ~ | <e gis cis> ~   |
    <e gis cis>   ~ | <e gis cis>     |
  }

  <gis cis e>2. ~ | <gis cis e>2.   |
  <a bis dis>2.   | <a bis dis fis> |
  <gis cis e>   ~ | <gis cis e> ~   |
  <gis cis e>   ~ | <gis cis e>     |

  <gis cis e>2. ~ | <gis cis e>     |
  <a bis dis>     | <a bis dis fis> |
  <gis cis e> ~   | <gis cis e>     |

  <g ais cis e> | <fis gis bis dis> |

  \key e \minor
  <fis g b e> ~ | <fis g b e> |
  <fis a c dis> |  <dis fis a c> |
  <e g b> ~ | <e g b> |
  <c dis fis a> |  <dis fis a c> |

  <e g b> ~ | <e g b> |
  <e g ais cis> | <a b dis> |

  <b e g> ~ | <b e g> |
  <c dis fis a> | <a c dis fis> |
  <b e g> ~ | <b e g> |
  <c dis fis a>4 r2 | r4. <c dis fis a>4. ~ | <c dis fis a>2. |
}

keysWaltz = \relative c'' {
  \time 3/4
  r4 <g b> <e g> | r <g b> <es g> |
  r4 <g b> <d g> | r <g b> <cis, e g> |
  <c e g b>2.\arpeggio | <c e a> | <c e>2 <c e>4 |
  <c e g b>4. <c e a>4. | <c e>2. ~ | <c e>2. |
  <d fis b>2.\arpeggio | <d fis a> | <d e>2 <d fis>4 |
  <d fis b>4. <d fis a>4. | <cis e>4 <c fis> <b g'> |
  \key fis \minor
  <bes e gis>2. | <bes cis fis>2. | <bes cis>2 bes4 |
  \time 4/4
  <a e' gis>4.  <a cis fis>8 ~ <a cis fis>2 |
  <c dis gis>4. <c dis fis>8 ~ <c dis fis>2 |
}

keysBTransition = \relative c' {
  \time 4/4 <e gis>4. <dis fis> <cis e>4 ~ | <cis e>8 <dis fis>4. e4 dis4 |
}

keysOutro = \relative c' {
  \time 4/4
  \repeat unfold 3 { cis8 b, cis gis e' gis, e' gis, |}
  <b e gis>2 <b dis fis> |
  \repeat unfold 3 { cis'8 b, cis gis e' gis, e' gis, |}
  <e' gis b>2 <dis fis b> |
}

keysEnd = \relative c {
  e8 b r b r b4. | r1 |
  \set PianoStaff.midiInstrument = #"choir aahs"
  <cis cis' e gis c>1\arpeggio ~ | <cis cis' e gis c> ~ |
  <cis cis' e gis c>           ~ | <cis cis' e gis c>   |
}


keyboard = \new PianoStaff <<
  \new Staff \relative c' {
    \clef "treble_8"
    %% Intro
    \time 4/4
    \set PianoStaff.midiInstrument = #"electric piano 2"
    \keysIntro
    \repeat volta 2 \keysA
    \keysAExtended
    \keysATransition
    \repeat volta 2 \keysVerse
    \keysVerseVariant
    \keysVerseHarder

    \repeat volta 2 \keysA
    \keysAExtended
    \keysATransition

    \nastyPause
    \keysNasty
    \keysWaltz

    \repeat volta 2 \keysA
    \keysBTransition
    \repeat volta 2 \keysOutro
    \keysEnd
  }
>>