diff --git a/populus_nigra_italica.lpy b/populus_nigra_italica.lpy
new file mode 100644
index 0000000..ea2d5d5
--- /dev/null
+++ b/populus_nigra_italica.lpy
@@ -0,0 +1,51 @@
+def Start():
+   #random.seed(150)
+   pass
+   
+Axiom: _(0.3)@GsG(1)A(1)
+
+derivation length: 20
+production:
+A(x) :
+  if x == 1:
+    produce[-(30)F(1)B(1)]F(1)A(x+1)
+  if x == 2:
+    produce [^(30)F(1)C(1)]F(1)A(x+1)
+  elif x == 4:
+    produce [+(30)F(1)D(1)]F(1)A(1)
+  elif x == 3: 
+    produce [&(30)F(1)E(1)]F(1)A(x+1)
+B(x):
+  if x <= 1:
+    produce [^(30)F(1,0.05+0.25/x)Leaf(1)][&(30)F(1,0.05+0.25/x)Leaf(1)]+(5)F(1,0.05+0.25/x)B(x+1)
+  elif x <= 2:
+    produce [^(30)F(1,0.05+0.25/x)Leaf(1)][&(30)F(1,0.05+0.25/x)Leaf(1)]+(5)F(1,0.05+0.25/x)B(x+1)
+  elif x <= 4:
+    produce [^(30)F(1,0.05+0.25/x)Leaf(1)][&(30)F(1,0.05+0.25/x)Leaf(1)]+(5)F(1,0.05+0.25/x)B(x+1)
+C(x):
+  if x <= 1:
+    produce [+(30)F(1,0.05+0.25/x)Leaf(1)][-(30)F(1,0.05+0.25/x)Leaf(1)]&(5)F(1,0.05+0.25/x)C(x+1)
+  elif x <= 2:
+    produce:[+(30)F(1,0.05+0.25/x)Leaf(1)][-(30)F(1,0.05+0.25/x)Leaf(1)]&(5)F(1,0.05+0.25/x)C(x+1)
+  elif x <= 4:
+    produce [+(30)F(1,0.05+0.25/x)Leaf(1)][-(30)F(1,0.05+0.25/x)Leaf(1)]&(5)F(1,0.05+0.25/x)C(x+1)
+D(x):
+  if x <= 1:
+    produce [&(30)F(1,0.05+0.25/x)Leaf(1)][^(30)F(1,0.05+0.25/x)Leaf(1)]-(5)F(1,0.05+0.25/x)D(x+1)
+  elif x <= 2:
+    produce:[&(30)F(1,0.05+0.25/x)Leaf(1)][^(30)F(1,0.05+0.25/x)Leaf(1)]-(5)F(1,0.05+0.25/x)D(x+1)
+  elif x <= 4:
+    produce [&(30)F(1,0.05+0.25/x)Leaf(1)][^(30)F(1,0.05+0.25/x)Leaf(1)]-(5)F(1,0.05+0.25/x)D(x+1)
+E(x):
+  if x <= 1:
+    produce [+(30)F(1,0.05+0.25/x)Leaf(1)][-(30)F(1,0.05+0.25/x)Leaf(1)]^(5)F(1,0.05+0.25/x)E(x+1)
+  elif x <= 2:
+    produce:[+(30)F(1,0.05+0.25/x)Leaf(1)][-(30)F(1,0.05+0.25/x)Leaf(1)]^(5)F(1,0.05+0.25/x)E(x+1)
+  elif x <= 4:
+    produce [+(30)F(1,0.05+0.25/x)Leaf(1)][-(30)F(1,0.05+0.25/x)Leaf(1)]^(5)F(1,0.05+0.25/x)E(x+1)
+Leaf(x):
+  produce ~l(1)
+interpretation:
+
+
+endlsystem
\ No newline at end of file