diff --git a/examples/lsystem3_collection.scad b/examples/lsystem3_collection.scad
index c0ca1f50..f288e98c 100644
--- a/examples/lsystem3_collection.scad
+++ b/examples/lsystem3_collection.scad
@@ -1,7 +1,7 @@
 use <experimental/lsystem3.scad>;
 use <hull_polyline3d.scad>;
 
-for(line = vine()) {
+for(line = plant()) {
     hull_polyline3d(
         [line[0], line[1]], 
         thickness = 0.25, 
@@ -18,6 +18,17 @@ function tree(n = 4, angle = 22.5, leng = 1, heading = 0, start = [0, 0, 0]) =
     )
     lsystem3(axiom, rules, n, angle, leng, heading, start);  
 
+function plant(n = 4, angle = 30, leng = 1, heading = 0, start = [0, 0, 0]) = 
+    let(
+        axiom = "A",
+        rules = [
+            ["A", "B[+A]\\\\\\\\[+A]\\\\\\\\[+A]\\\\\\\\BA"],
+            ["B", "BB"],
+            ["B", "A/B"]
+        ]
+    )
+    lsystem3(axiom, rules, n, angle, leng, heading, start, forward_chars = "AB", rules_pr = [1, .5, 1]);
+
 function hilbert_curve(n = 3, angle = 90, leng = 1, heading = 0, start = [0, 0, 0]) = 
     let(
         axiom = "A",