diff --git a/amazing-grace.ly b/amazing-grace.ly
index 50171c1..678466e 100644
--- a/amazing-grace.ly
+++ b/amazing-grace.ly
@@ -17,6 +17,19 @@ global = {
   \set Score.connectArpeggios = ##t
 }
 
+lhArpeggio = \relative c, {
+  d16 a' d e fs a d a fs e d a
+}
+lhArpeggioShort = \relative c, {
+  d16 a' d e fs a d8 a4 |
+}
+
+lhArpeggioShortest = \relative c, {
+  d16 a' d e fs a d4. |
+}
+
+dMajorScale = { cs d e fs g a b }
+
 introR = \relative c {
   \tempo "Rubato" 4 = 80
   \change Staff = "left" <af df f>4 \change Staff = "right" <af' df f>  <af' df f>2 |
@@ -29,7 +42,7 @@ introR = \relative c {
   
   \time 12/8
   \key d \major
-  \tempo "Faster" 4. = 80
+  \tempo "In time" 4. = 84
   
   \ottava #'0 <a, d a'>4. <a d g> <a d fs> <a d g> |
   <a d a'> <a d g> <a d fs> <a d g> |
@@ -44,8 +57,6 @@ introR = \relative c {
   r f a bf d f a bf d bf a f d bf a f |
   r e fs a d e fs a d a fs e d a fs e |
   r e g bf cs e g bf cs e g bf cs8 a |
-  
-  
 }
 
 introL = \relative c,, {
@@ -66,6 +77,7 @@ introL = \relative c,, {
   a e' a ~ a bf cs ~ \times 3/5 { cs d e f g } \cadenzaOn \parenthesize a4. \teeny e16[ cs bf a e cs bf a g f e] \normalsize \cadenzaOff \bar "|" |
   
   \time 3/4
+  \tempo 4 = 76
   d16 a' d e fs a d a fs e d a |
   d, bf' d e f a bf a f e d bf |
   d, a' d e fs a d a fs e d a |
@@ -78,6 +90,94 @@ introL = \relative c,, {
   a,4 a' a, a' |
 }
 
+firstThemeR = \relative c'' {
+  \time 6/8
+  
+  <d d'>4. ~ q4 <fs fs'>16 <d d'> |
+  <fs fs'>4. ~ q4 <e e'>8 |
+  <d d'>4. ~ q4 <b b'>8 |
+  <a a'>2. |
+  r2. |
+  
+  <d fs a d>4.\arpeggio ~ q4 <fs fs'>16 <d d'> |
+  <fs fs'>4. ~ q4 <e e'>8 |
+  <a d e a>2.\arpeggio ~ |
+  q4. r4 <fs fs'>8 |
+  
+  <a a'>4. ~ q8. <fs fs'>16 <a a'> <fs fs'> |
+  <d d'>4. ~ q4 <a a'>8 |
+  <b b'>4. ~ q8. <d d'>16 <d g b d> <b b'> |
+  <a c f a>4. ~ q8. <d d'>16 q <b b'> |
+  <a a'>4. ~ q8. q16 <b b'> <cs cs'> |
+  
+  <d d'>4. ~ q4 <fs fs'>16 <d d'> |
+  <fs fs'>4. ~ q4 <e e'>8 |
+  <d d'>2. |
+  <d d'>4. <cs cs'>8. <d d'>16 <e e'>8 |
+  <d d'>2. |
+  <d d'>4. <e e'>8 <d d'> <e e'> |
+  <e e'>4. <fs fs'> |
+  \grace { d,16[ e fs] } << { g( fs e) e( fs g) fs8. } \\ { a,8 a16 a8. a8. } >> \times 6/7 { d32 e fs g a b c } |
+}
+
+firstThemeL = \relative c, {
+  \lhArpeggio |
+  \transpose d g \lhArpeggio |
+  \modalTranspose d e \dMajorScale \lhArpeggio |
+  \transpose d a \lhArpeggio |
+  a'16 e' a b cs e a8. g16 fs e |
+  
+  \lhArpeggio |
+  \transpose d c \lhArpeggio |
+  a,,16 d e a d e a e d a e d |
+  \transpose d a \lhArpeggioShort |
+  
+  \lhArpeggio |
+  \modalTranspose d b, \dMajorScale \lhArpeggio |
+  \transpose d g \lhArpeggioShortest |
+  \transpose d f \lhArpeggioShortest |
+  \transpose d a \lhArpeggioShort |
+  
+  \lhArpeggio |
+  \modalTranspose d b, \dMajorScale \lhArpeggio |
+  \transpose d g \lhArpeggio |
+  \transpose d a \lhArpeggio |
+  \modalTranspose d b, \dMajorScale \lhArpeggio |
+  \transpose d c \lhArpeggio |
+  \lhArpeggio |
+  d,16 a' d e fs e d4. |
+}
+
+firstInterludeR = \relative c'' {
+  \key g \major
+  \time 15/16
+  
+  d8. d, d'8 d,16 << { d'8 c b } \\ { d16 d, c' d, b' d, } >> |
+  c'8. c, c'8 c,16 << { c'8 b a } \\ { c16 c, b' c, a' c, } >> |
+  b'8. b, b'8 b,16 << { b'8 a g } \\ { b16 b, a' b, g' b, } >> |
+  \time 12/16 a'16 fs e ds e fs e fs g fs g a |
+  
+  d8. d, d'8 d,16 d'16 c32 d c b |
+  c8. c, c'8 c,16 c'16 b32 c b a |
+  b8. b, b'8 b,16 b'16 a32 b a g |
+  a8. a, <d g> <a fs'> |
+  \grace { d'16[ e fs] } << { g fs e e fs g } \\ { a,8 a16 a8. } >> <a fs'>8. d, |
+}
+
+firstInterludeL = \relative c, {
+  \key g \major
+  g'16 d' g a8 g16 d g, d' g d g, d' g, d' |
+  c,16 g' c e8 c16 g c, g' c g c, g' c, g' | 
+  e16 b' e fs8 e16 b e, b' e b e, b' e, b' |
+  b,16 fs' b fs' g a c,, g' c d,? a' d? |
+  
+  g,16 d' g a g d g, d' g a g d |
+  c, g' c e c g c, g' c e c g |
+  e b' e fs e b e, b' e fs e b |
+  d, a' d ~ d a d ~ d a d, ~ d8. |
+  d'16 a' d e fs e d4. |
+}
+
 \score {
   \new PianoStaff \with {
     instrumentName = "Piano"
@@ -89,6 +189,8 @@ introL = \relative c,, {
       \global
       
       \introR
+      \firstThemeR
+      \firstInterludeR
     }
     \new Staff = "left" \with {
       midiInstrument = "acoustic grand"
@@ -97,6 +199,8 @@ introL = \relative c,, {
       \global
       
       \introL
+      \firstThemeL
+      \firstInterludeL
     }
   >>
   \layout { }
diff --git a/amazing-grace.pdf b/amazing-grace.pdf
index 2acbce3..006435d 100644
Binary files a/amazing-grace.pdf and b/amazing-grace.pdf differ