repeats

[Peter Buhr]

I cannot figure out how to indicate the following repeat pattern for this
music.  I want the player to repeat the first line 4 times, repeat the second
line 2 times, play the last line, and then start this pattern over again (until
they get bored). Any help would be appreciated.

===============================================================================

% utf-8 encoding
\version "2.13.9"
\include "english.ly"
#(ly:set-option 'point-and-click #f)
#(set-default-paper-size "letter")
#(set-global-staff-size 25)
#(define RH rightHandFinger)
\paper {
%       annotate-spacing = ##t
        after-title-spacing = #'((space . 0) (padding . 3) (stretchability . 0) 
(minimum-distance . 0))
        tagline = ""
}
\layout {
        indent = 0.0
}
\header {
        title = "Street Spirit (Fadeout)"
        composer = "Radio Head"
        enteredby = "Peter Buhr"
}
melody = \relative c' {
        \set strokeFingerOrientations = #'(down down down down)
        \set fingeringOrientations = #'(left)
        \key c \major \time 4/4
        \repeat volta 4 { <a,-> -\RH #1 >8 <a'-3 -\RH #2 > <e'-\RH #4 > <a,-\RH 
#2 > <d-4 -\RH #3 >^[a e' a,] | <c-1>^[a e' a,] b a <e -\RH #1 > a | \break }
        \repeat volta 2 { <e,-\RH #1 >8 <g'-\RH #2 > <e'-\RH #4 > <g,-\RH #2 > 
<d'-4 -\RH #3 >^[g, e' g,] | <c-1>^[g e' g,] b g <e -\RH #1 > g | \break }
        <c,-\RH #1 >8 <g'-\RH #2 > <e'-\RH #4 > <g,-\RH #2 > <d'-4 -\RH #3 
>^[g, e' g,] | <c-1>^[g e' g,] b g <e -\RH #1 > g | \break
        \bar "||"
}
\score {
        <<
                \clef "treble_8"
                \context Staff {
                        \override Fingering #'staff-padding = #'()
                        \override Fingering #'font-size = #-3
                        \override StringNumber #'font-size = #-3
                        \override StrokeFinger #'font-size = #1
                        \override NoteHead #'font-size = #1
                        \melody
                }
%               \context TabStaff {
%                       \melody
%           }
        >>
}

% Local Variables: %
% tab-width: 4 %
% compile-command: "lilypond --ps StreetSpirit.ly" %
% End: %