diff --git a/README.md b/README.md
index 894ef4f..054e6db 100644
--- a/README.md
+++ b/README.md
@@ -1,12 +1,20 @@
 # Lilydrum (pipeband-drumming notation)
 
-Somehow, the drums part in lilypond does not cover a notation with only right left. That is right is above the line and left is below it. In the same manner as the bagpipe.ly file, flams and drags are defined as a shortcut.
+Somehow, the drums part in lilypond does not cover a notation with only right and left hands 
+(also known as Swiss style drum notation).
+That is, right is above the line and left is below it.
+In the same manner as the bagpipe.ly file included with lilypond, flams and drags are defined as a shortcut.
 
-There has been a lilypond include file earlier, made by Simon Froger (which includes all of the above). So first version is a shameless copy. 
+There has been such a lilypond include file earlier, made by Simon Froger 
+(which includes all of the above).
+This repository builds on work.
 The original file can still be found at [http://lsr.di.unimi.it/LSR/Snippet?id=970](http://lsr.di.unimi.it/LSR/Snippet?id=970).
 
 [His website (French) can be found here](https://simonfroger.wordpress.com/lilypond/caisse-claire-ecossaise/)
 
+This repository has also been converted into a [lyp](https://github.com/noteflakes/lyp) package: [lyp/lilydrum](https://github.com/lyp-packages/lilydrum).
+
+
 ## How to use
 ---------------------
 To make a pipeband drum staff simply use
@@ -15,33 +23,47 @@ This creates a DrumStaff with a few specific changes.
 
 !! Note that you do not need to use PipeBandDrumStaff to use the rest.
 
-Music needs to be defined in \drummode.
+Music needs to be defined in `\drummode`.
 You can use every regular drum character (such as `sn` or `bd`), as `d` and `g` are appended to the list.
 
+## Example piece
+![preview of the score](./example.preview.png)
+
+This was generated by the following code.
 
 ```lilypond
+\include "lilydrum.ly"
+
+\header { title = "Standards 6/8" }
 \score {
-        \header { title = "Standards 6/8" }
         \new PipeBandDrumStaff {
             \drummode {
                 \time 6/8
-                \partial 8 d8:32(_"7" |
                 \repeat volta 2 {
-                    g8.[) g16 \dragd d8] d8.[ d16 \dragg g8] |
-                    g8.[ \dragd d16 d8] d8.[ d16 \dragg g8] |
-                    \flamddr d8. d16 g8 d4.:32(_"13" |
-                    d8.) g16 d8 \flamg g4 d8:32(_"7" \fr |
-                    \break
-                    g8.[) g16 \dragd d8] d8.[ d16 \dragg g8] |
-                    g8.[ \dragd d16 d8] d8.[ d16 \dragg g8] |
-                    \flamddr d8. d16:64(_"5" d8) \flamd d8. d16 \flamg g8 |
-                    d8.:32(_"5" d16) \flamg g8 \flamd d4. \fr |
-                }
+					\partial 8 d8:32( |
+					g8.)[ g16 \drag d8]	d8.[ d16 \drag g8] |
+					g8.[ \drag d16 d8]	d8.[ d16 \drag g8] |
+					
+					\tutti {
+						\flam d8. d16 g8	d4.:32( |
+						d8.) g16 d8	\flam g4
+					}
+					
+					d8:32( |
+					g8.)[ g16 \drag d8]	d8.[ d16 \drag g8] |
+					g8.[ \drag d16 d8]	d8.[ d16 \drag g8] |
+
+					
+					\tutti{
+						\flam d8. d16:64( d8)	\flam d8. d16 \flam g8 |
+						d8.:32( d16) \flam g8	\flam d4
+					}
+				}
             }
         }
     }
 ```
-(see ./example.ly)
+see [./example.ly](./example.ly) for fully annotated code and its [score](./example.pdf).
 
 
 ### Embellishments (Side)
diff --git a/example.pdf b/example.pdf
index 359bebc..ab3d2f6 100644
Binary files a/example.pdf and b/example.pdf differ
diff --git a/example.preview.pdf b/example.preview.pdf
new file mode 100644
index 0000000..bf0b1ef
Binary files /dev/null and b/example.preview.pdf differ
diff --git a/example.preview.png b/example.preview.png
new file mode 100644
index 0000000..42c7589
Binary files /dev/null and b/example.preview.png differ
diff --git a/lib/embellishments.ily b/lib/embellishments.ily
index 97c065b..7509e56 100644
--- a/lib/embellishments.ily
+++ b/lib/embellishments.ily
@@ -55,7 +55,7 @@ sruffddr = \drummode { \drumgrace { d16[\dr g g] } }	% Swiss Ruff left  with sta
 
 get-first-note = #(define-music-function (music) (ly:music?)
 	"Get the first note-event in @var{music}"
-	(let ((note(car (extract-typed-music music 'note-event))))
+	(let ((note (car (extract-typed-music music 'note-event))))
 	  note
 	  )
 )