diff --git a/src/Examples.hs b/src/Examples.hs
index 8472cec..54f3e1c 100644
--- a/src/Examples.hs
+++ b/src/Examples.hs
@@ -7,6 +7,7 @@ module Examples
   , kochSnowflake
   , sierpinski
   , sierpinskiArrow
+  , dragon
   ) where
 
 import Lib
@@ -69,3 +70,13 @@ sierpinskiArrow = LSystem
                   60
                   10
                   [('A',Forward), ('B',Forward), ('+',TurnRight), ('-',TurnLeft)]
+
+-- | Dragon curve
+dragon = LSystem
+         "FX+-"
+         "FX"
+         [('X', "X+YF+"),
+          ('Y', "-FX-Y")]
+         90
+         10
+         [('F',Forward), ('+',TurnRight), ('-',TurnLeft)]