keysA = {
  \repeat unfold 2 {
    R1 | R1 | R1 |
  } \alternative {
    { R1 |}
    { R1 |}
  }
}

keysB = { R1 | R1 | R1 | R1 |}

keysTransition = \relative c' {
  \repeat volta 2 {
    <cis fis a>1 | <b e gis>1   |
    <a d fis>1   | <a cis fis>1 |
  }

  %% TODO
  \repeat volta 4 { R1 | R1 |}
}

keysThree = {
  \time 6/8
  \repeat unfold 2 { R2. | R2. |}
  R2. | R2. | R2. |
  \time 7/8 R8*7 |
}

keysMartaRekado = \relative c' {
  \repeat unfold 2 {
    \time 5/8
    cis''16 a fis cis r cis8 fis a16  |
    \time 7/8
    gis8 e b e16 e8 fis16 r16 b,8 e16 |
  } \alternative {
    { \time 2/4 cis8. a16 b a gis a |}
    { \time 2/4 cis8. a16 b a gis a |}
  }

  \time 3/4
  d,16 a fis a fis' a
  gis e b e gis b  |
  a fis d fis a cis
  b gis e gis e' d |

  %% TODE simplify
  fis cis a gis a cis
  b e e, a b cis  |

  %% TODO
  \time 7/8
  a a' fis cis cis d8 d8 r r8. |
}

keysReprise = \relative c' {
  \time 4/4
  \repeat unfold 2 {
    <cis fis a cis>2 ~               <cis es a cis>2  |
    <c f a d>4. ~ <cis fis a cis>8 ~ <cis fis a cis>2 |
    <cis fis a fis'>2 ~              <cis es a fis'>2 |
    <c f a d>4. ~ <cis fis a cis>8 ~ <cis fis a cis>2 |
  }
}

keysFinal = \relative c' {
  \ottava #-1
  \repeat volta 4 {
    \tuplet 6/2 { a'8 fis dis cis a fis } cis2   cis16 dis gis8 |
    a16 d fis d fis gis a8 ~ a2 |

    %% TODO: simplify + use more simple arpeggios
    \tuplet 6/2 { cis8 a fis cis fis, dis }
    cis16 fis, b dis a' cis fis gis a b cis d
    <cis a>16 r8 <b gis>16 r8 a16 gis fis cis a fis cis4
  }

  %% TODO: simplify more!
  %% TODO: move these commented chords to stick?
  %% <fis,, dis b>
  b''16 a
  fis dis b' fis dis fis dis b fis b fis dis b fis

  %% <a, fis d>
  d''4*1/6 a fis a fis d
  fis d a d a

  %% <e b a a,>
  e'4*1/6 fis a cis a cis
  e cis e fis gis16 a

  %% <fis,, dis b>
  b16 a
  fis dis b' fis dis fis dis b fis b fis dis b fis
  f8 b' r8 d16 f gis1.
}

keyboard = \new PianoStaff <<
  \new Staff \relative c' {
    %% Intro
    \time 4/4
    R1*8

    \repeat unfold 2 {
      \key b \minor
      \keysA
      \key e \major
      \keysB
    }

    \set PianoStaff.midiInstrument = #"choir aahs"
    \key fis \minor
    \keysTransition
    \keysThree

    \set PianoStaff.midiInstrument = #"oboe"
    \keysMartaRekado

    \set PianoStaff.midiInstrument = #"string ensemble 1"
    \keysReprise
    \set PianoStaff.midiInstrument = #"electric piano 2"
    \keysFinal
  }
>>