diff --git a/src/experimental/_impl/_convex_intersection_for_impl.scad b/src/experimental/_impl/_convex_intersection_for_impl.scad
new file mode 100644
index 00000000..78e4a48f
--- /dev/null
+++ b/src/experimental/_impl/_convex_intersection_for_impl.scad
@@ -0,0 +1,8 @@
+use <experimental/convex_intersection.scad>;
+
+function _convex_intersection_for(shapes, pre, leng, i = 2) = 
+    i == leng ? pre :
+                _convex_intersection_for(shapes, 
+                    convex_intersection(pre, shapes[i]), 
+                    leng, i + 1
+                );
\ No newline at end of file
diff --git a/src/experimental/convex_intersection_for.scad b/src/experimental/convex_intersection_for.scad
new file mode 100644
index 00000000..cb662a8a
--- /dev/null
+++ b/src/experimental/convex_intersection_for.scad
@@ -0,0 +1,10 @@
+use <experimental/convex_intersection.scad>;
+use <experimental/_impl/_convex_intersection_for_impl.scad>;
+                
+function convex_intersection_for(shapes) = 
+    let(leng = len(shapes))
+    _convex_intersection_for(
+        shapes, 
+        convex_intersection(shapes[0], shapes[1]), 
+        leng
+    );
\ No newline at end of file