\paper{ papersize = "letter" 
	linewidth = 165 \mm
	indent = 8 \mm
}
#(set-global-staff-size 17)
\version "2.2.1"
\include "english.ly"

\header {
	date = "189-?"
	source = "Sydney: Nicholson & Co., (189-?)"
	style = "Romance"
	instrument = ""
	copyright = "Public Domain"
	maintainer = "Stan Sanderson"
	maintainerEmail = "physinfoman@ameritech.net"
	lastupdated = "5/25/2004"
	title = "Alice, Where Art Thou."
	subsubtitle = "Transcribed for the pianoforte by Joseph Ascher."
	poet = ""
	composer = "Joseph Ascher"
	opus = "1829-1869"
	
	tagline = "\\parbox{\\hsize}{\\thefooter\\quad\\small\\noindent\\hspace{\\stretch{1}} This music is part of the Mutopia project: \\hspace{\\stretch{1}} \\texttt{http://www.MutopiaProject.org/}\\\\ \\makebox[\\textwidth][c]{It has been typeset and placed in the public domain by " + \maintainer + ".} \\makebox[\\textwidth][c]{Unrestricted modification and redistribution is permitted and encouraged---copy this music and share it!}}"
	footer = "Mutopia-2004/05/25-449"
	} 

%%%%%
%%%%% This piece, an expansion of Ascher's popular "Alice" tune,
%%%%%	is, I believe, typical of the repertory of the parlor performer. 
%%%%%	I suspect it exists on a piano roll somewhere.
%%%%% The original is very dim; the transcription was as true as
%%%%%	possible; corrections are welcome.
%%%%% The limitations of Lilypond (especially with respect to slurs)
%%%%% are apparent; however, its strengths, even at the development
%%%%%	stage, are amazing.
%%%%%
 
su = \stemUp
sd = \stemDown
sb = \stemBoth
csu = \change Staff=upper
csl = \change Staff=lower

extraSpace = \once \override Score.SeparationItem #'padding = #0.5


