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\sustainOn fis dis cis a fis ~ } fis2   cis16\sustainOff dis gis8 |
    a16 d fis d fis gis a8 ~ a2 |

    \tuplet 6/2 { cis8\sustainOn a fis dis cis fis, }
    b8.\sustainOff dis,16\sustainOn a' cis fis\sustainOff gis a-. b-. cis-. d-.
    <cis a>16 r8 <b gis>16 r8 a16 gis fis\sustainOn cis a gis fis4\sustainOff
  }

  <b dis fis>16 r8 <b dis fis>16 r8 <b dis fis>4. r8 r  |
  <a d fis>8 r <a d fis> r16 <a cis e>8. a8 <a cis e> r |
  <b dis fis>16 r8 <b dis fis>16 r8 <b dis fis>4. r8 r  |
  f8 b r8 d16 f gis1.\trill
}

\layout {
  ragged-last = ##t
  indent = 2\cm
  short-indent = 1.5\cm
}

keyboard = \new PianoStaff \with {
  instrumentName = #"Synthesizer"
  shortInstrumentName = #"Synth"
  pedalSustainStyle = #'bracket
}
<<
  \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 = #"lead 8 (bass+lead)"
    \keysMartaRekado

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