diff --git a/memorial.ly b/memorial.ly
new file mode 100644
index 0000000..527598e
--- /dev/null
+++ b/memorial.ly
@@ -0,0 +1,154 @@
+\version "2.18.2"
+\language "english"
+
+\header {
+  title = "Memorial"
+  composer = "Tommy Montgomery"
+  copyright = "(c) 2003 Tommy Montgomery"
+}
+
+global = {
+  \key e \major
+  \time 4/4
+  \tempo 4 = 144
+  \set Staff.printKeyCancellation = ##f
+  \set Score.connectArpeggios = ##t
+  \numericTimeSignature
+}
+
+right = {
+  \global
+  <<
+    { 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                | }
+  >>
+
+  <<
+    { 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 | }
+  >>
+
+  <<
+    { \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 | } \\
+    { b1                           | <b ds fs>\arpeggio           | <cs fs>4. <a cs>8 ~ q  cs8 a4 | b1                                    | }
+  >>
+
+  <<
+    { \grace { a16 b cs } e1 ~  | e1                              | fs4.   gs8 ~ gs fs4. | fs2.               e16 gs ds' e | } \\
+    { e,4 cs8 b a b cs <b e> ~  | q2 \grace { a16 b } cs8 a e' a, | cs4 a8 cs8 ~ cs cs4. | <b e>4. b8 <b ds>4 s4           | }
+  >>
+
+  ds'4. e,8 cs'2 |
+
+  <<
+    { \grace { b16 cs b } a2 ~ a8 e a b | } \\
+    { s4. cs,8 ~ cs2                    | }
+  >>
+
+  <<
+    { b'2 fs8 gs a gs   | fs4. e8 ds4 e16 gs ds' e | } \\
+    { e,4.    b8 ~ b2 ~ | b2. s4                   | }
+  >>
+
+}
+
+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 |
+
+  e,8 b' e b ~ b4 b |
+  b,8 fs' b fs ~ fs4 fs |
+  fs8 cs' fs cs ~ cs4 fs8 cs |
+  b8 fs' b2 fs4  |
+
+  a,8 e' a2. |
+  gs,8 e' gs2 e4 |
+  fs,8 cs' fs2 cs4 |
+  b,8 fs' b2 b4 |
+
+  cs,8 gs' cs4 gs cs |
+  a8 e' a2 e4 |
+  e,8 b' e2 b4 |
+  b8 fs' b2. |
+}
+
+highStrings = \new Staff \with {
+  instrumentName = "Violin"
+  midiInstrument = #"violin"
+} {
+  \clef treble \relative c'' {
+    \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> | }
+    >>
+
+    <<
+      { gs'2     a4 gs | fs e2 cs4 | b2 e8 gs cs gs | ds'2 e4 fs | } \\
+      { <cs, e>2 q     | <a cs>1   | <e gs>1        |   }
+    >>
+  }
+}
+
+lowStrings = \new Staff \with {
+  instrumentName = "Cello"
+  midiInstrument = #"string ensemble 1"
+} {
+  \clef bass \relative c {
+    \global
+    \repeat unfold 8 r1
+  }
+}
+
+brass = \new Staff \with {
+  instrumentName = "Trumpet"
+  midiInstrument = #"brass section"
+} {
+  \clef treble \relative c {
+    \global
+    \repeat unfold 8 r1
+  }
+}
+
+\score {
+  <<
+    \new PianoStaff \with {
+      instrumentName = "Piano"
+    } <<
+      \new Staff = "right" \with {
+        midiInstrument = "acoustic grand"
+      } \relative c' \right
+      \new Staff = "left" \with {
+        midiInstrument = "acoustic grand"
+      } { \clef bass \relative c, \left }
+    >>
+    \brass
+    \highStrings
+    \lowStrings
+  >>
+  \layout {
+    \context {
+      \Staff \RemoveEmptyStaves
+    }
+  }
+  \midi {
+    \context {
+      \Score
+    }
+  }
+}
\ No newline at end of file
diff --git a/memorial.pdf b/memorial.pdf
new file mode 100644
index 0000000..be52aa3
Binary files /dev/null and b/memorial.pdf differ