diff --git a/src/Examples.hs b/src/Examples.hs
index 54f3e1c..fad92e6 100644
--- a/src/Examples.hs
+++ b/src/Examples.hs
@@ -2,6 +2,7 @@ module Examples
   ( -- * Space-filling curves
     gosper
   , hilbert
+  , levyC
     -- * Fractals
   , koch
   , kochSnowflake
@@ -33,6 +34,15 @@ hilbert = LSystem
           10
           [('F',Forward), ('+',TurnRight), ('-',TurnLeft)]
 
+-- | Lévy C curve
+levyC = LSystem
+        "F+-"
+        "F"
+        [('F', "+F--F+")]
+        45
+        10
+        [('F',Forward), ('+',TurnRight), ('-',TurnLeft)]
+
 -- | Koch curve
 koch = LSystem
        "F+-"