upper = \notes\relative c'''' { \time 3/4 \key df \major 
	\set subdivideBeams = ##t
	\set Score.beatLength = #(ly:make-moment 1 8)
	\override TupletBracket  #'bracket-visibility = #'if-no-beam
%% 1
	\override Score.RehearsalMark #'self-alignment-X = #left
	\mark \markup {"" \raise #10.0 \bold \huge "Moderato Capriccioso."}
  \set tupletSpannerDuration = #(ly:make-moment 1 16)
  \times 2/3  
  { #(set-octavation 1) 
  \once  \override Slur  #'beautiful = #3.5
	  \su g'32[( df bf]_\markup {\italic "L.H."} \sd g[ f e] 
  #(set-octavation 0)
  \su g[ df bf] \sd g[ f e] 
  \su g[ df bf] \sd g[ f e]
  \su g[ df bf] \change Staff=lower \sd g[ f e] 
  \su g[ df bf] 
	\sd g[ f e] \su g'[ df bf] 
	\sd g[ f e]) } |
%% 2 - 4
	 s2.| 	\set Score.beatLength = #(ly:make-moment 1 8)
  \change Staff= upper
  bf''''4^^(\( bf8.\) af16 g32[_\markup {\italic "rit."} f e df c bf af g]) |
  <<{g8 f ~ f2}\\{r4 <c af>8 r r4}>> | 
 %% 5 - 6
  r4 \set tupletSpannerDuration = #(ly:make-moment 1 16)
  \times 2/3  
  { #(set-octavation 1) 
   \once  \override Slur  #'beautiful = #9.0
  \su f'''32[( c af]_\markup \translate #(cons -3 -1){"" \italic "L.H."} \sd f[ df c]
  #(set-octavation 0)
  \su f[ c af] \sd f[ df c]
  \su f[ c af] \sd f[ df c]
  \su f[ c af] \change Staff=lower \sd f[ df c] |
  
  \su f[ c af] \sd f[ df c]
  \su f'[ c af] \sd f[ df c]
  \su f'[ c af] \sd f[ df c]
  \su f'[ c af] \sd f[ df c]
  \su f'[ c af] \sd f[ df c]
  \su f'[ c af] \sd f[ df c]) } |
%% 7 - 11
  \change Staff=upper 
  s2  s32
  \sd af''''16[(^^_\markup {"" \raise #-4.0 \italic "rit."}_\> g32 f ef d c]\! | 
  c8 b) r4^\markup {"" \raise #3 \italic "Agitato ed un poco piu mosso"} 
  	\su <b! b,!>8.(_\mf_\< <c c,>16 |
  <cs cs,>8 <d d,>)\! r4 \slurUp <d d,>8.(_\< <ef ef,>16 |
  \sd <e e,>8 <f f,>)\! r4 <f f,>8.(_\markup {"" \raise #-2.5 \italic "cresc."} <g g,>16) |
  \acciaccatura bf,8 <bf bf'>4(^^_\markup {"" \raise #-3 \dynamic f \raise #-3  \italic "dim. e rall."}
  	 ~ <bf bf'>8.[ <af af'>16^^] 
  	<g g'>^^ <f f'>^^ <ef ef'>^^ <d d'>^^) | 
%% 12 - 14 (page 2)
 	<f f'>8[(^^_\> <ef ef'>])\! <ef' g c ef> r \su 
 		<ef ef,>8.(^\markup {"" \raise #1.5 \italic "dolce"}_\p <ef ef,>16 |
 	<ef, af c ef>4\arpeggio \sd <af c ef af>4. ~ <bf c ef bf'>8_\> |
 	<af df ef af>[ <g g'>])\! \su
 	#(set-octavation 1)
 	f'''32[(_\markup {\italic "legg."} ef df bf g ef df bf 
 	#(set-octavation 0)
 	g ef df bf g ef df bf]) | \sb
%% 15 - 17
	\once \override Score.Hairpin #'extra-offset = #'(0 . +1.5)
	<ef af c ef>4(\arpeggio_\<_
		\markup {\italic "poco a poco accellerando"} 
		\sd <af c ef af>4. ~ <bf c ef bf'>8\! |
		<af df ef af>[ <g g'>]) \su
 	#(set-octavation 1)
 	f'''32[( ef df bf g ef df bf 
 	#(set-octavation 0)
 	g ef df bf g ef df bf]) |
  <ef af c ef>4(\arpeggio_\markup {\italic "cresc."} \sd <af c ef af>4. <gf! c ef gf!>8\arpeggio |
%% 18 - 20
	\sd <gf c ef gf>8[\arpeggio <f f'>)] \su
	#(set-octavation 1)
 	f'''32[( ef c a f ef c a 
 	#(set-octavation 0)
 	f ef c a f ef c a ]) |
 	\sd <f' bf df f>4(_\f <bf df f bf>4. <af df f af>8 |
 	<af d f af>8[ <g g'>)] \su
 	#(set-octavation 1)
 	g'''32[( f_\markup {\italic "rit."} d b g f d b
 	#(set-octavation 0)
 	g f d b g f d b ]) |
%% 21 - 22
	\sd <c' e g c>8\arpeggio_\markup {\dynamic fff \italic "con fucco"} r
	\set tupletSpannerDuration = #(ly:make-moment 1 16)
  \times 2/3  
  { #(set-octavation 1) \once  \override Slur  #'beautiful = #4.0
	  \su e''32[( a g] \sd c,[ g e] 
  #(set-octavation 0)
  \su e[ a g] \sd c,[ g e] 
  \su e[ a g] \sd c,[ g e]
  \su e[ a g] \change Staff=lower \sd c,[  g e]) } 
  \change Staff = upper| s2. | 
%% 23 - 25
	r4^\markup {"" \raise #2 \italic "a tempo"} r8 \su <c' c'>8[_\< <c c'> <c c'>]\! |
	<df f c'>16([ bf')] \sd <f bf ef>\arpeggio([ df')]
		<bf df g>\arpeggio([ f')] <df f c'>\arpeggio([_\< bf')]
		<f bf ef>\arpeggio([ df')]
		#(set-octavation 1)
		<bf df g>\arpeggio([ f')]\! |
	<df f c'>([ bf')] <f bf ef>([_\< df')]
		<bf df gf>\arpeggio([ f')] <bf, df gf>([\!_\markup {\italic "rit."} f')]
		<bf, df gf>([ f')] <bf, df gf>([ f')] |
%% 26 - 27
	ef32[(_\markup {\dynamic f \italic "brillante"} f g af c, df d ef af, 
			bf b c ef, f g af
	#(set-octavation 0)
	c, df! d ef af, bf! b c)] |
	\su ef,[( f g af c, df d ef af, bf b c ef, f g af 
		c, df! d ef af, bf! b c]) |
%% 28 - 29
	\change Staff = lower
	ef,4^> <ff g,>32[(^\markup {"" \raise #1 \italic "R.H."} <ef bf>]) 
		\sd ef[(_\markup \translate #(cons -4.5 0){"" \raise #-1 \italic "L.H."}_\<  ef,]) 
		\su <ff'' g,>[( <ef bf>]) \sd ef[( ef,]) 
		\change Staff = upper
		\su <ff'' g,>[( <ef bf>]) \sd ef[( ef,]) 
 		\su <ff'' g,>[( <ef bf>]) \sd ef[( ef,])\! |
 	#(set-octavation 1)
 		\su <ff'' g,>[( <ef bf>])_\< \sd ef[( ef,]) 
 		\su <ff' g,>[( <ef bf>]) \sd ef[( ef,]) 
 		\su <ff' g,>[( <ef bf>]) \sd ef[( ef,]) 
 		\su <ff' g,>[( <ef bf>]) \sd ef[( ef,]) 
 		\su <ff' g,>[( <ef bf>]) \sd ef[( ef,]) 
 		\su <ff' g,>[( <ef bf>]) \sd ef[( ef,])\! |
 %% 30 - 31
 		ef'[( ef,] ef'[ ef,] ef'[ ef,] ef'[ ef,] 
 			ef'[ ef,] ef'[ ef,] ef'[_\markup {\center-align 
 				 <\italic " " "cresc." \italic "molto ritenuto"> }  ef,] ef'[ ef,] 
 			ef'[ ef,] e'[ e,] f'[ f,] g'[ g,] ) |
%%% following is a workaround due to bug preventing midi from
%%% timing properly with 16th notes (32nd notes would time o.k.)
	\acciaccatura {af16*1/2[ c16*1/2 ef16*1/2]}
	\once \override Staff.Beam #'damping = #0
	af32^^[( f ef c af f ef c
 			#(set-octavation 0) 
 			af' f ef c af f ef c af' f ef c af f ef c]) |
%% 32 - 34
 		af'''[( f ef c af f ef c af' f ef c af f ef c af' f ef c
 			 \change Staff = lower
 			 \su af f ef c]) |
 		\change Staff = upper r4 r8 af''[_-^\markup {\italic "parlando"}
 		 af_- af_-] |
 		\acciaccatura c8 \slurDown bf8( af4) af8[(_- af_- af_-]) |
%% 35 - 37
	\acciaccatura c8 bf af4 af8[(_-_\< af_- af_-]) | \slurBoth
	\acciaccatura {af16[ c]} bf4(\! 
		\override TupletBracket  #'number-visibility = ##f
		\times 16/17 { \sd \once  \override Slur  #'beautiful = #3.5
	bf32)[( af c ef af c ef gf bf^\markup {"" \raise #1.0 \smaller \italic "17"} 
		af gf ef c af gf ef c]) }|
	bff2(_\markup {"" \raise #-3 \italic "rit." } ~ bff8[ af]) | 
	\override TupletBracket  #'number-visibility = ##t
%% 38 - 42
	\override Score.RehearsalMark #'self-alignment-X = #left
	\mark \markup {"" \raise #4.0 \bold \large "Andante con espress."}
	\acciaccatura {af,16[_\markup {\dynamic p \italic "cantabile"} df f]} af4( df4. ef8 |
	\acciaccatura {ef,16[ gf]} df'4 c2) |
	\acciaccatura {df,16[ af']} bf4( \acciaccatura c8 bf[ a bf c] |
	\acciaccatura {c,16[ f]} bf4 af) r8 af |
	\acciaccatura {bf,16[ d]} af'4( f'4. \acciaccatura {f16[ af]} gf8 |
%% 43 - 48
	\acciaccatura {gf,16[ bf]} f'4 ef4.) bf8( |
	\acciaccatura {ef,16[ gf_\markup {"" \raise #-3 {\dynamic p \italic "rit."}} af]} df4 
		\acciaccatura {c16[ df]} c8[ bf c8. af16]) |
	\acciaccatura {df,16[ f]_\markup {"" \raise #-3 \italic "a tempo"}} df'4 r r8 <af af'>8 |
	<af df f af>4\arpeggio(_\markup {\italic "armonioso"} <df f af df>4.\arpeggio ~ <ef f af ef>8 |
	<df gf af df>4\arpeggio <c gf' af c> ~ <c gf' af c>)_\< |
	<bf df e bf'>\arpeggio(\! <bf bf'>8 <a a'> <bf bf'> <c c'> |
%% 49 - 56
	<bf df f bf>4\arpeggio ~ <af df f af>) r8 <af af'>8( |
	<af bf d af'>4\arpeggio <af' bf d af'>\arpeggio
		<gf bf d gf>8\arpeggio[ <f bf d f>\arpeggio]) |
	<f gf bf f'>4\arpeggio_\> <ef gf bf ef>4.\arpeggio\!
		<bf gf' bf>8(\arpeggio_\p |
	<df gf df'>4\arpeggio <c gf' c>8[\arpeggio_\markup {"" \raise #-1.5 \italic "rit."} <bf gf' bf>\arpeggio
		<c gf' c>\arpeggio <af gf' af>]\arpeggio |
	<df f df'>4\arpeggio)_\markup {"" \raise #-2 \italic "a tempo"} r r8 
	%% last note measure 53 on -
	<<{ s8 r4 r4 <f f'>^> ~ <f f'>2 <f f'>4^> s4}\\
		{f,8( df'4_\markup {"" \raise #-2 \italic "dolce"} c4.) f,8( c'4 bf) 
			r8 f ~ <f f'>^\markup {"" \raise #1 \italic "con dolore"}}>>
		<gf ef'>8[( <f df'> <ef c'> <df bf'>]) |
%%  57 - 59
	<df bf'>4 <c a'> r8 <f f'> |
	<<{r4 r16 f'[( f' f] #(set-octavation 1)
	f') #(set-octavation 0) r r8}\\
		{<df,, df'>4 <c c'>4. <f, f'>8}>> |
	<<{r4 r16 f'[( f' f] #(set-octavation 1)
	f') #(set-octavation 0) r r8}\\{<c,, c'>4 <bf bf'>4. r8}>>
%% 60 - 63
	<<{gf'8[( f' ef, df' c, bf'])}\\{gf16[ gf'] f[ f,] ef[ ef'] 
		df[ df,] c[ c'] bf[ bf,] }>> |
		\set PianoStaff.connectArpeggios = ##t
	<a c f a>8\arpeggio #(set-octavation 1)
	<f' f'>8[ <f f'>_\< <f f'> <gf f'> <g f'>]\! |
	\set PianoStaff.connectArpeggios = ##f
	<<{f'16[ f f f f f f f f f f f]}\\{af,4_> df4._> ef8_>}>> |
	<<{gf16[ gf gf gf gf gf gf gf gf gf gf gf]}\\{df4_> c2_>}>> |
%% 64 - 66
	<<{gf'16[ gf gf gf gf gf gf gf gf gf gf gf]}\\
		{bf,4 \acciaccatura c8 bf[ a bf c]}>> |
	<<{gf'16[ gf gf gf f f f f f f f f]}\\
		{bf,4 af4. <af f>8}>> | #(set-octavation 0)		
	\override Staff.NoteCollision  #'merge-differently-dotted = ##t
	<<{f'4( <ef ef,>4. d8)}\\{ <f, f'>16[ <af bf> r <af bf> 
			ef <af bf> r <af bf> r <af bf> <d, d'> <af' bf>]}>> |
%% 67 - 70
	<<{d8[( ef] <bf bf,>4. ef8)}\\{
		<d, d'>16[ <gf bf> ef <gf bf> bf, <ef gf> r <ef gf> r 
			<ef gf> <ef ef'> <gf bf>]}>> |
	<<{ef'4 df8[^^ c^^ bf^^ af^^]}\\
		{<ef ef'>16[ <gf af> r <gf af> df <gf af> c, <gf' af> bf, <c gf'> 
		<af af'> <c gf'>]}>> |
	<af' df af'>8^._\sfz s8 s4 s4 | 
	<<{bf4.( c8[ df ef])}\\
		{<bf bf,>16[_\mf <df, ef> r <df ef> r <df ef> <c c'> <gf' bf> <df df'>
			<gf bf> <ef ef'> <gf bf>]}>> |
%% 71 - 74
	<<{af4.( bf8[ c df)]}\\{<af af,>16[ <f df> r <f df> r <f df>
		<bf bf,> <f df> <c' c,> <af f> <df df,> <af f>]}>> |
	<f f'>8^.[_\f <af f df af>^.]\arpeggio 
		\set PianoStaff.connectArpeggios = ##t
		<af df f>\arpeggio r\fermata  
		\set PianoStaff.connectArpeggios = ##f r <af af,>( |
	<ef ef'>^.)[ <af gf ef af,>]\arpeggio  
	\set PianoStaff.connectArpeggios = ##t
	\extraSpace <af ef' gf af>\arpeggio
		r r <af af,>( |
	<df, f af df>^.) #(set-octavation 1)
	<<{\override Stem #'beamed-lengths = #'(6.6 5.8 5.0) 
		af''8[( s f s df])}\\{af'16[ af' gf gf, f f' ef ef, df df']}>> |
	\set PianoStaff.connectArpeggios = ##f
%% 75 - 78
	%% 75 & 76
	<<{c8.[( c16] bf8.[ bf16]) s8 s8 bf,[( gf' f' ef, df' c,])}
		\\{c'16[ c, c c' bf bf, bf bf' bf,^> bf' bf bf,] ~ 
		bf8[_\p gf'16 gf' f f, ef ef' df df, c c']}>> |
	<<{bf8.[( bf16] af8.[ af16]) #(set-octavation 0) s8 s8}\\
		{bf16[ bf, bf bf' af af, af af' af,,^> af' af af,]}>> |
	<<{bf4.^> c8[^\markup {\italic "cresc."} df ef]}\\
		{\slurUp bf16[ bf'( bf bf' bf bf, c, c' df, df' ef, ef'])}>> |
%% 79 - 82
	 <<{af,,4.^> bf8[ c df]}\\
		{af16[ \slurUp af'( af af' af af, bf, bf' c, c' df, df'])}>> | 
  <f, af df f>8\arpeggio #(set-octavation 1)
		af''16[( af, #(set-octavation 0) af af, af af, \csl \su af, af, af af,]) |
	\csu \sd <ef''' gf af ef'>8\arpeggio #(set-octavation 1)
		af'''16[( af, #(set-octavation 0) af af, af af, \csl \su af, af, af af,]) |
	\csu \sd <df''' f af df>8\arpeggio #(set-octavation 1)
		af'''16[( af, #(set-octavation 0) af af, af af, \csl \su af, af, af af,]) |
%% 83 - 85
	\slurUp  \once  \override Slur  #'beautiful = #4.0
	af''16[(^\markup {"" \raise #3 \italic "leggiero"} 
		\csu bf32_\markup {\italic "marcato"} c df ef f gf af bf c df ef f gf af bf c df ef
		#(set-octavation 1) f gf af bf] |
		 \once  \override Slur  #'beautiful = #4.0
	c[ df ef f   gf ef c af  gf ef c af #(set-octavation 0)
		gf ef c af gf ef c af \csl gf ef c af]) |
		 \once  \override Slur  #'beautiful = #4.0
	bf'16[( \csu c32 df  ef f gf af  bf c df ef  f gf af bf  c df ef f
		#(set-octavation 1) gf af bf c] |
%% 86 - 88
	 \once  \override Slur  #'beautiful = #4.0
	df[ ef f ef df af f ef f ef df af #(set-octavation 0)
		f ef df af f ef df af f ef df af]) | 
		 \once  \override Slur  #'beautiful = #4.0
	\csl af'16[( bf32 d \csu f af bf d f af bf d #(set-octavation 1)
		f af bf d f af af af af af af af] |
		 \once  \override Slur  #'beautiful = #4.0
	af[ gf ef bf af gf ef bf af' gf ef bf 
		#(set-octavation 0) af gf ef bf af' gf ef bf af gf ef bf ]) |
%% 89 - 91
	df[( ef f gf af bf c df ef f gf af bf c df ef #(set-octavation 1)
		f gf g af a bf b c] |
	df[ ef f ef df af f ef #(set-octavation 0)
		df af f ef df af f ef df \csl af f ef df af f df]) |
	\slurUp
	af''16[( \csu bf32 c df ef f gf af bf c df ef f gf af bf c df ef
		#(set-octavation 1) f gf af bf] |
%% 92 - 94		
	c[ df ef f   gf ef c af  gf ef c af #(set-octavation 0)
		gf ef c af gf ef c af \csl gf ef c af]) |
	bf'16[( \csu c32 df  ef f g a  bf c df ef  f g a bf  c df ef f
		#(set-octavation 1) g a bf c] |
	df[ ef f ef df af f ef f ef df af #(set-octavation 0)
		f ef df af f ef df af f ef df af]) | 
%% 95 - 97		
	\csl af'16[( bf32 d \csu f af bf d f af bf d #(set-octavation 1)
		f af bf d f af af af af af af af] |	
	af[ gf gf f f ef ef df df c c bf bf af af gf gf f f ef ef df df c] |
		#(set-octavation 0)
	c[ bf bf af af gf gf f f ef ef df df c c bf bf af af gf gf f f ef]) |
%% 98 - 100
	 \once  \override Slur  #'beautiful = #4.5
	\csl df16^^[ \csu ef32( f gf af bf c df ef f gf af bf c df ef f gf
		 #(set-octavation 1) af bf c df ef] |
	f[ ef c a f ef c a #(set-octavation 0) f ef c a f' ef c a f ef c a
		\csl f a c f]) |
	\csl c16[( \csu #(set-octavation 1) f'''32 df bf f df bf #(set-octavation 0)
		f' df bf f df bf f' df bf f df bf \csl f \csu bf df f]) |
%% 101 - 103
	\csl f^^[( \csu gf g af a bf b c df d ef e f gf g af a bf b c df d ef e] |
	f[ a c a f c a c f c a f c a f' c a f c a \csl f \csu a c f]) |
	\csl s4 c32[( f, a c \csu f a c f a c #(set-octavation 1) f a f' f, f' f,])
		#(set-octavation 0) |
%% 104 - 106
	\csl s4 bf,,,32[( f bf df \csu f bf df f bf df #(set-octavation 1) f bf 
		f' f, f' f,]) |
	r \sd gf[( gf' gf,]) r f[( f' f,]) r ef[( ef' ef,]) r df[( df' df,])
		r c[( c' c,]) r bf[( bf' bf,]) |
	<a c f a>16\arpeggio[ #(set-octavation 0)
	<f f'>^.( <f f'>^. <f f'>^. <f f'>^. <f f'>^.
		<f f'>^.<f f'>^. <gf f'>^. <gf f'>^. <g f'>^. <g f'>^.]) |
%% 107 - 108	
	#(set-octavation 1)
	\set tupletSpannerDuration = #(ly:make-moment 1 8)
	
  \times 2/3  { 
  		<f' af, f>16[(^\markup {"" \raise #2.5 \italic "largamente"}  <f af, f> <f af, f>) 
  		<f af, f>(  <f af, f> <f af, f>) 
  		<f df f,>(  <f df f,> <f df f,>)
  		<f df f,>(  <f df f,> <f df f,>)
  		<f df f,>(  <f df f,> <f df f,>)
  		<f ef f,>(  <f ef f,> <f ef f,>)] |
  		\override TupletBracket  #'number-visibility = ##f
  		<gf df gf,>[ <gf df gf,> <gf df gf,> 
  		<gf df gf,> <gf df gf,> <gf df gf,> 
  		<gf c, gf> <gf c, gf> <gf c, gf> 
  		<gf c, gf> <gf c, gf> <gf c, gf> 
  		<gf c, gf> <gf c, gf> <gf c, gf> 
  		<gf c, gf> <gf c, gf> <gf c, gf>] |
%% 109 - 110 
  		<gf bf, gf>[ <gf bf, gf> <gf bf, gf> 
  		<gf bf, gf> <gf bf, gf> <gf bf, gf> 
  		<gf bf, gf>^^ <gf bf, gf> <gf bf, gf> 
  		<gf a, gf>^^ <gf a, gf> <gf a, gf>
  		<gf bf, gf>^^ <gf bf, gf> <gf bf, gf> 
  		<gf c, gf>^^ <gf c, gf> <gf c, gf>] | 
  		<gf bf, gf>[ <gf bf, gf> <gf bf, gf> 
  		<gf bf, gf> <gf bf, gf> <gf bf, gf> 
  		<f af, f> <f af, f> <f af, f> 
  		<f af, f> <f af, f> <f af, f> 
  		<f af, f> <f af, f> <f af, f> 
  		<f af, f> <f af, f> <f af, f>]
%% 111 - 112
			\su <f bf, af f>^^[ <f bf, af f> <f bf, af f> 
			<f bf, af f> <f bf, af f> <f bf, af f> 
			<ef bf af ef> <ef bf af ef> <ef bf af ef> 
			<ef bf af ef> <ef bf af ef> <ef bf af ef> 
			<d bf af d,> <d bf af d,> <d bf af d,> 
			<d bf af d,> <d bf af d,> <d bf af d,>] |
			<d bf gf d>[ <d bf gf d> <d bf gf d> 
			<ef bf gf ef> <ef bf gf ef> <ef bf gf ef> 
			<bf gf ef bf> <bf gf ef bf> <bf gf ef bf> 
			<bf gf ef bf> <bf gf ef bf> <bf gf ef bf> 
			<bf gf ef bf> <bf gf ef bf> <bf gf ef bf> 
			<ef bf gf ef> <ef bf gf ef> <ef bf gf ef>] |			
%% 113 - 114
			<ef af, gf ef>[ <ef af, gf ef> <ef af, gf ef> 
			<ef af, gf ef> <ef af, gf ef> <ef af, gf ef> 
			<df af gf df> <df af gf df> <df af gf df> 
			<c af gf c,> <c af gf c,> <c af gf c,> 
			<bf gf ef bf> <bf gf ef bf> <bf gf ef bf> 
			<af gf ef af,> <af gf ef af,> <af gf ef af,>] |
			\sd <af df f af>[ <af df f af> <af df f af>
			<af df f af> <af df f af> <af df f af>
			<af df f af> <af df f af> <af df f af>
			<af df f af> <af df f af> <af df f af>
			<af df f af> <af df f af> <af df f af>
			<af df f af> <af df f af> <af df f af>] |
			 #(set-octavation 0)
%% 115 - 117
	<bf, df ef bf'>[( #(set-octavation 1) <bf'' gf'>
		gf, #(set-octavation 0) <bf gf'> gf <bf gf'> gf
		<gf bf,> gf,) \csl \su c, \csu \sd <c' c'>( <gf' bf>)
		\csl \su df, \csu \sd <df' df'>( <gf bf>) \csl \su ef,
		\csu \sd <ef' ef'>( <gf bf>)] |
	<af, df f af>[( #(set-octavation 1) <af'' f'> f
		#(set-octavation 0) <af, f'> f <af f'> f <f af,> f,)
		\csl \su bf,_^ \csu \sd <bf' bf'>( <f' af>) \csl \su c,_^
		\csu \sd <c' c'>( <f af>) \csl \su df,_^ \csu \sd
		<df' df'>( <f af>)] |
	<f af df f>[ #(set-octavation 1) <df'' af'>( af]) #(set-octavation 0)
		\csl \su \clef treble <af, df f>_.[ \csu \sd
		#(set-octavation 1) <df' af'>( af)] #(set-octavation 0)
		\csl \su <af, df f>_.[ \csu \sd #(set-octavation 1) 
		<df' af'>( af)] #(set-octavation 0)\csl \su <af,, df f>_.[ \clef bass
		\csu \sd <df' af'>( af)] \csl \su <af,, df f>_.[ \csu \sd
		<df' af'>( af)] \csl \su <af,, df f>_.[ \csu \sd
		<af'' df,>( af,)] |
		}
%% 118 - 120
	<ef'' gf af ef'>8\arpeggio 		
		\set tupletSpannerDuration = #(ly:make-moment 1 16)
	  \times 2/3  { 
			\csl \su \clef treble <af c gf'>16_.[ \csu \sd 
		#(set-octavation 1) <c' af'>( af)] 
		#(set-octavation 0) \csl \su <af, c gf'>_.[ \csu \sd 
		#(set-octavation 1) <c' af'>( af)] 
		#(set-octavation 0) \csl \su <af,, c gf'>_.[ \clef bass
			\csu \sd <c' af'>( af)] \csl \su <af,, c gf'>_.[ 
			\csu \sd <c' af'>( af)] \csl \su <af,, c gf'>_.[ 
			\csu \sd <c'' c,>( af,)] } |
		<df' f af df>8  
		\set tupletSpannerDuration = #(ly:make-moment 1 16)
	  \times 2/3  { 
			\csl \su \clef treble <af' df f>16_.[ \csu \sd
		#(set-octavation 1) <df' af'>(^\markup {""\raise #2 \italic "a tempo"} af)]
		#(set-octavation 0) \csl \su <af, df f>_.[ \csu \sd
		#(set-octavation 1) <df' af'>( af)]
		#(set-octavation 0) \csl \su <af,, df f>_.[ \csu \sd
		<df' af'>( af)] 
		\csl \su <af, df f>_.[ \clef bass \csu \sd <df' af'>( af)] 
		\csl \su <af,, df f>_^[  \csu \sd <df' af'>( af)] |
		\csl \su <af, df f>_^[  \csu \sd <df' af'>( af)]
		\csl \su <af,, df f>_^[  \csu \sd <df' af'>( af)]
		\csl \su <af, df f>_^[  \csu \sd <df' af'>( af)] 
		\csl \su \slurDown <af,, df f>[ <df' af'>( af)]
		<af, df f>[ <df' af'>( af)]
		<af, df f>[ <df' af'>( af)]  } |
%% 121
		\set subdivideBeams = ##f
	\times 6/11{	\slurUp \once  \override Slur  #'beautiful = #4.5
	f32[(\sustainDown^\markup {"" \raise #8 \italic "a tempo"}
		 af df_\markup {"" \raise #-4 \italic "trem."}
			 ef f af df ef \csu \sd
		f af df ef f af df ef f af
	#(set-octavation 1)
		df ef f ef df af f ef df af
	#(set-octavation 0)
		f' ef df af f ef df af f ef df af
		\csl \su f ef df af])
		}
%% 122 - 123
	\times 4/5{	\slurUp \once  \override Slur  #'beautiful = #5.0
	f32[(\sustainDown^\markup \translate #(cons -3 0){"" \raise #-4 \dynamic fff }
		 af df ef f af df ef \csu \sd
		f af df ef f af df ef f
	#(set-octavation 1)
		af df ef] } f8[) 
	#(set-octavation 0)
		<f,,, af df f>^^] |
	#(set-octavation 1)
		<af'' df f af>8_\markup {"" \raise #-3 \dynamic rfz }
	#(set-octavation 0)	r r r4 r8 \bar "|."
	
}



lower = \notes\relative c, { \time 3/4 \key df \major 
	\set subdivideBeams = ##t
	\override TupletBracket  #'bracket-visibility = #'if-no-beam
%% 1
  s4^\markup {"" \raise #2.0 \dynamic ff \raise #2.0 \italic "con fucco"} s s |
%% 2-4
	\set Score.beatLength = #(ly:make-moment 1 8)
	\su df4_^(^\markup {\italic "R.H."} df32[)( c_\< e g bf c e g bf c 
		\change Staff=upper \sd
	e g bf c e g])\! | \change Staff=lower
	R2. | r4^\p <f,, c af f>8\arpeggio\sustainDown r8 r4\sustainUp |
%% 5 - 6
	s4^\markup {"" \raise #2.0 \dynamic ff \raise #2.0 \italic "con fucco"} s s  |
	 s2. |
%% 7 - 11
	\su f,,8^^_\<^\markup {\italic "L.H."} ~ f32[( af c f af c f af c 
		\change Staff=upper 
		\sd	f af c f])\!  s32*7 \change Staff=lower |
	r4^\markup {"" \raise #2 \dynamic p \raise #2 \italic "a tempo"} 
		<b,, d, g,>8\arpeggio_\rfz r8 r4 |
	r4 <b d, g,>8\arpeggio_\rfz r8 r4 |
	r4 <b d, g,>8\arpeggio_\rfz r8 r4 |
	R2. |
%% 12 - 14 (page 2)
	r4^\markup {\italic "a tempo"} \slurUp \acciaccatura <c, c,>8 <c ef g c>8 r8 r4 |
	<af af,>8([\sustainDown ef' <af c> ef <af c> ef)]\sustainUp |
	<<{af,2.}\\{\slurUp af8[( ef' <g df'> ef <g df'> ef])}>> |
%% 15 - 17
	<<{af,2.}\\{\slurUp af8[(\sustainDown ef' <af c> ef <af c> ef])\sustainUp}>> |
	<<{af,2.}\\{\slurUp af8[(\sustainDown ef' <g df'> ef <g df'> ef])\sustainUp}>> |
	<<{af,2.}\\{\slurUp af8[(\sustainDown ef' <af c> ef <af c> ef])\sustainUp}>> |
%% 18 - 20
	<<{a,2.}\\{a8[( f' <a ef'> f <a ef'> f])}>> |
	<bf, bf,>(^^ f' <bf df> f <bf df> f) |
	<b, b,> g' <b f'> g <b f'> g |
%% 21 - 22
	\slurUp \acciaccatura<c, c,>8\sustainDown <c g' e'>8 s8 s4 s4 |
	\set tupletSpannerDuration = #(ly:make-moment 1 16)
  \times 2/3 {  
  \su e32[ af g] \sd c,[ g e]
  \su e'32[ af g] \sd c,[ g e]
  \su e'32[ af g] \sd c,[ g e]
  \su e'32[ af g] \sd c,[ g e]
  \su e'32[ af g] \sd c,[ g e]
  \su e'32[ af g] \sd c,[ g e] } |
%% 23 - 25
	\su c4.^\markup {\italic "R.H."}_\rfz r8 r4 |
	\sd df8[( f'^\markup {"" \raise #2 \italic "cresc."} <bf df> f <bf df> f]) |
	<df df,>[(^\markup {"" \raise #4 \italic "cresc."} f <bf df> <bf df f>\arpeggio 
		\clef treble <df f bf>\arpeggio <f bf df>\arpeggio]) \clef bass |
%% 26 - 27
	<ef, ef,>8 \clef treble \sd <c''' ef af>[^^ <af c ef>^^ <ef af c>^^
		<c ef af>^^ <af c ef>^^] | \su
	<c af ef>[ <af ef c> <ef c af> \clef bass <c af ef> <af ef c> <ef c af>] |
%% 28-29
	\sd <ef, ef,>4_>^\markup {"" \raise #3 \italic "cresc."} s4 s4  | s4 s4 s4  |
%% 30 - 31
	R2. | <af af,>8[(^\markup {\dynamic f \italic "a tempo" \dynamic p}
		 ef' <af c> ef <af c> ef]) |
%% 32 - 34
	af,8[( ef'^\markup {"" \raise #2.0 \italic "dim. e rit."} <af c> ef <af c> ef]) | 
	\su <af, af,>4\sustainDown^\markup {"" \raise #2.0 \dynamic p "" \raise #2.0 \italic "a tempo"} r4 r4 |
		\sd r4 <af' ef' gf>8^. r8 r4 |
%% 35 - 37
	r4 <af b d>8^. r8 r4 | r 
	
 \acciaccatura {\override Stem #'beamed-lengths = #'(3.6 4.2) 
 		af,16[ af']} \extraSpace
	 
	<af c gf'>8\arpeggio^\markup \translate #(cons -3 0){\dynamic p } 
		r^\markup {"" \raise #2.0 \italic "con delicatezza"} r4 |	
	R2. |
%% 38 - 42
	<df, df,>8[(\sustainDown af' <df f> af <df f> af)]\sustainUp | 
	<df, df,>[(\sustainDown af' <c gf> af <c gf> af)]\sustainUp | 
	<df, df,>[(\sustainDown gf <bf df> gf <bf df> gf)]\sustainUp |
	<df df,>[(\sustainDown f <af df> f <af df> f)]\sustainUp |
	<bf, bf,>[(\sustainDown bf'_\markup {"" \raise #-2 \italic "simile"} <d af'> bf <d af'> bf)] |
%% 43 - 48
	<ef, ef,>[( bf' <ef gf> bf <ef gf> bf)] |
	<af, af,>[( af' <c gf'> af, <c gf'> af)] |
	<df df,>[( af' <df f> af <df f> af)] |
	<df, df,>[( af' <df f> af <df f> af)] |
	<ef ef,>[( af <c gf'> af <c gf'> af)] |
	<e e,>[( g <df' g> g, <df' g> g,)] |
%% 49 - 54
	<f f,>[( f <af df f> f <af df f> f]) |
	<bf, bf,>[( bf' <d af'> bf <d af> bf]) |
	<ef, ef,>[( bf' <ef gf> bf <ef gf> bf]) |
	<af, af,>[( af' <c gf> af <c gf> af]) |
	<df, df,>[( af' <df f> af <df f> af]) |
	f,[( f' <a ef'> f <a ef'> f]) |
%% 55 - 59
	f,[( f' <bf df> f <bf df> f]) |
	f,[( f' f' f, f' f,]) |
	f,[( f' f' f, f' f,]) |
	\once \override Score.Hairpin #'extra-offset = #'(0 . +1.5)
		f,[(^\< f' <a ef'>\! 
		\once \override Score.Hairpin #'extra-offset = #'(0 . +4.0)
		f <a ef'> f])^\< |
	f,[( f' <bf df>\! f <bf df> f]) |
%% 60 - 63
	<<{a8[ bf c df ef e]}\\{f,2.}>> |
	<f a c f>8\arpeggio r^\markup {""\raise #2 \italic "rit."} r4 f4 |
	<df df,>8[(^\markup {""\raise #3 {\dynamic p \italic "a tempo"}} af' <df f> af <df f> af]) |
	<df, df,>[( af' <c gf'> af <c gf'> af]) |
%% 64 - 66
	<af, af,>[( af' <c gf'> af <c gf'> af]) |
	<df, df,>[( af' <df f> af <df f> af]) |
	<bf bf,>^.^\markup {""\raise #3.5 \italic "poco animato"} 
		<bf f' af>^. <bf bf,>^. <bf f' af>^. 
		<bf bf,>^. <bf f' af>^. |
%% 67 - 70
	 <ef, ef,>^.[ <bf' ef gf>^.^\markup {""\raise #0 \italic "cresc."} <ef, ef,>^. <bf' ef gf>^. 
	 	<ef, ef,>^. <bf' ef gf>^.] |
	<af af,>^.[ <af c gf'>^.^\< <af af,>^. <af c gf'>^.
		<af af,>^.\! <af c gf'>^.] |  \phrasingSlurDown
	<f df af f>\arpeggio\sustainDown^\ff
	\su <f af df f>16[\( \sd \csu <af' df af'>(^\markup {"" \raise #2.5 \italic "sonore"} 
	\su \csl <f, af df f> \sd \csu <af' df af'>
	\su \csl <f, af df f> \sd \csu <af' df af'>
	\su \csl <f, af df f> \sd \csu <af' df af'>
	\su \csl <f, af df f>\) \sd \csu <af' df af'>]) | \phrasingSlurBoth
	\csl <gf, gf,>8^.[\sustainUp <gf df' ef>^. <gf gf,>^. <gf df' ef>^.^\< 
		<gf gf,>^. <gf df' ef>^.]\! |
%% 71 - 74 
	<af af,>^.[ <af df f>^.^\markup {\italic "cresc."} <af af,>^. <af df f>^. 
		<af af,>^.^\markup {\italic "rit."}^\< <af df f>^.]\! |
	<af af,>^.[\sustainDown <af df f>^.]\arpeggio \clef treble
		 <af' df f>\arpeggio r\fermata\sustainUp r4 \clef bass |
	<af,, af,>8[\sustainDown <af' c gf'>]\arpeggio \clef treble
		\extraSpace
		<af' c gf'>\arpeggio r r4\sustainUp \clef bass |
	<f, af, df,>8^.[(\arpeggio^\markup {"" \raise #4 {\dynamic p \italic "a tempo"}}
		 f <af df> f <af df> f]) |
%% 75 - 78
	<gf gf,>[( gf <bf df> gf <bf df>^\mf gf]) |
	<ef ef,>[( gf <bf ef> gf <bf ef> gf]) |
	<f f,>[( f <af df> f <af df>^\mf f ]) |
	<gf gf,>[( gf <bf gf'> gf <bf gf'> gf]) |
%% 79 - 82
	<af af,>[( af <df f> af^\markup {"" \raise #4 \italic "rit."} <df f> af]) | \slurUp
 	\acciaccatura <af af,>8\sustainDown \extraSpace <af df f af>_\sfz^. r r4 s8. s16\sustainUp |
	\acciaccatura <af, af,>8\sustainDown \extraSpace <af' c gf'>_\sfz^. r r4 s8. s16\sustainUp |
	<df,, af' df f af df f>8\arpeggio\sustainDown^\markup {\dynamic f \italic "molto rit."}
	 r r4 s8. s16\sustainUp | \slurBoth \break
%% 83 - 85
	 <<{\sd af''4^\markup {"" \translate #(cons -4 -3) {\center-align  
	 		<\italic "a tempo" \italic "R.H.">}}
	 		\su df4.^>^\markup {\italic "il canto"} 
	 		ef8^>^\< }\\{df,,8[ <df' f> gf^\markup {"" \translate #(cons -6 -2) {\italic "L.H."}} <df f> <df f> ef']}>> |
	 <<{df4^> c2^>\!}\\{df,,8[ <ef' gf af> gf <ef gf af> <ef gf af>] r}>> |
	 <<{bf'4^>^\markup {"" \translate #(cons -4 -3){\italic "R.H."}} \acciaccatura c8^\markup {\italic "L.H."}
	 	 bf[( a bf c])}\\{df,,[ <df' gf>] ~ <df gf>2}>> |
%% 86 - 88
	\override Staff.NoteCollision  #'merge-differently-dotted = ##t
	<<{bf'4(^\> af4.\! af8)}\\{<df,, bf''>\arpeggio[ <df' f> af' 
		<f df> <f df> af]}>> |
	<<{af4(^\markup {"" \translate #(cons -4 -3){\italic "R.H."}}
		 f'4.^\markup {"" \translate #(cons -4 -3){\italic "L.H."}}
		 gf8)}\\{bf,,,8[ bf' <af' f'> <af bf d!> 
		<af bf d> gf']}>> |
	<<{f4^>( ef4.^> bf8)}\\{<ef,, f''>\arpeggio[ <ef' gf c> ef' 
		<ef, gf bf> <ef gf bf> bf']}>> |
%% 89 - 91
	<<{df4 c8[( df c8. af16])}\\{\slurUp af,,8[ <ef'' gf af>] ~ <ef gf af>2}>>
	<<{df'4^\markup {\italic "molto cresc."} r r^\ff}\\{\acciaccatura df,,8 <df df' f >4 
		r  r8 r16 r32 df32}>> |
	<<{af''4 df4.^> ef8^> }\\{df,,,8[ <df'' f> gf <df f> <df f> ef']}>> |
%% 92 - 94
	<<{df4^> c2^>}\\{<df,, df''>8\arpeggio[ <ef' gf af> c' <ef, gf af> <ef gf af>] r}>> |
	 <<{bf'4  bf8[( a bf c])}\\{<e,, e,>[ <df' e>] ~ <df e>2}>> |
	<<{bf'4( af4. af8)}\\{<df,, bf''>\arpeggio[ <df' f> af' 
		<f df> <f df> af]}>> |
%% 95 - 97
	<<{\sd af4 \sb af'4^\markup {\italic "cresc."} gf8^>[ f^>]^\markup {\italic "rit."}}\\
		{bf,,,8^>[ bf' af''^>] <af, bf d>4. }>> |
	% 96 - 97
	<<{f'4^>^\markup {\italic "a tempo"} ef4.^> bf8( df4^> 
		c8[^\p bf c af])^\markup {\italic "rit."}}\\
		{<ef, f''>\arpeggio[ <ef' gf bf> ef' <ef, gf bf>^\markup {\italic "dim."} 
			<ef gf bf> bf'] <df ef, af,>8\arpeggio af,] ~ <af ef'>2}>> |
%% 98 - 100
	<<{df'4^> r r8 df8}\\{<f, af, df,>8[\arpeggio \slurUp af( <f df'>]) r r4}>> |
	<<{df'4^> c4.^> f,8}\\{f,8[ <f' a> c' <f, a> <f a>] r}>> |
	<<{c'4^> bf4.^> f8^>}\\{f,8[ <df' f> bf' <df, f> <df f> f]}>> |
%% 101 - 103
	<<{f'4^> ef8[( df c bf])}\\{f,8[ f' <gf ef'> <f df'> <ef c'> <df bf'>]}>> |
	<<{bf'8[ a] c4 r8 f,}\\{<c f,>2 ~ <c f,>8 r}>> |
	
	<<{df'4^^( c4.^>) \sd f,8^^^\markup {"" \raise #2.5 \center-align <\italic "poco rit.">}}
		\\{\once  \override Slur  #'beautiful = #4.5 
				r16  f,,32[( a c f a c] \sd f32) s32 s16 s8 s4}>> |
%% 104 - 106
	<<{c'4^^(^\markup {"" \raise #0.5 \italic "cresc."} bf4.)^^ bf8}
		\\{\once  \override Slur  #'beautiful = #5.5 
				r16 f,,32[( bf df f bf df] f) s32 s16 s8 s4}>> |
	<<{a8[( bf c df ef e])}\\{f,2.}>> |
	<f a c f>16^.\arpeggio[^\rfz f'^.(^\ff f^. f^. f^. f^. f^. f^. f^. 
		f^.^\markup {"" \raise #2.5 \italic "rit."} f^. f^.]) |
%% 107 - 108
	\set tupletSpannerDuration = #(ly:make-moment 1 8)
  \times 2/3  { 
  		df,,[(^\markup \translate #(cons -4 0) {"" \raise #1.5 {\dynamic p \italic "a tempo."}}  af'' df f df af) f'( df af) f'( df af)
  			f'( df af) f'( df af)] |
  			\override TupletBracket  #'number-visibility = ##f
  		<ef ef'>[( af c gf' c, af) gf'( c, af) gf'( c, af) 
  			gf'( c, af) gf'( c, af)] |
%% 109 - 110
			<af, af,>[( af' c af' c, af) 
					af'(^\markup \translate #(cons 2 0){ "" \raise #-1 \italic "rit."} 
				 c, af) af'( c, af) af'( c, af)
				af'( c, af)] |
			<df, df,>[( af' df f df af) f'( df af) f'( df af) f'( df af)
				f'( df af)] |
%% 111 - 112
		<bf, bf,>[^\markup {"" \raise #3 \dynamic p }
			 <bf f' af> <bf f' af> <bf f' af> <bf f' af> <bf f' af> 
		<bf f' af> <bf f' af> <bf f' af> <bf f' af> <bf f' af> <bf f' af> 
		<bf f' af> <bf f' af> <bf f' af> <bf f' af> <bf f' af> <bf f' af>] |
		<ef ef,>[ <bf' ef gf> <bf ef gf> <bf ef gf> <bf ef gf> <bf ef gf>
		<bf ef gf>^\markup {\italic "cresc."} 
				<bf ef gf> <bf ef gf> <bf ef gf> <bf ef gf> <bf ef gf> 
		<bf ef gf> <bf ef gf> <bf ef gf> <bf ef gf> <bf ef gf> <bf ef gf>] |
%% 113 - 114
		<af, af,>[^\markup { "" \raise #4 {\dynamic f \italic "largamente"}} 
				<af' c gf'> <af c gf'> <af c gf'> <af c gf'> <af c gf'> 
		<af c gf'> <af c gf'> <af c gf'> <af c gf'>^\markup {\italic "cresc."} 
				<af c gf'> <af c gf'> 
		<af c gf'> <af c gf'> <af c gf'> <af c gf'> <af c gf'> <af c gf'>] |
		<f, f,>[^\markup \translate #(cons -3 0) 
				{"" \raise #2.5 {\dynamic fff \italic "strepitoso"}} 
				<gf gf,> <af af,> <bf bf,> <c c,> <df df,> <d d,> 
			<ef ef,> <e e,> <f f,> <gf gf,> <g g,> <af af,> <a a,> <bf bf,>
			<b b,> <c c,> <df df,>] |
  	}	
%% 115 - 117
	<gf, gf,>8^\rfz_\rfz r <gf df' ef>_\rfz c_^[ df_^ ef_^] |
	<af,, af,>^\rfz_\f r <af' df f>_\rfz bf_^[ c_^ df_^] |
	\acciaccatura <af, af,>\sustainDown <af' df f af>_\rfz s s4 s8 s16 s16\sustainUp |
%% 118 - 120
	\acciaccatura <af, af,>8\sustainDown 
		<af' c gf'>8^.^\markup {\center-align <\italic "molto rit.">} 
			s s4 s8 s16 s16\sustainUp |
	\acciaccatura <df,, df,>8\sustainDown^\markup 
			\translate #(cons -2.5 0) {"" \raise #3 \dynamic fff } 
		<af'' df f af>^^ s s4 s8 s16 s16\sustainUp |
	s8 s s \set tupletSpannerDuration = #(ly:make-moment 1 16) 
	\times 2/3 { af,,16^\markup {"" \raise #4.5 
		{\italic \center-align <"rit." "piu"> \dynamic f }}
			s8 af16 s8 af16 s8 }|
%% 121 - 123
	\repeat "tremolo" 12{ <af df,>32^\markup \translate #(cons -4 0)
			{"" \raise #3  \dynamic fff } df32 } |
	\repeat "tremolo" 8{ <af df,>32 df32 } <af df,>8^^[\sustainDown <df' f af df>^^] |
	\su <df, df,>8_. r\sustainUp r r4 r8 |
}

\score { 
  \context PianoStaff <<
    \context Staff=upper \upper
    \context Staff=lower <<
      \clef bass
      \lower
    >>
  >>
  \paper { }
  \midi { \tempo 4=60 }
}

