diff --git a/memorial.ly b/memorial.ly
index bc9d5da..802b8a5 100644
--- a/memorial.ly
+++ b/memorial.ly
@@ -20,8 +20,7 @@ keyChange = {
   \key c \major
 }
 
-right = {
-  \global
+rightMainTheme = {
   <<
     { e2 gs4 a | b2\arpeggio <ds, fs>4 <e gs> | <fs a>2       a4  gs | fs4. e8 ds4 e8 fs | } \\
     { b,1      | <b ds fs>\arpeggio           | cs4. cs8      cs4 b  | b1                | }
@@ -31,6 +30,36 @@ right = {
     { e1 ~                    | e1               | fs1 ~                  | fs                  | } \\
     { e4 cs8 b a b cs <b e> ~ | q4. cs8 a b cs e | <cs fs>4. a8 a cs e fs | <b, e>4. b8 <b ds>2 | }
   >>
+}
+
+leftMainTheme = {
+  e8 b' e b ~ b4 b |
+  b8 fs' b fs ~ fs4 fs |
+  fs,8 cs' fs cs ~ cs fs4 cs8 |
+  b8 fs' b2 fs4  |
+
+  a,8 e' a2. |
+  gs,8 e' gs2. |
+  fs,8 cs' fs2 cs4 |
+  b,8 fs' b2 b4 |
+}
+
+violinMainTheme = {
+  <<
+    { gs2 a4  b  | b2  fs4 gs | a2  gs4 fs | fs1 } \\
+    { e2  fs4 gs | fs2 ds4 e  | fs2 e4  cs | ds1 }
+  >>
+
+  <<
+    { e1 ~ | e | fs ~      | fs              | } \\
+    { cs1  | b | <cs e ~>1 | <b ~ e>2 <b ds> | }
+  >>
+}
+
+right = {
+  \global
+
+  \rightMainTheme
 
   <<
     { \grace { b16 ds e } e2 gs4 a | b2\arpeggio <ds, fs>4 <e gs> | a4.       fs8     ~ fs a8  fs4 | <e fs>4. \times 2/3 { e16 fs e } ds2 | } \\
@@ -70,7 +99,7 @@ right = {
   >>
 
   <b' b'>2 <fs fs'>4 <gs gs'> |
-  <a a'>2 <gs gs'>4 <fs fs'> |
+  <a a'>2 q4 <gs gs'> |
   <fs fs'>4. <e e'>8 <ds ds'>4 <e e'>8 <fs fs'> |
   <e e'>4 <cs cs'>8 <b b'> <a a'> <b b'> <cs cs'> <e e'> ~ |
   q4 <cs cs'>8 <b b'> <a a'> <b b'> <cs cs'> <e e'> |
@@ -100,8 +129,8 @@ right = {
   >>
 
   <<
-    { \grace { b16 c d } <c e>4.   q8 q4       <b d>8 <c e> | <d f>4. <b e>8 ~ q2  | } \\
-    {                    a4.       a8 a2                    | a4.     gs8    ~ gs2 | }
+    { \grace { b16 c d } <c e>4.   q8 q4       <b d>8 <c e> | <d f>4. <b e>8 ~ q4  q  | } \\
+    {                    a4.       a8 a2                    | a4.     gs8    ~ gs4 gs | }
   >>
 
   <a c e>4. c8 <e a c>2 | \grace { d16 g } <g b d>2 <d g b>2 |
@@ -134,19 +163,26 @@ right = {
 
   <b, b'>4 <ds fs>  \ottava #'0 <b, ds fs>4. b,8 |
 
+  \key e \major
+  \rightMainTheme
+
+  \grace { b16 e gs } b4. b,8 e4. b8 | b'4. b,8 <ds fs>4. b8 |
+  a'4. <b, gs'>8 ~ q8 <cs a'>4 <b fs'>8 ~ | q4. b8 ds4 b8 ds |
+  <b e>4. <b cs>8 ~ q4. <b e>8 ~ | q4 <b gs'> <b a'> <b b'> |
+  <a cs fs a>4. <a cs fs>8 ~ q8 q4. | <b e fs b>2 <b ds fs b> |
+
+  \grace { e16 fs gs } <b, gs'>4. <cs a'>8 ~ q <b gs'>4. | << { fs'4. e8 ds4 e8 fs } \\ { b,1 } >> |
+  << { gs'2 a4 gs8 a16 gs } \\ { ds4. b8 ~ b2 } >> | fs'4. a,8 a cs e fs |
+  e4 ds8 cs ds e ds cs | ds4. a8 ~ a bs ds fs |
+  e4. gs,8 ~ gs b? e a, | <b cs e>4. <cs ds fs>8 ~ q4 q |
+  <b e>1\fermata \bar "|."
+
 }
 
 left = {
   \global
-  e8 b' e b ~ b4 b |
-  b8 fs' b fs ~ fs4 fs |
-  fs,8 cs' fs cs ~ cs fs4 cs8 |
-  b8 fs' b2 fs4  |
 
-  a,8 e' a2. |
-  gs,8 e' gs2. |
-  fs,8 cs' fs2 cs4 |
-  b,8 fs' b2 b4 |
+  \leftMainTheme
 
   e,8 b' e b ~ b4 b |
   b,8 fs' b fs ~ fs4 fs |
@@ -214,6 +250,37 @@ left = {
   }
 
   <b b'>2 q | q q4 q | q1 | q2. b'4 |
+
+  \key e \major
+
+  \relative c, {
+    \leftMainTheme
+  }
+
+  e,8 b'8 e2 b4 |
+  b,8 fs'8 b2 b4 |
+  fs8 cs'8 fs4 cs fs |
+  b,8 fs'8 b4 ~ b8 fs4. |
+
+  a,8 e' a4 e8 a e4 |
+  gs,8 e' gs2 e4 |
+  fs,8 cs' fs4 cs fs,8 cs' |
+  <b, b'>2 q2 |
+
+  a'8 e' a4 e a,8 e' |
+  b8 fs' b4 fs b, |
+  gs8 ds' gs2 ds4 |
+  fs,8 cs' fs4 cs fs, |
+
+  cs8 gs' cs4 gs cs |
+  ds,8 a' ds4 ds a |
+  e8 b' e4 e b |
+  <<
+    { a8 e' a4 b,8 fs' b4 | } \\
+    { a,2      b2         | }
+  >>
+
+  <e, b' e>1\arpeggio\fermata |
 }
 
 highStrings = \new Staff \with {
@@ -224,15 +291,7 @@ highStrings = \new Staff \with {
     \global
 
     \repeat unfold 8 r1
-    <<
-      { gs2 a4  b  | b2  fs4 gs | a2  gs4 fs | fs1 } \\
-      { e2  fs4 gs | fs2 ds4 e  | fs2 e4  cs | ds1 }
-    >>
-
-    <<
-      { e1 ~ | e | fs ~      | fs              | } \\
-      { cs1  | b | <cs e ~>1 | <b ~ e>2 <b ds> | }
-    >>
+    \violinMainTheme
 
     <<
       { gs'2     a4 gs | fs e2 cs4 | b2       e8 gs cs gs | ds'2 e4  fs | } \\
@@ -244,7 +303,7 @@ highStrings = \new Staff \with {
       { gs,1 ~              | gs2 ~        gs8 ds' cs bs | cs2 b?4 a | ds1 | }
     >>
 
-    e2 gs4 a | b2 fs4 gs | a2 gs4 fs | fs4. e8 ds4 e8 fs |
+    e2 gs4 a | b2 fs4 gs | a2 a4 gs | fs4. e8 ds4 e8 fs |
     e4 cs8 b a b cs e ~ | e4 cs8 b a b cs e |
     fs2 gs4 a | b1 |
 
@@ -281,8 +340,29 @@ highStrings = \new Staff \with {
     <b e fs>1 ~ | q1 ~ |
     <b ds fs>1\glissando  | \ottava #'1 b''1 \ottava #'0 |
 
+    \key e \major
 
+    \relative c'' {
+      \violinMainTheme
+    }
 
+    e,,4 e8 gs b a gs e |
+    fs4 ds8 e fs gs a b |
+    cs4 a8 fs e fs a cs |
+    <<
+      { b1                  | e,2.           gs8 e } \\
+      { r8 ds e fs a gs fs4 | r8 cs b a b cs r4    }
+    >>
+
+    b4 e8 gs b a gs4 |
+    a2 gs | << { b1 | } \\ { fs1 } >>
+
+    cs1 | ds2 cs8 ds e fs | gs2 a4 gs8 a16 gs | fs2 fs8 gs a b |
+    cs2. b8 a | ds2. b8 a |
+    <<
+      { e'1     | \ottava #'1 a1 ~                | a4 gs2.\fermata    | } \\
+      { s2. b,4 | <a cs e>2 <b ds fs> | <b e>1\fermata | }
+    >>
   }
 }
 
diff --git a/memorial.pdf b/memorial.pdf
index 01a0fad..af6ce99 100644
Binary files a/memorial.pdf and b/memorial.pdf differ